Page 1 of 1

Помогите доработать скрипт на магию + медитацию

Posted: 2005-01-19 11:38:05
by PinKod

Code: Select all

sub magery() 
 repeat
  while uo.mana < uo.int
   uo.useskill("Meditation")
   wait (2500)
  wend
   uo.cast('Night Sight','self')
   wait (2000)
 until uo.dead()
end sub


Все работает. Только одна проблемка. Нужно что бы скрипт дождался появления надписи You are at peace. А то без этого медитация не качается.

Re: Помогите доработать скрипт на магию + медитацию

Posted: 2005-01-19 12:00:05
by Sfagnum
процедурка на медитацию:

Code: Select all

sub UseMeditation() 
var a
While UO.MANA < UO.INT
   UO.DeleteJournal()
   UO.UseSkill('Meditation')
   repeat
      wait(900)       
   until UO.InJournal("You are") OR UO.InJournal("You lose")
wend
end sub

Re: Помогите доработать скрипт на магию + медитацию

Posted: 2005-01-19 12:08:32
by PinKod
Sfagnum wrote:процедурка на медитацию:

Code: Select all

sub UseMeditation() 
var a
While UO.MANA < UO.INT
   UO.DeleteJournal()
   UO.UseSkill('Meditation')
   repeat
      wait(900)       
   until UO.InJournal("You are") OR UO.InJournal("You lose")
wend
end sub


Медитирует грамотно, спасибо. А как теперь сделать что бы после медитации переходил на каст НС на себя?

Posted: 2005-01-19 12:11:17
by PinKod
Пытвлся добавить эту медитацию в место своей, так он только медитировать и пытается, а кастовать-не кастует.

Posted: 2005-01-19 12:17:51
by PinKod
Ух.
Еще раз спасибо огромное за медитацию. Доперло, доделал, все пашет!