Подскажите

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
666Man666
Junior Expert
Posts: 474
Joined: 2004-11-13 00:43:55
Location: Киберзадроцк
Contact:

Подскажите

Post by 666Man666 »

Вот макрос на питьё банок маны - првоеряет если маны меньше 30 то припивает банку... если больше нечё не делает...
как поставить проверку на банки в паке? чтобы если они кончились то макрос останавливался

Code: Select all

Sub automana()
var i
while NOT UO.Dead()
	If	UO.Mana<30 then
		UO.usetype('0x1F40') 
		for i=1 to 100 
		wait(5) 
	If	UO.Mana>30 then
             	i=100 
	end if 
		NEXT
	end if
	wait(5)
WEnd
end sub
подмогните плиз
Revenant
Posts: 54
Joined: 2004-08-05 21:12:19

Re: Подскажите

Post by Revenant »

Code: Select all

Sub automana()
    repeat
      if UO.Count('0x1F40') and  UO.Mana<30 then
         UO.UseType('0x1F40') 
         wait(500)
      else
         uo.Exec('terminate automana')
      end if
      wait(500)
    Until UO.Dead()
end sub
666Man666
Junior Expert
Posts: 474
Joined: 2004-11-13 00:43:55
Location: Киберзадроцк
Contact:

Post by 666Man666 »

Спасибо Реванджер!!!
Post Reply