sub Inscription()
var sunduk=0x4002899A
var meshok=0x4002F958

While not UO.Dead()
  wait(250)
  If UO.NS < 10 then                              ; Nightshade
    UO.Findtype('0x0F88',0x0000, sunduk)
    wait(250)
    UO.moveitem('finditem', 100, 'backpack')
    wait(1000)
  endif
  wait(250)
  If UO.BP < 10 then                              ; Black Pearl
    UO.Findtype('0x0F7A',0x0000, sunduk)
    wait(250)
    UO.moveitem('finditem', 100, 'backpack')
    wait(1000)
  endif
  wait(250)
  UO.Findtype('0x0E34', 0x0000, 'backpack')       ; Blank Scrolls
  If UO.GetQuantity('finditem') < 10 then
    UO.Findtype('0x0E34',0x0000, sunduk)
    wait(250)
    UO.moveitem('finditem', 100, 'backpack')
    wait(1000)
  endif
  wait(250)
  UO.Findtype('0x1F32',0x0000, 'backpack')
  While UO.FindCount() > 1
    UO.Findtype('0x1F32',0x0000, 'backpack')
    wait(250)
    UO.Moveitem('finditem', -1, meshok)
    wait(1000) 
  wend
  Checklag()
  UO.waitmenu('Spell Circles', 'First Circle', 'Spell Circle 1', 'Magic Arrow')
  UO.UseSkill('Inscription')
  UO.DeleteJournal()
  wait(250)
  while not UO.InJournal('You put|fail')
    wait(250)
  wend
  wait(250)
wend
endsub

Sub Checklag() 
UO.DeleteJournal() 
UO.Click('backpack') 
Repeat 
  wait(500) 
Until UO.InJournal("backpack") 
endsub