Bowcraft HELP!

[UniqueEle]

Здравствуйте. Взял я отсуда скриптик, на боукрафт вот такой:

Code: Select all

### 
var Chest='0x400027F2' ## - ID сундука из которого будем брать логи и класть шафты. 
### 
var Logs='0x1BDD' ## - Type логов. 
### 
var Shaft='0x1BD4' ## - Type шафтов. 
### 
var dagger='0x1022' ## - Type даггера. 
### 
####################################################################################### 
sub BowCraft() 
Open(Chest) 
while 1==1 
uo.FindType(Logs,-1,'backpack') 
while uo.GetQuantity('finditem')==0 
uo.FindType(Logs,'0x0000',Chest) 
wait(1000) 
uo.Grab('20','finditem') 
wend 
wait(700) 
ChekLag() 
uo.FindType(Logs,'0x0000','backpack') 
uo.WaittargetType(Logs) 
uo.Usetype(dagger) 
uo.WaitMenu('Other','Shaft') 
wait(1000) 
uo.DeleteJournal() 
while not (uo.InJournal('You put') or uo.InJournal('You fail')) 
wait(300) 
wend 
if uo.Weight>100 then 
uo.SetReceivingContainer(Chest) 
wait(500) 
uo.FindType(Shaft) 
if uo.GetQuantity('finditem')>0 then 
uo.Grab('20','finditem') 
wait(3000) 
end if 
uo.UnSetReceivingContainer() 
end if 
wend 
end sub 

sub Open(Container) 
uo.DeleteJournal() 
uo.UseObject(Container) 
repeat 
wait(500) 
until uo.InJournal('Contains') 
end sub 

sub ChekLag() 
uo.DeleteJournal() 
uo.Click('backpack') 
repeat 
wait(100) 
until uo.InJournal("backpack") 
end sub

Но есть загвоздочка, юзаеться не даггером, а Боукрафт тулсом, и определенная менюха выставлена, то-есть:
Дабл Клик на боукрафт тулс, и потом в менюхе выбираешь "Озер" и аж потом "Шафт".
Сразу скажу я чайник в скриптах. И хочу что бы этот скрипт работал так, что бы выбирал в меню боукрафта все что нужно, что мне нужно куда вставить для этого?
Если кому интересно посмотрите сами как это на сайте:
theolymp.ru (извените если это реклама) но сайт написал для того, что бы поняли что за боукрафт система.

[kostjan]

http://forum.yoko.com.ua/viewtopic.php?f=18&t=7496