Lineage2, Interlude Опции

[daffnik]

Добрый вечер. Я конечно понимаю что программа основана в первую очередь для УО, но может у кого то получилось написать скрипт на ловлю рыбы в Lineage? Знающие люди, помогите пожалуйста (IMG:style_emoticons/default/smile.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 ]