Yoko :: АЛХИМИЯ ХЕЛП

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

АЛХИМИЯ ХЕЛП http://forum.yoko.com.ua/viewtopic.php?f=20&t=2294	Page 1 of 2

Author:	Chel [ 2004-12-19 18:33:18 ]
Post subject:	АЛХИМИЯ ХЕЛП
sub Bottle() uo.print('Сундук с ИНГАМИ и РЕГАМИ:') uo.exec('addobject ING') while uo.targeting() wait(100) wend uo.print('Сундук Куда БРОСАТЬ:') uo.exec('addobject BOX') while uo.targeting() wait(100) wend VAR Exit=0, LastTimer while NOT UO.Dead() UO.FindType('0x0F0E','0x09DF','backpack') ;готовые бутылки` If UO.GetQuantity('finditem')>200 Then UO.SetReceivingContainer('BOX') wait(1000) UO.Grab('all','finditem') wait(1000) UO.UnSetReceivingContainer() Endif UO.FindType('0x0F87','0x0000','backpack') ; reg If UO.GetQuantity('finditem')<20 then UO.FindType('0x0F87','0x0000','ING') wait(1000) UO.Grab('400','finditem') wait(1000) Endif UO.FindType('0x1BEF','0x0000','backpack') ; iron if UO.GetQuantity('finditem')<=10 then UO.FindType('0x1BEF','0x0000','ING') wait(1000) UO.Grab('900','finditem') wait(1000) endif CheckLag() UO.FindType('0x0F0E','0x0000','backpack') ;готовые бутылки` If UO.GetQuantity('finditem')<1 Then UO.Exec("waitmenu 'Tinkering' 'Tools' 'Tools' 'empty bottle'") UO.UseType('0x1EBC') ; tinker tools while NOT UO.InJournal("You put") AND NOT UO.InJournal("Tinkering failed") wait(500) wend endif UO.Exec("waitmenu 'What' 'Mana'") UO.UseType(0x0F87) ; wait(1000) while NOT UO.InJournal("You put") AND NOT UO.InJournal("You toss the failed") wait(500) wend wend end sub sub CheckLag() UO.DeleteJournal() UO.Click('backpack') repeat wait(100) until UO.InJournal('backpack') end sub Вот скриптик ВЕТЕРАНА. Я вот не могу разобраться, почему он не оркает вроде все делаю как надо а он не воркает. Не находит предметы , хотя они вроде есть. И по возможности народ как можно коректно выкинуть из скрипта изготовление бутылок? надо что бы просто перекладывал

Author:	Chel [ 2004-12-19 19:35:42 ]
Post subject:
помогите плс )

Author:

Immelstorn [ 2004-12-19 21:44:48 ]

Post subject:

Держи скрипт на изготовление бутылок c перекладкой и едой - клади в пак фишстейки. Если их в паке не будет - не беда, скрипт все равно будет работать. Только надо прописать сундук с айроном!

Code:

sub tinkering()
###(c)Immelstorn aka VAngeR###
VAR X, lasttimer
VAR sunduk='0x402F00E3' #sunduk s iron
repeat

uo.findtype('0x097B','-1','backpack')
if uo.findcount()>0 then
repeat
UO.UseObject('finditem')
wait(500)
until uo.injournal('You feel quite full') OR uo.injournal('You are stuffed!') OR uo.injournal('You are simply too full')
endif

for X=0 to 2
uo.deletejournal()
uo.findtype('0x1BEF','-1',sunduk)
uo.grab('600','finditem')
wait(1500)

repeat
uo.deletejournal()
lasttimer=uo.timer()
uo.waitmenu('Tinkering','Tools','Tools','empty bottle')
uo.usetype('0x1EBC')
repeat
wait(100)
until uo.injournal('You put') or uo.injournal('Tinkering failed') or uo.timer()>=lasttimer+100
until uo.count('0x1BEF')<4

wait(2000)

uo.SetReceivingContainer(sunduk)
wait(500)
uo.findtype('0x0F0E','-1','backpack')
uo.grab('0','finditem')
wait(1500)
uo.UnsetReceivingContainer()
wait(500)
next

wait(2000)

