Скрипт на ФСы.

[Kenny]

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

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