Алхимия

o.. · Post by **o..** » 2005-08-26 13:34:30

Народ есть у кого-нить скрипт на крафт алхимии.. Чтобы варил, потом брал из сундука кег, ставил под собой.. заливал одну бутыку из пака, потом заливал всё остальное(дабл клик на кег - таргетом на бэгпак) и клал обратно.. потом брал 400 глазиков ии опять варил по новой.. Пацаны очень надо, помогите плиз

o.. · Post by **o..** » 2005-08-26 22:29:49

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

Code: Select all

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

Sfagnum · Post by **Sfagnum** » 2005-08-27 01:36:47

в поиск по кегу...
было.

o.. · Post by **o..** » 2005-08-27 02:12:49

поиск не работает

Leo · Post by **Leo** » 2005-08-27 10:56:35

Работает, открываешь раздел Scripts и ищешь глазами по названию

o.. · Post by **o..** » 2005-08-27 12:04:54

15 страниц просматрел, не нашел

Leo · Post by **Leo** » 2005-08-27 12:17:22

Ну тогда жди того, кто знает как с кегами работать, у нас на шарде такого нету, помочь не могу

o.. · Post by **o..** » 2005-08-27 12:25:38

ну я объяснить могу собсна

PCGamer · Post by **PCGamer** » 2005-08-27 12:38:48

Просто совет: когда просишь скрипт, кроме всего того, что ты обчно пишешь - пиши ещё на каком шарде ты играешь. И ещё для данного случая опиши как происходит процесс залива в кеги на твоем шарде(куда кликать какие месаги высвечиваются, где ждать надо), эта информация будет необходима человеку, который захочет тебе помочь.

o.. · Post by **o..** » 2005-08-27 16:00:59

Заливание в кег происходит следующим образом:
Даблклик на кег(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 брал из сундука пустой кег и ставил на пол, заливал в него химию из пака (путем даблклик на кег - таргет на пак), потом поднимал и клал в другой сундук.. После этого брал оределенное кол-во регов и начинал варить сного....
Пожалуйста хелпаните, народ

ЗЫ Шард оском
ЗЫЫ Спасибо за совет

o.. · Post by **o..** » 2005-08-27 22:01:37

Народ, ну помогите плиз..

o.. · Post by **o..** » 2005-08-28 13:10:26

o.. · Post by **o..** » 2005-08-29 11:34:09

Лео, помоги плиз, я вроде всё объяснил

o.. · Post by **o..** » 2005-08-29 19:48:23

Как сделать чтобы таргетом кликнуть на свой пак?

Leo · Post by **Leo** » 2005-08-29 19:51:45

Code: Select all

UO.WaitTargetObject('ID бекпека')

o.. · Post by **o..** » 2005-08-29 20:07:46

Спасибо, еще вопрос как сделать чтобы из середины скрипта например если бутылок нету шел на начало? Типо как в пилоте
:start метка
....
if ...
goto start
end_if
.....
end_script

o.. · Post by **o..** » 2005-08-29 20:26:26

Лео можешь асю дать, помочь не много?

Leo · Post by **Leo** » 2005-08-29 20:52:53

Да говорю же что не знаю как с кегами работать.

o.. · Post by **o..** » 2005-08-29 21:24:08

Да я там уже всё сделал, подредактировать малек надо

o.. · Post by **o..** » 2005-08-29 21:32:02

Code: Select all

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

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