Yoko

Кривее моей жизни, но все таки ...
Мож надо кому будет.)

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

_________________
Слухи о моей смерти сильно преувеличены.
© Марк Твен