Page 1 of 2
Помогите с командой UO.buy + uo.getName( "vendor")
Posted: 2010-10-04 06:47:40
by Fistashka
вот есть скрипт
тока в нем косяк когда он делает буй он пишет это не на сфере а просто с левого боку
Code: Select all
sub Kupit()
uo.addobject("vendor")
while uo.targeting()
wait( 100 )
wend
if uo.getName( "vendor" ) == "" then
uo.click( "vendor" )
checklag()
endif
UO.buy('Blanki' + uo.getName( "vendor" ))
end sub
как тут правельно написать чтобы он писал Buy и ник вендора как сообшения?
Code: Select all
UO.buy('Blanki' + uo.getName( "vendor" ))
Re: Помогите с командой UO.buy + uo.getName( "vendor")
Posted: 2010-10-04 18:36:57
by Irina E
Code: Select all
UO.buy('Blanki',uo.getName( "vendor" ))
uo.msg(uo.GetName('finditem')+ ' bye guards')
Re: Помогите с командой UO.buy + uo.getName( "vendor")
Posted: 2010-10-05 02:43:20
by Fistashka
спс выручил
Re: Помогите с командой UO.buy + uo.getName( "vendor")
Posted: 2010-10-05 13:28:24
by Fistashka
теперь у меня токая проблема я забил одного вендора в эспере другова в брите как зделать чтобы когда я покупал в брите он не орал втарой раз буй так как там нету этого вендора?
Code: Select all
sub Kupit()
VAR i
DIM Vendor[2]
Vendor[1]='0x0010aea4'
Vendor[2]='0x00001a40'
For i=1 to 2
if uo.getName( Vendor[i] ) == "" then
uo.click( Vendor[i] )
wait(500)
UO.buy('Blanki',uo.getName( Vendor[i] ))
wait(500)
endif
next
end sub
Re: Помогите с командой UO.buy + uo.getName( "vendor")
Posted: 2010-10-06 04:54:27
by Irina E
Code: Select all
sub Kupit()
VAR i
DIM Vendor[2]
Vendor[1]='0x0190'
Vendor[2]='0x0191'
For i=1 to 2
if uo.getName( Vendor[i] ) == "" then
uo.click( Vendor[i] )
wait(500)
UO.buy('Blanki',uo.getName( Vendor[i] ))
wait(500)
endif
next
end sub
пробуй так правда я хз будет оно работать
потваему скрипту он полюбому будет кричать или искать 2 вендора так задоно у тебя
Re: Помогите с командой UO.buy + uo.getName( "vendor")
Posted: 2010-10-06 07:00:26
by Fistashka
Irina E wrote:Code: Select all
sub Kupit()
VAR i
DIM Vendor[2]
Vendor[1]='0x0190'
Vendor[2]='0x0191'
For i=1 to 2
if uo.getName( Vendor[i] ) == "" then
uo.click( Vendor[i] )
wait(500)
UO.buy('Blanki',uo.getName( Vendor[i] ))
wait(500)
endif
next
end sub
пробуй так правда я хз будет оно работать
потваему скрипту он полюбому будет кричать или искать 2 вендора так задоно у тебя
ну а вот как зделать чтобы он кричал тока того вендора которого видит?
Re: Помогите с командой UO.buy + uo.getName( "vendor")
Posted: 2010-10-06 08:40:11
by Mirage
if uo.getName( Vendor[i] ) == "Nikolay" then
или вот так (вроде работает как автор хочет)
Code: Select all
sub FindVendor()
var flag, i, SerialNew, Name
DIM Vendor[2]
Vendor[0]='0x0010aea4'
Vendor[1]='0x00EFCA82'
uo.Set('finddistance','14')
For i=0 to 1
uo.FindType("0x0190","-1","ground")
if uo.FindCount() then
SerialNew=UO.GetSerial("finditem")
If SerialNew<>Vendor[i] Then
wait(100)
Else
UO.Click(SerialNew)
wait(1000)
Name=UO.GetName(SerialNew)
UO.buy('Blanki',Name)
; UO.Say(Name+" buy")
Endif
endif
next
end sub
PS Домашнее задание - сделать для девушки вендора.

