Помогите с командой UO.buy + uo.getName( "vendor")

[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" ))

[Irina E]

Code: Select all

UO.buy('Blanki',uo.getName( "vendor" ))
uo.msg(uo.GetName('finditem')+ ' bye guards')

[Fistashka]

спс выручил

[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

[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 вендора так задоно у тебя

[Fistashka]

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 вендора так задоно у тебя

ну а вот как зделать чтобы он кричал тока того вендора которого видит?

[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 Домашнее задание - сделать для девушки вендора.

[Fistashka]

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 Домашнее задание - сделать для девушки вендора.

ты про какую девушку говоришь?))))))
чета ты тут перемудрил наверно у меня теперь даже буй не пишет ))))))))

[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

сечас пробуй

[Fistashka]

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

сечас пробуй

эх нет не как просто запускается и вырубается

[Mirage]

Если ты изменишь ID НПС то я думаю заработает точно так как и у меня работает

на расстоянии нескольких экранов стоят несколько НПС.
когда подходишь к 2 из списка то у них совершается покупка Когда подходишь к тем кто не в списке то скрипт заканчивает работу.

[Fistashka]

Если ты изменишь ID НПС то я думаю заработает точно так как и у меня работает

на расстоянии нескольких экранов стоят несколько НПС.
когда подходишь к 2 из списка то у них совершается покупка Когда подходишь к тем кто не в списке то скрипт заканчивает работу.

ты думаешь я совсем глупый человек?))))))) кобуто я с вашими ID скрипт тестил )))))

[Kynep]

TWI включи.

[Fistashka]

TWI включи.

если я правильно понел тви это трек ворелд итем то он включен не могу понять в чем косяк

[Savage]

А зачем кричать байв клиенте? Что команда ,buy blanki не отрабатывает? Тогда вообще нет смысла покупать командой инжекта.

[Fistashka]

А зачем кричать байв клиенте? Что команда ,buy blanki не отрабатывает? Тогда вообще нет смысла покупать командой инжекта.

она отрабатывает но в этом скрипте каторый переделали чтобы он кричал тока когда видет вендора она не работает он вобще вендоров не видет и не кричит

[Mirage]

у меня с такими строками работает все

Code: Select all

            UO.buy('Blanki',Name)
;            UO.Say(Name+" buy")

МБ шард не поддерживает. Или какаято своя система закупки.

[Fistashka]

у меня с такими строками работает все

Code: Select all

            UO.buy('Blanki',Name)
;            UO.Say(Name+" buy")

МБ шард не поддерживает. Или какаято своя система закупки.

да поддерживает он! у меня скрипт на скупку просто он вендоров по ID не видит по чему не знаю я хотел просто зделать поиск я вот делал несколько срывал с разных скриптов а он один хер не видит так вот просто летаю и пишу буй тока так не эфиктивно старый вендор не забивается и когда он прилетает в 2 раз в этот город он пытается купить у него же

[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

[Fistashka]

все топ умер паходу (