sub MassDrop()
VAR n

   Dim Drop[16]
   Drop[1] = '0x1412'
   Drop[2] = '0x1413'
   Drop[3] = '0x1410'
   Drop[4] = '0x1414'
   Drop[5] = '0x1415'
   Drop[6] = '0x1411'
   Drop[7] = '0x1B76'
   Drop[8] = '0x13B9'
   Drop[9] = '0x13B1'
   Drop[10]= '0x0F3F'
   Drop[11]= '0x0F0E'
   Drop[12]= '0x0E76'
   Drop[13]= '0x0E20'
   Drop[14]= '0x0E21'
   Drop[15]= '0x09B0'
   Drop[16]= '0x0F06'

   For n=1 to 16
   UO.FindType( Drop[n] , -1 ,'my')
   while uo.findcount()
     uo.moveitem('finditem', -1 ,'ground')
     wait(50)
     UO.FindType( Drop[n] , -1 ,'my')
    wend
     next
uo.print('!!! -=Done=- !!!')
end sub