sub main()

UO.Set('finddistance','2') 
UO.Set('distance','2') 

var i, k, a
a=0
while uo.life>0

repeat
CheckIngridy()
UO.Exec("cast 'Resurrection' self")
repeat 
         wait(300) 
      until UO.InJournal('That isn') or UO.InJournal('spell')
uo.DeleteJournal()
UO.UseSkill("Meditation");
repeat
wait(300) 
      until UO.InJournal('You lose your') or UO.InJournal('mana') 
uo.DeleteJournal()
UO.ServerPrint(".hungry")
Wait(500)
i=UO.LastMessage()
If i=="You aren't hungry at all" Then
UO.Exec("usetype '0x097B'")
wend
EndIf

k=UO.LastMessage()
If k=="Saving World State" <>0 Then
Wait(20000) 
UO.DeleteJournal() 
endif

wend
wend
wend
wend
end sub 

sub CheckIngridy()
var i
if uo.bm<10 OR uo.gs<10 OR uo.ga<10 then

i=50-uo.bm
if i then
uo.exec("findtype 0x0F7B 0xFFFF ground")
UO.Exec("moveitem finditem "+STR(50-uo.bm)+" my")
wait(200)
endif

i=50-uo.gs
if i then
uo.exec("findtype 0x0F85 0xFFFF ground")
UO.Exec("moveitem finditem "+STR(50-uo.gs)+" my")
wait(200)
endif

i=50-uo.ga
if i then
uo.exec("findtype 0x0F84 0xFFFF ground")
UO.Exec("moveitem finditem "+STR(50-uo.ga)+" my")
wait(200)
endif
endif
end sub