Lineage2, Interlude Опции

[daffnik]

Добрый вечер. Я конечно понимаю что программа основана в первую очередь для УО, но может у кого то получилось написать скрипт на ловлю рыбы в Lineage? Знающие люди, помогите пожалуйста (IMG:style_emoticons/default/smile.gif)

[Taidarian]

вообще-то проще купить бота у xkor и ловить на шоках валкером.(1$ за логин)
или юзать патч от ZyB или саурона-(тока давно я у них не появлялся) если это другой сервер

а по сабжу сам скрипт вполне реален- я как-то ломал голову только для меня сложность в одном:
когда полоска увеличивается или уменьшается- юзать нужный скилл([send F3] или[send F4] соответственно)
1.ну цвет полоски поймать можно- но ну вот мы увидели что полоска не идет вправо, а стоит - (это пилот определит) - и чо жать-то?
2.и скока времени давать на подумать? а вдруг это полоска увеличивается и просто стоит 1-2 сек перед следующим сдвигом?
3. или наоборот- полоска стоит на месте.- скока секунд( или миллисекунд) ждать перед нажатием клавиши со склом "подсекать"?

суть траблы только в том когда именно нажимать скилл, как определить что полоска именно стоит на месте а не лагает и не пауза перед увеличением.-я лично путался даже играя сам.


короче решишь эту задачку - скрипт я напишу-заготовки есть. чуть шо- в аське я тоже Taidarian

[Destruction]

Исходный код

// main config
set #is_fish_equiped 1 // одета ли сейчас удочка
set #use_window_core 1 // разместить окно как положено?
set #use_shutdown 0 // выключить компьютер по окончании рыбалки

set $fishing_list 10

set $fishing F1
set $pumping F2
set $reeling F3
set $fishing_shot F4
set $weapon1 F5
set $weapon2 F6
set $fishing_rod F7
set $fishing_lure F8
set $attack1 F9
set $attack2 F10
set $targetattacker F11
set $sitstand F12
set $weight_bar_key Tab

// position config
set #window_left -4
set #window_top -23
set #window_width 1288
set #window_height 1024

set #fish_window_x 171
set #fish_window_y 112
set #fish_window_c 3020813

set #fish_hp_start 113
set #fish_hp_end 342
set #fish_hp_line 340
set #fish_hp_color 15510558

set #mob_bar_x 560
set #mob_bar_y 30
set #mob_bar_c 3414288

set #hp_bar_x 161
set #hp_bar_y 47
set #hp_bar_c 1573045

set #mp_bar_x 161
set #mp_bar_y 61
set #mp_bar_c 13524992

set #weight_bar_x 1179
set #weight_bar_y 623
set #weight_bar_c 1449037

// perfomance settings
set #fish_hp_inc 1700
set #send_key_timeout 120
set #mob_timer 0

// script_core

sendex @{F$fishing_list}

if_not #use_window_core = 0
set windowpos #window_left #window_top #window_width #window_height
end_if
if #is_fish_equiped = 0
gosub do_equip_fish
end_if

// activate window and cancel current target
sendex {Escape}

//script_start
:start
send $fishing
get color #fish_window_color #fish_window_x, #fish_window_y
while_not #fish_window_color = #fish_window_c
get color #fish_window_color #fish_window_x, #fish_window_y
wait 20
end_while
get color #fish_bar_color #fish_hp_start #fish_hp_line
while #fish_bar_color <> #fish_hp_color AND #fish_window_color = #fish_window_c
get color #fish_window_color #fish_window_x, #fish_window_y
get color #fish_bar_color #fish_hp_start #fish_hp_line
wait 20
end_while
while #fish_bar_color = #fish_hp_color AND #fish_window_color = #fish_window_c
gosub get_bar_state
set #fish_hp_value_old #fish_hp_value
set timer
while timer < #fish_hp_inc AND #fish_hp_value = #fish_hp_value_old
gosub get_bar_state
wait 20
end_while
if #fish_hp_value = #fish_hp_value_old
set $key $pumping
else
set $key $reeling
end_if
set timer
while timer < #send_key_timeout
send $fishing_shot
send $key
end_while
wait 1200
get color #fish_window_color #fish_window_x, #fish_window_y
get color #fish_bar_color #fish_hp_start #fish_hp_line
end_while
gosub i_wish_survive
get color #c #weight_bar_x, #weight_bar_y
get color #new_c #weight_bar_x, #weight_bar_y
send $weight_bar_key
while #c = #new_c
wait 50
get color #c #weight_bar_x, #weight_bar_y
end_while
if_not #weight_bar_x, #weight_bar_y #weight_bar_c
if #use_shutdown = 1
exec shutdown -s
end_if
end_script
end_if
send $weight_bar_key
goto start
end_script

