Подскажите

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