Deltarune (Chapter 4) script viewer

if (global.chapter == 4)

{

    if (global.plot >= 40 && global.plot < 100)

    {

        if (obj_mainchara.x < 495)

        {

            if (i_ex(snailcar_npc))

            {

                with (snailcar_npc)

                {

                    if (place_meeting(x, y, obj_mainchara))

                    {

                        if (y < obj_mainchara.y)

                        {

                            with (obj_mainchara)

                                y += 1;

                        }

                        else

                        {

                            with (obj_mainchara)

                                y -= 1;

                        }

                    }

                }

                if (!snail_hit)

                {

                    if (snailcar_npc.x != (snailcar_npc.xstart - 30))

                        snailcar_npc.x = 
scr_movetowards
scr_movetowards

function 
scr_movetowards(arg0, arg1, arg2)
{
    if (arg0 == arg1)
        return arg0;
    else if (arg0 > arg1)
        return max(arg0 - arg2, arg1);
    else
        return min(arg0 + arg2, arg1);
}

function scr_obj_movetowards_obj(arg0, arg1, arg2 = 0, arg3 = 0)
{
    scr_obj_movetowards_point(arg0.x + arg2, arg0.y + arg3, arg1);
}

function scr_obj_movetowards_point(arg0, arg1, arg2)
{
    var _distance = point_distance(x, y, arg0, arg1);
    if (arg2 >= _distance)
    {
        x = arg0;
        y = arg1;
    }
    else
    {
        var _direction = point_direction(x, y, arg0, arg1);
        x += lengthdir_x(arg2, _direction);
        y += lengthdir_y(arg2, _direction);
    }
}
(snailcar_npc.x, snailcar_npc.xstart - 30, 0.1);

                    else

                        snail_hit = true;

                }

                else if (snailcar_npc.x != snailcar_npc.xstart)

                {

                    snailcar_npc.x = 
scr_movetowards
scr_movetowards

function 
scr_movetowards(arg0, arg1, arg2)
{
    if (arg0 == arg1)
        return arg0;
    else if (arg0 > arg1)
        return max(arg0 - arg2, arg1);
    else
        return min(arg0 + arg2, arg1);
}

function scr_obj_movetowards_obj(arg0, arg1, arg2 = 0, arg3 = 0)
{
    scr_obj_movetowards_point(arg0.x + arg2, arg0.y + arg3, arg1);
}

function scr_obj_movetowards_point(arg0, arg1, arg2)
{
    var _distance = point_distance(x, y, arg0, arg1);
    if (arg2 >= _distance)
    {
        x = arg0;
        y = arg1;
    }
    else
    {
        var _direction = point_direction(x, y, arg0, arg1);
        x += lengthdir_x(arg2, _direction);
        y += lengthdir_y(arg2, _direction);
    }
}
(snailcar_npc.x, snailcar_npc.xstart, 0.1);

                }

                else

                {

                    snail_hit = false;

                }

            }

        }

    }

    if (rainy_active)

    {

        if (!rainy_init)

        {

            rainy_init = true;

            var puddle_marker = 
scr_marker
scr_marker

function 
scr_marker(arg0, arg1, arg2)
{
    thismarker = instance_create(arg0, arg1, obj_marker);
    with (thismarker)
    {
        sprite_index = arg2;
        image_speed = 0;
    }
    return thismarker;
}
(120, 150, spr_small_puddle);

            with (puddle_marker)

                
scr_depth
scr_depth

function 
scr_depth(arg0 = id, arg1 = 0)
{
    with (arg0)
        depth = 100000 - ((y * 10) + (sprite_height * 10) + (arg1 * 10));
}
();

            rainy_npc = 
scr_marker_animated
scr_marker_animated

function 
scr_marker_animated()
{
    var x_pos = argument[0];
    var y_pos = argument[1];
    var sprite = argument[2];
    var anim_speed = (argument_count > 3) ? argument[3] : 0.2;
    thismarker = instance_create(x_pos, y_pos, obj_marker);
    with (thismarker)
    {
        sprite_index = sprite;
        image_speed = anim_speed;
        
scr_depth();
    }
    return thismarker;
}
(130, 152, spr_npc_rainykid_flip);

            rainy_npc.depth = puddle_marker.depth - 10;

            var rainy_collider = instance_create(puddle_marker.x, 135, obj_solidblock);

            var rainy_readable = instance_create(rainy_collider.x, rainy_collider.y, obj_readable_room1);

        }

        else

        {

            rainy_timer++;

            if ((rainy_timer % 16) == 1)

            {

                with (rainy_npc)

                    
scr_flip
scr_flip

function 
scr_flip(arg0)
{
    if (arg0 == "h" || arg0 == "x")
    {
        x += ((sprite_get_width(sprite_index) - (sprite_get_xoffset(sprite_index) * 2)) * image_xscale);
        image_xscale = -image_xscale;
    }
    else
    {
        y += ((sprite_get_height(sprite_index) - (sprite_get_yoffset(sprite_index) * 2)) * image_yscale);
        image_yscale = -image_yscale;
    }
}
("x");

            }

            rainy_siner += 0.6;

            rainy_npc.x = rainy_npc.xstart + (sin(rainy_siner / 3) * 3);

        }

    }

    if (susie_check)

    {

        if (con == 10 && obj_mainchara.y >= 100 && global.interact == 0)

        {

            con = 11;

            global.interact = 1;

            
scr_speaker
scr_speaker

function 
scr_speaker(arg0)
{
    _speaker = arg0;
    global.typer = 5;
    if (global.darkzone == 1)
        global.typer = 6;
    if (global.fighting == 1)
        global.typer = 4;
    global.fc = 0;
    global.fe = 0;
    if (_speaker == "silent" && global.darkzone == 0)
        global.typer = 2;
    if (_speaker == "silent" && global.darkzone == 1)
        global.typer = 36;
    if (_speaker == "balloon" || _speaker == "enemy")
        global.typer = 50;
    if (_speaker == "sans")
    {
        global.typer = 14;
        global.fc = 6;
    }
    if (_speaker == "undyne" || _speaker == "und")
    {
        global.typer = 17;
        global.fc = 9;
    }
    if (_speaker == "temmie" || _speaker == "tem")
        global.typer = 21;
    if (_speaker == "jevil")
        global.typer = 35;
    if (_speaker == "catti")
        global.fc = 13;
    if (_speaker == "jockington" || _speaker == "joc")
        global.fc = 14;
    if (_speaker == "catty" || _speaker == "caddy")
        global.fc = 16;
    if (_speaker == "bratty" || _speaker == "bra")
        global.fc = 17;
    if (_speaker == "rouxls" || _speaker == "rou")
        global.fc = 18;
    if (_speaker == "burgerpants" || _speaker == "bur")
        global.fc = 19;
    if (_speaker == "spamton")
    {
        if (global.fighting == 0)
            global.typer = 66;
        else
            global.typer = 68;
    }
    if (_speaker == "sneo")
        global.typer = 67;
    if (_speaker == "gerson" || _speaker == "ger" || _speaker == "gers")
        global.typer = 85;
    if (_speaker == "susie" || _speaker == "sus")
    {
        global.fc = 1;
        global.typer = 10;
        if (global.darkzone == 1)
        {
            global.typer = 30;
            if (global.fighting == 1)
                global.typer = 47;
        }
    }
    if (_speaker == "ralsei" || _speaker == "ral")
    {
        global.fc = 2;
        global.typer = 31;
        if (global.fighting == 1)
            global.typer = 45;
        if (global.flag[30 ralsei_hat_state] == 1)
            global.typer = 6;
    }
    if (_speaker == "noelle" || _speaker == "noe")
    {
        global.fc = 3;
        if (global.darkzone == 0)
            global.typer = 12;
        else
            global.typer = 56;
        if (global.fighting == 1)
            global.typer = 59;
    }
    if (_speaker == "toriel" || _speaker == "tor")
    {
        global.fc = 4;
        global.typer = 7;
    }
    if (_speaker == "asgore" || _speaker == "asg")
    {
        global.fc = 10;
        global.typer = 18;
    }
    if (_speaker == "king" || _speaker == "kin")
    {
        global.fc = 20;
        global.typer = 33;
        if (global.chapter == 1)
        {
            if (global.plot < 235)
                global.typer = 36;
...
("susie");

            msgsetloc(0, 
Face 0* Hey...Delay 11 we haven't seen Ralsei today.Wait for inputClose Message
"\\E0* Hey..^1. we haven't seen Ralsei today./%", "obj_room_town_south_slash_Step_0_gml_95_0"
);

            var d = d_make();

        }

        if (con == 11 && !d_ex())

        {

            con = 14;

            scr_delay_var("con", 15, 15);

            var facing_temp = "";

            with (obj_caterpillarchara)

            {

                if (name == "susie")

                {

                    fun = 1;

                    facing_temp = sprite_index;

                    sprite_index = rsprite;

                    image_index = 0;

                }

            }

            susie_facing = facing_temp;

        }

        if (con == 15 && !d_ex())

        {

            con = 20;

            global.msc = 1425;

            
scr_text
scr_text

function 
scr_text(arg0)
{
    switch (arg0)
    {
        case 0:
            break;
        case 10:
            global.choicemsg[0] = stringsetloc(
#Yes
"#Yes", "scr_text_slash_scr_text_gml_8_0"
);
            global.choicemsg[1] = stringsetloc(
#No
"#No", "scr_text_slash_scr_text_gml_9_0"
);
            global.choicemsg[2] = stringsetloc(
 
" ", "scr_text_slash_scr_text_gml_12_0_b"
);
            global.choicemsg[3] = stringsetloc(
 
" ", "scr_text_slash_scr_text_gml_13_0_b"
);
            global.msg[0] = stringsetloc(
* You really didn't want to throw it away.Wait for input
"* You really didn't want to throw it away./", "scr_text_slash_scr_text_gml_12_0"
);
            global.msg[1] = stringsetloc(
* Throw it away anyway?Wait for input
"* Throw it away anyway?/", "scr_text_slash_scr_text_gml_13_0"
);
            global.msg[2] = stringsetloc(
Choice type 2 
"\\C2 ", "scr_text_slash_scr_text_gml_14_0"
);
            if (global.chapter >= 2)
                msgsetloc(0, 
* You took it from your pocket.Delay 11
* You have a very,Delay 11 very,Delay 11 bad feeling about throwing it away.Wait for input
"* You took it from your pocket^1.&* You have a \\cYvery^1, very^1, bad feeling\\c0 about throwing it away./", "scr_text_slash_scr_text_gml_19_0"
);
            break;
        case 11:
            if (global.choice == 0)
            {
                global.flag[466 junkball_dropped] = 1;
                snd_play(snd_bageldefeat);
                global.msg[0] = stringsetloc(
* Hand shaking,Delay 11 you dropped the ball of junk on the ground.Wait for input
"* Hand shaking^1, you dropped the ball of junk on the ground./", "scr_text_slash_scr_text_gml_20_0"
);
                global.msg[1] = stringsetloc(
* It broke into pieces.Wait for input
"* It broke into pieces./", "scr_text_slash_scr_text_gml_21_0"
);
                global.msg[2] = stringsetloc(
* You felt bitter.Wait for inputClose Message
"* You felt bitter./%", "scr_text_slash_scr_text_gml_22_0"
);
                script_execute(scr_litemshift, global.menucoord[1], 0);
                for (var i = 0; i < 12; i += 1)
                    global.item[i] = 0;
                for (var i = 0; i < 48; i += 1)
                {
                    global.armor[i] = 0;
                    global.weapon[i] = 0;
                }
            }
            else
            {
                global.msg[0] = stringsetloc(
* You felt a feeling of relief.Wait for inputClose Message
"* You felt a feeling of relief./%", "scr_text_slash_scr_text_gml_34_0"
);
            }
            break;
        case 100:
            global.msg[0] = stringsetloc(
* Hey, Kris!Delay 11 What's up?Delay 11
* Didja lose your pencil again?Wait for input
"* Hey, Kris^1! What's up^1?&* Didja lose your pencil again?/", "scr_text_slash_scr_text_gml_39_0"
);
            global.msg[1] = stringsetloc(
Face 4* Here,Delay 11 you want the candy-cane one or the one with lights on it?Wait for input
"\\E4* Here^1, you want the candy-cane one or the one with lights on it?/", "scr_text_slash_scr_text_gml_40_0"
);
            global.msg[2] = stringsetloc(
Face 1* Huh?Delay 11
* You want to be partners?Wait for input
"\\E1* Huh^1?&* You want to be partners?/", "scr_text_slash_scr_text_gml_41_0"
);
            global.msg[3] = stringsetloc(
Face 4* Ummm...Delay 11 Sorry...Delay 11
* Berdly already asked me...Wait for input
"\\E4* Ummm..^1. Sorry..^1.&* Berdly already asked me.../", "scr_text_slash_scr_text_gml_42_0"
);
            global.msg[4] = stringsetloc(
Face 0* But I could ask Ms. Alphys if we could make a group of 3!Wait for input
"\\E0* But I could ask Ms. Alphys if we could make a group of 3!/", "scr_text_slash_scr_text_gml_43_0"
);
            global.msg[5] = stringsetloc(
Face 4* I'll ask if you're sure!

Not yet     Yes. Ask.Choice type 1 
"\\E4* I'll ask if you're sure!& &Not yet     Yes. Ask.\\C1 ", "scr_text_slash_scr_text_gml_44_0"
);
            global.msg[6] = stringsetloc(
 
" ", "scr_text_slash_scr_text_gml_47_0"
);
            break;
        case 101:
            if (global.choice == 1)
            {
                global.msg[0] = stringsetloc(
Face 0* OK,Delay 11 I'll ask!Wait for input
"\\E0* OK^1, I'll ask!/", "scr_text_slash_scr_text_gml_51_0"
);
                global.msg[1] = stringsetloc(
* Miss Alphys!Delay 11
* Umm,Delay 11 is it OK if we have a group of 3?Wait for inputClose Message
"* Miss Alphys^1!&* Umm^1, is it OK if we have a group of 3?/%", "scr_text_slash_scr_text_gml_52_0"
);
                with (obj_classscene)
                    con = 20;
            }
            if (global.choice == 0)
                global.msg[0] = stringsetloc(
Face 4* Yeah,Delay 11 I'm sure there's someone else you can ask!Wait for inputClose Message
"\\E4* Yeah^1, I'm sure there's someone else you can ask!/%", "scr_text_slash_scr_text_gml_57_0"
);
            break;
        case 102:
            global.msg[0] = stringsetloc(
Face 0* Do you wanna be partners?
Not yet     YesChoice type 1 
"\\E0* Do you wanna be partners?&Not yet     Yes\\C1 ", "scr_text_slash_scr_text_gml_62_0"
);
            global.msg[1] = stringsetloc(
 
" ", "scr_text_slash_scr_text_gml_65_0"
);
            break;
        case 103:
            if (global.choice == 1)
            {
                global.msg[0] = stringsetloc(
Face 0* OK,Delay 11 I'll ask!Wait for input
"\\E0* OK^1, I'll ask!/", "scr_text_slash_scr_text_gml_69_0"
);
                global.msg[1] = stringsetloc(
* Miss Alphys!Delay 11
* Umm,Delay 11 is it OK if we have a group of 3?Wait for inputClose Message
"* Miss Alphys^1!&* Umm^1, is it OK if we have a group of 3?/%", "scr_text_slash_scr_text_gml_70_0"
);
                with (obj_classscene)
                    con = 20;
            }
            if (global.choice == 0)
                global.msg[0] = stringsetloc(
Face 4* Umm,Delay 11 OK.Delay 11
* You just keep doing your thing,Delay 11 Kris.Wait for inputClose Message
"\\E4* Umm^1, OK^1.&* You just keep doing your thing^1, Kris./%", "scr_text_slash_scr_text_gml_75_0"
);
            break;
        case 104:
            global.msg[0] = stringsetloc(
Face 0* Alright.Delay 11
* Let's get this over with.Wait for input
"\\E0* Alright^1.&* Let's get this over with./", "scr_text_slash_scr_text_gml_80_0"
);
            global.msg[1] = stringsetloc(
* We'll get more chalk.Delay 11
* Mosey back to class.Delay 11
* And then,Delay 11 Kris...Wait for input
"* We'll get more chalk^1.&* Mosey back to class^1.&* And then^1, Kris.../", "scr_text_slash_scr_text_gml_81_0"
);
            global.msg[2] = stringsetloc(
Face 2* YOU'LL do our project.Wait for input
"\\E2* YOU'LL do our project./", "scr_text_slash_scr_text_gml_82_0"
);
            global.msg[3] = stringsetloc(
* How's that sound?

Good        BadChoice type 1 
"* How's that sound?& &Good        Bad\\C1 ", "scr_text_slash_scr_text_gml_83_0"
);
            global.msg[4] = stringsetloc(
 
" ", "scr_text_slash_scr_text_gml_86_0"
);
            break;
        case 105:
            global.msg[0] = stringsetloc(
 Close MessageClose Message
" %%", "scr_text_slash_scr_text_gml_90_0"
);
            break;
        case 110:
            global.choicemsg[0] = stringsetloc(
#Yes
"#Yes", "scr_text_slash_scr_text_gml_92_0"
);
            global.choicemsg[1] = stringsetloc(
#No
"#No", "scr_text_slash_scr_text_gml_93_0"
);
            global.choicemsg[2] = stringsetloc(
 
" ", "scr_text_slash_scr_text_gml_96_0"
);
            global.choicemsg[3] = stringsetloc(
 
" ", "scr_text_slash_scr_text_gml_97_0"
);
            if (global.flag[100 got_glowshard] == 0)
            {
                global.msg[0] = stringsetloc(
* (There's something glowing inside.)Wait for input
"* (There's something glowing inside.)/", "scr_text_slash_scr_text_gml_98_0"
);
                global.msg[1] = stringsetloc(
* (Take it?)Wait for input 
"* (Take it?)/ ", "scr_text_slash_scr_text_gml_99_0"
);
                global.msg[2] = stringsetloc(
 Choice type 2
" \\C2", "scr_text_slash_scr_text_gml_100_0"
);
            }
            else
            {
                global.msg[0] = stringsetloc(
* (It's dark inside.)Wait for inputClose Message
"* (It's dark inside.)/%", "scr_text_slash_scr_text_gml_104_0"
);
            }
            break;
        case 111:
...
(global.msc);

            var d = d_make();

        }

        if (con == 20 && !d_ex())

        {

            con = -1;

            susie_check = false;

            global.interact = 0;

            var facing_temp = susie_facing;

            with (obj_caterpillarchara)

            {

                if (name == "susie")

                {

                    fun = 0;

                    sprite_index = facing_temp;

                }

            }

        }

    }

}