Собственно Сабж
Простой настолько что в бекпаке лежат реги и бланки.
Заранее благодарен

sub insk_vort()
   
   VAR blank = '0x0E34'
   
   UO.CancelMenu()
   UO.AutoMenu('Spell Circles', 'Eighth Circle')
   wait(100)
   UO.AutoMenu('Spell Circle 8', 'Energy Vortex')
   wait(100)
   
   UO.FindType(blank, '-1', 'backpack')
   If UO.FindCount() > 0 then
      repeat
         UO.DeleteJournal()
         UO.UseObject('finditem')
         repeat
            wait(100)
         until UO.InJournal('You put') or UO.InJournal('You fail')
         wait(1000)
         UO.FindType(blank, '-1', 'backpack')
      until not UO.FindCount()
   else
      UO.Print('Нет скролов')
      UO.Exec('terminate insk')
   end if
   UO.Print('Нет скролов')
   UO.Exec('terminate insk')
end sub