Боу Крафт (ДРВ)

[Sfay]

Люди добрые, не гоните меня пожалуйста на "поиск", всё переверстал.
киньте пожалуйста скрипт на Bow craft. много нашёл, но почему то выкидует разные ошибки. простой скрипт на шафты.
Спсибо огромное !!!

[666||TORCHKI]

Code: Select all

VAR Sunduk='0x404135CE' ; ИД сундука где все логи 
VAR TDagger='0x0F51' ; Тип даггера 
VAR TLogs='0x1BDD' ; Тип логов 
VAR TTorch='0x1BD4' ; Тип торчей 
VAR TShaft='0x1BD4' ; Тип шафтов 

; В руке или паке даггер, в сундуке логи и запускаем !!! 

sub BowCraft_shaft() 
uo.useobject(Sunduk) 
wait(200) 
while 1==1 
UO.FindType(TLogs,'0x0000','backpack') 
While UO.GetQuantity('finditem')==0 
UO.FindType(TLogs,'0x0000',Sunduk) 
wait(200) 
UO.Grab('1','finditem') 
Wend 
wait(200) 
cheklag() 

uo.WaittargetType(TLogs) 
uo.Usetype(TDagger) 
uo.WaitMenu('What do you want to carve the wood into?','shaft (1 log)') 
wait (1000) 
uo.DeleteJournal() 
while not (uo.InJournal("You put") or uo.InJournal("You fail")) 
wait(10) 
wend 

if uo.weight > 200 then 
UO.SetReceivingContainer(Sunduk) 
wait(200) 
UO.FindType(TShaft) 
if UO.GetQuantity('finditem')>0 then 
UO.Grab('0','finditem') 
wait(200) 
end if 
UO.UnSetReceivingContainer() 
end if 
wend 
end sub

[Sfay]

Спасибо огромное.
может подскажешь ? Line 20: Function not found - CHEKLAG
я полный бот в этом

[666||TORCHKI]

Это к скрипту добавь

Code: Select all

sub ChekLag() 
DelJ("backpack") 
UO.Click('backpack') 
repeat 
wait(500) 
until UO.InJournal('backpack') 
end sub 

просто чтоб был тамже где и скрипт на боукрафт !

[Sfay]

Здорово
Спасибо тебе дружище