Yoko

Приветы.
подвернулась мне намедни возможность написать немного скроллов парализа, пришлось сочинять скрипт .
вроде проще, чем существующие и пока работает.
смысл прост:
- указываем сундуки, откуда брать реги/бланки и куда складывать;
- берём по одной штуке (указано для парализа) и пытаемся написать скролл, пока есть все компоненты;
- если написали, перекидываем готовый скролл в сундук-приёмник.
- если кончаются реги в сундуке или чар умер - выход.

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

_________________
mastering daemons...