:do_equip_fish
send $fishing_rod
wait 200
send $fishing_lure
wait 200
return

:get_bar_state
set #bar_width #fish_hp_end - #fish_hp_start + 1
set #x #fish_hp_start
get color #c #x, #fish_hp_line
while #c = #fish_hp_color
set #x #x + 1
get color #c #x, #fish_hp_line
end_while
set #fish_hp_value #x - #fish_hp_start
return

:i_wish_survive
wait #mob_timer
send F11
wait 300
if #mob_bar_x, #mob_bar_y #mob_bar_c
send $weapon1
wait 200
send $weapon2
wait 200
while #mob_bar_x, #mob_bar_y #mob_bar_c
send $attack1
send $attack2
wait 500
end_while
gosub do_equip_fish
gosub heal
end_if
return

:heal
send $sitstand
wait 1000
get color #hp #hp_bar_x, #hp_bar_y
get color #mp #mp_bar_x, #mp_bar_y
while #hp <> #hp_bar_c OR #mp <> #mp_bar_c
wait 500
get color #hp #hp_bar_x, #hp_bar_y
get color #mp #mp_bar_x, #mp_bar_y
end_while
send $sitstand
wait 1000
return

Сами разберётесь чего куда ? -)

Скрипт писался под C4, но не думаю, чтобы в интерлюде было что-то новое, кроме нагрузки на ЦП (которая весьма принципиальна).

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

Я вам больше скажу - у меня некоторое время на пилоте работала система, по которой БХ + 2 дока спокойно держали маленькую комнатку абсолютно без моего вмешательства.

PS: Если у вас слабый компьютер - настоятельно рекомендую усовершенствовать функцию get_bar_state - можно сделать тоже самое за меньшее количество итераций, но мне жутко лень.

PPS: Честно сказать, никогда не думал, что выложу этот скрипт...

[Kyryk]

вобщем трабла у меня с этим скриптом.
удочку закидывает, а вот рыбку не ловит, подскажите пожалуйста как с этим справиться
(IMG:style_emoticons/default/ohmy.gif)

[Destruction]

Поставить уопилоту приоритет realtime, внимательно проверить все настройки.

PS: 2WKnight, ты там что-то мутил с приоритетами, ещё давно... ничего не намутил ? -)

[Kyryk]

ну приоритет поставил, но не в этом дело, скрипт останавливается на

while #c = #fish_hp_color
set #x #x + 1
get color #c #x, #fish_hp_line
end_while

просто думаю что тут где нибудь ошибка.
очень прошу стукни в аську как появишся 122521114

[Kyryk]

Вобщем там ошибочка в скрипте, нашёл, уже ловит, только проблема, юзает только Pumping, ошибка видать в определении в "#fish_hp_value"

Буду задрачиваться дальше (IMG:style_emoticons/default/cool.gif)

[Destruction]

В скрипте ошибок нет ! - В C4 при правильной настройке всё очень замечательно ловится - практически безошибночно применяется pumping / reeling.

А как нужно извернуться, чтобы некорректно определялся #fish_hp_value - это я вообще хз.

PS: Форум для того и существует, чтобы не терять нужные людям решения где-то в аське.

[Kyryk]

Код

