Undertale script viewer

if (global.mnfight == 3)

    attacked = 0;

scr_blconmatch
scr_blconmatch

if (alarm[5] > 0)
{
    if (global.monster[0] == 1)
    {
        if (global.monsterinstance[0].alarm[5] >alarm[5]
alarm[5]
    }
    if (global.monster[1] == 1)
    {
        if (global.monsterinstance[1].alarm[5] >alarm[5]
alarm[5]
    }
    if (global.monster[2] == 1)
    {
        if (global.monsterinstance[2].alarm[5] >alarm[5]
alarm[5]
    }
}
();

if (global.mnfight == 1)

{

    if (talked == 0)

    {

        alarm[5]
 = 70;
gml_Object_obj_loox_Alarm_5.gml

with (blconwd)
    instance_destroy();
with (blcon)
    instance_destroy();
talked = 0;
whatiheard = -1;
global.mnfight = 2;

        alarm[6]
 = 1;
gml_Object_obj_loox_Alarm_6.gml

blcon = instance_create((x + sprite_width) - 8, ystart + 8, obj_blconsm);
mycommand = round(random(100));
if (mycommand >= 0 && mycommand < 20)
    global.msg[0] = 
I've got
my eye
on you.
scr_gettext("obj_loox_197")
;
if (mycommand >= 20 && mycommand < 40)
    global.msg[0] = 
Don't
point
that
at me.
scr_gettext("obj_loox_198")
;
if (mycommand >= 40 && mycommand < 60)
    global.msg[0] = 
Quit
staring
at me.
scr_gettext("obj_loox_199")
;
if (mycommand >= 60 && mycommand <= 80)
    global.msg[0] = 
What an
eyesore.
scr_gettext("obj_loox_200")
;
if (mycommand >= 80 && mycommand <= 100)
    global.msg[0] = 
How
about a
staring
contest?
scr_gettext("obj_loox_201")
;
if (global.turn == 0)
    global.msg[0] = 
Please
don't
pick on
me.
scr_gettext("obj_loox_202")
;
if (whatiheard == 1)
    global.msg[0] = 
Finally
someone
gets it.
scr_gettext("obj_loox_205")
;
if (whatiheard == 3)
    global.msg[0] = 
You rude
little
snipe!
scr_gettext("obj_loox_209")
;
global.msg[1] = 
Close MessageClose MessageClose Message
scr_gettext("obj_loox_213")
;
global.typer = 2;
blconwd = instance_create(blcon.x + 15, blcon.y + 10, OBJ_NOMSCWRITER);
global.border = 6;
obj_heart.x = round((global.idealborder[0] + global.idealborder[1]) / 2) - 8;
obj_heart.y = round((global.idealborder[2] + global.idealborder[3]) / 2) - 8;

        talked = 1;

        global.heard = 0;

    }

}

if (control_check_pressed(0))

{

    if (alarm[5] > 5 && obj_lborder.x == global.idealborder[0] && alarm[6]
 < 0)
gml_Object_obj_loox_Alarm_6.gml

blcon = instance_create((x + sprite_width) - 8, ystart + 8, obj_blconsm);
mycommand = round(random(100));
if (mycommand >= 0 && mycommand < 20)
    global.msg[0] = 
I've got
my eye
on you.
scr_gettext("obj_loox_197")
;
if (mycommand >= 20 && mycommand < 40)
    global.msg[0] = 
Don't
point
that
at me.
scr_gettext("obj_loox_198")
;
if (mycommand >= 40 && mycommand < 60)
    global.msg[0] = 
Quit
staring
at me.
scr_gettext("obj_loox_199")
;
if (mycommand >= 60 && mycommand <= 80)
    global.msg[0] = 
What an
eyesore.
scr_gettext("obj_loox_200")
;
if (mycommand >= 80 && mycommand <= 100)
    global.msg[0] = 
How
about a
staring
contest?
scr_gettext("obj_loox_201")
;
if (global.turn == 0)
    global.msg[0] = 
Please
don't
pick on
me.
scr_gettext("obj_loox_202")
;
if (whatiheard == 1)
    global.msg[0] = 
Finally
someone
gets it.
scr_gettext("obj_loox_205")
;
if (whatiheard == 3)
    global.msg[0] = 
You rude
little
snipe!
scr_gettext("obj_loox_209")
;
global.msg[1] = 
Close MessageClose MessageClose Message
scr_gettext("obj_loox_213")
;
global.typer = 2;
blconwd = instance_create(blcon.x + 15, blcon.y + 10, OBJ_NOMSCWRITER);
global.border = 6;
obj_heart.x = round((global.idealborder[0] + global.idealborder[1]) / 2) - 8;
obj_heart.y = round((global.idealborder[2] + global.idealborder[3]) / 2) - 8;

        alarm[5]
 = 2;
gml_Object_obj_loox_Alarm_5.gml

with (blconwd)
    instance_destroy();
with (blcon)
    instance_destroy();
talked = 0;
whatiheard = -1;
global.mnfight = 2;

}

if (global.hurtanim[myself] == 1)

{

    shudder = 16;

    alarm[3]
 = global.damagetimer;
gml_Object_obj_loox_Alarm_3.gml

if (sprite_index != spr_looxhurt)
{
    dmgwriter = instance_create((x + (sprite_width / 2)) - 48, y, obj_dmgwriter);
    global.damage = takedamage;
    with (dmgwriter)
        dmg = global.damage;
    sprite_index = spr_looxhurt;
    snd_play(hurtsound);
}
x += shudder;
if (shudder < 0)
    shudder = -(shudder + 2);
else
    shudder = -shudder;
if (shudder == 0)
{
    global.hurtanim[myself] = 2;
    exit;
}
alarm[3]
 = 2;

    global.hurtanim[myself] = 3;

}

if (global.hurtanim[myself] == 2)

{

    global.monsterhp[myself] -= takedamage;

    with (dmgwriter)

alarm[2]

    if (global.monsterhp[myself] >= 1)

    {

        global.hurtanim[myself] = 0;

        sprite_index = spr_loox;

        image_index = 0;

        global.myfight = 0;

        global.mnfight = 1;

    }

    else

    {

        global.myfight = 0;

        global.mnfight = 1;

        killed = 1;

        instance_destroy();

    }

}

if (global.hurtanim[myself] == 5)

{

    global.damage = 0;

    instance_create((x + (sprite_width / 2)) - 48, y - 24, obj_dmgwriter);

    with (obj_dmgwriter)

alarm[2]

    global.myfight = 0;

    global.mnfight = 1;

    global.hurtanim[myself] = 0;

}

if (global.mnfight == 2)

{

    if (attacked == 0)

    {

        global.turntimer = 110;

        global.firingrate = 4;

        if ((global.monster[0] + global.monster[1] + global.monster[2]) == 3)

            mycommand = 2;

        if (mycommand < 50)

        {

            global.firingrate = 13;

            if (mercymod < 0)

                global.firingrate -= 6;

            if (mercymod > 6)

                global.firingrate += 5;

            if ((global.monster[0] + global.monster[1] + global.monster[2]) > 1)

                global.firingrate = global.firingrate * 1.5;

            if ((global.monster[0] + global.monster[1] + global.monster[2]) == 3)

                global.firingrate = global.firingrate * 2;

            gen = instance_create(0, 0, obj_hoopgen1);

            gen.bullettype = 0;

        }

        if (mycommand >= 50)

        {

            global.firingrate = 15;

            if (mercymod < 0)

                global.firingrate -= 6;

            if (mercymod > 6)

                global.firingrate += 5;

            if ((global.monster[0] + global.monster[1] + global.monster[2]) == 2)

                global.firingrate = global.firingrate * 1.5;

            if ((global.monster[0] + global.monster[1] + global.monster[2]) == 3)

                global.firingrate = global.firingrate * 2;

            gen = instance_create(0, 0, obj_hoopgen1);

            gen.bullettype = 1;

        }

        gen.myself = myself;

        gen.dmg = global.monsteratk[myself];

        if (mycommand >= 0)

            global.msg[0] = 
* Loox is gazing at you.
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;
("obj_loox_403")
;

        if (mycommand >= 30)

            global.msg[0] = 
* Loox is staring right
through you.
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;
("obj_loox_404")
;

        if (mycommand >= 70)

            global.msg[0] = 
* Loox gnashes its teeth.
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;
("obj_loox_405")
;

        if (mycommand >= 90)

            global.msg[0] = 
* Smells like eyedrops.
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;
("obj_loox_406")
;

        if (mercymod < -100)

            global.msg[0] = 
* Loox has gone bloodshot.
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;
("obj_loox_407")
;

        if (mercymod > 100)

            global.msg[0] = 
* Loox doesn't care about
fighting anymore.
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;
("obj_loox_408")
;

        if (global.monsterhp[myself] < (global.monstermaxhp[myself] / 3))

            global.msg[0] = 
* Loox is watering.
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;
("obj_loox_409")
;

        attacked = 1;

    }

}

if (global.myfight == 2)

{

    if (whatiheard != -1)

    {

        if (global.heard == 0)

        {

            if (whatiheard == 0)

            {

                global.msc = 0;

                global.msg[0] = 
* LOOX - ATK 6 DEF 6
* Don't pick on him.
* Family name: EyewalkerWait for input^
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;
("obj_loox_425")
;

                OBJ_WRITER.halt = 3;

                iii = instance_create(global.idealborder[0], global.idealborder[2], OBJ_WRITER);

                with (iii)

                    halt = 0;

            }

            if (whatiheard == 3)

            {

                if (mercymod < 100 && global.xpreward[myself] < 20)

                    global.xpreward[myself] += 5;

                mercymod = -100;

                global.myfight = 0;

                global.mnfight = 1;

            }

            if (whatiheard == 1)

            {

                global.flag[133 spared_loox] = 1;

                if (global.xpreward[myself] > 4)

                    global.xpreward[myself] -= 2;

                mercymod = 100;

                global.myfight = 0;

                global.mnfight = 1;

            }

            global.heard = 1;

        }

    }

}

if (global.myfight == 4)

{

    if (global.mercyuse == 0)

    {

        script_execute(scr_mercystandard);

        if (mercy < 0)

            instance_destroy();

    }

}