Yoko

Code: Select all

sub HilingTeach()
var Beehive='0x40a94bbf', Food='0x097b', CheckEat=5, EatTime=5
While UO.Count('0x0e21') and NOT UO.Dead()
   REPEAT
      UO.UseObject(Beehive)
      UO.DeleteJournal()
         REPEAT
            Wait(500)
         Until UO.InJournal("Ouch!  Bee sting!") or UO.InJournal("Beeswax") or UO.InJournal("honey") or UO.Dead()
   Until UO.GetHP() < 137 or UO.Dead() ## Сколько хп для хела
   REPEAT
      UO.BandageSelf()
      UO.DeleteJournal()
         REPEAT
            Wait(500)
         Until UO.InJournal("You put bloody") or UO.InJournal("You apply bandages") or UO.InJournal("Do you wanna") or UO.InJournal("You must wait") or UO.Count('0x0e21')==0 or UO.Dead()
         If UO.Count('0x0e21')==0 Then
            UO.WaitTargetObject('0x014d6883')
            UO.UseType('0x0e20')
            Wait(5000)
         End If
   If UO.STAMINA < 30 Then  ## укажи сколько стамины должно быть что бы рефрешку выпил
         UO.UseType(0x0f0b)
         End If
   Until UO.GetHP()==UO.GetMaxHP() or UO.Dead()
CheckEat = CheckEat+1
   If CheckEat >= EatTime Then
      If UO.Count(Food) Then
         UO.DeleteJournal()
            REPEAT
               UO.UseType(Food) 
               Wait(1000) 
            Until UO.InJournal("You are simply too full to eat any more!") or UO.Count(Food)==0 or UO.Dead()
      Else
         UO.Print("ERROR: Not Food!")
      End If
      CheckEat = 0
   End If
Wend
end sub