Помогите плиз подкорректировать скрипт на БС
Posted: 2006-03-22 15:54:16
Пожалуйста помогите вместо задержек сделать ожидание меню, ато на моем шарде небольшие сбои (You must wait to perform another action) приводят к дисконнекту
шард стоит на рануо

шард стоит на рануо
Code: Select all
var ResBox="0x400162C5"
var ToolBox="0x4063BAB3"
var Bank="0x401004B3"
var doski="0x1BEF"
var tulsi="0x0FBB"
var KraftedItem="0x1403"
var Weight= 270
var ResCount=50
var ResDobor=1000
sub Kraft()
uo.exec("set norbcheck 1")
uo.exec("set norbcalc 1")
while not uo.dead()
test()
wend
end sub
sub test()
uo.findtype(tulsi)
uo.recall("finditem","21")
wait(1600)
while uo.count(doski)<ResCount
wait(1500)
uo.recall(Bank,"52")
wait(700)
uo.useobject(ResBox)
wait(700)
uo.findtype(doski,"-1",ResBox)
uo.moveitem("finditem",ResDobor)
wait(700)
wend
while uo.count(tulsi)<2
wait(1500)
uo.useobject(ToolBox)
wait(700)
uo.findtype(tulsi,"-1",ToolBox)
uo.moveitem("finditem","1")
wait(700)
wend
if uo.weight > Weight then
Smelt()
end if
end sub
sub Smelt()
while uo.count(KraftedItem)>=1
uo.waittargettype(KraftedItem)
wait(300)
uo.findtype(tulsi)
uo.recall("finditem","14")
wait(700)
wend
end sub