Стреляем и медитируем.

[Slipknot]

Code: Select all

sub Archery()
while true 
If UO.Mana >= UO.Int then 
UO.usetype('luk') 
UO.exec("waittargetself") 
UO.Exec("attack 0x00464D0C") #ID 2 4ara 
Repeat 
wait (500) 
Until (UO.GetHP("0x00464D0C") < 40) #ID 2 4ara / 130-HP 
UO.Exec("warmode 0") 
UO.DeleteJournal() 
Repeat 
UO.Usetype("0x0E21") #Bandages 
UO.Exec("waittargetobject 0x00464D0C") #ID 2 4ara 
wait(3500) 
Until (UO.InJournal("not need")) 
Endif 

If UO.Mana < UO.Int Then 
While UO.Mana < UO.Int 
UO.DeleteJournal() 
Meditation() 
Repeat 
wait(100) 
until UO.InJournal("You are") OR UO.InJournal("You lose") 
Wend 
Endif 

wend 
end sub 

sub Meditation() 
UO.Exec("useskill 'Meditation'") 
wait(100) 
end sub 

Вроде неплохо работает, но тут одна проблемка - надо часто лечить иначе возникает ситуаця, когда жизней определенное колличество не потрачено и маны на стрельбу нету и чар ждет, когда мана выростет сама собой. Подскажите как это обойти.
Удалил подобный топик из ХЕЛПА. KrafteR
[Даже несмотрел спать хочу но вспомнил Теги I'm]

[Arsuri]

Code: Select all

sub Archery()
	var Min_mana=20 # нижний предел маны
	UO.usetype('luk') 
	UO.exec("waittargetself") 
	UO.Exec("attack 0x00464D0C") #ID 2 4ara
	while not uo.dead()
		If (UO.GetHP("0x00464D0C") < 40) then 
			UO.Exec("warmode 0") 
			UO.DeleteJournal() 
			Repeat 
				UO.Exec("warmode 0") 
				UO.Usetype("0x0E21") #Bandages 
				UO.Exec("waittargetobject 0x00464D0C") #ID 2 4ara 
				CheckLag()
				wait(3500) 
			Until (UO.InJournal("not need"))
			UO.usetype('luk') 
			UO.exec("waittargetself") 
			UO.Exec("attack 0x00464D0C") #ID 2 4ara
		Endif
		If UO.Mana < Min_mana Then
			repeat
				UO.DeleteJournal() 
				CheckLag()
				UO.Exec("warmode 0")
				UO.Exec("useskill 'Meditation'") 
				Repeat 
					wait(100) 
				until UO.InJournal("You are") OR UO.InJournal("You lose")
			until uo.injournal("You are") or uo.mana>=uo.int
			UO.Exec("attack 0x00464D0C") #ID 2 4ara
		Endif
		CheckLag()
	wend 
end sub

Sub CheckLag() 
   UO.DeleteJournal() 
   UO.Click('backpack') 
   repeat 
      wait(50) 
   until UO.InJournal('backpack') 
end sub

Тести и докладовывай о результатах.