Deltarune (Chapter 5) script viewer

if (!i_ex(obj_pink_enemy))

    exit;

scr_84_set_draw_font
scr_84_set_draw_font

function 
scr_84_set_draw_font(arg0)
{
    global.chemg_font = arg0;
    draw_set_font(
scr_84_get_font(arg0));
}
("main");

draw_set_alpha(1);

draw_set_color(c_white);

var _x = camerax();

var _y = cameray();

if (con == 1)

{

    timer++;

    _x = camerax() + xx;

    xx = lerp(300, 0, timer / 30);

    if (timer >= 30)

    {

        con = 2;

        timer = 0;

    }

}

if (con > 0)

{

    _x = camerax() + xx;

    var _weather_angle = 0;

    var _weather_x = 0;

    var _weather_y = 0;

    var _sundstring = stringsetloc(
SUND
"SUND", "obj_date_ui_slash_Draw_0_gml_35_0"
);

    var _reelitinstring = stringsetloc(
REEL IT IN!
"REEL IT IN!", "obj_date_ui_slash_Draw_0_gml_36_0"
);

    var _populationstring = stringsetloc(
POPULATION
"POPULATION", "obj_date_ui_slash_Draw_0_gml_37_0"
);

    var _crimestring = stringsetloc(
CRIME
"CRIME", "obj_date_ui_slash_Draw_0_gml_38_0"
);

    if (weatherkick_con == 1)

    {

        weatherkick_timer++;

        if (weatherkick_timer > 0)

            _weather_x = lerp(0, -800, weatherkick_timer / 40);

        if (weatherkick_timer > 0)

            _weather_y = lerp(0, -800, weatherkick_timer / 40);

        if (weatherkick_timer > 0)

            _weather_angle = lerp(0, -100, weatherkick_timer / 40);

        if (weatherkick_timer == 40)

            weatherkick_con = 2;

    }

    if (weatherkick_con != 2)

    {

        draw_text_ext_transformed(_x + 500 + _weather_x, _y + 232 + _weather_y, _sundstring, 9999, 9999, 1, 1, _weather_angle);

        draw_sprite_ext(spr_date_sun, 0, _x + 480 + _weather_x, _y + 240 + _weather_y, 1, 1, weatherangle + _weather_angle, c_white, 1);

        weatherangletimer++;

        weatherangle = sin(weatherangletimer * 0.02) * 100;

    }

    draw_set_halign(fa_center);

    draw_text_ext_transformed(_x + 493, _y + 20, _reelitinstring, 9999, 9999, 1, 1, 0);

    d_rectangle(_x + 468, _y + 40, _x + 512, _y + 50, true);

    reeltimer++;

    reelsize = 65 + (sin(reeltimer * 0.1) * 40);

    draw_sprite_part_ext(spr_date_reel, 0, 0, 0, reelsize, 30, _x + 469, _y + 40, 0.4, 0.36, c_white, 1);

    draw_set_halign(fa_left);

    var _pop_angle = 0;

    var _pop_x = 0;

    var _pop_y = 0;

    if (populationkick_con == 1)

    {

        populationkick_timer++;

        if (populationkick_timer > 0)

            _pop_x = lerp(0, -800, populationkick_timer / 40);

        if (populationkick_timer > 0)

            _pop_y = lerp(0, -800, populationkick_timer / 40);

        if (populationkick_timer > 0)

            _pop_angle = lerp(0, -100, populationkick_timer / 40);

        if (populationkick_timer == 40)

            populationkick_con = 2;

    }

    if (populationkick_con != 2)

    {

        draw_text_ext_transformed(_x + 440 + _pop_x, _y + 61 + _pop_y, _populationstring, 9999, 9999, 1, 1, _pop_angle);

        d_rectangle(_x + _pop_x + 450, _y + _pop_y + 80, _x + _pop_x + 484, _y + _pop_y + 114, true);

        var _popu_rep = 0;

        repeat (5)

        {

            d_line_width_color(_x + _pop_x + 440 + populationx[_popu_rep], _y + 61 + _pop_y + populationy[_popu_rep], _x + 440 + _pop_x + populationx2[_popu_rep], _y + 61 + _pop_y + populationy2[_popu_rep], 1, 4235519, 4235519);

            populationx[_popu_rep] -= 1;

            populationx2[_popu_rep] -= 1;

            if (populationx[_popu_rep] < 10)

            {

                populationx[_popu_rep] += 29;

                populationx2[_popu_rep] += 29;

                if (_popu_rep == 0)

                    populationy[_popu_rep] = populationy2[4];

                else

                    populationy[_popu_rep] = populationy2[_popu_rep - 1];

                populationy2[_popu_rep] = 24 + irandom(26);

            }

            _popu_rep++;

        }

    }

    draw_set_halign(fa_right);

    d_rectangle(_x + 480, _y + 270, _x + 520, _y + 310, true);

    if (global.lang == "ja")

        draw_text_ext(_x + 476, _y + 281, _crimestring, 16, 30);

    else

        draw_text_ext_transformed(_x + 475, _y + 296, _crimestring, 9999, 9999, 1, 1, 0);

    draw_sprite_ext(spr_date_population, 0, _x + 500, _y + 290, population_scale, population_scale, 0, c_white, 1);

    if (con != 3)

        timer += random(3);

    population_scale = 1.8 + (sin(timer * 1) * 0.1);

    draw_set_halign(fa_left);

    dogtimer++;

    if (dogtimer == 1)

    {

        var _angle = irandom(360);

        dogalpha = 1;

        dogx = x + lengthdir_x(40, _angle);

        dogy = y + lengthdir_y(40, _angle);

        dogtimer = -30;

        doglen = 5 + random(4);

        dogangle = irandom(360);

    }

    if (dogalpha > 0)

        dogalpha -= 0.1;

    draw_sprite_ext(spr_radar_dog, 0, _x + 600 + lengthdir_x(doglen, dogangle), _y + 280 + lengthdir_y(doglen, dogangle), 0.5, 0.5, 0, c_white, dogalpha);

    radarangle += 6;

    d_circle(_x + 600, _y + 280, 16, true);

    d_line_color(_x + 600, _y + 280, _x + 600 + lengthdir_x(16, radarangle), _y + 280 + lengthdir_y(16, radarangle), 65280, 65280);

    if (con == 2 && !i_ex(obj_date_controller))

    {

        inst = instance_create_depth(_x + 600, _y + 280, depth + 1, obj_afterimage_line);

        inst.x2 = _x + 600 + lengthdir_x(16, radarangle);

        inst.y2 = _y + 280 + lengthdir_y(16, radarangle);

    }

}

