Corpses autoopen
Posted: 2004-08-11 03:45:52
Люди подскажи как сделать так,что на клопку можно было пробиндить вклучение этой функции и выключение,если какой нить скрипт,что можно было сделать так ?
заранее спасибо
заранее спасибо
Code: Select all
var corpse
while uo.injournal("Body of")
corpse = uo.journalserial(uo.injournal("Body of")-1)
# тут обработка трупа
#...
#перейти к следующему
uo.setjournalline(uo.injournal("Body of")-1,"none")
wend
Code: Select all
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