sub Magery() 
   VAR NS='0x0F88' ; Тип Nighshade.
   VAR BP='0x0F7A'; тип blackperl
   VAR Sunduk='0x401C6E03' ; Сериал(ID) Сундука. 
   VAR Kolvo=100 ; Количество регов, которое чар берёт из сундука. 
   While NOT UO.Dead() 
      While UO.Mana>=10 AND UO.NS>0 AND UO.BP>0 ; здесь можно менять со скаких маны чар начнёт медетировать, то же число следует поставить в строку *. 
         UO.DeleteJournal() 
         UO.Cast('Magic Arrow', '0x4023E017') 
         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("Медитация") 
         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 

var Sunduk = '0x401C6E03' 
var checkHP = 8# Posle skolki HP nachinat hilitsya 
var w = 4000 # wremya zadergki pered povtorami 
var blb = '0x0E20' #Type graznih bintov 
var korito = '0x40215A1F' # ID korita gde ih mit'  
var ref = '0x0F0B' ;TYPE Refresha 

sub heal() 
  while true 
      if uo.getHP() < checkhp then 
        uo.bandageself() 
        wait(w) 
    uo.waittargetobject(korito) 
    uo.usetype(blb) 
    wait(300) 
      if uo.count('0x0E21') < 10 then 
         uo.findtype( '0x0E21', '-1', Sunduk ) 
           if uo.getquantity('finditem') >= 60 then 
              uo.moveitem( 'finditem', '60', 'my' ) 
              wait(700) 
           else 
             uo.print( 'Бинты в сундуке кончились!' ) 
             return 
          endif 
      endif        
  wend 
end sub

sub Magery()
VAR a, b, c
uo.print('Укажите мешок')
uo.exec('addobject Bag')
while uo.targeting()
  wait(100) 
wend
wait(1000)
uo.useobject('Bag')
wait(1000)
checklag()
DIM Item[3] 
Item[0] = '0x0E21'  
Item[1] = '0x0F88'   
Item[2] = '0x0F7A' 
while not uo.dead()     
  for a = 0 to 2
    if uo.count(Item[a]) < 100 then
      uo.findtype(Item[a], '-1', 'Bag')
      if uo.findcount() > 0 then
        uo.moveitem('finditem', '200')
        wait(1000)
        checklag()
      else
        uo.print('Что то кончилось, вырубаю...')
        return
      endif
    else
      wait(50)
    endif
  next
  repeat
    b = 0
    if uo.life < 10 then
      return
    else
      wait(50)
    endif
    uo.deletejournal()
    uo.cast('Magic Arrow', 'self')
    repeat 
      wait(100)
      b = b + 1 
    until uo.injournal('You parry the blow') or uo.injournal('You feel yourself resisting magic') or uo.injournal('The spell fizzles.') or b > 20
    c = 0
    uo.deletejournal()
    uo.setarm('1')
    uo.bandageself()
    wait(500)
    uo.arm('1')
    repeat
      wait(100)
      c = c + 1
    until uo.injournal('they barely help.') or uo.injournal('You put the bloody bandagess in your pack.') or uo.injournal('Do you wannar make a mummy?') or c > 35
  until uo.mana < 4
  uo.warmode('0')
  while uo.mana < 100
    uo.useskill('Meditation')
    wait(1000)
  wend 
  uo.findtype('0x0E22', '-1', 'backpack')
  if uo.findcount() > 0 then
    uo.moveitem('finditem', '-1', 'Bag')
    wait(1000)
    checklag()
  else
    wait(50)
  endif
wend       
end sub