Undertale script viewer

if (transform == 1)

    stetch += 0.2;

if (normal == 1)

{

    siner += 1;

    rely += sin(siner / 12);

    x += (cos(siner / 24) * 6);

    y += (sin(siner / 6) * 0.25);

}

yoff = sin(siner / 6);

xoff = cos(siner / 3);

draw_set_color(c_black);

draw_set_alpha(image_alpha);

ossafe_fill_rectangle(x - 40, y + 20 + rely, x + 42, y + 46 + rely);

draw_set_alpha(1);

draw_sprite_ext(spr_asrielfeet, 0, x + (yoff * 2), ((y + 168) - 112) + (rely * 0.9), 2 + stetch, 2, torsorot, image_blend, image_alpha);

draw_sprite_ext(spr_torsoball, 0, x + yoff, y + 48 + rely, 2 + stetch, 2, 0, image_blend, image_alpha);

draw_sprite_ext(spr_asrieltorso, 0, x + yoff, y + 48 + rely, 2 + stetch, 2, torsorot, image_blend, image_alpha);

draw_sprite_ext(spr_asriellocket, 0, x + 2, y + 34 + (rely * 1.2), 2 + stetch, 2, 0, image_blend, image_alpha);

if (specialarm == 0)

{

    if (shrug == 0)

    {

        draw_sprite_ext(spr_asrielarm_r, 0, x - 28, y + 38 + (rely * 1.2), -2 - stetch, 2, armrot_l, image_blend, image_alpha);

        draw_sprite_ext(spr_asrielarm_r, 0, x + 30, y + 38 + (rely * 1.2), 2 + stetch, 2, armrot_r, image_blend, image_alpha);

    }

    if (shrug == 1)

    {

        draw_sprite_ext(spr_asrielarm_r_shrug, 0, x - 28, y + 38 + (rely * 1.2), -2, 2, armrot_l, image_blend, image_alpha);

        draw_sprite_ext(spr_asrielarm_r_shrug, 0, x + 30, y + 38 + (rely * 1.2), 2, 2, armrot_r, image_blend, image_alpha);

    }

}

if (specialarm == 1)

{

    draw_sprite_ext(spr_asrielarm_r, 0, x - 28, y + 38 + (rely * 1.2), -2, 2, armrot_l, image_blend, arm_alpha);

    draw_sprite_ext(spr_asrielarm_r, 0, x + 30, y + 38 + (rely * 1.2), 2, 2, armrot_r, image_blend, arm_alpha);

}

if (specialarm == 2)

{

    draw_sprite_ext(spr_asrielarm_r, 0, x - 28, y + 38 + (rely * 1.2), -2, 2, armrot_l, image_blend, image_alpha);

    draw_sprite_ext(spr_asrielarm_r, 0, x + 30, y + 38 + (rely * 1.2), 2, 2, armrot_r, image_blend, arm_alpha);

}

draw_sprite_ext(spr_asrielshoulder_r, 0, x - 28, y + 26 + (rely * 1.2), -2 - stetch, 2, 0, image_blend, image_alpha);

draw_sprite_ext(spr_asrielshoulder_r, 0, x + 30, y + 26 + (rely * 1.2), 2 + stetch, 2, 0, image_blend, image_alpha);

draw_sprite_ext(spr_asrielcollar, 0, x, y + 22 + (rely * 1), 2 + stetch, 2, 0, image_blend, image_alpha);

if (shrug == 0)

    draw_sprite_ext(spr_asrielhead, global.faceemotion, x + headx, y + (rely * 1.2) + heady, 2 + stetch, 2, headrot, image_blend, image_alpha);

if (shrug == 1)

{

    shrug_x += 1;

    draw_sprite_ext(spr_asriel_headshake_sassy, floor(shrug_x / 6), x + headx, y + (rely * 1.2) + heady, 2 + stetch, 2, headrot, image_blend, image_alpha);

}

if (aligncon == 1)

