sub summ()
var char='00000000';ID чара на которого вызываем
var spirit='0000'; тип блейд спирита
uo.set('finddistance','7')
while not uo.dead()
 uo.cast('Blade Spirit',char)
 uo.findtype(spirit,'-1','ground')
 while uo.findcount()==0
  wait(500)
  uo.findtype(spirit,'-1','ground')
 wend
 uo.findtype(spirit,'-1','ground')
 while uo.findcount()>0
  wait(500)
  uo.findtype(spirit,'-1','ground')
 wend
 while not uo.injournal("GO")
  wait(500)
 wend
 if uo.mana<20 then
  while uo.mana<>uo.int
    uo.useskill('Meditation')
    wait(5000)
  wend
 endif
wend
endsub

sub BladeSP()
var spell='name of a spell'
var summon='type of a summon'
var friend='serial of a friend near whom will be cast a creature'
var i,k
uo.Set('finddistance','15')
  uo.Ignore('self')
  while not uo.Dead()
    uo.FindType(summon,'-1','ground')
    if uo.FindCount() then
      k = 0
      while uo.FindCount()
        wait(1000)
        uo.FindType(summon,'-1','ground')
      wend
    else
      medit:
      uo.DeleteJournal()
      if uo.mana < uo.int then
        while uo.mana < uo.int
          uo.UseSkill('Meditation')
          wait(1000)
          CheckLag()
          if uo.InJournal('attemp') then
            repeat
              wait(100)
              if uo.InJournal('lose') then
                goto medit 
              end if    
            until uo.mana == uo.int  
          else
            CheckLag() 
            goto medit
          end if
        wend
      end if  
      uo.DeleteJournal()
      k = 0
      uo.Cast(spell,friend)
      repeat
        wait(100)
        k = k + 1
      until uo.InJournal('fizzle') or (k>50) 
    end if
  wend
end sub

sub CheckLag()
  uo.DeleteJournal('backpack')
  uo.Click('backpack')
  repeat
    wait(100)
  until uo.InJournal('backpack')
end sub