:get_bar_state
    set [color=#FF0000]#bar_width[/color] #fish_hp_end - #fish_hp_start + 1
    set #x #fish_hp_start
    get color #c #x, #fish_hp_line
    while #c = #fish_hp_color
        set #x #x + 1
        get color #c #x, #fish_hp_line
    end_while
    set #fish_hp_value #x - #fish_hp_start
return

зачем в подпрограмме обьявляется переменная #bar_width она ведь нигде не используется?

уважаемый Destruction Очень Вас прошу, ну подпишите хотябы коментарии к скрипту, ато я не силён в скриптописании и есть очень много вопросов.

PS: Форум для того и существует, чтобы не терять нужные людям решения где-то в аське.

а на воруме это займёт очень много времени и немеренно постов набиваться будет (IMG:style_emoticons/default/sad.gif)

[Kyryk]

Исходный код

// main config
set #is_fish_equiped 1 // одета ли сейчас удочка
set #use_window_core 1 // разместить окно как положено?
set #use_shutdown 0 // выключить компьютер по окончании рыбалки

set $fishing_list 2

set $fishing F1
set $pumping F2
set $reeling F3
set $fishing_shot F4
set $weapon1 F5
set $weapon2 F6
set $fishing_rod F7
set $fishing_lure F8
set $attack1 F9
set $attack2 F10
set $targetattacker F11
set $sitstand F12
set $weight_bar_key Tab

// position config
set #window_left -4
set #window_top -23
set #window_width 1288
set #window_height 1024

set #fish_window_x 175 // позиция заголовка окна рыбалки по х
set #fish_window_y 113 // позиция заголовка окна рыбалки по у
set #fish_window_c 3020813 //цвет в даной точке

set #fish_hp_start 114 // самая левая точка хп рыбы
set #fish_hp_end 342 // самая правая точка
set #fish_hp_line 340 // y-коордианата, где мы цвет хп замеряли
set #fish_hp_color 15510558 // цвет хп рыбки

set #mob_bar_x 755
set #mob_bar_y 30
set #mob_bar_c 3414288

set #hp_bar_x 161
set #hp_bar_y 47
set #hp_bar_c 1573045

set #mp_bar_x 161
set #mp_bar_y 61
set #mp_bar_c 13524992

set #weight_bar_x 1174 // штука, которая отрубает скрипт при перегрузе - соответственно точка отвечающая за перегруз, вообще можно отрубить нафиг - глючное
set #weight_bar_y 622
set #weight_bar_c 14473692

// perfomance settings
set #fish_hp_inc 1700 // время в мс, за которое у рыбы должны подняться хп
set #send_key_timeout 120 // в течении этого времени нажимается клавиша пампинг / рилинг, необходимо для корректной работы
set #mob_timer 0 // время которое подождать, после рыбалки и перед поиском моба

// script_core

sendex @{F$fishing_list}

if_not #use_window_core = 0
set windowpos #window_left #window_top #window_width #window_height
end_if
if #is_fish_equiped = 0
gosub do_equip_fish
end_if

// activate window and cancel current target
sendex {Escape}

//script_start
:start
send $fishing
get color #fish_window_color #fish_window_x, #fish_window_y
while_not #fish_window_color = #fish_window_c
get color #fish_window_color #fish_window_x, #fish_window_y
wait 20
end_while
get color #fish_bar_color #fish_hp_start #fish_hp_line
while #fish_bar_color <> #fish_hp_color AND #fish_window_color = #fish_window_c
get color #fish_window_color #fish_window_x, #fish_window_y
get color #fish_bar_color #fish_hp_start #fish_hp_line
wait 20
end_while
while #fish_bar_color = #fish_hp_color AND #fish_window_color = #fish_window_c
gosub get_bar_state
set #fish_hp_value_old #fish_hp_value
set timer
while timer < #fish_hp_inc AND #fish_hp_value = #fish_hp_value_old
gosub get_bar_state
wait 20
end_while
if #fish_hp_value = #fish_hp_value_old
set $key $pumping
else
set $key $reeling
end_if
set timer
while timer < #send_key_timeout
send $fishing_shot
send $key
end_while
wait 1200
get color #fish_window_color #fish_window_x, #fish_window_y
get color #fish_bar_color #fish_hp_start #fish_hp_line
end_while
gosub i_wish_survive
get color #c #weight_bar_x, #weight_bar_y
get color #new_c #weight_bar_x, #weight_bar_y
send $weight_bar_key
while #c = #new_c
wait 50
get color #c #weight_bar_x, #weight_bar_y
end_while
if_not #weight_bar_x, #weight_bar_y #weight_bar_c
if #use_shutdown = 1
exec shutdown -s
end_if
end_script
end_if
send $weight_bar_key
goto start
end_script

:do_equip_fish
send $fishing_rod
wait 200
send $fishing_lure
wait 200
return

:get_bar_state
set #bar_width #fish_hp_end - #fish_hp_start + 1
set #x #fish_hp_start
get color #c #x, #fish_hp_line
while #c = #fish_hp_color
set #x #x + 1
get color #c #x, #fish_hp_line
end_while
set #fish_hp_value #x - #fish_hp_start
return

:i_wish_survive
wait #mob_timer
send F11
wait 300
if #mob_bar_x, #mob_bar_y #mob_bar_c
send $weapon1
wait 200
send $weapon2
wait 200
while #mob_bar_x, #mob_bar_y #mob_bar_c
send $attack1
send $attack2
wait 500
end_while
gosub do_equip_fish
gosub heal
end_if
return

:heal
send $sitstand
wait 1000
get color #hp #hp_bar_x, #hp_bar_y
get color #mp #mp_bar_x, #mp_bar_y
while #hp <> #hp_bar_c OR #mp <> #mp_bar_c
wait 500
get color #hp #hp_bar_x, #hp_bar_y
get color #mp #mp_bar_x, #mp_bar_y
end_while
send $sitstand
wait 1000
return

Вот что у меня получилось, вобщем скриптик заработал, огромное С П А С И Б О Destruction-у за оказаную поддержку.

P.S. Один оч значимый момент в окошке скрипт на пилоте, есть время задержки при переходе между строками ставим 0

1.9 - Любой код, превышающий 2 строки должен быть помещен в теги [ code ][ /code ]

[Teo]

Уже месяц бъюсь на этим скриптом(IMG:style_emoticons/default/sad.gif)
Если бы хоть что-то знал в скриптописании может у меня бы и получилось...
Удочку закидывает, но останавливается на стадии

Код

while_not #fish_window_color = #fish_window_c
        get color #fish_window_color #fish_window_x, #fish_window_y
        wait 20

Может нужно эти все цыфры ещё в самом коде прописывать? Или только как у вас в описании сверху?
Голова опухла, а результата 0 (IMG:style_emoticons/default/sad.gif)
Там вон есть описание позиции окна, но у меня окно (насколько я понял) не там где у вас...
Сбрасывал в клиете настроки по умолчанию "Окно рыбалки" в середине выходит, по вашему скрипту оно в левом верхнем углу где-то.
Прописывал свои значения, всё равно тупо забрасывает удочку и всё(IMG:style_emoticons/default/sad.gif)
Сделайти пожалуйсто скрин окна рыбалки(IMG:style_emoticons/default/smile.gif)
Или расскажите по пунктам чё делаю я не так, А что надо? (IMG:style_emoticons/default/smile.gif)
И чё такое F11 ?
Заранее Благодарен!

P.S. Kyryk я вам в асю уже месяц стучусь(IMG:style_emoticons/default/smile.gif) Вы там бываете?
Моя ася кто может помочь 324175824

[Destruction]

Код

while_not #fish_window_color = #fish_window_c
    get color #fish_window_color #fish_window_x, #fish_window_y
    wait 20
end_while

Ну так очевидно - вы хреново настроили.

Проверьте переменные #fish_window_x, #fish_window_y, #fish_window_c.

[Teo]

Так я понимаю что я вообще "хреновый настройщик" (IMG:style_emoticons/default/smile.gif)
А как их проверить ? (IMG:style_emoticons/default/smile.gif)
Я уже поразному эти переменный тыкал...
Что значит позиция заголовка окна по Х? Это где точку брать? В ценре окна? скраю? в середине?
Я брал левый верхний угол, прописывал точкии, цвет (вызывая вашу прогу, наводя на окно клиента мышь и тиская стрл А), не помогло...
Пробовал сместить это окно рыбалки, примерно на Ваши координаты, не помогло...
Почему у меня с Вашим скриптом совсем разный цвет, да и сами позиции, ну цыферные эти значения?
У "Kyryk" например с Вашими значениями небольшие только отклонения, у меня они обсолютно разные...
Можете мне на пальцах, как ребёнку когда учат букАвам, объяснить ? (IMG:style_emoticons/default/smile.gif)

Спасибо, даже за этот ответ!:)

