Нужен простой инскрипт
Posted: 2008-09-25 16:57:43
Собственно Сабж
Простой настолько что в бекпаке лежат реги и бланки.
Заранее благодарен
Простой настолько что в бекпаке лежат реги и бланки.
Заранее благодарен
Рисуем вортов:koko wrote:Собственно Сабж
Простой настолько что в бекпаке лежат реги и бланки.
Заранее благодарен
Code: Select all
sub insk_vort()
VAR blank = '0x0E34'
UO.CancelMenu()
UO.AutoMenu('Spell Circles', 'Eighth Circle')
wait(100)
UO.AutoMenu('Spell Circle 8', 'Energy Vortex')
wait(100)
UO.FindType(blank, '-1', 'backpack')
If UO.FindCount() > 0 then
repeat
UO.DeleteJournal()
UO.UseObject('finditem')
repeat
wait(100)
until UO.InJournal('You put') or UO.InJournal('You fail')
wait(1000)
UO.FindType(blank, '-1', 'backpack')
until not UO.FindCount()
else
UO.Print('Нет скролов')
UO.Exec('terminate insk')
end if
UO.Print('Нет скролов')
UO.Exec('terminate insk')
end sub
