Продать+Купить

m0nYa · Post by **m0nYa** » 2008-02-06 16:10:32

Доброго врмени суток , инжектом пользуюсь давно ... но на етом форуме только вот сейчас очутился ... Вобзем возникла проблема ... нужен скрипт который бы быстро скупал у вендора животных указаных по тайпу а потом так-же по тайпу продавал ....
Есле есть кому новичку помочь помогите буду благодарен ...
П.С - заранее спасибо откликнувшимся на просьбу . Exclamation
(script под POL-95)

Ну подскажите хоть ктото чтонибудь ... :cry:

AGRS · Post by **AGRS** » 2008-02-06 19:32:22

Покупка осущиствляется по шоп листу. А шоп лист формируется ручками. Если не ошибаюсь, там по имени, а не по графич типу.

m0nYa · Post by **m0nYa** » 2008-02-07 10:07:27

А с продажей как быть ? мне нужно продавать всех животных .... они все одинаковые ....

Kynep · Post by **Kynep** » 2008-02-07 10:12:51

m0nYa wrote:А с продажей как быть ? мне нужно продавать всех животных .... они все одинаковые ....

Опиши подробнее как у Вас на шарде происходит процесс продажи.

m0nYa · Post by **m0nYa** » 2008-02-07 10:14:59

Пишеш sell повялеться курсор , тыкаеш на животное и вуаля оно продано ... =)
Просто на сервере есть не пофикшеная тема с куплей продажей животных ... хоченться заработать денег :-)

весь скрипт должен заключаться в том что чар покупает по бай листу а продает животных по ID вид животных всего 1 ... но как мне кажеться ето какойто проблематичный скрипт так как браться некто не хочет :-)

хотябы насоветовали .... for new scripter :-)

Kynep · Post by **Kynep** » 2008-02-07 10:22:53

m0nYa wrote:Пишеш sell повялеться курсор , тыкаеш на животное и вуаля оно продано ... =)

Code: Select all

sub sell()
  VAR chto = '' #Тип товара
  VAR ser
  UO.Set('finddistance', '4')
  start:
  UO.FindType(chto, '-1', 'ground')
  If UO.FindCount() > 0 then
    repeat
      ser = UO.GetSerial('finditem')
      wait(100)
      UO.WaitTargetObject(ser)
      wait(100)
      UO.Say('Sell')
      wait(2000)
      UO.FindType(chto, '-1', 'ground')
    until not UO.FindCount()
    UO.Print('Все продано!!!')
  else
    UO.Buy('list') #Имя байлиста
    wait(4000)
    goto start
  end if
end sub

m0nYa · Post by **m0nYa** » 2008-02-07 10:27:32

Kynep wrote:

m0nYa wrote:Пишеш sell повялеться курсор , тыкаеш на животное и вуаля оно продано ... =)

Code: Select all

sub sell()
  VAR chto = '' #Тип товара
  VAR ser

  UO.FindType(chto, '-1', 'backpack')
  If UO.FindCount() > 0 then
    repeat
      ser = UO.GetSerial('finditem')
      wait(100)
      UO.WaitTargetObject(ser)
      wait(100)
      UO.Say('Sell')
      wait(2000)
      UO.FindType(chto, '-1', 'backpack')
    until not UO.FindCount()
    UO.Print('Все продано!!!')
  end if
end sub

Я еще не пробовал ... но меня смущает строка find backpack животное то не в бакпаке ... будт ли он искать животное на расстоянии кпримеру 4 шага ... ?

Kynep · Post by **Kynep** » 2008-02-07 10:34:56

m0nYa wrote:Я еще не пробовал ... но меня смущает строка find backpack животное то не в бакпаке ... будт ли он искать животное на расстоянии кпримеру 4 шага ... ?

Поправил, смотри выше.
Добавил скупку. Тестируй.

Edred · Post by **Edred** » 2008-02-07 11:35:53

m0nYa wrote:но как мне кажеться ето какойто проблематичный скрипт так как браться некто не хочет хотябы насоветовали .... for new scripter

For new bugger - ты хотел сказать... Потому и не хотят браться, что читеры здесь не особо приветствуются.