if (view_current != 0)
    exit;
siner++;

wprog = function(arg0, arg1, arg2)
{
    var _range = arg2 - arg1;
    var _progress = 0;
    if (_range != 0)
        _progress = (arg0 - arg1) / _range;
    return max(_progress, 0);
};

var _start = 240;
var _end = 928;
var spritecount = 47;
var val1 = lerp_in_back(0, 1, wprog(x, _start, _end)) * spritecount;
var val2 = lerp_in_cubic(0, 1, wprog(x, _start, _end)) * spritecount;
var val3 = lerp(val1, val2, 2/3);
submergeamount = round(val3);
var truind = submergeamount + 1;
var ind = clamp(truind, 1, 47);
var spr = asset_get_index("spr_ch5_LW20W_downing_" + string(ind));
shadowSub = round(submergeamount / 2);
if (truind > 50)
{
    var stx = _end;
    var enx = 1066;
    var enx2 = 1295;
    var framecount = 14;
    var animframeInd = round(wprog(x, stx, enx) * framecount);
    if (animframeInd > 7)
        animframeInd = round(clamp(wprog(x, enx, enx2), 0, 1) * framecount) + 7;
    shadowSub = 22 + animframeInd;
}
if (truind < 123)
{
    var shadlength = 58;
    shadlength = floor(lerp(58, 0, scr_xprog(shadowSub, 0, 33, true)));
    var yoff1 = 0;
    if (x < 420)
        yoff1 = -1;
    var yoff2 = 0;
    if (x < 400)
        yoff2 = -1;
    var shadcol = 68425;
    draw_sprite_ext(spr_pxwhite, 0, ((x - 20) + 14) - 2, y + 44 + yoff1, -shadlength, 2, 0, shadcol, 1);
    draw_sprite_ext(spr_pxwhite, 0, ((x - 20) + 14) - 2, y + 45 + yoff1, -shadlength - 1, 1, 0, shadcol, 1);
    if (x > 398 && x < 420)
    {
        var scale = (x + 15) - 406;
        draw_sprite_ext(spr_pxwhite, 0, 406, 142, scale, 2, 0, shadcol, 1);
        draw_sprite_ext(spr_pxwhite, 0, 386, 141, 20, 2, 0, shadcol, 1);
    }
    else
    {
        var xoff = 0;
        if (x < 420)
        {
            if (floor(animindex) == 1 || floor(animindex) == 3)
                xoff = 1;
        }
        if (x >= 470)
            xoff -= 6;
        if (x >= 920)
            xoff -= 2;
        if (shadlength > 0)
        {
            draw_sprite_ext(spr_pxwhite, 0, x + 14 + xoff, y + 44 + yoff2, 10 - shadlength, 2, 0, shadcol, 1);
            draw_sprite_ext(spr_pxwhite, 0, x + 14 + xoff, y + 45 + yoff2, 10 - shadlength - 1, 1, 0, shadcol, 1);
        }
    }
}
if (truind <= 50)
{
    var animframe = animindex;
    if (truind > 46)
        animframe = 0;
    draw_sprite_ext(spr, animframe, x - 17, y, image_xscale, image_yscale, image_angle, image_blend, image_alpha);
}
else
{
    if (submerged == false)
    {
        submerged = true;
        show_debug_message_concat(x);
    }
    var stx = _end;
    var enx = 1066;
    var enx2 = 1295;
    var framecount = 14;
    var animframe = round(wprog(x, stx, enx) * framecount);
    if (animframe > 7)
        animframe = round(clamp(wprog(x, enx, enx2), 0, 1) * framecount) + 7;
    if (animframe < 14)
        draw_sprite_ext(spr_ch5_LW20W_downing_50, animframe, x - 17, y, 1, 1, 0, c_white, 1);
}
_truind = truind;