{

    normal = 0;

    xxx = mouse_x;

    yyy = mouse_y;

    xxx = 320;

    yyy = 45;

    if (s_s == 1)

        yyy = 100;

    xxoff = x - xxx;

    yyoff = y - yyy;

    aligncon = 2;

    altimer = 0;

}

if (aligncon == 2)

{

    image_alpha = 1;

    if (abs(relx) > 1)

        relx *= 0.7;

    else

        relx = 0;

    if (abs(rely) > 1)

        rely *= 0.7;

    else

        rely = 0;

    if (abs(yyoff) > 1)

        yyoff *= 0.7;

    else

        yyoff = 0;

    if (abs(xxoff) > 1)

        xxoff *= 0.7;

    else

        xxoff = 0;

    if (abs(armrot_l) > 1)

        armrot_l *= 0.7;

    else

        armrot_l = 0;

    if (abs(armrot_r) > 1)

        armrot_r *= 0.7;

    else

        armrot_r = 0;

    if (abs(torsorot) > 1)

        torsorot *= 0.7;

    else

        torsorot = 0;

    if (abs(headrot) > 1)

        headrot *= 0.7;

    else

        headrot = 0;

    altimer += 1;

    x = xxx + xxoff;

    y = yyy + yyoff;

    if (altimer > 15)

    {

        image_alpha = 1;

        aligncon = 3;

        aimage = 0;

    }

}

if (aligncon == 4)

{

    heady = 0;

    headx = 0;

    specialarm = 0;

    arm_alpha = 0;

    relx = 0;

    rely = 0;

    xxoff = 0;

    yyoff = 0;

    armrot_l = 0;

    armrot_r = 0;

    torsorot = 0;

    headrot = 0;

    aligncon = 0;

    siner = 0;

    aimage = 1;

    normal = 1;

    altimer = 0;

}

if (global.debug == 1)

{

    if (keyboard_check_pressed(ord("S")) && aligncon == 3)

    {

        type = 0;

        starcon = 1;

    }

    if (keyboard_check_pressed(ord("B")) && aligncon == 3)

    {

        type = 1;

        starcon = 1;

    }

    if (keyboard_check_pressed(ord("W")) && aligncon == 3)

    {

        type = 1;

        bladecon = 1;

    }

    if (keyboard_check_pressed(ord("G")) && aligncon == 3)

    {

        type = 1;

        guncon = 1;

    }

    if (keyboard_check_pressed(ord("H")) && aligncon == 3)

    {

        type = 1;

        gonercon = 1;

    }

}

if (starcon > 0)

