Yoko
http://forum.yoko.com.ua/

Боу Крафт (ДРВ)
http://forum.yoko.com.ua/viewtopic.php?f=17&t=10863		 Page 1 of 1
Author:  Sfay [ 2006-12-30 07:58:43 ]
Post subject:  Боу Крафт (ДРВ)
Люди добрые, не гоните меня пожалуйста на "поиск", всё переверстал.
киньте пожалуйста скрипт на Bow craft. много нашёл, но почему то выкидует разные ошибки. простой скрипт на шафты.
Спсибо огромное !!! :shock:
Author:  666||TORCHKI [ 2006-12-30 13:10:55 ]
Post subject: 
Code:
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
Author:  Sfay [ 2006-12-30 17:10:05 ]
Post subject: 
Спасибо огромное.
может подскажешь ? Line 20: Function not found - CHEKLAG
я полный бот в этом :(
Author:  666||TORCHKI [ 2006-12-30 20:21:55 ]
Post subject: 
Это к скрипту добавь
Code:
sub ChekLag() 
DelJ("backpack") 
UO.Click('backpack') 
repeat 
wait(500) 
until UO.InJournal('backpack') 
end sub


просто чтоб был тамже где и скрипт на боукрафт !
Author:  Sfay [ 2006-12-30 21:05:50 ]
Post subject: 
Здорово :roll:
Спасибо тебе дружище :wink:
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/