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

Боукрафт ДрВ не тот скрипт =(
http://forum.yoko.com.ua/viewtopic.php?f=20&t=9036
Page 1 of 1

Author:  Друг [ 2006-10-12 18:14:52 ]
Post subject:  Боукрафт ДрВ не тот скрипт =(

Маст Дай Спасибо за скрипт но там на торчи извени что неуточнил какой нужен у тебя на шафты есть я уже 3 скрипта проверил и у каждого свого минуся один неделай воше другой делет в сундук нескладывай 3 воше черти знает что ..

Author:  Scripts Writer [ 2006-10-12 18:17:52 ]
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:  Друг [ 2006-10-12 18:20:11 ]
Post subject: 

маст а в это скрипте он толька до 16 шафтов даводит потом стоит и нечего неделает ..

Author:  Nmy [ 2006-10-12 21:58:16 ]
Post subject: 

может ты ид сундука неуказал ?

Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/