[Destruction]

Не можем, это вам не автомобиль на котором можно за полчаса научиться рассекать -)

Касательно переменных - то имеется ввиду заголовок окна рыбалки.

Касательно различий - возможно у нас дико разное разрешение ? -)

PS: Хз как делал, када юзал скрипт, а сейчас я каждое окно линейки делаю set windowpos -4 -23 1288 1016

[Teo]

На автомобиле сам тоже не поедешь, если первый раз его видишь(IMG:style_emoticons/default/smile.gif) Нужно чтобы посказывали(IMG:style_emoticons/default/smile.gif)

Заголовок, понятно что окна рыбалки! Но какой именно точки? Заголовок то большой, там много места...

А разрешение у Вас прописано, окно автоматом разворачивается как у вас написано в скрипте...

Случаем нету у вас скрипта, чтобы он "тупо" ловил рыбу, и всё? Не лечилки не пил, не вес не смотрел, и мобов бить ненадо!
Только выдёргивал из пруда рыбу!?

Немогли бы ли Вы, такой заварганить?

Блин, впервые встречаю Админа, который отвечает не через неделю!!:)
Спасибо!

[Dimitriy]

Доброго...
У меня вообще послал с этой командой.И вообще если не секрет хачем задавать разрешение(еслия не обшибаюсь) в скрипте,если натсройки всёравно ижут относительные (IMG:style_emoticons/default/blink.gif)
Вообщем попытался что-то раобрат,но не получилось-слишком много циклов причём непонятно зачем.вроде запустил но циклит-знаю потому что не настроил.Вообщем спс так как то что понял то и использовал,получилось примерно такое:

