Ultima Online Antares

sub Looot()

DIM R[5]

var c

R[1] = 0x0F3F # предметы

R[2] = 0x0F7E # предметы

R[3] = 0x0F87 # предметы

R[4] = 0x1BD1 # предметы

R[5] = 0x0EED # предметы

UO.UseObject('lastcorpse')

wait(100)

uo.exec("warmode '0'")

uo.waittargetobject('lastcorpse')

uo.usetype(0x0F51); 0x0EC3 0x0F51  - чем резать

wait(400)

for c=1 to 5

repeat

uo.findtype(R[c],"-1","lastcorpse")

if UO.FindCount()>0 and Uo.GetDistance("lastcorpse")<=4 then

UO.Grab("0","finditem")

wait(1000)

end if

until UO.FindCount()<1

wait(10)

next

UO.UseType('0x13B1'); Лук - 0x13B1, арб - 0x13FC, 0x13B5 - клава

UO.WarMode(1)

end sub