Yoko

Code: Select all

Sub Inscription(circle,name,quantity)
  var blanc=0x0E34
  var msg1='put'
  var msg2='fail'
  var k,i
  uo.FindType(blanc,'-1','backpack')
  for i=0 to quantity
    k=0
    uo.DeleteJournal()
    uo.WaitMenu('Spell',Circle,'Spell',name)
    uo.UseType(blanc)
    repeat
      wait(100)
      k=k+1
    until uo.InJournal(msg1) || uo.InJournal(msg2) || (k>100)
    wait(50)
  next
end sub

Code: Select all

sub Create_Paralyze()
  Inscription('Fifth','Paralyze',10)
end sub

Code: Select all

sub Create_Feeblemind()
  Inscription('First','Fee',15)
end sub