Yoko

Posted: **2004-11-13 18:39:59**

Вот макрос на питьё банок маны - првоеряет если маны меньше 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

подмогните плиз

Posted: **2004-11-13 19:03:00**

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

Posted: **2004-11-13 21:46:20**

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

Yoko

Подскажите

Подскажите

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