sub MR_caster()
   VAR NS='0x0f88' ; Тип Sulf Ash.
   VAR BP='0x0F7A'
   VAR Sunduk='0x402D8FB3' ; Сериал(ID) Сундука.
   VAR Kolvo=500 ; Количество регов, которое чар берёт из сундука.
   While NOT UO.Dead()
      While UO.Mana>=14 AND UO.NS>0 ; здесь можно менять со скаких маны чар начнёт медетировать, то же число следует поставить в строку *.
         UO.DeleteJournal()
         UO.Cast('Magic Arrow', '0x0028332F')
         wait(3000)
      wend
      If UO.Mana<10 Then ;*
         While UO.Mana<UO.Int
            UO.DeleteJournal()
            wait(1000)
            UO.Useskill('Meditation')
            Repeat 
            wait(100)
            until UO.InJournal("You are") OR UO.InJournal("You lose")
         Wend
         Endif
If UO.NS == 0 Then
   UO.FindType(NS, '-1', Sunduk)
   UO.Grab(str(Kolvo), 'finditem')
   repeat
      wait(100)
   until UO.NS>0      
endif
If UO.BP == 0 Then
   UO.FindType(BP, '-1', Sunduk)
   UO.Grab(str(Kolvo), 'finditem')
   repeat
      wait(100)
   until UO.BP>0 
Endif
   Wend
end sub