Yoko

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


Вот скриптик ВЕТЕРАНА. Я вот не могу разобраться, почему он не оркает вроде все делаю как надо а он не воркает. Не находит предметы , хотя они вроде есть. И по возможности народ как можно коректно выкинуть из скрипта изготовление бутылок? надо что бы просто перекладывал

помогите плс )

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

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

Чувак спасибо но, это не то! мне нужно что бы он юзал к примеру рег БМ, там в менюшке выбираем поитон агилити, а после этого берем реги и перекладываем в другую сумку, т.е. что бы он сфизлил. Ну а потом реги в ту же сумку что бы клал. Т.е. юзаем алхимию без затрат регов и бутылок, т.е. он просто физлит, из-за того что регов нет.

ппомогите кто может плс!!!!!!!!!!

Алхимия при этом качается??? Это ДРВ?

нет не дрв

мне нужно что бы он юзал к примеру рег БМ, там в менюшке выбираем поитон агилити, а после этого берем реги и перекладываем в другую сумку, т.е. что бы он сфизлил. Ну а потом реги в ту же сумку что бы клал. Т.е. юзаем алхимию без затрат регов и бутылок, т.е. он просто физлит, из-за того что регов нет - НУ ПОМОГИТЕ )))

up! BETEP help

ну народ дайте скрипт что бы во во время юза скила алхимии он убирал реги в сумку, а как сфизлит, возвращал реги обратно

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

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

Чувак тока вот не могу разобраться с wait menu она пишет например Reg или What menu canseled, что там надо писать?

Прочти вот это

Вот он канселит, потом говорит waiting for menu...
перекладывает реги в сундук , а потом гвоорит you can't see the target. Мне кажется дело в менюшках, он не юзает до конца менюшки, или вообще не юзает... канселит и перекладывает

UO.WaitMenu ('What sort of potion do you want to make?', 'Strength') - вот что я вписал, а он пишет: Предыдушее меню отменено. и потом опять перекидывает и все... а если я нажимаю на реги, он делает поитон без перекидки)))

Спасибо тебе большое за скрипт!!! вот тока помоги немнога с вейт меню (

Тестируй:

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

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.. не знаю все равно тоже самое. Может ли сундук или вид регов влиять? хз че делать? (((

help ^^

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

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