Ultima Online Antares

sub loot()
DIM R[15]
var a
R[1] = '0x0EED';gold
R[2] = '0x0F82';drag blood
R[3] = '0x09B5';EKO
R[4] = '0x1E89';drag meat
R[5] = '0x1078';skin
R[6] = '0x0F87';eye
R[7] = '0x0F83';Crossbow Bolt
R[8] = '0x0F3F';Arrow
R[9] = '0x0F90'; dedwood
R[10] = '0x1869'; enchant
R[11] = '0x0F78'; batwings
R[12] = '0x0F7E'; bones
R[13] = '0x1CED'; heart
R[14] = '0x0E34'; fertil dirt
R[15] = '0x1BD1'; periy
UO.UseObject('lastcorpse')
uo.waittargetobject('lastcorpse')
uo.usetype(0x0EC4)
wait(500)
for a=1 to 15
uo.findtype(R[a],"-1","lastcorpse")
if UO.FindCount()>0 and Uo.GetDistance("lastcorpse")<=2 then
UO.Grab("0","finditem")
wait(1100)
end if
wait(10)
next
wait(300)
if uo.count('0x1078') then
uo.waittargettype('0x1078')
wait(100)
endif
wait(300)
end sub

uo.moveitem('finditem',0,ID мешка)

sub Loot()
uo.useobject('lastcorpse')
wait(100)
uo.exec("warmode '0'")
uo.waittargetobject('lastcorpse')
uo.usetype(0x0F51);тайп нажа
wait(1000)
uo.useobject(0x405A7F80); оружие
uo.exec("warmode '1'")
uo.setreceivingcontainer(0x4050315B); мешок
uo.findtype(-1,"-1","lastcorpse")
while uo.FindCount()>0
uo.findtype(-1,"-1","lastcorpse")
UO.Grab("0","finditem")
wait(950)
wend
end sub

sub Loot()
   uo.exec('addobject corp')
   while uo.targeting()
      wait(500)
   wend
uo.useobject('corp')
wait(100)
uo.exec("warmode '0'")
uo.waittargetobject('corp')
uo.usetype(0x0F51);тайп нажа
wait(1000)
uo.useobject(0x405A7F80); оружие
uo.exec("warmode '1'")
uo.setreceivingcontainer(0x4050315B); мешок
uo.findtype(-1,"-1","corp")
while uo.FindCount()>0
uo.findtype(-1,"-1","corp")
UO.Grab("0","finditem")
wait(950)
wend
end sub