until uo.dead()
end sub

Author:	Chel [ 2004-12-19 22:16:45 ]
Post subject:
Чувак спасибо но, это не то! мне нужно что бы он юзал к примеру рег БМ, там в менюшке выбираем поитон агилити, а после этого берем реги и перекладываем в другую сумку, т.е. что бы он сфизлил. Ну а потом реги в ту же сумку что бы клал. Т.е. юзаем алхимию без затрат регов и бутылок, т.е. он просто физлит, из-за того что регов нет.

Author:	Chel [ 2004-12-19 22:17:26 ]
Post subject:
ппомогите кто может плс!!!!!!!!!!

Author:	Immelstorn [ 2004-12-19 22:54:39 ]
Post subject:
Алхимия при этом качается??? Это ДРВ?

Author:	Chel [ 2004-12-19 23:51:52 ]
Post subject:
нет не дрв

Author:	Chel [ 2004-12-19 23:52:37 ]
Post subject:
мне нужно что бы он юзал к примеру рег БМ, там в менюшке выбираем поитон агилити, а после этого берем реги и перекладываем в другую сумку, т.е. что бы он сфизлил. Ну а потом реги в ту же сумку что бы клал. Т.е. юзаем алхимию без затрат регов и бутылок, т.е. он просто физлит, из-за того что регов нет - НУ ПОМОГИТЕ )))

Author:	Chel [ 2004-12-20 15:20:38 ]
Post subject:
up! BETEP help

Author:	Chel [ 2004-12-20 21:34:58 ]
Post subject:
ну народ дайте скрипт что бы во во время юза скила алхимии он убирал реги в сумку, а как сфизлит, возвращал реги обратно

Author:

666Man666 [ 2004-12-20 22:00:41 ]

Post subject:

Попробуй... я там разкоментировал всё

Code:

sub alchemist()
var Reg='0x1BEF' ; Реги
var Chest='0x416ED746' ; Сундук (должен быть открыт)
UO.UseObject(Chest)
Wait(5000)
#############################
### Начинаем мешать химию ###
#############################
If UO.Count(Reg) Then
While UO.Count(Reg) > 0 and NOT UO.Dead()
UO.WaitMenu ('сам пишеш что выбирать')
UO.UseObject(Reg)
###################################
### Ишем реги, бросаем в сундук ###
###################################
UO.FindType(Reg,'-1','2')
If UO.FindCount() > 0 Then
UO.MoveItem('finditem','all',Chest)
UO.DeleteJournal()
REPEAT
Wait(300)
Until UO.InJournal('fail') or UO.Dead() ; Пишеш проверку в журнале на физл...
EndIf
########################################
### После физла - ташим реги обратно ###
########################################
UO.FindType(Reg,'-1',Chest)
If UO.FindCount() > 0 Then
UO.MoveItem('finditem','all','backpack')
Wait(2000)
EndIf
Wend
EndIf
end sub

Author:	Chel [ 2004-12-21 16:50:34 ]
Post subject:
Чувак тока вот не могу разобраться с wait menu она пишет например Reg или What menu canseled, что там надо писать?

Author:	666Man666 [ 2004-12-21 17:10:08 ]
Post subject:
Прочти вот это

Author:	Chel [ 2004-12-21 17:11:15 ]
Post subject:
Вот он канселит, потом говорит waiting for menu... перекладывает реги в сундук , а потом гвоорит you can't see the target. Мне кажется дело в менюшках, он не юзает до конца менюшки, или вообще не юзает... канселит и перекладывает

Author:	Chel [ 2004-12-21 17:22:27 ]
Post subject:
UO.WaitMenu ('What sort of potion do you want to make?', 'Strength') - вот что я вписал, а он пишет: Предыдушее меню отменено. и потом опять перекидывает и все... а если я нажимаю на реги, он делает поитон без перекидки)))

