UO.FindType(Monstr,'-1', '1')
If UO.FindCount() > 0 Then
uo.playwav('C:\Program Files\ICQLite\Sounds\Auth.wav')
Walker(1807,851)
Walker(1810,850)
Walker(1816,850)
Walker(1822,850)
wait(100)
uo.usetype(Dver)
wait(100)
walker(1821,845)
wait(3000)
wait(100)
uo.waittargetobject('finditem')
uo.sayu('I ban thee')
wait(100)
walker(1821,851)
Walker(1810,850)
Walker(1807,852)
endif
Вотс функция для того чтобы убегать от Монстра и когда чар подбегает к дому он в него заходит и банит Монстра(Особенность шарда Нова).
Я хотел бы спросить у экспертов - Можно ли улучшить эту функцию или посоветуйте что-нибудь:) (строго не судите)
sub CheckLag()
if uo.Waiting()>0 then
uo.Exec('canceltarget')
end if
uo.DeleteJournal()
uo.Click('backpack')
repeat
wait(50)
until uo.InJournal('backpack')
end sub