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

bowceafting ,jerhfanbyu
http://forum.yoko.com.ua/viewtopic.php?f=20&t=12505		 Page 1 of 1
Author:  pika [ 2007-09-22 19:50:22 ]
Post subject:  bowceafting ,jerhfanbyu
здравствуйт
извените пожалуйсто что спраштваю много просто спрашивал кто
Можете дать скрипт на боукрафтинг,чтобы чар делал обычные луки и выкидывал в ведро мусорное к примеру
просто я искал а тут такого нет - ну может просто плохо искал
а у меня есть на шафты но я скоко его не переделывал все не то =((
может кто даст или напишет првельно
спасибо
Author:  Scripts Writer [ 2007-09-22 20:13:46 ]
Post subject: 
Code:
sub Bowcraft() 
var dagger='0x0F51' 
var logs='0x1BDD' 
var bow='input type of bow'
var Trash='input ID of a trash can'

 while not uo.Dead() 
   uo.DeleteJournal() 
   uo.WaitMenu('What do you want to carve the' ,'bow') 
   uo.WaitTargetType(logs) 
   uo.UseType(dagger) 
   while not uo.InJournal('item') or uo.InJournal('pack') or uo.InJournal('you fail') 
     wait(100) 
   wend 
   if uo.InJournal('put') then
     uo.FindType(bow,'-1','backpack')
     if uo.FindCount() then
       uo.moveitem('finditem','all',Trash)
       wait(500)
     end if
   end if
 wend 
end sub
Author:  pika [ 2007-09-22 22:05:46 ]
Post subject: 
Scripts Writer сэнк огромный
только вот одно - я запустил скрипт который ты сказал но - тоесть всё хорошо - он делает луки - и я поставил всё как надо - ид мусорника - таёп лука - но он сделает один лук и стоит =(( и дальше не трудится на меня! тоесть чар
можеш помочь пожалуйсто
а скриптик точто надо!!
Author:  Scripts Writer [ 2007-09-22 22:07:35 ]
Post subject: 
Какое сообщение приходит когда скрафтился лук и когда сфизлился?

Code:
You put
&
Code:
You fail
?

2Попробуй так.

Code:
sub Bowcraft() 
var dagger='0x0F51' 
var logs='0x1BDD' 
var bow='input type of bow' 
var Trash='input ID of a trash can' 

 while not uo.Dead() 
   uo.DeleteJournal() 
   uo.WaitMenu('What do you want to carve the' ,'bow') 
   uo.WaitTargetType(logs) 
   uo.UseType(dagger) 
   while not uo.InJournal('put|fail') 
     wait(100) 
   wend 
   if uo.InJournal('put') then 
     uo.FindType(bow,'-1','backpack') 
     if uo.FindCount() then 
       uo.moveitem('finditem','all',Trash) 
       wait(500) 
     end if 
   end if 
 wend 
end sub
Author:  pika [ 2007-09-22 22:28:57 ]
Post subject: 
рабоате работает работает111111
сэнк тебе большой я отдаю голос за тебя =)
Author:  Scripts Writer [ 2007-09-22 22:47:34 ]
Post subject: 
Если кому-то что-то подкорректировать- продолжайте в этой теме
Author:  pika [ 2007-09-23 08:58:17 ]
Post subject: 
Scripts Writer извевни но модно еще попросить коеочом
вот этот скрипт на шафта он берёт логи из сундука - делает - и в мусорник выкидывает - и опять в сундук и так по кругу
можеш пожалуйсто тоже сделать - я делал - у меня он даже крипт не запускает! вот скрипт который ты дал - только чтоб он из сундука брал логи - сделал лук или арбаль - выкинул в мусорник
если тебя не затруднит!
спасибо
Code:
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('1','finditem') 
wend 
wait(700) 
ChekLag() 
uo.FindType(Logs,'0x0000','backpack') 
uo.WaittargetType(Logs) 
uo.Usetype(dagger) 
uo.WaitMenu('What do you want to carve the wood into?','bow (8 log)') 
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('0','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
Author:  Scripts Writer [ 2007-09-23 10:39:18 ]
Post subject: 
Code:
sub Bowcraft() 
var dagger='0x0F51' 
var logs='0x1BDD' 
var bow='input type of bow' 
var Trash='input ID of a trash can' 
var Sunduk='input ID of a container with logs'

 uo.UseObject(Sunduk)
 wait(1000)
 uo.UseObject(Trash)
 wait(1000)
 while not uo.Dead() 
   if uo.Count(logs)==0 || uo.Count(logs)<20 then
     uo.FindType(logs,'-1',Sunduk)
     if uo.FindCount() then
       uo.moveitem('finditem','250')
       wait(1000)
     end if
   end if
   uo.DeleteJournal() 
   uo.WaitMenu('What do you want to carve the' ,'bow') 
   uo.WaitTargetType(logs) 
   uo.UseType(dagger) 
   while not uo.InJournal('put|fail') 
     wait(100) 
   wend 
   if uo.InJournal('put') then 
     uo.FindType(bow,'-1','backpack') 
     if uo.FindCount() then 
       uo.moveitem('finditem','all',Trash) 
       wait(500) 
     end if 
   end if 
 wend 
end sub
Author:  pika [ 2007-09-23 17:34:37 ]
Post subject: 
спасибоо Script Writer всёё работает!!!! огромнейшее спасибки я так искал тоесть мне так давно надобыло то что ты щас мне дал благодарю очень пресильно тебя
просто многие не хотят помочь =(
вот учитесь все
Author:  Scripts Writer [ 2007-09-23 17:39:59 ]
Post subject: 
:wink:
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/