Undertale script viewer

← back to main script listing

gml_Object_obj_napstablook_Step_0

(view raw script w/o annotations or w/e)
1 
if (global.mnfight == 3)
2 
    attacked = 0;
3 
scr_blconmatch
scr_blconmatch

if (alarm[5] > 0)
{
    if (global.monster[0] == 1)
    {
        if (global.monsterinstance[0].alarm[5] >alarm[5]
alarm[5]
gml_Object_obj_napstablook_Alarm_5.gml

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

    }
    if (global.monster[1] == 1)
    {
        if (global.monsterinstance[1].alarm[5] >alarm[5]
alarm[5]
gml_Object_obj_napstablook_Alarm_5.gml

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

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

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

    }
}
();
4 
if (global.mnfight == 1)
5 
{
6 
    if (talked == 0)
7 
    {
8 
        if (global.monsterhp[myself] > 0)
9 
            alarm[5] = 75;
gml_Object_obj_napstablook_Alarm_5.gml

with (blconwd)
    instance_destroy();
with (blcon)
    instance_destroy();
talked = 0;
whatiheard = -1;
global.mnfight = 2;
10 
        if (mercymod == -49)
11 
            alarm[5] = 400;
gml_Object_obj_napstablook_Alarm_5.gml

with (blconwd)
    instance_destroy();
with (blcon)
    instance_destroy();
talked = 0;
whatiheard = -1;
global.mnfight = 2;
12 
        alarm[6] = 1;
gml_Object_obj_napstablook_Alarm_6.gml

if (global.monsterhp[myself] > 0)
{
    blcon = instance_create(x + sprite_width + 21, ystart + 24, obj_blconsm);
    mycommand = round(random(100));
    if (mycommand >= 0 && mycommand < 40)
        global.msg[0] = 
i'm
fine,
thanks.
scr_gettext("obj_napstablook_294")
;
    if (mycommand >= 40 && mycommand < 66)
        global.msg[0] = 
just
pluggin
along...
scr_gettext("obj_napstablook_295")
;
    if (mycommand >= 66 && mycommand)
        global.msg[0] = 
nnnnnn
ggghhh.
scr_gettext("obj_napstablook_296")
;
    if (whatiheard == 0)
        global.msg[0] = 
oh, i'm
REAL
funny.
scr_gettext("obj_napstablook_297")
;
    if (whatiheard == 1)
        global.msg[0] = 
go
ahead,
do it.
scr_gettext("obj_napstablook_298")
;
    if (whatiheard == 3)
        global.msg[0] = 
i'd just
weigh
you
down.
scr_gettext("obj_napstablook_299")
;
    if (whatiheard == 4)
        global.msg[0] = 
heh...
scr_gettext("obj_napstablook_300")
;
    if (whatiheard == 4 && mercymod > -300)
        global.msg[0] = 
heh
heh...
scr_gettext("obj_napstablook_301")
;
    if (whatiheard == 4 && mercymod > -200)
        global.msg[0] = 
let me
try...
scr_gettext("obj_napstablook_302")
;
    if (whatiheard != 4 && whatiheard != 3 && mercymod == -50 && mercer == 0)
    {
        global.msg[0] = 
i knew
it...
scr_gettext("obj_napstablook_305")
;
        mercymod = -1200;
        if (instance_exists(blt_blookhat))
        {
            with (blt_blookhat)
                instance_destroy();
        }
    }
    if (whatiheard == 3 && mercymod == -49)
    {
        global.msg[0] = 
oh
no...
scr_gettext("obj_napstablook_311")
;
        alarm[7] = 60;
        global.plot = 10.3;
    }
    if (whatiheard == 4 && mercymod == -49)
    {
        global.msg[0] = 
oh
gee...
scr_gettext("obj_napstablook_317")
;
        alarm[7] = 60;
        global.plot = 10.3;
    }
    else
    {
        global.border = 3;
        if (global.turn == 1)
            global.border = 5;
        obj_heart.x = round((global.idealborder[0] + global.idealborder[1]) / 2) - 8;
        obj_heart.y = round((global.idealborder[2] + global.idealborder[3]) / 2) - 8;
    }
    global.msg[1] = 
Close MessageClose MessageClose Message
scr_gettext("obj_napstablook_329")
;
    global.typer = 2;
    blconwd = instance_create(blcon.x + 15, blcon.y + 10, OBJ_NOMSCWRITER);
}
else
{
    if (instance_exists(dmgwriter))
    {
        with (dmgwriter)
            instance_destroy();
    }
    blcon = instance_create(x + sprite_width + 11, y + 24, obj_blconwdflowey);
    global.msc = 0;
    global.msg[0] = 
umm... you do
know you cant
kill ghosts, right?Wait for input
scr_gettext("obj_napstablook_339")
;
    global.msg[1] = 
we're sorta
incorporeal and
allWait for input
scr_gettext("obj_napstablook_340")
;
    global.msg[2] = 
i was just
lowering my hp
because i didnt
want to be rudeWait for input
scr_gettext("obj_napstablook_341")
;
    global.msg[3] = 
sorry...Delay 11
i just made this
more awkward...Wait for input
scr_gettext("obj_napstablook_342")
;
    global.msg[4] = 
pretend you beat
me...Wait for input
scr_gettext("obj_napstablook_343")
;
    global.msg[5] = 
ooooooooooDelay 11Close MessageClose Message
scr_gettext("obj_napstablook_344")
;
    global.plot = 11;
    conversation = 1;
    image_speed = 0.2;
    global.typer = 2;
    blconwriter = instance_create(obj_blconwdflowey.x + 36, obj_blconwdflowey.y + 10, OBJ_WRITER);
    alarm[9] = 2;
}
mercer = 0;
13 
        talked = 1;
14 
        global.heard = 0;
15 
    }
16 
}
17 
if (control_check_pressed(0))
18 
{
19 
    if (alarm[5] > 5 && obj_lborder.x == global.idealborder[0] && alarm[6] < 0)
gml_Object_obj_napstablook_Alarm_6.gml

if (global.monsterhp[myself] > 0)
{
    blcon = instance_create(x + sprite_width + 21, ystart + 24, obj_blconsm);
    mycommand = round(random(100));
    if (mycommand >= 0 && mycommand < 40)
        global.msg[0] = 
i'm
fine,
thanks.
scr_gettext("obj_napstablook_294")
;
    if (mycommand >= 40 && mycommand < 66)
        global.msg[0] = 
just
pluggin
along...
scr_gettext("obj_napstablook_295")
;
    if (mycommand >= 66 && mycommand)
        global.msg[0] = 
nnnnnn
ggghhh.
scr_gettext("obj_napstablook_296")
;
    if (whatiheard == 0)
        global.msg[0] = 
oh, i'm
REAL
funny.
scr_gettext("obj_napstablook_297")
;
    if (whatiheard == 1)
        global.msg[0] = 
go
ahead,
do it.
scr_gettext("obj_napstablook_298")
;
    if (whatiheard == 3)
        global.msg[0] = 
i'd just
weigh
you
down.
scr_gettext("obj_napstablook_299")
;
    if (whatiheard == 4)
        global.msg[0] = 
heh...
scr_gettext("obj_napstablook_300")
;
    if (whatiheard == 4 && mercymod > -300)
        global.msg[0] = 
heh
heh...
scr_gettext("obj_napstablook_301")
;
    if (whatiheard == 4 && mercymod > -200)
        global.msg[0] = 
let me
try...
scr_gettext("obj_napstablook_302")
;
    if (whatiheard != 4 && whatiheard != 3 && mercymod == -50 && mercer == 0)
    {
        global.msg[0] = 
i knew
it...
scr_gettext("obj_napstablook_305")
;
        mercymod = -1200;
        if (instance_exists(blt_blookhat))
        {
            with (blt_blookhat)
                instance_destroy();
        }
    }
    if (whatiheard == 3 && mercymod == -49)
    {
        global.msg[0] = 
oh
no...
scr_gettext("obj_napstablook_311")
;
        alarm[7] = 60;
        global.plot = 10.3;
    }
    if (whatiheard == 4 && mercymod == -49)
    {
        global.msg[0] = 
oh
gee...
scr_gettext("obj_napstablook_317")
;
        alarm[7] = 60;
        global.plot = 10.3;
    }
    else
    {
        global.border = 3;
        if (global.turn == 1)
            global.border = 5;
        obj_heart.x = round((global.idealborder[0] + global.idealborder[1]) / 2) - 8;
        obj_heart.y = round((global.idealborder[2] + global.idealborder[3]) / 2) - 8;
    }
    global.msg[1] = 
Close MessageClose MessageClose Message
scr_gettext("obj_napstablook_329")
;
    global.typer = 2;
    blconwd = instance_create(blcon.x + 15, blcon.y + 10, OBJ_NOMSCWRITER);
}
else
{
    if (instance_exists(dmgwriter))
    {
        with (dmgwriter)
            instance_destroy();
    }
    blcon = instance_create(x + sprite_width + 11, y + 24, obj_blconwdflowey);
    global.msc = 0;
    global.msg[0] = 
umm... you do
know you cant
kill ghosts, right?Wait for input
scr_gettext("obj_napstablook_339")
;
    global.msg[1] = 
we're sorta
incorporeal and
allWait for input
scr_gettext("obj_napstablook_340")
;
    global.msg[2] = 
i was just
lowering my hp
because i didnt
want to be rudeWait for input
scr_gettext("obj_napstablook_341")
;
    global.msg[3] = 
sorry...Delay 11
i just made this
more awkward...Wait for input
scr_gettext("obj_napstablook_342")
;
    global.msg[4] = 
pretend you beat
me...Wait for input
scr_gettext("obj_napstablook_343")
;
    global.msg[5] = 
ooooooooooDelay 11Close MessageClose Message
scr_gettext("obj_napstablook_344")
;
    global.plot = 11;
    conversation = 1;
    image_speed = 0.2;
    global.typer = 2;
    blconwriter = instance_create(obj_blconwdflowey.x + 36, obj_blconwdflowey.y + 10, OBJ_WRITER);
    alarm[9] = 2;
}
mercer = 0;
20 
        alarm[5] = 2;
gml_Object_obj_napstablook_Alarm_5.gml

with (blconwd)
    instance_destroy();
with (blcon)
    instance_destroy();
talked = 0;
whatiheard = -1;
global.mnfight = 2;
21 
}
22 
if (global.hurtanim[myself] == 1)
23 
{
24 
    shudder = 16;
25 
    alarm[3] = global.damagetimer;
gml_Object_obj_napstablook_Alarm_3.gml

if (shudder == 16)
{
    dmgwriter = instance_create((x + (sprite_width / 2)) - 48, y - 20, obj_dmgwriter);
    global.damage = takedamage;
    with (dmgwriter)
        dmg = global.damage;
}
shudder -= 2;
if (shudder == 0)
{
    global.hurtanim[myself] = 2;
    exit;
}
alarm[3] = 2;
26 
    global.hurtanim[myself] = 3;
27 
}
28 
if (global.hurtanim[myself] == 2)
29 
{
30 
    global.monsterhp[myself] -= takedamage;
31 
    with (dmgwriter)
32 
alarm[2]
33 
    if (global.monsterhp[myself] >= 1)
34 
    {
35 
        global.hurtanim[myself] = 0;
36 
        image_index = 0;
37 
        global.myfight = 0;
38 
        global.mnfight = 1;
39 
    }
40 
    else
41 
    {
42 
        global.myfight = 0;
43 
        global.mnfight = 1;
44 
    }
45 
}
46 
if (global.hurtanim[myself] == 5)
47 
{
48 
    global.damage = 0;
49 
    instance_create((x + (sprite_width / 2)) - 48, y - 24, obj_dmgwriter);
50 
    with (obj_dmgwriter)
51 
alarm[2]
52 
    global.myfight = 0;
53 
    global.mnfight = 1;
54 
    global.hurtanim[myself] = 0;
55 
}
56 
if (global.mnfight == 2)
57 
{
58 
    if (attacked == 0)
59 
    {
60 
        global.turntimer = 160;
61 
        if (mercymod != -100)
62 
        {
63 
            if (global.turn != 1)
64 
            {
65 
                if (mycommand >= 0 && mycommand <= 50)
66 
                {
67 
                    global.turntimer = 140;
68 
                    global.firingrate = 4000 / -mercymod;
69 
                    gen = instance_create(0, 0, obj_crygen1);
70 
                }
71 
                else
72 
                {
73 
                    global.turntimer = 170;
74 
                    global.firingrate = 3600 / -mercymod;
75 
                    gen = instance_create(0, 0, obj_crygen2);
76 
                }
77 
            }
78 
            else
79 
            {
80 
                global.turntimer = 140;
81 
                gen = instance_create(global.idealborder[0] + 30, global.idealborder[2] + 30, obj_sadmsggen);
82 
            }
83 
        }
84 
        else
85 
        {
86 
            global.turntimer = 260;
87 
            global.firingrate = 8;
88 
            instance_create(obj_napstablook.x + 34, obj_napstablook.y - 30, blt_blookhat);
89 
            gen = instance_create(0, 0, obj_crygen3);
90 
        }
91 
        gen.myself = myself;
92 
        gen.dmg = global.monsteratk[myself];
93 
        if (mycommand >= 0)
94 
            global.msg[0] = 
* Napstablook is staring into
the distance.
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_napstablook_549")
;
95 
        if (mycommand >= 30)
96 
            global.msg[0] = 
* Napstablook is wishing they
weren't here.
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_napstablook_550")
;
97 
        if (mycommand >= 70)
98 
            global.msg[0] = 
* Napstablook is pretending to
sleep.
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_napstablook_551")
;
99 
        if (mycommand >= 90)
100 
            global.msg[0] = 
* The faint odor of ectoplasm
permeates the vicinity.
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_napstablook_552")
;
101 
        if (mercymod > -400)
102 
            global.msg[0] = 
* Napstablook looks just a
little bit better.
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_napstablook_553")
;
103 
        if (mercymod > -290)
104 
            global.msg[0] = 
* Cheering seems to have
improved Napstablook's
mood again.
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_napstablook_554")
;
105 
        attacked = 1;
106 
    }
107 
}
108 
if (whatiheard == 3 && instance_exists(OBJ_WRITER) == 0)
109 
{
110 
    script_execute(scr_mercystandard);
111 
    if (mercy < 0)
112 
        instance_destroy();
113 
}
114 
if (global.myfight == 2)
115 
{
116 
    if (whatiheard != -1)
117 
    {
118 
        if (global.heard == 0)
119 
        {
120 
            if (whatiheard == 0)
121 
            {
122 
                global.msc = 0;
123 
                global.msg[0] = 
* NAPSTABLOOK - ATK 10 DEF 10
* This monster doesn't seem to
have a sense of humor...Wait 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_napstablook_576")
;
124 
                if (global.flag[6 hardmode] == 1)
125 
                    global.msg[0] = 
* NAPSTABLOOK - ATK 10 DEF 10
* Missed the memo and is the
same difficulty as normal.Wait 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_napstablook_579")
;
126 
                OBJ_WRITER.halt = 3;
127 
                iii = instance_create(global.idealborder[0], global.idealborder[2], OBJ_WRITER);
128 
                with (iii)
129 
                    halt = 0;
130 
            }
131 
            if (whatiheard == 3)
132 
            {
133 
                global.myfight = 0;
134 
                global.mnfight = 1;
135 
                if (mercymod == -50)
136 
                {
137 
                    mercymod = -49;
138 
                    caster_stop(global.batmusic);
139 
                    caster_free(global.batmusic);
140 
                    global.myfight = 0;
141 
                    global.mnfight = 1;
142 
                }
143 
            }
144 
            if (whatiheard == 1)
145 
            {
146 
                global.msc = 0;
147 
                global.msg[0] = 
* You give Napstablook a
cruel look.Wait 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_napstablook_603")
;
148 
                OBJ_WRITER.halt = 3;
149 
                iii = instance_create(global.idealborder[0], global.idealborder[2], OBJ_WRITER);
150 
                with (iii)
151 
                    halt = 0;
152 
            }
153 
            if (whatiheard == 4)
154 
            {
155 
                global.msc = 0;
156 
                if (mercymod == -50)
157 
                {
158 
                    mercymod = -49;
159 
                    caster_stop(global.batmusic);
160 
                    caster_free(global.batmusic);
161 
                    global.myfight = 0;
162 
                    global.mnfight = 1;
163 
                }
164 
                else
165 
                {
166 
                    if (mercymod < -400)
167 
                        global.msg[0] = 
* You try to console
Napstablook...Wait 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_napstablook_621")
;
168 
                    if (mercymod == -400)
169 
                        global.msg[0] = 
* You gave Napstablook a
patient smile.Wait 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_napstablook_622")
;
170 
                    if (mercymod == -300)
171 
                        global.msg[0] = 
* You told Napstablook a
little joke.Wait 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_napstablook_623")
;
172 
                    if (mercymod == -200)
173 
                        global.msg[0] = 
* Napstablook wants to
show you something.Wait 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_napstablook_624")
;
174 
                    OBJ_WRITER.halt = 3;
175 
                    iii = instance_create(global.idealborder[0], global.idealborder[2], OBJ_WRITER);
176 
                    with (iii)
177 
                        halt = 0;
178 
                    mercymod += 100;
179 
                }
180 
            }
181 
            global.heard = 1;
182 
        }
183 
    }
184 
}
185 
if (global.myfight == 4)
186 
{
187 
    if (global.mercyuse == 0)
188 
    {
189 
        mercer = 1;
190 
        script_execute(scr_mercystandard);
191 
        if (mercy < 0)
192 
            instance_destroy();
193 
    }
194 
}