{

    if (starcon == 1)

    {

        global.faceemotion = 2;

        caster_play(powersfx, 0.8, 1);

        armraise = 20;

        starcon = 2;

        alarm[5] = 1;
gml_Object_obj_asriel_body_Alarm_5.gml

starcon += 1;

    }

    if (starcon == 3)

    {

        starcon = 4;

        alarm[5] = 1;
gml_Object_obj_asriel_body_Alarm_5.gml

starcon += 1;

    }

    if (starcon == 5)

    {

        armrot_l -= armraise;

        armrot_r += armraise;

        armraise -= 2;

        if (armraise <= 0)

        {

            starcon = 6;

            alarm[5] = 20;
gml_Object_obj_asriel_body_Alarm_5.gml

starcon += 1;

        }

    }

    if (starcon >= 5 && starcon <= 9)

    {

        a_xx1 = x - 28;

        a_yy1 = y + 38 + (rely * 1.2);

        a_x1_add = lengthdir_x(90, armrot_l - 90 - 15);

        a_y1_add = lengthdir_y(90, armrot_l - 90 - 15);

        repeat (2)

        {

            hl = instance_create(a_xx1 + a_x1_add, a_yy1 + a_y1_add, obj_handlightning);

            hl.depth = depth + 1;

            hl.type = type;

        }

        a_xx2 = x + 30;

        a_yy2 = y + 38 + (rely * 1.2);

        a_x2_add = lengthdir_x(90, (armrot_r - 90) + 15);

        a_y2_add = lengthdir_y(90, (armrot_r - 90) + 15);

        repeat (2)

        {

            hl = instance_create(a_xx2 + a_x2_add, a_yy2 + a_y2_add, obj_handlightning);

            hl.depth = depth + 1;

            hl.type = type;

        }

    }

    if (starcon == 7)

    {

        starcon = 8;

        alarm[5] = 15;
gml_Object_obj_asriel_body_Alarm_5.gml

starcon += 1;

    }

    if (starcon == 9)

        starcon = 12;

    if (starcon == 12)

    {

        if (type == 0)

            gen = instance_create(0, 0, obj_stormstar_gen);

        if (type == 1)

            gen = instance_create(0, 0, obj_rainbowbolt_realgen);

        gen.h_mode = h_mode;

        starcon = 13;

        alarm[5] = 300;
gml_Object_obj_asriel_body_Alarm_5.gml

starcon += 1;

        if (type == 1)

            alarm[5] = 180;
gml_Object_obj_asriel_body_Alarm_5.gml

starcon += 1;

    }

    if (starcon == 13)

    {

        if (image_alpha > 0)

            image_alpha -= 0.05;

    }

    if (starcon == 14)

    {

        global.faceemotion = 0;

        with (gen)

            instance_destroy();

        armrot_l = 0;

        armrot_r = 0;

        image_alpha += 0.05;

        if (image_alpha >= 1)

        {

            event_user(1);

            aligncon = 4;

            starcon = 0;

        }

    }

}

if (bladecon > 0)

{

    if (bladecon == 1)

    {

        armraise = 20;

        bladecon = 2;

        specialarm = 1;

        alarm[6] = 30;
gml_Object_obj_asriel_body_Alarm_6.gml

bladecon += 1;

    }

    if (bladecon == 2)

    {

        if (arm_alpha > 0)

            arm_alpha -= 0.05;

    }

    if (bladecon == 3)

    {

        gen = instance_create(x, y, obj_asriel_swordmaster);

        gen.h_mode = h_mode;

        bladecon = 4;

        alarm[6] = 30;
gml_Object_obj_asriel_body_Alarm_6.gml

bladecon += 1;

    }

    if (bladecon == 10)

    {

        heady = 0;

        headrot = 0;

        specialarm = 1;

        arm_alpha = 0;

        bladecon = 11;

    }

    if (bladecon == 11)

    {

        image_alpha = 0;

        heady = 0;

        headx = 0;

        specialarm = 0;

        arm_alpha = 1;

        x = 320;

        y = 50;

        relx = 0;

        rely = 0;

        xxoff = 0;

        yyoff = 0;

        armrot_l = 0;

        armrot_r = 0;

        torsorot = 0;

        headrot = 0;

        siner = 0;

        altimer = 0;

        bladecon = 12;

    }

    if (bladecon == 12)

    {

        siner = 0;

        image_alpha += 0.05;

        if (image_alpha >= 1)

        {

            event_user(1);

            specialarm = 0;

            aligncon = 4;

            bladecon = 0;

        }

    }

}

if (guncon > 0)

{

    if (guncon == 1)

    {

        arm_alpha = 1;

        guncon = 2;

        specialarm = 2;

        alarm[7] = 20;
gml_Object_obj_asriel_body_Alarm_7.gml

guncon += 1;

    }

    if (guncon == 2)

    {

        if (arm_alpha > 0)

            arm_alpha -= 0.05;

    }

    if (guncon == 3)

    {

        gen = instance_create(x + 70, y + 15, obj_gunarm_firepattern);

        gen.h_mode = h_mode;

        guncon = 4;

        alarm[7] = 30;
gml_Object_obj_asriel_body_Alarm_7.gml

guncon += 1;

    }

    if (guncon == 7)

    {

        arm_alpha += 0.1;

        if (arm_alpha >= 1)

            guncon = 8;

    }

    if (guncon == 8)

    {

        aligncon = 1;

        guncon = 9;

        alarm[7] = 10;
gml_Object_obj_asriel_body_Alarm_7.gml

guncon += 1;

    }

    if (guncon == 10)

    {

        event_user(1);

        aligncon = 4;

        guncon = 0;

    }

}

