Code:
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