Исходный код

set $fishing F1
set $pumping F2
set $reeling F3
set $fishing_shot F4
set $weapon1 F5
set $weapon2 F6
set $fishing_rod F7
set $fishing_lure F8
set $attack1 F9
set $attack2 F10
set $finetarget F11
set $pickup F12
set $weight_bar_key Tab
set $shutdowncomp 0 //выключить компьютер как кончиться наживка

set #fish_hp_start 191 // самая левая точка хп рыбы желательнее использовать +1
set #fish_hp_end 420 // самая правая точка
set #fish_hp_line 462 // y-коордианата, где мы цвет хп замеряли
set #fish_hp_color 15510046 // цвет хп рыбки
set #fish_hp_color1 1576018 // цвет незаполненой полоски рыбы
set #time_izmenenia_hp 1000 //время через сколько происходит изенение хп рыбы
set #step_find_hp 20 //шаг поиска полоски хп
set #mob_hp_start 605 //самая левая точка хп моба
set #mob_hp_line 28 // y-коордианата, где мы цвет хп замеряли моба
set #mob_hp_color 4331734 // цвет хп моба
set #x_lfishing_shot 506//координаты 4 ячейки с наживкой(х)
set #y_lfishing_shot 705//координаты 4 ячейки с наживкой(y)
set #color_lfishing_shot 1250067 //цвет пустой 4 ячейки в этих координатах
set #x_lure 660//координаты 8 ячейки с наживкой(х)
set #y_lure 705//координаты 8 ячейки с наживкой(y)
set #color_lure 1250067 //цвет пустой 8 ячейки в этих координатах
set #x_window 308//заголовок окна рыбалки(х) // не важно чде именно-главное заголовок
set #y_window 233//заголовок окна рыбалки(y)
set #color_window 3414288 //цвет заголовка окна рыбалки в выбранной точке

:zabros
wait 2000
send $finetarget //проверка появления моба
if #mob_hp_start, #mob_hp_line #mob_hp_color
send $weapon1
send $weapon2
While #mob_hp_start, #mob_hp_line #mob_hp_color //килл моба
send $attack1
wait 200
send $attack2
wait 200
end_while
send $pickup
wait 200
send $pickup
wait 200
send $fishing_rod
send $fishing_lure
wait 500
end_if

if #x_lure #y_lure #color_lure and #shutdowncomp = 1
exec shutdown -s
end_if

send $fishing
wait 2000
:klev
if_not #fish_hp_end #fish_hp_line #fish_hp_color1
if_not #x_window #y_window #color_window
goto zabros
end_if
goto klev
end_if

:poisk

if_not #x_lfishing_shot #y_lfishing_shot #color_lfishing_shot
send $fishing_shot //соcка и использование нужного скила
end_if

set #i #fish_hp_start
set #j #fish_hp_start