if (gonercon > 0)

{

    if (gonercon == 1)

    {

        global.flag[20 animation_index] = 1;

        gonercon = 2;

        alarm[8] = 1;
gml_Object_obj_asriel_body_Alarm_8.gml

gonercon += 1;

    }

    if (gonercon == 3)

    {

        gonercon = 4;

        alarm[8] = 30;
gml_Object_obj_asriel_body_Alarm_8.gml

gonercon += 1;

    }

    if (gonercon == 5)

    {

        with (obj_heart)

            ignore_border = 1;

        ws = instance_create(0, 0, obj_hg_wholescreen);

        gonercon = 6;

        alarm[8] = 40;
gml_Object_obj_asriel_body_Alarm_8.gml

gonercon += 1;

    }

    if (gonercon == 7)

    {

        hg = instance_create(176, 16, obj_hg_body);

        gonercon = 8;

    }

    if (gonercon == 10)

    {

        ws.con = 2;

        shrug = 0;

        specialnormal = 1;

        global.faceemotion = 0;

        global.flag[20 animation_index] = 0;

        with (obj_hg_debris)

            instance_destroy();

        caster_play(cr, 0.9, 0.8);

        obj_heart.image_alpha = 1;

        image_alpha = 0;

        with (obj_heart)

        {

            ignore_border = 0;

            x = 312;

            y = (global.idealborder[2] + global.idealborder[3]) / 2;

        }

        gonercon = 11;

    }

    if (gonercon == 11)

    {

        obj_heart.depth = 0;

        image_alpha += 0.1;

        if (image_alpha >= 1)

        {

            image_alpha = 1;

            gonercon = 12;

            alarm[8] = 30;
gml_Object_obj_asriel_body_Alarm_8.gml

gonercon += 1;

        }

    }

    if (gonercon == 13)

    {

        global.mnfight = 5;

        gonercon = 0;

    }

}

if (global.debug == 1)

{

    if (keyboard_check_pressed(vk_space))

    {

        s_s = 0;

        if (aligncon == 0)

            aligncon = 1;

        if (aligncon == 3)

            aligncon = 4;

    }

    if (control_check_pressed(2))

    {

        s_s = 1;

        if (aligncon == 0)

            aligncon = 1;

        if (aligncon == 3)

            aligncon = 4;

    }

}

if (specialnormal == 1)

{

    sn += 1;

    y = 50 + (sin(sn / 8) * 4);

}

if (specialnormal == 0 && global.mnfight == 0 && global.myfight == 0)

