var tool='0x1030'
var item='0x13F8'
var timer=75000
var msg1 = 'You put the'
var msg2 = 'You have failed'
var msg3 = 'You fail to create'
var msg4 = 'You fail to complere the item.'
var TryHiding= 1
var LogsQty=5
var Trytodrop=1
var FoodSoondook = 1
var TypeFood='0x097B'
var Sunduk='0x40026C5A'
var EatingFood=1

Sub ToHide()
while not uo.Hidden()
uo.Print('Пытаемся уйти в хайд...')
uo.DeleteJournal()
uo.UseSkill('Stealth')
wait(3000)
wend
wait(100)
end sub

sub Carpenty()
while 1
if Trytodrop==1 and uo.Count('ZLK')<=LogsQty then
beremLogs()
end if
uo.exec('ongump repeat')
wait(1000)
uo.usetype(ingot)
wait(1000)
uo.findtype(item)
while uo.findcount()
uo.drophere('finditem')
wait(1000)
check.lag()
wait(1000)
uo.findtype(item)
wend
timer = 1000
repeat
wait(1000)
timer = timer + 100
until uo.injournal(msg1) or uo.injournal(msg2) or uo.injournal(msg3)or uo.injournal(msg4) or timer > 15000
wait(1000)
wend
end sub

Sub check.lag()
if uo.Waiting()>0 then
uo.Exec('canceltarget')
end if
uo.DeleteJournal()
wait(1000)
uo.Click('backpack')
repeat
wait(1000)
until uo.InJournal('backpack')
end sub
sub beremLogs()
uo.msg ('bank')
uo.SetReceivingContainer('backpack')
uo.FindType('0x1BDD','-1',Sunduk)
uo.Grab('1000','finditem')
wait(500)
PutFood()
ToHide()
end sub

sub PutFood()
uo.msg ('bank')
uo.SetReceivingContainer('backpack')
uo.FindType('0x097B','-1',Sunduk)
uo.Grab('10','finditem')
wait(500)
repeat
uo.FindType(TypeFood)
if uo.GetQuantity('finditem')>0 then
uo.UseType(TypeFood)
wait(1000)
else
EatingFood=0
wait(1000)
return 1
endif
until uo.InJournal("You are stuffed!") or uo.injournal("You are simple to full")
if uo.Waiting() then
uo.CancelTarget()
endif
uo.SetReceivingContainer(Sunduk)
uo.FindType('0x097B','-1','backpack')
if uo.GetQuantity('finditem')>0 then
uo.Grab('-1','finditem')
wait(1500)
else
return 0
endif
uo.UnSetReceivingContainer(Sunduk)
end sub

sub WaitForHide()
var Text1=uo.GetName()+": You have hidden yourself well"
var Text2=uo.GetName()+": You can't seem to hide here."
var mess
for var i=0 to 200
mess=uo.Journal(0)
if uo.Journal(0)==Text1 then
return 1
endif
if uo.Journal(0)==Text2 then
return 0
endif
wait(50)
next
return 0
end sub

Вообщем проблема в том что когда крафт сфизлит то в следующий раз крафтит и не останавливаеться.. тоесть физл, следующая попытка и поехало много раз подряд крафт без паузы (на моём сервере так не скрафтит) и на этом скрипт застревает т.к. при попытки ещё раз сделать продлевает крафт..
Вот сообщение о физле: You fail to create the item
Сообщение при быстром крафте: You fail to complere the item.

Слухай , почитал и всё равно не въехал в идею , давай сделаем так , ты пришли мне систему - как у тя на шарде это дело крафтится , а я помогу чем смогу !!!