Code:
sub Looter()
var i = 0,j = 0,k
var corpse
dim buf[7] #буфер для трупов
for i = 0 to 6
buf[i] = "0x00000000"
next
uo.deletejournal()
while 1
while uo.injournal("Body of")
i = 0
while i < 7
if buf[i] == "0x00000000" then
k = uo.injournal("Body of")-1
buf[i] = uo.journalserial(k)
i = 7
uo.setjournalline(k,"deleted")
endif
i = i + 1
wend
wend
for k = 0 to 6
if buf[k] <> "0x00000000" and abs(uo.getx()-uo.getx(buf[k])) <= 3 and abs(uo.gety()-uo.gety(buf[k])) <= 3 then
uo.useobject(buf[k])
wait(100)
corpse = buf[k]
uo.useobject(corpse)
buf[k] = "0x00000000"
endif
next
wait(1000)
wend
end sub
выжимки из моего скрипта.
P.S. Поскольку ты знаешь умное слово "ptr", то написать функцию abs() тебе труда не составит
