Yoko :: Алхимия

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

Алхимия http://forum.yoko.com.ua/viewtopic.php?f=20&t=4957	Page 1 of 2

Author:	o.. [ 2005-08-26 13:34:30 ]
Post subject:	Алхимия
Народ есть у кого-нить скрипт на крафт алхимии.. Чтобы варил, потом брал из сундука кег, ставил под собой.. заливал одну бутыку из пака, потом заливал всё остальное(дабл клик на кег - таргетом на бэгпак) и клал обратно.. потом брал 400 глазиков ии опять варил по новой.. Пацаны очень надо, помогите плиз

Author:

o.. [ 2005-08-26 22:29:49 ]

Post subject:

Ветеран можешь этот скрипт переделать как надо?
чтобы после мессаги You have no bottle заливал в кеги..

Code:

sub alchemy()
# BETEP™ #
VAR Exit=0, LastTimer
uo.print('Сундук с регами и бутылками') 
uo.exec('addobject Bag')
while uo.targeting() 
wait(100) 
wend 
uo.print('Сундук куда бутылки бросать') 
uo.exec('addobject Bag2') 
while uo.targeting() 
wait(100) 
wend 
while Exit<>1 
UO.DeleteJournal() 

UO.FindType('0x0F0E','0x0998','backpack') 
If UO.GetQuantity('finditem')>0 Then 
UO.SetReceivingContainer('Bag2') 
wait(1000) 
UO.Grab('all','finditem') 
wait(1000) 
UO.UnSetReceivingContainer() 
Endif 

UO.FindType('0x0F0E',-1,'backpack') 
If UO.GetQuantity('finditem')<10 then 
UO.FindType('0x0F0E','0x0000','Bag') 
wait(1000) 
UO.Grab('500','finditem') 
wait(1000) 
Endif 

UO.FindType('0x0F88','0x0000','backpack') 
If UO.GetQuantity('finditem')<20 then 
UO.FindType('0x0F88','0x0000','Bag') 
wait(1000) 
UO.Grab('400','finditem') 
wait(1000) 
Endif 

LastTimer=UO.Timer() 
UO.DeleteJournal() 

UO.UseType('0x0F88') 
UO.WaitMenu('What','Poison')        
while NOT UO.InJournal("You put") AND NOT UO.InJournal("You toss the failed") 
wait(500) 
wend 
If UO.InJournal("You toss the failed") then 
repeat 
wait(100) 
until UO.Timer()>=LastTimer+100 
Else 
EndIf 
wend    
end sub

Author:	Sfagnum [ 2005-08-27 01:36:47 ]
Post subject:
в поиск по кегу... было.

Author:	o.. [ 2005-08-27 02:12:49 ]
Post subject:
поиск не работает

Author:	Leo [ 2005-08-27 10:56:35 ]
Post subject:
Работает, открываешь раздел Scripts и ищешь глазами по названию

Author:	o.. [ 2005-08-27 12:04:54 ]
Post subject:
15 страниц просматрел, не нашел

Author:	Leo [ 2005-08-27 12:17:22 ]
Post subject:
Ну тогда жди того, кто знает как с кегами работать, у нас на шарде такого нету, помочь не могу

Author:	o.. [ 2005-08-27 12:25:38 ]
Post subject:
ну я объяснить могу собсна

Author:	PCGamer [ 2005-08-27 12:38:48 ]
Post subject:
Просто совет: когда просишь скрипт, кроме всего того, что ты обчно пишешь - пиши ещё на каком шарде ты играешь. И ещё для данного случая опиши как происходит процесс залива в кеги на твоем шарде(куда кликать какие месаги высвечиваются, где ждать надо), эта информация будет необходима человеку, который захочет тебе помочь.