while #i #fish_hp_line #fish_hp_color //поиск метки
set #i #i + #step_find_hp
end_while
if_not #i #fish_hp_line #fish_hp_color
set #i #i - #step_find_hp
end_if
while #i #fish_hp_line #fish_hp_color //поиск метки
set #i #i + 1
end_while

wait #time_izmenenia_hp

while #j #fish_hp_line #fish_hp_color //поиск изменений
set #j #j + #step_find_hp
end_while
if_not #j #fish_hp_line #fish_hp_color
set #j #j - #step_find_hp
end_if
while #j #fish_hp_line #fish_hp_color //поиск изменений
set #j #j + 1
end_while

if #i = #j
send $pumping
else
send $reeling
end_if

wait 500

if #x_window #y_window #color_window //проверка выловили или нет
goto poisk
else
goto zabros
end_if

З,Ы, Если что извините,тестил я его мало.Впринципе кроме координат,тут основным параметром являеться шаг поиска хп рыбы.Если его сделать слишком большим то будет медлено работать,если очень маленьким то эфект такойже как и от большого.
Паузу прохождения(число снизу в программе) лучше ставить 1,если ставить 0 то он дёргает раньше чем определяет как дергать (IMG:style_emoticons/default/rolleyes.gif)

[Teo]

Всё равно ничего невышло(IMG:style_emoticons/default/sad.gif)
Как вообще определить цвет, когда запущено окно линейдж?
Я так понял у меня в этом трабл, так как "циклит" как Вы тут сказали, уже на первом же шагу ища заголовок окна...
Я могу узнать точку, навёл нажал стрл+А, НО это при открытом окне вашей проги!
А так, Ваша програма, не сохраняет точку (и цвет) если клиент игры поверх её. Или скорее я просто неумею этого делать(IMG:style_emoticons/default/sad.gif)
Думаю может в этом и есть проблемма?
Когда Ваша программа активна (на первом плане), окно линейджа немного притухает и возможно меняет цвета?
И всё же, цифры котоные сверху написаны (и подписаны), писать в теле самого скрипта, надо??

[Dimitriy]

Всё равно ничего невышло(IMG:style_emoticons/default/sad.gif)
Как вообще определить цвет, когда запущено окно линейдж?
Я так понял у меня в этом трабл, так как "циклит" как Вы тут сказали, уже на первом же шагу ища заголовок окна...
Я могу узнать точку, навёл нажал стрл+А, НО это при открытом окне вашей проги!
А так, Ваша програма, не сохраняет точку (и цвет) если клиент игры поверх её. Или скорее я просто неумею этого делать(IMG:style_emoticons/default/sad.gif)
Думаю может в этом и есть проблемма?
Когда Ваша программа активна (на первом плане), окно линейджа немного притухает и возможно меняет цвета?
И всё же, цифры котоные сверху написаны (и подписаны), писать в теле самого скрипта, надо??

то что ты нажал ctrl+A программа не зарабтает,те числа что написаны в скрипте тебе надо изменить на свои как раз на те что покажут при нажатие на ctrl+A.Далее скрипт лучше запускать с горячих клавиш.
При работе скрипта окно держи активным так как(ну может только у меня так) окно линейки тогда начинает притормаживать прорисовку и есть возможность зацикливания или вообще качество работы скрипта ухудшиться.Есть недачёт что повремя раоты скрипта ты можешь нажать что-то в окне линейки(скажем инвентарь) и окно рыбалки потеряет фокус и логично цвета станут другими.

[Teo]

Не, ну это понятно, я естесно меняю цифры на свои(IMG:style_emoticons/default/smile.gif)
Но, беру я их при активной (поверх линедж) програме Пилота.
Цвет походу у окна линейджа другой тогда, потому (наверное) и циклит постоянно сразу же на заголовке окна рыбалки(IMG:style_emoticons/default/sad.gif)
Ладно, буду выходной ещё поиграюсь в програмиста(IMG:style_emoticons/default/smile.gif)
Но уж извините, буду Вас террорезировать(IMG:style_emoticons/default/smile.gif)

З.Ы. Что такое "set $finetarget F11" ?? что туда ставить в этот слот?

[Destruction]

set $finetarget F11

Могу предположить, что это /target [mob_name]