Приветы.
подвернулась мне намедни возможность написать немного скроллов парализа, пришлось сочинять скрипт
.
вроде проще, чем существующие и пока работает.
смысл прост:
- указываем сундуки, откуда брать реги/бланки и куда складывать;
- берём по одной штуке (указано для парализа) и пытаемся написать скролл, пока есть все компоненты;
- если написали, перекидываем готовый скролл в сундук-приёмник.
- если кончаются реги в сундуке или чар умер - выход.
Code:
sub inscriptParalyze()
dim component[4]
var exit, i
exit=0
component[1]='0x0F86'; get mandrake
component[2]='0x0F84'; get garlic
component[3]='0x0F8D'; get silk
component[4]='0x0E34'; get blank scroll
uo.print("Where is box with reagents&blanks?")
uo.addobject('sourcebox')
while uo.targeting()==2
wait(500)
wend
uo.print("Where is recieving box?")
uo.addobject('receivingbox')
while uo.targeting()==2
wait(500)
wend
repeat
checklag()
i=1
repeat
uo.print(component[i])
uo.findtype(component[i],'0x0000','sourcebox')
if uo.findcount()>0 then
uo.moveitem('finditem',1,'my')
else
exit=1
uo.print('no more components!')
endif
wait(800)
checklag()
i=i+1
until exit==1 or i>4
if exit<>1 then
repeat
checklag()
UO.WaitMenu ('Spell Circles', 'Fifth', 'Spell Circle 5', 'Paralyze')
UO.UseType('0x0E34')
wait(7000)
until uo.injournal("You put") or uo.injournal("make anything")
if uo.injournal("You put") then
uo.findtype('0x1F52','0x0000','my')
uo.moveitem('finditem','all','receivingbox') ;move paralyze to box
endif
endif
until exit==1 or uo.dead()
end sub