Yoko

Code: Select all

sub makeFS()
Function:
UO.FindType('0x0E34')
If UO.FindCount() == 0 Then
UO.Print("There are not any blank scrolls") 
return 
Endif
UO.DeleteJournal()
UO.WaitMenu ('Spell Circles', 'Seventh Circle', 'Spell Circle 7', 'Flamestrike')
UO.UseType('0x0E34')
While NOT UO.InJournal('You put') AND NOT UO.InJournal('You fail to')
wait(200)
wend
Goto Function
end sub