Deltarune (Chapter 4) script viewer

if (
scr_debug
scr_debug

function 
scr_debug()
{
    if (global.debug == 1)
        return 1;
}
())

{

    var _change = false;

    if (keyboard_check_pressed(ord("K")))

        toggle_effect();

    if (keyboard_check_pressed(ord("P")))

    {

        if (!active)

            active = true;

        show_debug = !show_debug;

        if (!show_debug)

            scr_debug_delete_persistent("Rainshader");

        _change = true;

    }

    if (keyboard_check_pressed(ord("O")))

    {

        color_overlay = !color_overlay;

        event_user(0);

    }

    if (show_debug)

    {

        if (keyboard_check_pressed(ord("Q")))

        {

            _change = true;

            rain_style--;

        }

        if (keyboard_check_pressed(ord("E")))

        {

            _change = true;

            rainsplash = !rainsplash;

        }

        if (keyboard_check_pressed(ord("W")))

        {

            _change = true;

            rain_style++;

        }

        if (keyboard_check_pressed(ord("H")))

        {

            _change = true;

            xdir = 0 - xdir;

            
scr_debug_print
scr_debug_print

function 
scr_debug_print(arg0)
{
}

function print_message(arg0)
{
}

function debug_print(arg0)
{
}

function scr_debug_clear_all()
{
    scr_debug_clear_persistent();
}
("Flipped rain direction");

        }

        if (keyboard_check_pressed(ord("T")))

        {

            _change = true;

            genspeed--;

        }

        if (keyboard_check_pressed(ord("Y")))

        {

            _change = true;

            genspeed++;

        }

        if (keyboard_check_pressed(ord("U")))

        {

            _change = true;

            speed_mul--;

            if (speed_mul <= 0)

                speed_mul = 1;

        }

        if (keyboard_check_pressed(ord("I")))

        {

            _change = true;

            speed_mul++;

        }

    }

    if (_change)

    {

        rain_style = scr_loop(rain_style, 6);

        if (rain_style < 2 || rain_style == 4)

        {

            xspeed = 1;

            yspeed = 2;

        }

        else if (rain_style < 4)

        {

            xspeed = 2;

            yspeed = 2;

        }

        else

        {

            xspeed = 0;

            yspeed = 1;

        }

        if (rain_style >= 4)

        {

            sprite_index = rain_sprite[rain_style];

            if (rain_style == 4 && xdir == -1)

                sprite_index = spr_lw_rain_style_e_flip;

        }

    }

    event_user(0);

}

if (!active)

    exit;

if (global.interact == 3 && !room_exit)

{

    room_door = true;

    var _found = false;

    with (obj_doorAny)

    {

        if (touched == 1 && doorRoom == room_schoollobby)

        {

            _found = true;

            break;

        }

    }

    if (!_found)

    {

        with (obj_doorX_musfade)

        {

            if (touched == 1)

            {

                _found = true;

                break;

            }

        }

    }

    if (_found)

        event_user(2);

}

if (!init)

{

    var _entering = false;

    if (array_length(global.currentsong) <= 2 || !snd_is_playing(global.currentsong[3]))

    {

        global.currentsong[2] = snd_init("raining.ogg");

        global.currentsong[3] = mus_loop(global.currentsong[2]);

        global.currentsong[4] = snd_init("raining_in_church2.ogg");

        global.currentsong[5] = mus_loop(global.currentsong[4]);

        mus_volume(global.currentsong[5], 0, 0);

        _entering = true;

    }

    if (prewarm)

    {

        if (!crossfade)

            mus_volume(global.currentsong[3], 0.5, 14);

        build_timer = 120;

    }

    else

    {

        mus_volume(global.currentsong[3], 0, 0);

        build_timer = 0;

    }

    if (room == room_beach)

        instance_create(obj_wave_fx.x, obj_wave_fx.y, obj_wave_fx_raining);

}

var _gen = genspeed;

if (build_timer < 120 && !wrap_up)

{

    build_timer++;

    _gen = floor(lerp(genspeed - 20, genspeed, build_timer / 120));

    if (build_timer == 100)

        rainsplash = true;

    if (build_timer < 120)

    {

        drop_timer++;

        if (drop_timer >= drop_wait)

        {

            drop_timer = 0;

            drop_wait = max(drop_wait * 0.75, 2);

        }

    }

    if (build_timer == 10)

        mus_volume(global.currentsong[3], 0.5, 110);

}

if (wrap_up)

{

    if (build_timer > 0)

        build_timer--;

    if (build_timer < 100)

        exit;

    if (build_timer == 0)

        instance_destroy();

}

dropcount = instance_number(obj_lw_raindrop);

if (rain_style < 4)

{

    if (timer >= 0 && dropcount < max_particles)

    {

        if (prewarm)

            cam_x = camerax();

        var _xbuffer = xspeed * 240;

        var _xrange = 320 + (xspeed * 240);

        var _offx = 320;

        if (!prewarm && cam_y != cameray() && !ypan)

        {

            var _ydiff = abs(cam_y - cameray());

            if (dropcount < (genspeed * 25))

                _gen += _ydiff;

            else if (dropcount > (genspeed * 30))

                _gen -= _ydiff;

        }

        var _spawncount = max(_gen, 1);

        if (prewarm)

            _spawncount *= 25;

        if (xdir > 0)

            _offx = 0;

        var _speed = speed_mul;

        speed_sin++;

        repeat (_spawncount)

        {

            var _raindrop;

            if (prewarm)

            {

                _raindrop = instance_create(camerax() + irandom(360) + (32 * xdir), (cameray() - 38) + irandom(278), obj_lw_raindrop);

                if (inherit_visibility)

                    _raindrop.visible = visible;

            }

            else

            {

                var _side_random = irandom(360) + (32 * xdir);

                var _foff = irandom(speed_mul * yspeed);

                _raindrop = instance_create((camerax() + _side_random) - (_foff * xspeed * xdir), cameray() - (_foff * yspeed), obj_lw_raindrop);

                if (inherit_visibility)

                    _raindrop.visible = visible;

            }

            _raindrop.sprite_index = rain_sprite[rain_style];

            _raindrop.image_speed = 0;

            _raindrop.image_index = irandom(9);

            _raindrop.hspeed = xspeed * xdir * _speed;

            _raindrop.vspeed = yspeed * _speed;

            _raindrop.depth = depth - 10;

            _raindrop.image_xscale *= xdir;

        }

        dropcount += _spawncount;

        if (prewarm)

            prewarm = false;

        timer = _gen;

    }

    else

    {

        timer++;

    }

}

else

{

    timer++;

    if (timer >= (sprite_height * sprite_width))

        timer -= (sprite_height * sprite_width);

}

cam_y = cameray();

init = true;