_sprite = -4;
_flag = -1;
_frames = -1;
_sprite_index = 0;
_enabled = false;
_prev_prev_index = -4;
_prev_index = -4;
_current_index = -4;
_next_index = -4;
_next_next_index = -4;
_prev_prev_x_pos = 0;
_prev_x_pos = 0;
_current_x_pos = 0;
_next_x_pos = 0;
_next_next_x_pos = 0;
_prev_prev_alpha = 0;
_prev_alpha = 0;
_current_alpha = 1;
_next_alpha = 0;
_next_next_alpha = 0;
_x_offset = -70;
_y_offset = 80;

init = function(arg0, arg1)
{
    _sprite = arg0;
    _flag = arg1;
    var sprite_info = sprite_get_info(arg0);
    var frames = sprite_info.num_subimages;
    _frames = frames;
    _sprite_index = scr_flag_get(_flag);
    _prev_prev_index = get_prev_prev_index();
    _prev_index = get_prev_index();
    _current_index = scr_flag_get(_flag);
    _next_index = get_next_index();
    _next_next_index = get_next_next_index();
    _prev_prev_x_pos = -240 + _x_offset;
    _prev_x_pos = -120 + _x_offset;
    _current_x_pos = 0 + _x_offset;
    _next_x_pos = 120 + _x_offset;
    _next_next_x_pos = 240 + _x_offset;
};

enable = function()
{
    scr_lerpvar("_prev_alpha", _prev_alpha, 0.5, 3);
    scr_lerpvar("_next_alpha", _next_alpha, 0.5, 3);
};

disable = function()
{
    scr_lerpvar("_prev_alpha", _prev_alpha, 0, 3);
    scr_lerpvar("_next_alpha", _next_alpha, 0, 3);
};

clean_up = function()
{
    instance_destroy();
};

get_prev_index = function()
{
    return scr_wrap(_sprite_index - 1, 0, _frames - 1);
};

get_next_index = function()
{
    return scr_wrap(_sprite_index + 1, 0, _frames - 1);
};

get_prev_prev_index = function()
{
    return scr_wrap(_sprite_index - 2, 0, _frames - 1);
};

get_next_next_index = function()
{
    return scr_wrap(_sprite_index + 2, 0, _frames - 1);
};

scroll_left = function()
{
    var current_x_pos = _current_x_pos;
    var next_x_pos = _next_x_pos;
    var next_next_x_pos = _next_next_x_pos;
    var prev_x_pos = _prev_x_pos;
    var prev_prev_x_pos = _prev_prev_x_pos;
    var time = 4;
    scr_lerpvar("_current_x_pos", _current_x_pos, next_x_pos, time, 2, "out");
    scr_lerpvar("_next_x_pos", _next_x_pos, next_next_x_pos, time, 2, "out");
    scr_lerpvar("_prev_x_pos", _prev_x_pos, current_x_pos, time, 2, "out");
    scr_lerpvar("_prev_prev_x_pos", _prev_prev_x_pos, prev_x_pos, time, 2, "out");
    scr_lerpvar("_prev_prev_alpha", _prev_prev_alpha, 0.5, time);
    scr_lerpvar("_prev_alpha", _prev_alpha, 1, time);
    scr_lerpvar("_next_alpha", _next_alpha, 0, time);
    scr_lerpvar("_current_alpha", _current_alpha, 0.5, time);
    scr_script_delayed(function()
    {
        _prev_prev_x_pos = -240 + _x_offset;
        _prev_x_pos = -120 + _x_offset;
        _current_x_pos = 0 + _x_offset;
        _next_x_pos = 120 + _x_offset;
        _next_next_x_pos = 240 + _x_offset;
        _prev_prev_alpha = 0;
        _prev_alpha = 0.5;
        _current_alpha = 1;
        _next_alpha = 0.5;
        _next_next_alpha = 0;
        _prev_prev_index = get_prev_prev_index();
        _prev_index = get_prev_index();
        _current_index = scr_flag_get(_flag);
        _next_index = get_next_index();
        _next_next_index = get_next_next_index();
    }, time + 1);
};

scroll_right = function()
{
    var current_x_pos = _current_x_pos;
    var next_x_pos = _next_x_pos;
    var next_next_x_pos = _next_next_x_pos;
    var prev_x_pos = _prev_x_pos;
    var prev_prev_x_pos = _prev_prev_x_pos;
    var time = 4;
    scr_lerpvar("_current_x_pos", _current_x_pos, prev_x_pos, time, 2, "out");
    scr_lerpvar("_next_x_pos", _next_x_pos, current_x_pos, time, 2, "out");
    scr_lerpvar("_next_next_x_pos", _next_next_x_pos, next_x_pos, time, 2, "out");
    scr_lerpvar("_prev_x_pos", _prev_x_pos, prev_prev_x_pos, time, 2, "out");
    scr_lerpvar("_next_next_alpha", _prev_prev_alpha, 0.5, time);
    scr_lerpvar("_prev_alpha", _prev_alpha, 0, time);
    scr_lerpvar("_next_alpha", _next_alpha, 1, time);
    scr_lerpvar("_current_alpha", _current_alpha, 0.5, time);
    scr_script_delayed(function()
    {
        _prev_prev_x_pos = -240 + _x_offset;
        _prev_x_pos = -120 + _x_offset;
        _current_x_pos = 0 + _x_offset;
        _next_x_pos = 120 + _x_offset;
        _next_next_x_pos = 240 + _x_offset;
        _prev_prev_alpha = 0;
        _prev_alpha = 0.5;
        _current_alpha = 1;
        _next_alpha = 0.5;
        _next_next_alpha = 0;
        _prev_prev_index = get_prev_prev_index();
        _prev_index = get_prev_index();
        _current_index = scr_flag_get(_flag);
        _next_index = get_next_index();
        _next_next_index = get_next_next_index();
    }, time + 1);
};