Скрипт на бланк скролы
sub main()
while true
UO.Exec("waitmenu 'Select' 'Paper items' 'Item' 'Blank Scroll'")
UO.Exec("waittargetobject '^0x1BDD'")
UO.Exec("useobject '^0x1EBC'")
wait(6000)
If UO.InJournal("create the item") then
wait(100)
UO.DeleteJournal()
wait(100)
UO.Exec("moveitem '^0x0FBB' '1' '^0x0E76'")
wait(100)
EndIf
wend
end sub
Еще раз взываю к мудрости скриптеров...ДАЙТЕ СКРИПТ НА ЛАМБЕР!