Yoko

Posted: **2005-06-07 19:52:44**

sub Magery() 

  UO.Print( 'ID руны' ) 
  UO.Exec( 'addobject KACT HA' ) 
     While UO.Targeting() 
       Wait( 200 ) 
     Wend 
  Wait( 1000 ) 

  Repeat 
         
    While UO.Mana >= 9 
       UO.Cast( 'Poison', KACT HA ) 
       Wait(3000) 
    Wend 
         
    UO.DeleteJournal() 
      Repeat 
        UO.UseSkill( 'Meditation' ) 
        Wait( 1000 ) 
      Until UO.InJournal('at peace') 
  Until UO.Dead() 

end sub

Вот собсно скрипт, но даже когда маны после медита становится больше 9, чар продолжает медитировать. А мне нужно чтобы, как только маны 9 сразу кастовал.

Posted: **2005-06-07 20:05:27**

Code: Select all

Repeat 
UO.UseSkill( 'Meditation' ) 
Wait( 1000 ) 
Until UO.InJournal('at peace')

Что делает это?

А это юзает медитацию каждую секунду до тех пор пока в журнале не появится "'at peace'"
Исправить сможеш?

Posted: **2005-06-07 20:07:45**

Не уверен

, если не сложно подскажи как.

Posted: **2005-06-07 20:12:04**

Хотя я тут подумал, разницы то в скорости прокачки вроде нету. Что до упора медитировать, что до 9. Или я ошибаюсь?

Posted: **2005-06-07 22:35:09**

Ты прав.
Так что можешь не беспокоиться, нормальный скрипт.

Posted: **2005-06-08 13:08:26**

Кадат писал

Он берет еще реги из сундучка

Code: Select all

############################################################### 
#        #             Magery (Poison) v0.9a            #     # 
#       # #     "Whith The Help Of Ancient Gods."      # #    # 
#        #         Crafted by I'm [ICQ:138088]          #     # 
############################################################### 
sub Magery() 
############## 
# Описание. ################################################### 
############## 
# Чар берет из сундука NightShade, кастует Poison (In Nox) на цель. 
# - Сперва вас попросят указать сундук с реагентами (Container).
# - Затем на цель (Target). 
############################################################### 

UO.AddObject("Container") 
While UO.Targeting() 
 Wait(100) 
Wend 

UO.AddObject("Target") 
While UO.Targeting() 
 Wait(100) 
Wend 

##########################

While NOT UO.Dead() 

	While UO.Mana>10 AND UO.Count("0x0F88")>0 
		UO.Cast("Poison","Target") 
		Wait(4000) 
		CheckLag() 
	Wend 

	While UO.Mana<UO.Int 
		UO.WarMode("0") 
		UO.UseSkill("Meditation") 
		Wait(1000) 
	Wend 

	If UO.Count("0x0F88")==0 Then 
		UO.Useobject("Container") 
		CheckLag() 
		UO.FindType("0x0F88",-1,"Container") 
		UO.Grab("50","finditem") 
		CheckLag() 
	EndIf 
Wend 
end sub 

sub CheckLag() 
  UO.DeleteJournal() 
  UO.Click('backpack') 
  Repeat 
    Wait(500) 
  Until UO.InJournal("backpack") 
end sub

Posted: **2005-06-09 11:47:36**

Еще 1 вопрос, чтобы хавал, когда голоден достаточно этой строчки

UO.UseType(TypeFood)
wait(1000)
Until UO.InJournal('You are stuffered!') or UO.Dead()

Posted: **2005-06-09 11:49:48**

Вот так:

Code: Select all

Repeat
  UO.UseType(TypeFood) 
  wait(1000) 
Until UO.InJournal('You are stuffered!') or UO.Dead()

Posted: **2005-06-09 12:31:53**

Пасибки.

Posted: **2005-06-09 13:09:19**

Кстати маленькая ошибка тут, мож кому пригодится тоже, пишется не stuffered, а stuffed
Собс-но все.

Yoko

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

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