sub main()
   VAR Eval=0 ; Use Evaluating Intelligence on self 1:yes/0:no
   VAR NS='0x0F88'
   VAR w
   uo.addobject('Chest')
   while uo.targeting()
      wait(400)
   wend
   uo.useobject('Chest')
   wait(2000)
   While NOT UO.Dead()
      If Eval==1 then
         uo.useskill('Evaluating','self')
         wait(1000)
      endif
      if uo.bp>0 and uo.ns>0 then
         UO.Cast('Magic Arrow', 'self')
      else
         if uo.ns==0 then
            uo.findtype(NS,-1,'Chest')
            if uo.findcount() then
               uo.moveitem('finditem','50','backpack')
               checklag()
               wait(700)
            endif
         endif
         if uo.ns>0 then
            UO.Cast('Poison', 'self')
         endif
      endif
      WaitForMana()
      if uo.mana<14 then
         meditation()
      endif
   Wend
end sub
Sub WaitForMana()
   VAR w,m=uo.mana
   for w=0 to 100
      if uo.mana<m then
         return
      endif
      wait(500)
   next
endsub
sub checklag() 
   repeat
      UO.DeleteJournal() 
      UO.Click('backpack') 
   until backpack()==1
endsub 
sub backpack()
   var n
   for n=0 to 200
      if uo.injournal('a backpack') then
         return 1
      endif
      wait(200)
   next
endsub 
sub meditation()
   uo.findtype('0x0F0E','0x09DF','backpack')
   if uo.findcount() then
      uo.useobject('finditem')
      wait(700)
   else
      while uo.mana < uo.int
         if uo.Journal(0)=='You are preoccupied with thoughts of battle.' then
            uo.warmode(0)
         endif
         checklag()
         Uo.Useskill('Meditation') 
         waitformed() 
      wend
   endif
endsub 
sub waitformed()
   var n
   for n=0 to 100
      if uo.injournal('You lose|at peace') then
         return
      endif
      wait(500)
   next
endsub