sub Meditation() 
   var Food = '0x097B'      ;Тип еды
   var Curse = '0x1515'     ;Тип курсы 
   var typeCurse = 'cloak' 
   var int, i=1, time 
   UO.Undress() 
   Repeat 
      wait(500) 
   Until UO.ObjAtLayer(typeCurse)=='' OR time+100<UO.Timer() 
   int=UO.INT 

   While True 
      UO.DeleteJournal() 

      if UO.Mana>=int then 
         UO.UseType(Curse) 
         time=UO.Timer() 
         While UO.Mana>=int AND time+100>UO.Timer() 
            wait(500) 
         Wend 
      endif 

      time=UO.Timer() 
      UO.Undress() 
      Repeat 
         wait(500) 
      Until UO.ObjAtLayer(typeCurse)=='' OR time+100<UO.Timer() 
      int=UO.INT 

      time=UO.Timer() 
      UO.UseSkill("Meditation") 
      Repeat 
         wait(500) 
      Until UO.InJournal('You attempt') OR time+100<UO.Timer() 

      time=UO.Timer() 
      UO.UseType(Curse) 
      Repeat 
         wait(500) 
      Until UO.InJournal('You lose') OR UO.InJournal('You are') OR time+100<UO.Timer() 

      if i==50 then 
         UO.DeleteJournal() 
         repeat 
            UO.UseType(Food) 
            wait(500) 
         until UO.InJournal("simply too full") 
         i=1 
      else 
         i=i+1 
      endif 

   Wend 
end sub

sub Meditation() 
   var Food = '0x097B'      ;Тип еды
   var Curse = '0x1515'     ;Тип курсы 
   var typeCurse = 'cloak' 
   var int, i=1, time 
   UO.Undress() 
   Repeat 
      wait(500) 
   Until UO.ObjAtLayer(typeCurse)=='' OR time+100<UO.Timer() 
   int=UO.INT 

   While True 
      UO.DeleteJournal() 

      if UO.Mana>=int then 
         UO.UseType(Curse) 
         time=UO.Timer() 
         While UO.Mana>=int AND time+100>UO.Timer() 
            wait(500) 
         Wend 
      endif 

      time=UO.Timer() 
      UO.Undress() 
      Repeat 
         wait(500) 
      Until UO.ObjAtLayer(typeCurse)=='' OR time+100<UO.Timer() 
      int=UO.INT 

      time=UO.Timer() 
      UO.UseSkill("Meditation") 
      Repeat 
         wait(500) 
      Until UO.InJournal('You attempt') OR time+100<UO.Timer() 

      time=UO.Timer() 
      UO.UseType(Curse) 
      Repeat 
         wait(500) 
      Until UO.InJournal('You lose') OR UO.InJournal('You are') OR time+100<UO.Timer() 

      if i==50 then 
         UO.DeleteJournal() 
         repeat 
            UO.UseType(Food) 
            wait(500) 
         until UO.InJournal("simply too full") 
         i=1 
      else 
         i=i+1 
      endif 

   Wend 
end sub

sub medit()
VAR cursa=0x144F
VAR j, tekmana
uo.undress() 
wait(1000) 
repeat
      UO.UseType(0x097B) # Что кушаем
      wait(1000) 
      tekmana=uo.int 
      wait(100) 
      checklag() 
      uo.usetype(cursa); Cursed Hat 
      uo.useskill ("Spirit Speak") 
      wait(2000) 
      j=0 
      repeat 
      wait(10) 
      j=j+1 
      until (uo.mana <= tekmana-1) or (j>1000) 
      checklag() 
      uo.undress() 
      wait(100) 
      checklag() 
      uo.useskill ("Meditation") 
      Wait(3000) 
until uo.dead() 
end sub

sub checklag() 
uo.deletejournal() 
uo.click('backpack') 
Repeat 
wait(100) 
Until UO.InJournal("backpack") 
end sub