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