sub paral()
  UO.Set('lasttarget','laststatus')
  UO.FindType('0x1F52',-1,'my')
  If UO.GetQuantity('finditem')>0 then
     if UO.Mana>=14 then
        UO.WaitTargetObject('lasttarget')
        UO.UseObject('finditem')
        UO.Print("Scroll")
     else
        UO.Print("??????? ???? ???")
     endif
  else
uo.exec('exec paral1')
  endif
  uo.msg("Стой нЮб я An Ex PoR кину")
  
end sub

sub paral1()
   var m
   repeat
      checklag()
      m=uo.mana
      uo.cast('Paralyze','laststatus')
      repeat
         wait(300)
      until uo.mana<m
   until not uo.injournal('spell fizzles')
endsub

  var mana = uo.mana 
  var BM = uo.BM 
  var SA = uo.SA 
  var GS = uo.GS 
  var SS = uo.SS 
  var MR = uo.MR 
  var BP = uo.BP 
  var NS = uo.NS 
  var GA = uo.GA 
  
  uo.DeleteJournal() 
  repeat 
    wait(10) 
  until uo.mana < mana || uo.InJournal('fizzles') || uo.InJournal('lack') || uo.InJournal('in line') || uo.BM < BM || uo.MR < MR || uo.SA < SA || uo.BP < BP || uo.NS < NS || uo.SS < uo.SS || uo.GA < GA || uo.GS < GS