Code: Select all
sub recallmake() ##название процедуры
var count ## Объявляем переменную count
repeat ## Запускаеться повтор пока ...
UO.usetype(0x0E34) ##используем тип
UO.WaitMenu('Spell Circles','Fourth Circle','Spell Circle 4','Recall') ## Ждём меню
wait(1000) ## ждём 1000мс
UO.DeleteJournal() ##Чистим журнал
count=0 ##переменная count равна 0
while NOT UO.InJournal('You put') AND NOT UO.InJournal('You fail') AND (count<50) ##пока в журнале нету "You put" или "You fail" или пока переменная count не будет больше 50 выполняем сл. действия
count=count+1 ## переменная count равна +1
wait(300)
wend ## понец "while"
until UO.Dead() ##... пока не умрём
end sub ## конец процедуры
Optical wrote:Так тебя устроит?
)