Author:	Chel [ 2004-12-21 17:29:40 ]
Post subject:
Спасибо тебе большое за скрипт!!! вот тока помоги немнога с вейт меню (

Author:

666Man666 [ 2004-12-21 17:43:11 ]

Post subject:

Тестируй:

Code:

sub alchemist() 
var Reg='0x1BEF' ; Реги 
var Chest='0x416ED746' ; Сундук (должен быть открыт) 
UO.UseObject(Chest) 
Wait(5000) 
############################# 
### Начинаем мешать химию ### 
############################# 
If UO.Count(Reg) Then 
While UO.Count(Reg) > 0 and NOT UO.Dead()
If UO.Waiting() Then 
UO.CancelTarget() 
EndIf 
UO.WaitMenu ('What sort of potion do you want','Strength') 
UO.UseObject(Reg)
Wait(2000)
################################### 
### Ишем реги, бросаем в сундук ### 
################################### 
UO.FindType(Reg,'-1','2') 
If UO.FindCount() > 0 Then 
UO.MoveItem('finditem','all',Chest) 
UO.DeleteJournal() 
REPEAT 
Wait(300) 
Until UO.InJournal('fail') or UO.Dead() ; Пишеш проверку в журнале на физл... 
EndIf 
######################################## 
### После физла - ташим реги обратно ### 
######################################## 
UO.FindType(Reg,'-1',Chest) 
If UO.FindCount() > 0 Then 
UO.MoveItem('finditem','all','backpack') 
Wait(2000) 
EndIf 
Wend 
EndIf 
end sub

Author:	Chel [ 2004-12-21 17:52:02 ]
Post subject:	=\
sub alchemist() var Reg='0x0F86' ; Реги var Chest='0x40801C38' ; Сундук (должен быть открыт) UO.UseObject(Chest) Wait(5000) ############################# ### Начинаем мешать химию ### ############################# If UO.Count(Reg) Then While UO.Count(Reg) > 0 and NOT UO.Dead() If UO.Waiting() Then UO.CancelTarget() EndIf UO.WaitMenu ('What sort of potion do you want','Strength') UO.UseObject(Reg) Wait(2000) ################################### ### Ишем реги, бросаем в сундук ### ################################### UO.FindType(Reg,'-1','2') If UO.FindCount() > 0 Then UO.MoveItem('finditem','all',Chest) UO.DeleteJournal() REPEAT Wait(300) Until UO.InJournal('fail') or UO.Dead() ; Пишеш проверку в журнале на физл... EndIf ######################################## ### После физла - ташим реги обратно ### ######################################## UO.FindType(Reg,'-1',Chest) If UO.FindCount() > 0 Then UO.MoveItem('finditem','all','backpack') Wait(2000) EndIf Wend EndIf end sub вот мой скрипт я тут изменил лишь ид сундука (у меня не сундук а сумка обычная) и тип регов на MR.. не знаю все равно тоже самое. Может ли сундук или вид регов влиять? хз че делать? (((

Author:	Chel [ 2004-12-21 20:39:22 ]
Post subject:
help ^^

Author:

666Man666 [ 2004-12-21 20:59:58 ]

Post subject:

Хе-хе там Юзеобджект всемто Юзтупе стоял, посмотрел бы хоть проверил

Code:

sub alchemist() 
var Reg='0x0F86' ; Реги 
var Chest='0x40004483' ; Сундук (должен быть открыт) 
UO.UseObject(Chest) 
Wait(5000) 
############################# 
### Начинаем мешать химию ### 
############################# 
If UO.Count(Reg) Then 
While UO.Count(Reg) > 0 and NOT UO.Dead()
UO.WaitMenu('What sort of potion do you want','Strength')
UO.UseType(Reg)
################################### 
### Ишем реги, бросаем в сундук ### 
################################### 
UO.FindType(Reg,'-1','2') 
If UO.FindCount() > 0 Then 
UO.MoveItem('finditem','all',Chest) 
UO.DeleteJournal() 
REPEAT 
Wait(300) 
Until UO.InJournal('fail') or UO.InJournal("You put") or UO.Dead() ; Пишеш проверку в журнале на физл... 
EndIf 
######################################## 
### После физла - ташим реги обратно ### 
######################################## 
UO.FindType(Reg,'-1',Chest) 
If UO.FindCount() > 0 Then 
UO.MoveItem('finditem','all','backpack') 
Wait(2000) 
EndIf 
Wend 
EndIf 
end sub

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