Yoko

Code: Select all

#============================================================== 
#  Inscript() - main Inscription sub 
# 
#  
#-------------------------------------------------------------- 
sub Inscript() 
   while UO.Count('0x0E34')>0 ; blank scroll 
      UO.DeleteJournal() 
      UO.UseType('0x0E34') ; blank scroll 
      while NOT UO.InJournal("You put") AND NOT UO.InJournal("You fail") 
         wait(500) 
      wend 
   wend 
end sub 


#============================================================== 
#  SPar() - crafting Paralize scroll 
# 
#  Journal has been deleted!!! 
#-------------------------------------------------------------- 
sub spar() 
   UO.CancelMenu() 
   UO.AutoMenu('Spell Circle 5','Paralyze') 
   UO.AutoMenu('Spell Circles','Fifth Circle')
   Inscript()    
   UO.CancelMenu() 
   gong(2) 
end sub 


#============================================================== 
#  SFS() - crafting FlameStrike scroll 
# 
#  Journal has been deleted!!! 
#-------------------------------------------------------------- 
sub sfs() 
   UO.CancelMenu() 
   UO.AutoMenu('Spell Circle 7','Flamestrike') 
   UO.AutoMenu('Spell Circles','Seventh Circle') 
   Inscript()
   UO.CancelMenu() 
   gong(2) 
end sub 


#============================================================== 
#  Spoison() - crafting Poison scroll 
# 
#  Journal has been deleted!!! 
#-------------------------------------------------------------- 
sub spoison() 
   UO.CancelMenu() 
   UO.AutoMenu('Spell Circle 3','Poison') 
   Inscript()    
   UO.CancelMenu() 
   gong(2) 
end sub 


#============================================================== 
#  SLi() - crafting Lighting scroll 
# 
#  Journal has been deleted!!! 
#-------------------------------------------------------------- 
sub sli() 
   UO.CancelMenu() 
   UO.AutoMenu('Spell Circle 4','Lightning') 
   UO.AutoMenu('Spell Circles','Fourth Circle') 
   Inscript()    
   UO.CancelMenu() 
   gong(2) 
end sub 


#============================================================== 
#  SRecall() - crafting Recall scroll 
# 
#  Journal has been deleted!!! 
#-------------------------------------------------------------- 
sub srecall() 
   UO.CancelMenu() 
   UO.AutoMenu('Spell Circle 4','Recall') 
   UO.AutoMenu('Spell Circles','Fourth Circle') 
   Inscript()    
   UO.CancelMenu() 
   gong(2) 
end sub 


#============================================================== 
#  SGHeal() - crafting Great Heal scroll 
# 
#  Journal has been deleted!!! 
#-------------------------------------------------------------- 
sub sgheal() 
   UO.CancelMenu() 
   UO.AutoMenu('Spell Circle 4','Greater') 
   UO.AutoMenu('Spell Circles','Fourth Circle') 
   Inscript()    
   UO.CancelMenu() 
   gong(2) 
end sub 

#============================================================== 
#  SEQ() - crafting FlameStrike scroll 
# 
#  Journal has been deleted!!! 
#-------------------------------------------------------------- 
sub Earthaquake() 
   UO.CancelMenu() 
   UO.AutoMenu('Spell Circle 8','Earthquake') 
   UO.AutoMenu('Spell Circles','Eighth Circle') 
   Inscript()    
   UO.CancelMenu() 
   gong(2) 
end sub