{

    if (global.bmenuno == 1 || global.bmenuno == 2)

    {

        var mon_name = 
Asriel Dreemurr
scr_gettext
scr_gettext

var text_id = argument[0];
var text = ds_map_find_value(global.text_data_en, text_id);
if (is_undefined(text))
    text = "";
if (global.language == "ja")
{
    var loc_text = ds_map_find_value(global.text_data_ja, text_id);
    if (!is_undefined(loc_text))
        text = loc_text;
}
for (var i = 1; i <= (string_length(text) - 3); i++)
{
    if (string_copy(text, i, 2) == "\[" && string_char_at(text, i + 3) == "]")
    {
        var sel = string_char_at(text, i + 2);
        var replace;
        if (sel == "C")
            replace = global.charname;
        else if (sel == "G")
            replace = string(global.gold);
        else if (sel == "I")
            replace = global.itemname[global.menucoord[1]];
        else if (sel == "1" && argument_count > 1)
            replace = argument[1];
        else if (sel == "2" && argument_count > 2)
            replace = argument[2];
        else if (sel == "3" && argument_count > 3)
            replace = argument[3];
        else if (sel == "4" && argument_count > 4)
            replace = argument[4];
        else if (sel == "5" && argument_count > 5)
            replace = argument[5];
        else if (sel == "6" && argument_count > 6)
            replace = argument[6];
        else if (sel == "7" && argument_count > 7)
            replace = argument[7];
        else if (sel == "8" && argument_count > 8)
            replace = argument[8];
        else if (sel == "9" && argument_count > 9)
            replace = argument[9];
        else
            replace = "";
        var before = string_copy(text, 1, i - 1);
        var after = string_copy(text, i + 4, string_length(text));
        text = before + replace + after;
        i += (string_length(replace) - 1);
    }
}
return text;
("monstername_99")
;

        fullphrase = " " + mon_name + " ";

        len = string_length(fullphrase);

        if (global.language == "ja")

            global.monstername[0] = string_repeat("　", string_length(mon_name));

        else

            global.monstername[0] = string_repeat(" ", 2 + string_length(mon_name));

        if (instance_exists(OBJ_INSTAWRITER))

            OBJ_INSTAWRITER.originalstring = 
   * 
scr_gettext
scr_gettext

var text_id = argument[0];
var text = ds_map_find_value(global.text_data_en, text_id);
if (is_undefined(text))
    text = "";
if (global.language == "ja")
{
    var loc_text = ds_map_find_value(global.text_data_ja, text_id);
    if (!is_undefined(loc_text))
        text = loc_text;
}
for (var i = 1; i <= (string_length(text) - 3); i++)
{
    if (string_copy(text, i, 2) == "\[" && string_char_at(text, i + 3) == "]")
    {
        var sel = string_char_at(text, i + 2);
        var replace;
        if (sel == "C")
            replace = global.charname;
        else if (sel == "G")
            replace = string(global.gold);
        else if (sel == "I")
            replace = global.itemname[global.menucoord[1]];
        else if (sel == "1" && argument_count > 1)
            replace = argument[1];
        else if (sel == "2" && argument_count > 2)
            replace = argument[2];
        else if (sel == "3" && argument_count > 3)
            replace = argument[3];
        else if (sel == "4" && argument_count > 4)
            replace = argument[4];
        else if (sel == "5" && argument_count > 5)
            replace = argument[5];
        else if (sel == "6" && argument_count > 6)
            replace = argument[6];
        else if (sel == "7" && argument_count > 7)
            replace = argument[7];
        else if (sel == "8" && argument_count > 8)
            replace = argument[8];
        else if (sel == "9" && argument_count > 9)
            replace = argument[9];
        else
            replace = "";
        var before = string_copy(text, 1, i - 1);
        var after = string_copy(text, i + 4, string_length(text));
        text = before + replace + after;
        i += (string_length(replace) - 1);
    }
}
return text;
("battle_name_header")
 + global.monstername[0];

        n_siner += 1;

        scr_setfont
scr_setfont

var newfont = argument0;
if (global.language == "ja")
{
    if (newfont == fnt_main)
        newfont = fnt_ja_main;
    if (newfont == fnt_maintext)
        newfont = fnt_ja_maintext;
    if (newfont == fnt_plain)
        newfont = fnt_ja_plain;
}
draw_set_font(newfont);
(fnt_main);

        var textx = 110;

        if (global.language == "ja")

            textx = 104;

        for (i = 0; i < len; i += 1)

        {

            tcolor = make_color_hsv((siner * 8) + (i * 8), 140, 255);

            draw_set_color(tcolor);

            letter = string_char_at(fullphrase, i);

            draw_text_transformed(textx + (sin((siner + i) / 5) * 8), 270 + (cos((siner + i) / 5) * 4), letter, 1, 1, 0);

            if (global.language == "ja")

            {

                var ch = ord(letter);

                if (ch == 32 || ch >= 65377)

                    textx += 13;

                else if (ch < 8192)

                    textx += 16;

                else

                    textx += 26;

            }

            else

            {

                textx += 16;

            }

        }

    }

}

if (global.flag[20 animation_index] == 1)

    shrug = 1;

else

    shrug = 0;