#плавит в указанной форже скупленные арморы из кольчуг
sub SmelthingForIron()
var Forge='0x402796F7'
var i
var Sunduk='0x40112521'
var ingot='0x1BEF'
uo.Print(' Select a Forge ')
uo.Exec('addobject Forge')
while uo.targeting()
wait(100)
wend DIM chain[7] chain[0]='0x1415'
chain[1]='0x13F0'
chain[2]='0x13BF'
chain[3]='0x13BB'
chain[4]='0x13EE'
chain[5]='0x13EB'
chain[6]='0x13BE'
chain[7]='0x1B76'
chain[8]='0x13EC'
chain[9]='0x1410'
chain[10]='0x1411'
for i = 0 to 7
uo.FindType(chain[i],'-1','backpack')
if uo.GetQuantity('finditem') then
repeat
if uo.Weight > 500 then
uo.UseObject(Sunduk)
uo.FindType(ingot,'-1','backpack')
uo.moveitem(ingot,'500',Sunduk)
else
wait(1000)
end if
uo.FindType(chain[i],-1,'backpack')
uo.WaitTargetObject('finditem')
uo.UseObject(Forge)
wait(1000)
until uo.Count(chain[i]) == 0
else
uo.Print('There are no chainmail armor')
end if
next
end sub sub buying()
uo.Set('buydelay','5000')
uo.Buy('test') # uo.Sell()
end sub
| 
