На ZHR проблема скрипта помогите кто знает!

[Grim]

Трабла в том что после изготовления 2 ексептов : пуза и ного поле того как делает первые руки и плавит обратно скрипт останавливается и висит !
Кто знает помогите , вот скрипт :

sub main()
var bs_hammer='0x13e3', ingots='0x1bf2', kite='0x1B74', legs='0x1411', arms='0x1410'
var helmet='0x1412', gloves='0x1414', gorget='0x1413', bplate='0x1415'
var tt='0x1EBC', box='0x0E80', key='0x100E'
var chestserial1='0x5E1BF1D3'
var korobka, a
uo.say('.showclasse')
wait(500)
if uo.injournal('level 5') then
while true
for a = 1 to 10
repeat
uo.deletejournal()
uo.exec("waitmenu 'like to make' 'Armors' 'armor' 'Platemail' 'like' 'Breastplate'")
uo.waittargettype(ingots)
uo.usetype(bs_hammer)
repeat
wait(100)
until uo.injournal('Success') or uo.injournal('destroy')
if uo.injournal('destroy') or uo.injournal('Success.') then
wait(200)
smelt(bplate,1)
endif
if uo.injournal('Success: Perfect.') then
uo.findtype(bplate,"-1","my")
uo.exec('moveitem '+uo.getserial('finditem')+' 1 '+chestserial1)
endif
until uo.injournal('Success: Exceptional.')
wait(200)
repeat
uo.deletejournal()
uo.exec("waitmenu 'like to make' 'Armors' 'armor' 'Platemail' 'like' 'Platemail Legs'")
uo.waittargettype(ingots)
uo.usetype(bs_hammer)
repeat
wait(100)
until uo.injournal('Success') or uo.injournal('destroy')
if uo.injournal('destroy') or uo.injournal('Success.') then
wait(200)
smelt(legs,1)
endif
if uo.injournal('Success: Perfect.') then
uo.findtype(legs,"-1","my")
uo.exec('moveitem '+uo.getserial('finditem')+' 1 '+chestserial1)
endif
until uo.injournal('Success: Exceptional.')
wait(200)
repeat
uo.deletejournal()
uo.exec("waitmenu 'like to make' 'Armors' 'armor' 'Platemail' 'like' 'Platemail Arms'")
uo.waittargettype(ingots)
uo.usetype(bs_hammer)
repeat
wait(100)
until uo.injournal('Success') or uo.injournal('destroy')
if uo.injournal('destroy') or uo.injournal('Success.') then
wait(200)
smelt(arms,1)
endif
if uo.injournal('Success: Perfect.') then
uo.findtype(arms,"-1","my")
uo.exec('moveitem '+uo.getserial('finditem')+' 1 '+chestserial1)
endif
until uo.injournal('Success: Exceptional.')
wait(200)
repeat
uo.deletejournal()
uo.exec("waitmenu 'like to make' 'Armors' 'armor' 'Helmets' 'like' 'Plate Helm'")
uo.waittargettype(ingots)
uo.usetype(bs_hammer)
repeat
wait(100)
until uo.injournal('Success') or uo.injournal('destroy')
if uo.injournal('destroy') or uo.injournal('Success.') then
wait(200)
smelt(helmet,1)
endif
if uo.injournal('Success: Perfect.') then
uo.findtype(helmet,"-1","my")
uo.exec('moveitem '+uo.getserial('finditem')+' 1 '+chestserial1)
endif
until uo.injournal('Success: Exceptional.')
wait(200)
repeat
uo.deletejournal()
uo.exec("waitmenu 'like to make' 'Armors' 'armor' 'Platemail' 'like' 'Platemail Gloves'")
uo.waittargettype(ingots)
uo.usetype(bs_hammer)
repeat
wait(100)
until uo.injournal('Success') or uo.injournal('destroy')
if uo.injournal('destroy') or uo.injournal('Success.') then
wait(200)
smelt(gloves,1)
endif
if uo.injournal('Success: Perfect.') then
uo.findtype(gloves,"-1","my")
uo.exec('moveitem '+uo.getserial('finditem')+' 1 '+chestserial1)
endif
until uo.injournal('Success: Exceptional.')
wait(200)
repeat
uo.deletejournal()
uo.exec("waitmenu 'like to make' 'Armors' 'armor' 'Platemail' 'like' 'Platemail Gorget'")
uo.waittargettype(ingots)
uo.usetype(bs_hammer)
repeat
wait(100)
until uo.injournal('Success') or uo.injournal('destroy')
if uo.injournal('destroy') or uo.injournal('Success.') then
wait(200)
smelt(gorget,1)
endif
if uo.injournal('Success: Perfect.') then
uo.findtype(gorget,"-1","my")
uo.exec('moveitem '+uo.getserial('finditem')+' 1 '+chestserial1)
endif
until uo.injournal('Success: Exceptional.')
wait(200)
repeat
uo.deletejournal()
uo.exec("waitmenu 'like to make' 'Shields' 'like' 'Kite Shield'")
uo.waittargettype(ingots)
uo.usetype(bs_hammer)
repeat
wait(100)
until uo.injournal('Success') or uo.injournal('destroy')
if uo.injournal('destroy') or uo.injournal('Success.') then
wait(200)
smelt(kite,1)
endif
if uo.injournal('Success: Perfect.') then
uo.findtype(kite,"-1","my")
uo.exec('moveitem '+uo.getserial('finditem')+' 1 '+chestserial1)
endif
until uo.injournal('Success: Exceptional.')
wait(200)
uo.deletejournal()
uo.exec("waitmenu 'like to make' 'Miscellaneous' 'like' 'Brass Box'")
uo.waittargettype(ingots)
uo.usetype(tt)
repeat
wait(100)
until uo.injournal('Success') or uo.injournal('destroy')
wait(200)
uo.findtype(box,"-1","my")
if uo.findcount()==1 then
korobka = uo.getserial('finditem')
uo.findtype(key,"-1","my")
if uo.findcount()==1 then
uo.waittargetobject(korobka)
uo.useobject('finditem')
repeat
wait(10)
until uo.injournal('unlock')
wait(100)
endif
endif
uo.findtype(kite,"-1","my")
uo.exec('moveitem '+uo.getserial('finditem')+' 1 '+korobka)
uo.findtype(legs,"-1","my")
uo.exec('moveitem '+uo.getserial('finditem')+' 1 '+korobka)
uo.findtype(arms,"-1","my")
uo.exec('moveitem '+uo.getserial('finditem')+' 1 '+korobka)
uo.findtype(helmet,"-1","my")
uo.exec('moveitem '+uo.getserial('finditem')+' 1 '+korobka)
uo.findtype(gloves,"-1","my")
uo.exec('moveitem '+uo.getserial('finditem')+' 1 '+korobka)
uo.findtype(gorget,"-1","my")
uo.exec('moveitem '+uo.getserial('finditem')+' 1 '+korobka)
uo.findtype(bplate,"-1","my")
uo.exec('moveitem '+uo.getserial('finditem')+' 1 '+korobka)
uo.findtype(key,"-1","my")
uo.exec('moveitem '+uo.getserial('finditem')+' 1 '+korobka)
uo.exec('moveitem '+korobka+' 1 '+chestserial1)
wend
end if
end sub

sub smelt(item, loop)
var forge='0x199E', tongs='0x0FBB', count1,count2
count1=uo.count(item)
if count1>0 then
if loop then
count2=0
else
count2=count1-1
endif
repeat
uo.waittargettype(item)
uo.usetype(tongs)
uo.deletejournal()
repeat
wait(10)
until uo.injournal('What')
uo.waittargetground(forge)
uo.deletejournal()
repeat
wait(100)
until uo.injournal('Failed') or uo.injournal('turned')
wait(500)
until uo.count(item)<=count2
endif
end sub