sub Loot()
var i,n
Dim A[6]
A[1] = 0x0EED ;Gold
A[2] = 0x0f7b ;
A[3] = 0x0F90 ;
A[4] = 0x0F7E ;
A[5] = 0x0F80 ;
A[6] = 0x0EED ;
UO.WaitTargetObject("lastcorpse")
UO.useobject (0x402AFAAA );
wait(1000)
i = 1200
FOR n=1 TO 6
uo.findtype(A[n],"-1","lastcorpse")
if uo.findcount() > 0 then
UO.grab(1, "finditem")
uo.print("Found "+str(uo.findcount()))
Wait(i)
END if
next
end sub
sub Loot()
var i,n
Dim A[6]
A[1] = "0x0EED" ;Gold
A[2] = "0x0f7b" ;
A[3] = "0x0F90" ;
A[4] = "0x0F7E" ;
A[5] = "0x0F80" ;
A[6] = "0x0EED" ;
UO.WaitTargetObject("lastcorpse")
UO.useobject ("0x402AFAAA" );
wait(1000)
i = 1200
FOR n=1 TO 6
uo.findtype(A[n],"-1","lastcorpse")
if uo.findcount() > 0 then
UO.grab("0", "finditem")
uo.print("Found "+str(uo.findcount()))
Wait(i)
END if
next
end sub
sub Loot()
var i,n
Dim A[5]
A[0] = '0x0EED' ;Gold
A[1] = '0x0f7b' ;
A[2] = '0x0F90' ;
A[3] = '0x0F7E' ;
A[4] = '0x0F80' ;
UO.WaitTargetObject("lastcorpse")
UO.useobject (0x402AFAAA );
wait(1000)
i = 1200
FOR n=0 TO 4
uo.findtype(A[n],"-1","lastcorpse")
if uo.findcount() > 0 then
UO.grab("0", "finditem")
uo.print("Found "+str(uo.findcount()))
Wait(i)
END if
next
end sub