Yoko

Code: Select all

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