Re: Помогите с командой UO.buy + uo.getName( "vendor")
Posted: 2010-10-07 03:18:59
by Fistashka
Mirage wrote:if uo.getName( Vendor[i] ) == "Nikolay" then
или вот так (вроде работает как автор хочет)
Code: Select all
sub FindVendor()
var flag, i, SerialNew, Name
DIM Vendor[2]
Vendor[0]='0x0010aea4'
Vendor[1]='0x00EFCA82'
uo.Set('finddistance','14')
For i=0 to 1
uo.FindType("0x0190","-1","ground")
if uo.FindCount() then
SerialNew=UO.GetSerial("finditem")
If SerialNew<>Vendor[i] Then
wait(100)
Else
UO.Click(SerialNew)
wait(1000)
Name=UO.GetName(SerialNew)
UO.buy('Blanki',Name)
; UO.Say(Name+" buy")
Endif
endif
next
end sub
PS Домашнее задание - сделать для девушки вендора.

ты про какую девушку говоришь?))))))
чета ты тут перемудрил наверно у меня теперь даже буй не пишет ))))))))
Re: Помогите с командой UO.buy + uo.getName( "vendor")
Posted: 2010-10-07 07:43:58
by Irina E
Code: Select all
sub FindVendor()
var flag, i, SerialNew, Name
DIM Vendor[2]
Vendor[0]='0x0010aea4'
Vendor[1]='0x00EFCA82'
uo.Set('finddistance','14')
For i=0 to 1
uo.FindType("0x0190","-1","ground")
if uo.FindCount() then
SerialNew=UO.GetSerial("finditem")
If SerialNew<>Vendor[i] Then
wait(100)
Else
UO.Click(SerialNew)
wait(1000)
Name=UO.GetName(SerialNew)
UO.buy('Blanki',Name)
UO.Say(Name+" buy")
Endif
endif
next
end sub
сечас пробуй
Re: Помогите с командой UO.buy + uo.getName( "vendor")
Posted: 2010-10-07 09:26:51
by Fistashka
Irina E wrote:Code: Select all
sub FindVendor()
var flag, i, SerialNew, Name
DIM Vendor[2]
Vendor[0]='0x0010aea4'
Vendor[1]='0x00EFCA82'
uo.Set('finddistance','14')
For i=0 to 1
uo.FindType("0x0190","-1","ground")
if uo.FindCount() then
SerialNew=UO.GetSerial("finditem")
If SerialNew<>Vendor[i] Then
wait(100)
Else
UO.Click(SerialNew)
wait(1000)
Name=UO.GetName(SerialNew)
UO.buy('Blanki',Name)
UO.Say(Name+" buy")
Endif
endif
next
end sub
сечас пробуй
эх нет не как просто запускается и вырубается
Re: Помогите с командой UO.buy + uo.getName( "vendor")
Posted: 2010-10-07 15:22:56
by Mirage
Если ты изменишь ID НПС то я думаю заработает точно так как и у меня работает
на расстоянии нескольких экранов стоят несколько НПС.
когда подходишь к 2 из списка то у них совершается покупка Когда подходишь к тем кто не в списке то скрипт заканчивает работу.
Re: Помогите с командой UO.buy + uo.getName( "vendor")
Posted: 2010-10-07 17:31:21
by Fistashka
Mirage wrote:Если ты изменишь ID НПС то я думаю заработает точно так как и у меня работает
на расстоянии нескольких экранов стоят несколько НПС.
когда подходишь к 2 из списка то у них совершается покупка Когда подходишь к тем кто не в списке то скрипт заканчивает работу.
ты думаешь я совсем глупый человек?))))))) кобуто я с вашими ID скрипт тестил )))))
Re: Помогите с командой UO.buy + uo.getName( "vendor")
Posted: 2010-10-07 21:11:13
by Kynep
TWI включи.
Re: Помогите с командой UO.buy + uo.getName( "vendor")
Posted: 2010-10-08 03:34:33
by Fistashka
Kynep wrote:TWI включи.
если я правильно понел тви это трек ворелд итем то он включен не могу понять в чем косяк
Re: Помогите с командой UO.buy + uo.getName( "vendor")
Posted: 2010-10-08 08:24:52
by Savage
А зачем кричать байв клиенте? Что команда ,buy blanki не отрабатывает? Тогда вообще нет смысла покупать командой инжекта.
Re: Помогите с командой UO.buy + uo.getName( "vendor")
Posted: 2010-10-08 13:54:15
by Fistashka
Savage wrote:А зачем кричать байв клиенте? Что команда ,buy blanki не отрабатывает? Тогда вообще нет смысла покупать командой инжекта.
она отрабатывает но в этом скрипте каторый переделали чтобы он кричал тока когда видет вендора она не работает он вобще вендоров не видет и не кричит
Re: Помогите с командой UO.buy + uo.getName( "vendor")
Posted: 2010-10-08 16:32:46
by Mirage
у меня с такими строками работает все
Code: Select all
UO.buy('Blanki',Name)
; UO.Say(Name+" buy")
МБ шард не поддерживает. Или какаято своя система закупки.
Re: Помогите с командой UO.buy + uo.getName( "vendor")
Posted: 2010-10-08 17:28:46
by Fistashka
Mirage wrote:у меня с такими строками работает все
Code: Select all
UO.buy('Blanki',Name)
; UO.Say(Name+" buy")
МБ шард не поддерживает. Или какаято своя система закупки.
да поддерживает он! у меня скрипт на скупку просто он вендоров по ID не видит по чему не знаю я хотел просто зделать поиск я вот делал несколько срывал с разных скриптов а он один хер не видит так вот просто летаю и пишу буй тока так не эфиктивно старый вендор не забивается и когда он прилетает в 2 раз в этот город он пытается купить у него же
Re: Помогите с командой UO.buy + uo.getName( "vendor")
Posted: 2010-10-08 17:39:56
by Fistashka
вот с этим скриптом он у меня трекает Менов и Воменов
Code: Select all
sub CheckingPlayers()
VAR a, b
uo.ignore('self', 'on')
DIM Chars[3]
Chars[0] = '0x0190' #тип игрока мужского пола#
Chars[1] = '0x0191' #тип игрока женского пола#
while not uo.dead()
for a = 0 to 2
wait(50)
endif
while val(uo.getglobal('find')) == 1
wait(50)
wend
uo.set('finddistance', '2')
uo.findtype(Chars[a], '-1', '1')
if uo.findcount() > 0 then
return
else
wait(500)
endif
next
wend
end sub
теперь как сюда вставить вот этот скрипт ну или часть его чтобы он кричал того вендора который есть там по ID в приделах 6 клеток
Code: Select all
sub FindVendor()
var flag, i, SerialNew, Name
DIM Vendor[2]
Vendor[0]='0x0010aea4'
Vendor[1]='0x00001a40'
uo.Set('finddistance','6')
For i=0 to 1
uo.FindType("0x0191","-1","ground")
if uo.FindCount() then
SerialNew=UO.GetSerial("finditem")
If SerialNew<>Vendor[i] Then
wait(100)
Else
UO.Click(SerialNew)
wait(1000)
Name=UO.GetName(SerialNew)
UO.buy('Blanki',Name)
UO.Say(Name+" buy")
Endif
endif
next
end sub
и кто не будь вод в этом топике мне помогите!
http://forum.yoko.com.ua/viewtopic.php?f=3&t=15887
Re: Помогите с командой UO.buy + uo.getName( "vendor")
Posted: 2010-10-09 07:24:20
by Fistashka
все топ умер паходу (