Yoko

Code: Select all

sub Loot() 
VAR i
DIM Loot[2]  
Loot[0]=0x0F87; Eyes of newt
Loot[1]=0x0F7E; Bones
Loot[2]=0x1078; Skin
AddObject()
UO.UseObject('Body')

if UO.GetQuantity('Body') then
   UO.WaitTargetObject('Body')
   UO.WarMode(0)
   UO.UseType('0x0F51');dagger
   wait(500)
   UO.UseType('0x13B1');bow
   UO.WarMode(1) 
   wait(100)
else
   wait(50)
endif

For i=0 to 2      
   If UO.GetQuantity('Body') then
      CheckLag()
      UO.FindType(Loot[i],-1,'Body')
      if UO.GetQuantity('finditem')>0 then
      UO.MoveItem('finditem')          
      wait(300)
   else
      wait(50)
   endif
next
   
If UO.Count('0x1078')>0 then
   UO.WaitTargetType('0x1078')
   CheckLag()
   UO.UseType('0x0F9E')
else
   wait(50)
endif

end sub

Code: Select all

sub AddObject()
UO.exec('addobject Body')
while UO.targeting()
wait(50)
wend
end sub