Author:	o.. [ 2005-08-27 16:00:59 ]
Post subject:
Заливание в кег происходит следующим образом: Даблклик на кег(msg What potion would you like to fill the keg with?), потом таргетом на бутыль с химией (msg You fill up the keg with a "название бутылки" potion. You put the empty bottles in your pack.) В кег максимум влазит 50 бутылок, при заливании в кег, в пак кладеться пустая бутылка.. Если пытаться залить во время мешания вылетает мессага You can't use this yet! Если в кеге есть хоть одна бутыль и такргетом от него кликнуть на пак, зальются сразу все бутылки такого вида... Type=0x1940 тип кега В общем по 1 одной бутыли в кеги я залью, нужно чтобы после мессаги You have no bottle брал из сундука пустой кег и ставил на пол, заливал в него химию из пака (путем даблклик на кег - таргет на пак), потом поднимал и клал в другой сундук.. После этого брал оределенное кол-во регов и начинал варить сного.... Пожалуйста хелпаните, народ ЗЫ Шард оском ЗЫЫ Спасибо за совет

Author:	o.. [ 2005-08-27 22:01:37 ]
Post subject:
Народ, ну помогите плиз..

Author:	o.. [ 2005-08-28 13:10:26 ]
Post subject:
up

Author:	o.. [ 2005-08-29 11:34:09 ]
Post subject:
Лео, помоги плиз, я вроде всё объяснил

Author:	o.. [ 2005-08-29 19:48:23 ]
Post subject:
Как сделать чтобы таргетом кликнуть на свой пак?

Author:	Leo [ 2005-08-29 19:51:45 ]
Post subject:
Code: UO.WaitTargetObject('ID бекпека')

Author:	o.. [ 2005-08-29 20:07:46 ]
Post subject:
Спасибо, еще вопрос как сделать чтобы из середины скрипта например если бутылок нету шел на начало? Типо как в пилоте :start метка .... if ... goto start end_if ..... end_script

Author:	o.. [ 2005-08-29 20:26:26 ]
Post subject:
Лео можешь асю дать, помочь не много?

Author:	Leo [ 2005-08-29 20:52:53 ]
Post subject:
Да говорю же что не знаю как с кегами работать.

Author:	o.. [ 2005-08-29 21:24:08 ]
Post subject:
Да я там уже всё сделал, подредактировать малек надо

Author:

o.. [ 2005-08-29 21:32:02 ]

Post subject:

Code:

sub alchemy() 

VAR Exit=0, LastTimer 
uo.print('Сундук с регами и пустыми кегами') 
uo.exec('addobject Bag') 
while uo.targeting() 
wait(100) 
wend 
uo.print('Сундук куда заполненые кеги бросать') 
uo.exec('addobject Bag2') 
while uo.targeting() 
wait(100) 
wend 
while Exit<>1 
UO.DeleteJournal() 

UO.FindType('0x0F78',-1,'backpack') 
If UO.GetQuantity('finditem')<10 then 
UO.FindType('0x0F78','0x0000','Bag') 
wait(1000) 
UO.Grab('300','finditem') 
wait(1000) 
Endif 

LastTimer=UO.Timer() 
UO.DeleteJournal() 

UO.UseType('0x0F78') 
UO.WaitMenu('What','Shrink') 
wait(1000)
If UO.InJournal("You have no") then 
   UO.FindType('0x1940','0x0000','Bag')  ### ищет пустой кег
   wait(500) 
   uo.grab('1','finditem') ### калдет его в пак
   wait(2000) 
   UO.UseObject('finditem') #############Заливает 
   UO.WaitTargetObject('0x4017AE36')####бутылки
   wait(1500)
   UO.FindType('0x1940') ### ищет кег в паке
   wait(500)
   UO.MoveItem('finditem', '1', 'bag2') ### кладет обратно в сундук
   wait(1500)
Endif 
while NOT UO.InJournal("You put") AND NOT UO.InJournal("You toss the failed") 
wait(50)
wend 
If UO.InJournal("You toss the failed") then 
   repeat 
   wait(100) 
until UO.Timer()>=LastTimer+100 
Else 
EndIf 
wend    
end sub

он кег обратно почему то не кладет

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