Переработка Хлопка.. нид Хелп
Posted: 2007-02-03 18:21:26
Уважаемые скриптеры, прошу у Вас помощи, вот этот скрипт работает, но всего минут 5, на нем застревает хлопок на пальц(на курсоре) и пишет : аитим но фаунд..
помогите пожалуйсто
помогите пожалуйсто
Code: Select all
sub Nitki()
VAR Spool='0x0FA0', Hlopok='0x0DF9', Cont='0x411C76BD', Stanok='0x413D0329',i, Ammount=30
While NOT UO.Dead()
UO.FindType(Hlopok,-1,Cont)
UO.Grab(STR(Ammount),'finditem')
wait(1000)
For i=1 to Ammount
checkLag()
UO.WaitTargetObject(Stanok)
wait(100)
UO.UseType(Hlopok)
wait(3000)
Next
UO.SetReceivingContainer(Cont)
UO.FindType(Spool,-1,'backpack')
UO.Grab('all','finditem')
# UO.UnSetReceivingContainer(Cont)
Wend
end sub
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