Undertale Yellow script viewer

switch scene

{

    case 0:

        if (scr_interact
scr_interact

function scr_interact() //gml_Script_scr_interact
{
    if (distance_to_object(obj_pl) < 20 && obj_pl.state == gml_Script_scr_normal_state)
    {
        var pl_dir = obj_pl.direction
        var pl_x = 0
        var pl_y = 0
        var check_distance_x = 0
        var check_distance_y = 0
        switch pl_dir
        {
            case 0:
                pl_x = obj_pl.bbox_right
                pl_y = obj_pl.bbox_top + 1
                check_distance_x = 20
                break
            case 180:
                pl_x = obj_pl.bbox_left
                pl_y = obj_pl.bbox_top + 1
                check_distance_x = -20
                break
            case 90:
                pl_x = obj_pl.x
                pl_y = obj_pl.bbox_top
                check_distance_y = -20
                break
            case 270:
                pl_x = obj_pl.x
                pl_y = obj_pl.bbox_bottom
                check_distance_y = 20
                break
        }

        if collision_line_first(pl_x, pl_y, (pl_x + check_distance_x), (pl_y + check_distance_y), id, false, false)
            return true;
    }
}
() && keyboard_multicheck_pressed(0))

        {

            scr_cutscene_start
scr_cutscene_start

function scr_cutscene_start() //gml_Script_scr_cutscene_start
{
    global.cutscene = true
    obj_pl.state = gml_Script_scr_frozen_state
    obj_pl.image_index = 0
    obj_pl.image_speed = 0
}
()

            audio_play_sound(snd_switch, 1, 0)

            scr_audio_fade_out
scr_audio_fade_out

function scr_audio_fade_out(argument0, argument1) //gml_Script_scr_audio_fade_out
{
    var snd = argument0
    var fade_len = argument1
    if (!audio_is_playing(snd))
        return false;
    audio_sound_gain(snd, 0, fade_len)
    if instance_exists(obj_audio_fade_helper)
    {
        with (obj_audio_fade_helper)
        {
            if (audio_to_fade == snd)
                return false;
        }
    }
    with (instance_create(0, 0, obj_audio_fade_helper))
        audio_to_fade = snd
}
(obj_radio.current_song, 750)

            cutscene_advance()

        }

        break

    case 1:

        cutscene_wait(1)

        break

    case 2:

        cutscene_dialogue()

        with (msg)

            message[0] = "* (Something happened somewhere.)"

        break

    case 3:

        scr_radio_restart
scr_radio_restart

function scr_radio_restart() //gml_Script_scr_radio_restart
{
    with (obj_radio)
        event_user(0)
}
()

        audio_sound_gain(obj_radio.current_song, 1, 0)

        cutscene_advance()

        scr_cutscene_end
scr_cutscene_end

function scr_cutscene_end() //gml_Script_scr_cutscene_end
{
    global.cutscene = false
    obj_pl.alarm[0] = 1
}
()

        global.sworks_flag[46] = 1

        break

    case 4:

        if (scr_interact
scr_interact

function scr_interact() //gml_Script_scr_interact
{
    if (distance_to_object(obj_pl) < 20 && obj_pl.state == gml_Script_scr_normal_state)
    {
        var pl_dir = obj_pl.direction
        var pl_x = 0
        var pl_y = 0
        var check_distance_x = 0
        var check_distance_y = 0
        switch pl_dir
        {
            case 0:
                pl_x = obj_pl.bbox_right
                pl_y = obj_pl.bbox_top + 1
                check_distance_x = 20
                break
            case 180:
                pl_x = obj_pl.bbox_left
                pl_y = obj_pl.bbox_top + 1
                check_distance_x = -20
                break
            case 90:
                pl_x = obj_pl.x
                pl_y = obj_pl.bbox_top
                check_distance_y = -20
                break
            case 270:
                pl_x = obj_pl.x
                pl_y = obj_pl.bbox_bottom
                check_distance_y = 20
                break
        }

        if collision_line_first(pl_x, pl_y, (pl_x + check_distance_x), (pl_y + check_distance_y), id, false, false)
            return true;
    }
}
() && keyboard_multicheck_pressed(0))

        {

            scr_text
scr_text

function scr_text() //gml_Script_scr_text
{
    if (!instance_exists(obj_dialogue))
        msg = instance_create(x, y, obj_dialogue)
}
()

            with (msg)

                message[0] = "* (Something already happened#  somewhere.)"

        }

        break

}