if (con == 3)

{

    timer++;

    with (obj_afterimage_line)

        image_alpha -= 0.2;

    _x = camerax() + xx;

    xx = lerp(0, 300, timer / 30);

    if (timer >= 30)

    {

        con = 0;

        timer = 0;

    }

}

if (obj_pink_enemy.doki > current)

{

    current++;

    flashsiner = 1;

}

if (obj_pink_enemy.doki < current)

    current--;

if (show_doki_bar == true)

    doki_x = lerp(doki_x, 0, 0.3);

if (i_ex(obj_date_controller))

    depth = obj_date_controller.depth + 1;

else

    depth = 86;

var doki = current;

var _shakex = 0;

if (doki == dokimax)

    _shakex = -2 + random(4);

var _shakey = 0;

if (doki == dokimax)

    _shakey = -2 + random(4);

if ((i_ex(obj_pink_enemy) && obj_pink_enemy.datecount == 0) || i_ex(obj_date_ui))

{

    _shakex = 0;

    _shakey = 0;

}

if (i_ex(obj_pink_enemy) && obj_pink_enemy.idlesprite == spr_mew_pushing)

    _shakex = sin(obj_pink_enemy.siner * 1) * 5;

if (dokishaketimer > 0)

{

    dokishaketimer--;

    _shakex = -2 + random(4);

}

scr_84_set_draw_font
scr_84_set_draw_font

