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

[m0nYa]

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


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

[AGRS]

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

[m0nYa]

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

[Kynep]

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

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

[m0nYa]

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

[Kynep]

Пишеш 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]

Пишеш 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]

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

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

[Edred]

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

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