Yoko

Posted: **2004-10-18 09:20:05**

sub mag()
var i
while uo.life>0
if uo.ns>0 then
for i=1 to 10
while uo.mana<uo.int
uo.useskill("Meditation")
wait(4000)
wend

uo.cast("Clumsy","self")
wait(4000)
next
else
for i=1 to 10
uo.useskill("Hiding")
wait(3000)
next
end if
wend
end sub
______________________

Требуется чтобы Clusmy кастовалось несколько раз подряд до тех пор пока есть манна,и только потом чар начинает медитацию.
По моим расчетам Clusmy должно кастоваться примерно 11 раз.Т.к манны 100,а на 1 каст требуется 9.
Заранее большое спасибо

Posted: **2004-10-18 09:54:32**

Попробуй вот так...

Code: Select all

sub magery() 
VAR LastTimer 
while NOT UO.Dead() 
UO.DeleteJournal() 
CheckLag() 
while UO.Mana>=10 
UO.Cast('Clumsy','self') 
wait(4000) 
wend 

while UO.Mana<UO.Int 
UO.WarMode('flip') 
wait(300) 
UO.Warmode(0) 
UO.UseSkill('Meditation') 
repeat 
wait(100) 
until UO.InJournal("You are") OR UO.InJournal("You lose") 
UO.DeleteJournal() 
wait(1000) 
wend 
wend 
end sub 

sub CheckLag() 
UO.DeleteJournal() 
UO.Click('backpack') 

repeat 
wait(500) 
until UO.InJournal('backpack') 
end sub

Posted: **2004-10-18 10:00:41**

Стоит на есте и ничего не творит...

Yoko

Подправьте скрипт на Magery пожалуйста.

Подправьте скрипт на Magery пожалуйста.

Re: Подправьте скрипт на Magery пожалуйста.