function 
scr_84_set_draw_font(arg0)
{
    global.chemg_font = arg0;
    draw_set_font(
scr_84_get_font(arg0));
}
("main");

draw_set_halign(fa_left);

if (
scr_debug
scr_debug

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

{

    draw_text_color(camerax() + 10, 2, "[PRESS F1 FOR MAX DOKI]", c_white, c_white, c_white, c_white, 1);

    draw_text_color(camerax() + 10, 15, "[PRESS F7 FOR MAX TP]", c_white, c_white, c_white, c_white, 1);

    draw_text(camerax() + 10, cameray() + 28, "[PRESS I TO SKIP PHASE]");

    if (i_ex(obj_pink_enemy))

        draw_text(camerax() + 10, cameray() + 41, "PHASE: " + string(obj_pink_enemy.datecount + 1));

}

draw_set_halign(fa_center);

draw_text_color(608 + doki_x + _shakex, 30, stringsetloc(
DOKI
"DOKI", "obj_date_ui_slash_Draw_0_gml_195_0"
), c_white, c_white, c_white, c_white, 1);

if (i_ex(obj_pink_enemy))

    draw_text_color(608 + doki_x + _shakex, 47, string(obj_pink_enemy.doki) + "/" + string(dokimax), c_white, c_white, c_white, c_white, 1);

if (!surface_exists(healthbar_surf))

    healthbar_surf = surface_create(96, 250);

surface_set_target(healthbar_surf);

draw_clear_alpha(c_white, 0);

draw_sprite(spr_dokibar, 1, 0, 0);

draw_set_color(medpink);

d_rectangle(3, sprite_height - 1, sprite_width - 1, sprite_height - ((doki / dokimax) * sprite_height), false);

draw_set_color(c_white);

if (flashsiner > 0)

{

    draw_set_alpha(flashsiner);

    if (obj_pink_enemy.datecount == 3 && obj_pink_enemy.explosioncon == 0)

    {

    }

    else

    {

        d_rectangle_color(3, sprite_height - 1, sprite_width - 1, sprite_height - ((doki / dokimax) * sprite_height), 16777215, 16777215, 16777215, 16777215, false);

    }

    flashsiner--;

    draw_set_alpha(1);

}

if (doki == dokimax)

{

    tsiner++;

    draw_set_alpha(0.5 + (sin(tsiner * 0.2) * 0.5));

    d_rectangle_color(3, sprite_height - 1, sprite_width - 1, sprite_height - ((doki / dokimax) * sprite_height), 16777215, 16777215, 16777215, 16777215, false);

    draw_set_alpha(1);

}

if (obj_pink_enemy.doki > 0)

    draw_sprite(spr_tensionmarker, 0, 3, sprite_height - ((doki / dokimax) * sprite_height));

draw_sprite(spr_dokibar, 0, 0, 0);

gpu_set_blendmode(bm_subtract);

draw_sprite_ext(spr_tensionbar_cutout, 0, 0, 0, 1, 1, 0, c_white, 1);

gpu_set_blendmode(bm_normal);

surface_reset_target();

draw_surface(healthbar_surf, x + 125 + _shakex + doki_x, (y + _shakey) - 68);

if (electricity_con == 1 && !i_ex(obj_date_controller))

{

    draw_sprite_ext(spr_pink_electricity, electricity_timer, x + 110 + _shakex + doki_x, (y + _shakey) - 72, 1, 1.8, 0, c_white, 1);

    draw_sprite_ext(spr_pink_electricity, electricity_timer + 2, x + 110 + _shakex + doki_x, y + _shakey + 20, 1, 1.8, 0, c_white, 1);

    electricity_timer++;

    if (electricity_timer == 1)

    {

        snd_loop(snd_electroshock_loop);

        snd_volume(snd_electroshock_loop, 0.1, 0);

    }

    if (electricity_timer == 30)

    {

        snd_stop(snd_electroshock_loop);

        electricity_timer = 0;

        electricity_con = 0;

    }

}

else

{

    snd_stop(snd_electroshock_loop);

}

draw_set_color(c_white);

draw_set_halign(fa_left);

draw_set_alpha(1);