Deltarune (Chapter 3) script viewer

if (
scr_debug
scr_debug

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

{

    if (keyboard_check_pressed(ord("1")))

    {

        state = "wave_outro";

        wave = 0;

        timer = -1;

        
scr_debug_print
scr_debug_print

function 
scr_debug_print(arg0)
{
}

function print_message(arg0)
{
}

function debug_print(arg0)
{
}

function scr_debug_clear_all()
{
}
("switch to wave 1");

    }

    if (keyboard_check_pressed(ord("2")))

    {

        state = "wave_outro";

        wave = 1;

        timer = -1;

        
scr_debug_print
scr_debug_print

function 
scr_debug_print(arg0)
{
}

function print_message(arg0)
{
}

function debug_print(arg0)
{
}

function scr_debug_clear_all()
{
}
("switch to wave 2");

    }

    if (keyboard_check_pressed(ord("3")))

    {

        state = "wave_outro";

        wave = 2;

        timer = -1;

        
scr_debug_print
scr_debug_print

function 
scr_debug_print(arg0)
{
}

function print_message(arg0)
{
}

function debug_print(arg0)
{
}

function scr_debug_clear_all()
{
}
("switch to wave 3");

    }

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

        kris_hp = 5;

}

if (i_ex(obj_tenna_enemy))

{

    tennatimer++;

    if (tennatimer == 270 && obj_tenna_zoom.con != 2 && obj_tenna_zoom.minigameinsanity == false)

    {

        with (obj_tenna_zoom)

        {

            con = 2;

            timer = -1;

        }

    }

}

shootout_endtimer++;

if (shootout_type == 0 && shootout_endtimer > 540)

    stopspawns = true;

if (shootout_type == 0 && shootout_endtimer > 600)

    endminigame = true;

if (shootout_type == 1 && shootout_endtimer > 540)

    stopspawns = true;

if (shootout_type == 1 && shootout_endtimer == 600)

    endminigame = true;

if (shootout_type == 2 && shootout_endtimer > 540)

    stopspawns = true;

if (shootout_type == 2 && shootout_endtimer == 600)

    endminigame = true;

switch (state)

{

    case "intro":

        kris_actionable = false;

        var _intro_duration = 5;

        current_train = shootout_carriages[0];

        kris_x = ease_out_back(ease_in_sine(max(0, timer - 0), 0, _intro_duration, _intro_duration), -120, 180, _intro_duration - 0);

        train_x_prev = 650;

        train_x_target = -current_train.x_offset + 150;

        train_x = ease_out_sine(timer, train_x_prev, train_x_target - train_x_prev, _intro_duration);

        if (timer >= _intro_duration)

        {

            kris_actionable = true;

            state = "main";

            timer = -1;

            aim_x = current_window.x;

            aim_y = current_window.y;

        }

        break;

    case "wave_intro":

        kris_actionable = false;

        current_train = shootout_carriages[wave - 1];

        train_x_target = -current_train.x_offset + 150;

        var _intro_duration = 120;

        if (i_ex(obj_tenna_enemy))

        {

            layer_hspeed(bg, lerp(layer_get_hspeed(bg), -(wave * 1), timer / _intro_duration));

            layer_hspeed(md_back, lerp(layer_get_hspeed(md_back), -(wave * 2), timer / _intro_duration));

            layer_hspeed(md, lerp(layer_get_hspeed(md), -(wave * 3), timer / _intro_duration));

            layer_hspeed(fg, lerp(layer_get_hspeed(fg), -4 - (wave * 4), timer / _intro_duration));

        }

        else

        {

            layer_hspeed("bg", lerp(layer_get_hspeed("bg"), -(wave * 1), timer / _intro_duration));

            layer_hspeed("md_back", lerp(layer_get_hspeed("md_back"), -(wave * 2), timer / _intro_duration));

            layer_hspeed("md", lerp(layer_get_hspeed("md"), -(wave * 3), timer / _intro_duration));

            layer_hspeed("fg", lerp(layer_get_hspeed("fg"), -4 - (wave * 4), timer / _intro_duration));

        }

        var _factor = ease_in_sine(timer, 0, 1, _intro_duration);

        train_x = ease_out_back(_factor, train_x_prev, train_x_target - train_x_prev, 1, 1);

        with (obj_shootout_carriage)

            image_speed = lerp(image_speed, 0.5 + (other.wave * 0.5), 0.2);

        if (timer >= _intro_duration)

        {

            kris_actionable = true;

            state = "main";

            timer = -1;

            aim_x = current_window.x;

            aim_y = current_window.y;

        }

        break;

    case "wave_outro":

        hazard_warning = -1;

        kris_actionable = false;

        train_x_target = -current_train.x_offset + 150;

        if (timer == 0)

        {

            with (obj_shootout_window)

                event_user(14);

        }

        if (timer < 10)

        {

            train_x = lerp(train_x, train_x_target, 0.2);

        }

        else

        {

            train_x_prev = train_x_target;

            timer = -1;

            if (wave < 3)

                wave++;

            state = "wave_intro";

        }

        break;

    case "main":

        train_x = train_x_target + (sin(timer / 20) * 10);

        if (obj_shootout_controller.shootout_type == 3)

        {

            with (obj_shootout_window)

                krspopout = false;

            with (obj_shootout_window)

                event_user(12);

        }

        var _prev_col = current_window_column;

        var _prev_row = current_window_row;

        current_window_column = (1 + right_h()) - left_h();

        current_window_column = clamp(current_window_column, 0, window_columns - 1);

        current_window_row = (1 + down_h()) - up_h();

        current_window_row = clamp(current_window_row, 0, window_rows - 1);

        var _new_window = windows[current_window_column][current_window_row];

        if (_new_window.active == false)

        {

            current_window_column = _prev_col;

            current_window_row = _prev_row;

        }

        else

        {

            current_window = _new_window;

            current_window.krspopout = true;

        }

        aim_x = lerp(aim_x, current_window.x, 0.7);

        aim_y = lerp(aim_y, current_window.y, 0.7);

        if (point_distance(aim_x, aim_y, current_window.x, current_window.y) < 3)

        {

            aim_x = current_window.x;

            aim_y = current_window.y;

        }

        if ((timer % 120) == 0)

        {

            if (irandom(2) == 0)

            {

            }

        }

        if (hazard_warning >= 0 && endminigame == false)

        {

            if (hazard_warning == 0)

            {

                var _hazard = instance_create_depth(640, kris_y_ground, depth - 1, obj_shootout_cactus);

                _hazard.hspeed = -4 - (wave * 4);

            }

            hazard_warning--;

        }

        if (timer == 0 && endminigame == false)

        {

            pattern_performed = array_create(50, 0);

            pattern = -1;

            pattern_timer = 0;

        }

        if (pattern == -1 && endminigame == false)

        {

            var _a = 0;

            if (shootout_type > 0)

                _a = 0.5;

            var _speedfactor_start, _speedfactor_end;

            switch (wave)

            {

                case 1:

                    _speedfactor_start = 2 + random(1) + _a;

                    _speedfactor_end = _speedfactor_start + random(0.5) + _a;

                    break;

                case 2:

                    _speedfactor_start = 1.5;

                    _speedfactor_end = 3;

                    break;

                case 3:

                    _speedfactor_start = 2.5;

                    _speedfactor_end = 4;

                    break;

            }

            speedfactor = lerp(_speedfactor_start, _speedfactor_end, clamp(timer / wave_duration, 0, 1));

            if (pattern_prev == 1)

            {

                if (pattern_performed[2] > pattern_performed[3])

                    pattern = 3;

                else

                    pattern = 2;

            }

            else

            {

                pattern = 1;

            }

            if (irandom(10) == 0)

                pattern = 4;

            pattern = 1;

            if (endminigame == true)

                pattern = -1;

        }

        if (pattern_timer == 0 && endminigame == false)

        {

            pattern_performed[pattern] += 1;

            debug_message("pattern: " + string(pattern));

        }

        switch (pattern)

        {

            case 0:

                if (pattern_timer == 0)

                {

                }

                if (pattern_timer >= 10)

                {

                    pattern = -1;

                    pattern_timer = -1;

                }

                break;

            case 1:

                if (pattern_timer >= 60)

                {

                    pattern_prev = pattern;

                    pattern = 0;

                    pattern_timer = -1;

                    break;

                }

                var _window_delay = floor(120 - (speedfactor * 30));

                if (_window_delay < 5)

                    _window_delay = 5;

                if ((pattern_timer % _window_delay) == 0 && stopspawns == false && alarm[1]
 < 1)
gml_Object_obj_shootout_controller_Alarm_1.gml

kris_invincible = false;

                {

                    var _available_windows = [];

                    with (obj_shootout_window)

                    {

                        if (state == "closed" && active)

                            array_push(_available_windows, id);

                    }

                    if (array_length(_available_windows) > 0)

                    {

                        var _chosen_window = _available_windows[irandom(array_length(_available_windows) - 1)];

                        with (_chosen_window)

                        {

                            event_user(12);

                            if (type == 2)

                                duration = 30;

                        }

                    }

                }

                break;

            case 2:

                if (pattern_timer >= floor(150 + (speedfactor * 15)))

                {

                    with (obj_shootout_window)

                    {

                    }

                    pattern_prev = pattern;

                    pattern = 0;

                    pattern_timer = -1;

                    break;

                }

                if (pattern_timer == 10 || pattern_timer == 20 || pattern_timer == 30)

                {

                    with (obj_shootout_window)

                    {

                        if (active)

                        {

                            var _flash = 
scr_oflash
scr_oflash

function 
scr_oflash(arg0 = false)
{
    var _oflash = instance_create_depth(x, y, depth - 1, obj_oflash);
    _oflash.image_xscale = image_xscale;
    _oflash.image_yscale = image_yscale;
    _oflash.image_speed = 0;
    _oflash.image_index = image_index;
    _oflash.sprite_index = sprite_index;
    _oflash.target = id;
    _oflash.follow = arg0;
    return _oflash;
}
(true);

                            _flash.depth = other.depth - 1;

                        }

                    }

                }

                if (pattern_timer == 40)

                {

                    with (obj_shootout_window)

                    {

                        event_user(12);

                        duration = (type == 1) ? 999 : 60;

                        idle_duration = floor(20 + (other.speedfactor * 15));

                    }

                }

                break;

            case 3:

                var _delay_between = floor(26 - (speedfactor * 3));

                var _time_per_row = _delay_between * (window_columns * 2);

                if (pattern_timer >= (_time_per_row * window_rows))

                {

                    pattern_prev = pattern;

                    pattern = 0;

                    pattern_timer = -1;

                    break;

                }

                var _timer = pattern_timer % _time_per_row;

                var _row = floor(pattern_timer div _time_per_row);

                if (_timer == 0)

                {

                    with (obj_shootout_window)

                        event_user(14);

                }

                if (_timer >= 0 && _timer <= (_delay_between * (window_columns - 1)))

                {

                    if ((_timer % _delay_between) == 0)

                    {

                        var _xx = _timer div _delay_between;

                        if ((_row % 2) == 1)

                            _xx = window_columns - 1 - _xx;

                        with (windows[_xx][_row])

                        {

                            if (!active)

                                continue;

                            event_user(12);

                            type = 
scr_weighted_choice
scr_weighted_choice

function 
scr_weighted_choice()
{
    var _n = 0;
    for (var _i = 1; _i < argument_count; _i += 2)
    {
        if (argument[_i] <= 0)
            continue;
        _n += argument[_i];
    }
    _n = random(_n);
    for (var _i = 1; _i < argument_count; _i += 2)
    {
        if (argument[_i] <= 0)
            continue;
        _n -= argument[_i];
        if (_n < 0)
            return argument[_i - 1];
    }
    return argument[0];
}
(1, 2.5, 2, 1);

                            if (shootout_type == 0 || shootout_type == 1)

                                type = 1;

                            if (type == 2)

                                duration = 60;

                            else

                                duration = 9999;

                        }

                    }

                }

                if (_timer >= 0 && _timer <= (_delay_between * ((window_columns * 2) - 1)))

                {

                    with (obj_shootout_window)

                    {

                        if (!active)

                            continue;

                        if (char_state == "idle" && type == 1)

                        {

                            var _shoot_delay = ((column % 2) == 1) ? (_delay_between * other.window_columns) : (_delay_between * (other.window_columns + 2));

                            if (_timer < _shoot_delay)

                                char_timer = min(char_timer, idle_duration - 2);

                            else

                                char_timer = idle_duration;

                        }

                    }

                }

                break;

            case 4:

                if (pattern_timer == 0)

                {

                    var _available_windows = [];

                    with (obj_shootout_window)

                    {

                        if (state == "closed" && active)

                            array_push(_available_windows, id);

                    }

                    if (shootout_type == 0 || shootout_type == 1)

                    {

                    }

                    var _window = _available_windows[irandom(array_length(_available_windows) - 1)];

                    with (_window)

                    {

                        event_user(12);

                        type = 3;

                    }

                }

                if (pattern_timer > floor(50 - (speedfactor * 10)))

                {

                    pattern_prev = pattern;

                    pattern = 0;

                    pattern_timer = -1;

                }

                break;

        }

        if (timer >= wave_duration)

        {

        }

        break;

}

timer++;

pattern_timer++;

if (kris_state == "idle")

{

    if (kris_y == kris_y_ground)

        obj_shootout_kris.sprite_index = kris_can_shoot ? spr_kris_ride_2 : spr_kris_ride_1;

    else

        obj_shootout_kris.sprite_index = kris_can_shoot ? spr_kris_ride_jump_2 : spr_kris_ride_jump_1;

    if (kris_actionable)

    {

        if (button1_p() && shootout_type != 3)

        {

            kris_state = "shoot";

            kris_timer = -1;

        }

    }

}

if (kris_state == "shoot")

{

    if (kris_timer == 0)

    {

        obj_shootout_kris.sprite_index = (kris_y == kris_y_ground) ? spr_kris_ride_shoot : spr_kris_ride_jump_shoot;

        obj_shootout_kris.image_index = 0;

        snd_play(snd_gunshot);

        snd_play_x(snd_rocket, 1, 1.5);

        reticle_index = 1;

        with (current_window)

            event_user(13);

        var _line = instance_create_depth(obj_shootout_kris.x + 32, obj_shootout_kris.y - 24, obj_shootout_kris.depth, obj_shootout_line);

        _line.tx = current_window.x;

        _line.ty = current_window.y;

    }

    if (kris_timer >= 3)

    {

        alarm[2]
 = 10;
gml_Object_obj_shootout_controller_Alarm_2.gml

kris_can_shoot = true;

        kris_can_shoot = false;

        kris_state = "idle";

        kris_timer = -1;

    }

}

if ((button2_p() && kris_actionable && kris_y == kris_y_ground) && shootout_type != 3)

{

    kris_jump_held = true;

    kris_vy = -10;

}

if ((!button2_h() || (kris_y_ground - kris_y) > 50) && shootout_type != 3)

    kris_jump_held = false;

if (kris_jump_held)

    kris_vy -= 1;

kris_vy += 1;

kris_y += kris_vy;

if (kris_y > kris_y_ground)

{

    if (kris_vy > 1)

        dust_timer = 0;

    kris_y = min(kris_y, kris_y_ground);

    kris_vy = 0;

}

obj_shootout_horse.x = kris_x + kris_x2 + (sin(current_time / 600) * 8);

obj_shootout_horse.y = kris_y;

if (kris_y == kris_y_ground && shootout_type != 3)

{

    obj_shootout_horse.sprite_index = spr_ralsei_horse_run;

    if ((dust_timer % 12) == 0)

    {

        var _dust = instance_create_depth(obj_shootout_horse.x + 24 + irandom(8), kris_y_ground - 18, depth - 2, obj_shootout_dust);

        _dust.hspeed = -4;

    }

    if ((dust_timer % 8) == 0)

    {

        var _dust = instance_create_depth(obj_shootout_horse.x + 48, kris_y_ground - 12, depth - 2, obj_shootout_dust);

        _dust.hspeed = -3.5;

    }

    if ((dust_timer % 6) == 0)

    {

        var _dust = instance_create_depth(obj_shootout_horse.x + 94, kris_y_ground - 12, depth - 2, obj_shootout_dust);

        _dust.hspeed = -3;

    }

    dust_timer++;

}

else

{

    obj_shootout_horse.sprite_index = spr_ralsei_horse_jump;

}

var _jump_y_offset = min((kris_y_ground - kris_y) * 0.15, 8);

with (obj_shootout_kris)

{

    x = obj_shootout_horse.x + 68;

    y = obj_shootout_horse.y - 66 - _jump_y_offset;

    if (other.kris_y == other.kris_y_ground)

    {

        y -= (round(cos(((obj_shootout_horse.image_index + 1) / 8) * pi * 2)) * 2);

    }

    else

    {

    }

}

with (obj_shootout_susie)

{

    x = obj_shootout_horse.x + 38;

    y = obj_shootout_horse.y - 72 - _jump_y_offset;

    if (other.kris_y == other.kris_y_ground)

    {

        sprite_index = spr_susie_ride;

        y -= (round(cos(((obj_shootout_horse.image_index + 2) / 8) * pi * 2)) * 2);

    }

    else

    {

        sprite_index = spr_susie_ride_jump;

    }

}

var _hazard_hit;

with (obj_shootout_horse)

    _hazard_hit = place_meeting(x, y, obj_shootout_hazard);

if (_hazard_hit && !kris_invincible && state == "main")

{

    kris_actionable = false;

    kris_invincible = true;

    alarm[1]
 = 30;
gml_Object_obj_shootout_controller_Alarm_1.gml

kris_invincible = false;

    alarm[0]
 = 12;
gml_Object_obj_shootout_controller_Alarm_0.gml

kris_actionable = true;

    kris_vy = -8;

    global.interact = 1;

    if (i_ex(obj_tenna_enemy))

    {

        
scr_shakescreen
scr_shakescreen

function 
scr_shakescreen()
{
    instance_create(x, y, obj_shake);
}
();

        global.inv = -1;

        obj_tenna_enemy.minigamefailcount++;

        if (obj_tenna_enemy.minigamefailcount == 3)

        {

            with (obj_tenna_zoom)

            {

                con = 2;

                timer = -1;

            }

        }

    }

    else

    {

        global.inv = -1;

        
scr_damage_all_overworld
scr_damage_all_overworld

function 
scr_damage_all_overworld()
{
    if (global.inv < 0)
    {
        gameover = 1;
        if (global.char[0] != 0 && global.hp[global.char[0]] > 1)
            gameover = 0;
        if (global.char[1] != 0 && global.hp[global.char[1]] > 1)
            gameover = 0;
        if (global.char[2] != 0 && global.hp[global.char[2]] > 1)
            gameover = 0;
        if (gameover == 1)
        {
            with (obj_event_manager)
                trigger_event(UnknownEnum.Value_1);
            
scr_gameover();
        }
        
scr_damage_cache();
        remdamage = damage;
        remtarget = target;
        if (!instance_exists(obj_shake))
            instance_create(0, 0, obj_shake);
        with (obj_dmgwriter)
            killactive = 1;
        snd_stop(snd_hurt1);
        snd_play(snd_hurt1);
        for (ti = 0; ti < 3; ti += 1)
        {
            global.inv = -1;
            damage = remdamage;
            target = ti;
            tdamage = damage;
            with (global.charinstance[target])
            {
                hurt = 1;
                hurttimer = 0;
            }
            hpdiff = tdamage;
            if (hpdiff >= global.hp[global.char[target]])
                hpdiff = global.hp[global.char[target]] - 1;
            d_cancel = 0;
            if (hpdiff <= 1)
            {
                if (global.hp[global.char[target]] <= 0)
                {
                    hpdiff = 0;
                    d_cancel = 1;
                }
                else
                {
                    hpdiff = 1;
                }
            }
            if (d_cancel == 0)
            {
                doomtype = -1;
                global.hp[global.char[target]] -= hpdiff;
                if (global.charinstance[target].visible == true || (global.chapter == 3 && room == room_shootout))
                {
                    dmgwriter = instance_create(global.charinstance[target].x, (global.charinstance[target].y + global.charinstance[target].myheight) - 24, obj_dmgwriter);
                    dmgwriter.damage = hpdiff;
                    dmgwriter.type = doomtype;
                }
            }
            if (global.hp[global.char[target]] < 1)
                global.hp[global.char[target]] = 1;
        }
        scr_damage_check();
        target = remtarget;
        global.inv = global.invc * 30;
    }
}

enum UnknownEnum
{
    Value_1 = 1
}
();

        with (obj_darkcontroller)

            charcon = 1;

        with (obj_dmgwriter)

        {

            x = camerax() + 60;

            if (instance_number(obj_dmgwriter) > 1)

                instance_destroy();

        }

    }

    var _inst = instance_place(x, y, obj_shootout_hazard);

    with (_inst)

        instance_destroy();

    snd_play(snd_hurt1);

}

if (kris_invincible)

{

    with (obj_shootout_horse)

    {

        if (!instance_exists(flash))

            flash = 
scr_oflash
scr_oflash

function 
scr_oflash(arg0 = false)
{
    var _oflash = instance_create_depth(x, y, depth - 1, obj_oflash);
    _oflash.image_xscale = image_xscale;
    _oflash.image_yscale = image_yscale;
    _oflash.image_speed = 0;
    _oflash.image_index = image_index;
    _oflash.sprite_index = sprite_index;
    _oflash.target = id;
    _oflash.follow = arg0;
    return _oflash;
}
(true);

    }

    with (obj_shootout_kris)

    {

        if (!instance_exists(flash))

            flash = 
scr_oflash
scr_oflash

function 
scr_oflash(arg0 = false)
{
    var _oflash = instance_create_depth(x, y, depth - 1, obj_oflash);
    _oflash.image_xscale = image_xscale;
    _oflash.image_yscale = image_yscale;
    _oflash.image_speed = 0;
    _oflash.image_index = image_index;
    _oflash.sprite_index = sprite_index;
    _oflash.target = id;
    _oflash.follow = arg0;
    return _oflash;
}
(true);

    }

    with (obj_shootout_susie)

    {

        if (!instance_exists(flash))

            flash = 
scr_oflash
scr_oflash

function 
scr_oflash(arg0 = false)
{
    var _oflash = instance_create_depth(x, y, depth - 1, obj_oflash);
    _oflash.image_xscale = image_xscale;
    _oflash.image_yscale = image_yscale;
    _oflash.image_speed = 0;
    _oflash.image_index = image_index;
    _oflash.sprite_index = sprite_index;
    _oflash.target = id;
    _oflash.follow = arg0;
    return _oflash;
}
(true);

    }

}

if (obj_shootout_kris.sprite_index == spr_kris_ride_1 || obj_shootout_kris.sprite_index == spr_kris_ride_jump_1)

{

    if ((timer % 3) == 0)

    {

        var _hrt = 
scr_afterimage
scr_afterimage

function 
scr_afterimage()
{
    afterimage = instance_create(x, y, obj_afterimage);
    afterimage.sprite_index = sprite_index;
    afterimage.image_index = image_index;
    afterimage.image_blend = image_blend;
    afterimage.image_speed = 0;
    afterimage.depth = depth;
    afterimage.image_xscale = image_xscale;
    afterimage.image_yscale = image_yscale;
    afterimage.image_angle = image_angle;
    return afterimage;
}
();

        _hrt.depth = depth - 5;

        _hrt.x = obj_shootout_kris.x + 18;

        _hrt.y = obj_shootout_kris.y - 28;

        _hrt.sprite_index = spr_shootout_heart;

        _hrt.image_xscale = 1;

        _hrt.image_yscale = 1;

        _hrt.direction = 135;

        _hrt.speed = 2;

        _hrt.image_speed = 0;

        _hrt.image_index = 1;

        _hrt.fadeSpeed = 0.1;

    }

}

kris_timer++;

if (endminigame == true)

    kris_x2 += 6;

if (kris_x2 == 600)

    
scr_fadeout
scr_fadeout

function 
scr_fadeout(arg0)
{
    __fadeouter = instance_create(camerax() - 200, cameray() - 200, obj_fadeout);
    __fadeouter.fadespeed = 1 / arg0;
    __fadeouter.depth = 3;
    return __fadeouter;
}
(10);

if (kris_x2 == 720)

{

    if (room == room_shootout)

        room_goto(room_battletest );

    
scr_fadein
scr_fadein

function 
scr_fadein(arg0)
{
    __fadeouter = instance_create(0, 0, obj_fadein);
    __fadeouter.fadespeed = -1 / arg0;
    __fadeouter.depth = 3;
    return __fadeouter;
}
(10);

}