Резалка
Posted: 2004-10-31 08:39:47
У кого нить есть скрипт чтобы чар резалтолько что убитый труп и лутал 2 вещи?
zarg wrote:У кого нить есть скрипт чтобы чар резалтолько что убитый труп и лутал 2 вещи?
Наверно вот так:
Code: Select all
sub Loot()
var i,n
Dim A[2]
A[1] = 0x0f7b ;BloodMoss
A[2] = 0x0f09 ;Invisibility
UO.WaitTargetObject("lastcorpse")
UO.useobject (0x4013EE14); nozhik kotorim rezhim trup
wait(1000)
i = 1200
FOR n=1 TO 2
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