лаги в скрипте
Posted: 2007-08-25 08:29:25
zapuskaju etot skript ultima na4enaet nemnogo lagovat' i 4erez primerno 4as viletaet unhandled exceptions in parser. terminate.
skript:
skript:
Code: Select all
sub Magery()
VAR box='0x400AB647'
uo.UseObject(box)
wait(1000)
While not UO.Dead()
If UO.InJournal ('You lack Nightshade') then
UO.FindType('0x0F88','0x0000',box)
if uo.FindCount() then
uo.moveitem('finditem','1000')
wait(750)
else
uo.Print('There are no more reg.')
end if
uo.DeleteJournal()
Endif
wend
end sub