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