sub Inscription()
uo.CancelMenu()
uo.AutoMenu('Spell Circle 4','Recall')
uo.AutoMenu('Spell Circles','Fourth Circle')

var Container='0x4033B94F' ;Здесь вбей ИД сундука, из которго брать реги, бланки, и туда же будут складываться готовые реколы.
var Exit=0
repeat

##########################
### Крафтчение свитков ###
##########################
while uo.Count('0x0E34','0x0000')>0 and exit<>1
uo.DeleteJournal()
uo.UseType('0x0E34','0x0000')
while not uo.InJournal('You put') and not uo.InJournal('You fail')
wait(500)
wend

########################
### Пополнение регов ###
########################
if uo.Count(0x0F86)==0 then
CheckLag()
uo.FindType('0x0F86','0x0000',Container)
if uo.GetQuantity('finditem')>0 then
uo.MoveItem('finditem','400','backpack')
else
Exit=1
end if
end if
if uo.Count(0x0F7A)==0 then
CheckLag()
uo.FindType('0x0F7A','0x0000',Container)
if uo.GetQuantity('finditem')>0 then
uo.MoveItem('finditem','400','backpack')
else
Exit=1
end if
end if
if uo.Count(0x0F7B)==0 then
CheckLag()
uo.FindType('0x0F7B','0x0000',Container)
if uo.GetQuantity('finditem')>0 then
uo.MoveItem('finditem','400','backpack')
else
Exit=1
end if
end if
wend
CheckLag()

##########################
### Выкладываем свитки ###
##########################
uo.FindType('0x1F4C')
while not uo.GetQuantity('finditem')==0
uo.MoveItem('finditem','0',Container)
wait(500)
uo.FindType('0x1F4C')
wend

##########################
# ## Берём бланк скролы ###
##########################
uo.FindType('0x0E34','0x0000',Container)
if uo.GetQuantity('finditem')>0 Then
uo.MoveItem('finditem','250','backpack')
end if
wait(500)
until UO.GetQuantity('finditem')==0
uo.CancelMenu()
end sub

sub CheckLag()
uo.DeleteJournal()
uo.Click('backpack')
repeat
wait(500)
until uo.InJournal('backpack')
end sub