Page 1 of 1
Продать+Купить
Posted: 2008-02-06 16:10:32
by m0nYa
Доброго врмени суток , инжектом пользуюсь давно ... но на етом форуме только вот сейчас очутился ... Вобзем возникла проблема ... нужен скрипт который бы быстро скупал у вендора животных указаных по тайпу а потом так-же по тайпу продавал ....
Есле есть кому новичку помочь помогите буду благодарен ...
П.С - заранее спасибо откликнувшимся на просьбу . Exclamation
(script под POL-95)
Ну подскажите хоть ктото чтонибудь ...
Posted: 2008-02-06 19:32:22
by AGRS
Покупка осущиствляется по шоп листу. А шоп лист формируется ручками. Если не ошибаюсь, там по имени, а не по графич типу.
Posted: 2008-02-07 10:07:27
by m0nYa
А с продажей как быть ? мне нужно продавать всех животных .... они все одинаковые ....
Posted: 2008-02-07 10:12:51
by Kynep
m0nYa wrote:А с продажей как быть ? мне нужно продавать всех животных .... они все одинаковые ....
Опиши подробнее как у Вас на шарде происходит процесс продажи.
Posted: 2008-02-07 10:14:59
by m0nYa
Пишеш sell повялеться курсор , тыкаеш на животное и вуаля оно продано ... =)
Просто на сервере есть не пофикшеная тема с куплей продажей животных ... хоченться заработать денег
весь скрипт должен заключаться в том что чар покупает по бай листу а продает животных по ID вид животных всего 1 ... но как мне кажеться ето какойто проблематичный скрипт так как браться некто не хочет
хотябы насоветовали .... for new scripter
Posted: 2008-02-07 10:22:53
by Kynep
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
Posted: 2008-02-07 10:27:32
by m0nYa
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 шага ... ?
Posted: 2008-02-07 10:34:56
by Kynep
m0nYa wrote:Я еще не пробовал ... но меня смущает строка find backpack животное то не в бакпаке ... будт ли он искать животное на расстоянии кпримеру 4 шага ... ?
Поправил, смотри выше.
Добавил скупку. Тестируй.
Posted: 2008-02-07 11:35:53
by Edred
m0nYa wrote:но как мне кажеться ето какойто проблематичный скрипт так как браться некто не хочет
хотябы насоветовали .... for new scripter
For new bugger - ты хотел сказать... Потому и не хотят браться, что читеры здесь не особо приветствуются.