Yoko

Code: Select all

sub inscription() 
Var blanc='0x0E34'   # тип бланка 
Var food='0x09D0' # тип еды 
Var sunduk=0x40013FD5 # ИД где лежат реги и бланки 
Var a, k, z, f 
Var b='Poison' # Имя вашего скрола 
Var msg='You put' 
Var msg1='You fail' 
Var MaxWeight= 600 
Var scroll='0x1F40' # Тип нарисованного скрола 
a = 3 # !!!Круг в котором находится ваш спел!!! 


 DIM reg[9] 

        reg[0]=0x0F88 
        reg[1]=0x0F85 
        reg[2]=0x0F84 
        reg[3]=0x0F8C 
        reg[4]=0x0F8D 
        reg[5]=0x0F7B 
        reg[6]=0x0F7A 
        reg[7]=0x0F86 
        reg[8]=0x0E34 
UO.UseObject(sunduk) 
wait(1000) 
if a==1 then 
    k = 'First' 
    uo.Print(' First Circles ') 
  end if 
  if a==2 then 
    k = 'Second' 
    uo.Print(' Second Circles ') 
  end if 
  if a==3 then 
    k = 'Third' 
    uo.Print(' Third Circles ') 
  end if 
  if a==4 then 
    k = 'Fourth' 
    uo.Print(' Fourth Circles ') 
  end if 
  if a==5 then 
    k = 'Fives' 
    uo.Print(' Fives Circles ') 
  end if 
  if a==6 then 
    k = 'Sixth' 
    uo.Print(' Sixth Circles ') 
  end if 
  if a==7 then 
    k = 'Seventh' 
    uo.Print(' Seventh Circles ') 
  end if 
  if a==8 then 
    k = 'Eighth' 
    uo.Print(' Eighth Circles ') 
  end if 
while not uo.Dead() 
  
    for f=0 to 8 
      if uo.Count(reg[f]) < 1 then 
        uo.FindType(reg[f],'-1',sunduk) 
          if UO.FindCount() > 0 then 
            uo.moveitem('finditem','100') 
            wait(1000) 
          else 
            UO.Print('There are no regs!!!') 
            uo.exec("terminate inscription") 
          end if 
      end if 
    next 
    uo.WaitMenu('Spell',k,a,b) 
    uo.UseType(blanc) 
    z = 0 
    uo.DeleteJournal() 
    repeat 
      wait(500) 
      z = z + 1 
    until uo.InJournal(msg) or uo.InJournal(msg1) or (z > 50) 
    if uo.InJournal('hungry') or uo.InJournal('starving') then 
      uo.FindType(food,'-1',sunduk) 
      uo.moveitem('finditem','20') 
      repeat 
        uo.UseType(food) 
        wait(750) 
      until uo.InJournal('simply') 
    end if 
wend 
end sub

Code: Select all

    for f=0 to 8 
      if uo.Count(reg[f]) < 1 then 
        uo.FindType(reg[f],'-1',sunduk) 
          if UO.FindCount() > 0 then 
            uo.moveitem('finditem','100') 
            wait(1000) 
          else 
            UO.Print('There are no regs!!!') 
            uo.exec("terminate inscription") 
          end if 
      end if 
    next