Ultima Online Antares

sub inscript()
   VAR Blank = '0x0E34'           ; Тип бланк скролла
   VAR Reg1 = '0x0F7B'           
; блудмосс
   VAR Reg2 = '0x0F7A'           
; блэкперл
   VAR Reg3 = '0x0F86'           
; мандрейк рутс
   VAR Fizzle = 'You fail to inscribe the scroll'
   VAR Success = 'You put the'
   VAR k
repeat
         CheckLag()
         DeleteJournal( Fizzle )
         DeleteJournal( Success )
         UO.Exec("waitmenu 'Spell Circles' 'Fourth Circle' 'Circle 4' 'Recall'")
         Wait(1000)
         UO.UseType( Blank )
         k = 0
         repeat
            k = k + 1
            wait(100)
         until UO.InJournal( Fizzle ) OR UO.InJournal( Success ) \
              OR UO.Count( Blank ) == 0 OR UO.Count( Reg1 ) == 0 \
              OR UO.Count( Reg2 ) == 0 OR k > 600
       
       If UO.Mana < 20 Then
            repeat
             &n
bsp; UO.UseSkill( 'Meditation' )
             &n
bsp; wait(2000)
            until UO.Mana == UO.Int
         Endif
      Until UO.Count( Blank ) == 0 OR UO.Count( Reg1 ) == 0 \
           OR UO.Count( Reg2 ) == 0 OR UO.Count( Reg3 ) == 0
   UO.CancelMenu()
endsub

Sub DeleteJournal( string1 )
   VAR nom = UO.InJournal( string1 )
   If nom > 0 Then
      UO.SetJournalLine( Nom - 1, 'string replaced' )
      DeleteJournal( string1 )
   Endif
endsub


Sub CheckLag()
UO.DeleteJournal()
UO.Click('backpack')
repeat
wait(500)
until UO.InJournal('backpack')
end sub

sub Summon()
  repeat
     if UO.Mana<14 then
        mana()
     end if
     uo.usetype ('0x0E34')
     wait (1000)
     UO.WaitMenu ('Spell Circles', 'Fifth Circle', 'Spell Circle 5', 'Summon Creature')
        repeat
          wait(1000)
        until uo.injournal ("put") or uo.injournal ("fail")
     uo.deletejournal()
  until uo.dead()
end sub

Sub mana()
  while UO.Mana<UO.Int
     UO.UseSkill('Meditation')
     wait(5000);
  wend
end sub