Deltarune (Chapter 2) script viewer

← back to main script listing

gml_Object_obj_shop1_Draw_0

(view raw script w/o annotations or w/e)
1
draw_sprite_ext(bg_seam_shop_ch2, 0, 0, 0, 2, 2, 0, c_white, 1);
2
draw_sprite_ext(bg_seam_shop_ch2, 2, 0, 0, 2, 2, 0, c_white, abs(sin(siner / 30)));
3
siner += 1;
4
if (menu == 1 || menu == 2)
5
{
6
    if (shopcharx > -20)
7
        shopcharx -= 4;
8
    if (shopcharx > -40)
9
        shopcharx -= 4;
10
    if (shopcharx > -80)
11
        shopcharx -= 4;
12
    if (shopcharx <= -80)
13
        shopcharx = -80;
14
}
15
else
16
{
17
    if (shopcharx < -50)
18
        shopcharx += 4;
19
    if (shopcharx < -30)
20
        shopcharx += 4;
21
    if (shopcharx < 0)
22
        shopcharx += 4;
23
    if (shopcharx > 0)
24
        shopcharx = 0;
25
}
26
talkanim = 0;
27
if (instance_exists(obj_writer))
28
{
29
    if (obj_writer.pos < obj_writer.length)
30
    {
31
        if (talkbuffer < 0)
32
            talkfacer = 0;
33
        talkbuffer = 16;
34
        talkanim = 1;
35
        idletimer = 0;
36
        idlefacer = 0;
37
        talkfacer += 0.2;
38
    }
39
}
40
shopkeepsprite = spr_seam_talk;
41
if (global.fe == 1)
42
    shopkeepsprite = spr_seam_oh;
43
if (global.fe == 2)
44
    shopkeepsprite = spr_seam_laugh;
45
if (global.fe == 3)
46
    shopkeepsprite = spr_seam_impatient;
47
qualify = 0;
48
if (global.fe != 0 && talkbuffer < 0)
49
    talkbuffer = 0;
50
if (talkbuffer >= 0)
51
{
52
    if (talkbuffer < 16)
53
    {
54
        if (((talkfacer + 1) % 3) != 0)
55
            talkfacer += 0.2;
56
    }
57
    draw_sprite_ext(shopkeepsprite, talkfacer, shopcharx + 160, 34, 2, 2, 0, c_white, 1);
58
    qualify = 1;
59
}
60
if (qualify == 0)
61
{
62
    idletimer += 1;
63
    if (idletimer >= 60)
64
        idlefacer += 0.2;
65
    if (idlefacer >= 5)
66
    {
67
        idletimer = 0;
68
        idlefacer = 0;
69
    }
70
    draw_sprite_ext(spr_seam_idle, idlefacer, shopcharx + 160, 34, 2, 2, 0, c_white, 1);
71
}
72
talkbuffer -= 1;
73
draw_set_color(c_black);
74
draw_rectangle(0, 240, 640, 480, false);
75
scr_shopmenu
scr_shopmenu

function
scr_shopmenu(arg0)
{ if (arg0 == 0) { if (menu == 1 || menu == 2) {
scr_darkbox_black(400, minimenuy, 640, 255);
draw_set_color(c_white);
scr_84_set_draw_font("mainbig");
if (menuc[1] == 0) draw_text(440, minimenuy + 28, string_hash_to_newline(shopdesc[0])); if (menuc[1] == 1) draw_text(440, minimenuy + 28, string_hash_to_newline(shopdesc[1])); if (menuc[1] == 2) draw_text(440, minimenuy + 28, string_hash_to_newline(shopdesc[2])); if (menuc[1] == 3) draw_text(440, minimenuy + 28, string_hash_to_newline(shopdesc[3]));
scr_84_set_draw_font("dotumche");
if (itemtype[menuc[1]] == "weapon" || itemtype[menuc[1]] == "armor") { for (i = 0; i < 3; i += 1) { can_index = 0; facetype = spr_headkris; which = global.char[i]; if (global.char[i] == 1) facetype = spr_headkris; if (global.char[i] == 2) facetype = spr_headsusie; if (global.char[i] == 3) facetype = spr_headralsei; if (which != 0) { if (i == 0) { locx = 0; locy = 0; } if (i == 1) { locx = 100; locy = 0; } if (i == 2) { locx = 0; locy = 45; } if (canequip[menuc[1]][which] == 0) can_index = 8; draw_sprite(facetype, can_index, 426 + locx, minimenuy + 140 + locy); if (itemtype[menuc[1]] == "weapon" && can_index != 8) { draw_set_color(c_white); sum[0] = itematk[menuc[1]] - global.itemat[which][0]; sum[1] = itemmagic[menuc[1]] - global.itemmag[which][0]; for (j = 0; j < 2; j += 1) { dcolor = c_white; addt = ""; draw_set_color(c_white); if (sum[j] > 0) { draw_set_color(c_yellow); addt = "+"; } if (sum[j] < 0) draw_set_color(c_aqua); draw_sprite_ext(spr_shopicon, j, 470 + locx, minimenuy + locy + 135 + (20 * j), 1, 1, 0, dcolor, 1); draw_text(490 + locx, minimenuy + locy + 135 + (20 * j), string_hash_to_newline(addt + string(sum[j]))); } } if (itemtype[menuc[1]] == "armor" && can_index != 8) { sum[0] = itemdef[menuc[1]] - global.itemdf[which][1]; sum[1] = itemdef[menuc[1]] - global.itemdf[which][2]; for (j = 0; j < 2; j += 1) { dcolor = c_white; addt = ""; draw_set_color(c_white); if (sum[j] > 0) { draw_set_color(c_yellow); addt = "+"; } if (sum[j] < 0) draw_set_color(c_aqua); draw_sprite_ext(spr_shopicon, 2 + j, 470 + locx, minimenuy + locy + 135 + (20 * j), 1, 1, 0, dcolor, 1); draw_text(490 + locx, minimenuy + 135 + (20 * j) + locy, string_hash_to_newline(addt + string(sum[j]))); } } } } } } } if (arg0 == 4) { if (menu == 11 || menu == 15) { ...
(0);
76
if (menu <= 3 || menu >= 10)
77
{
78
    
scr_darkbox_black
scr_darkbox_black

function
scr_darkbox_black(arg0, arg1, arg2, arg3)
{ draw_set_color(c_black); draw_rectangle(arg0 + 20, arg1 + 20, arg2 - 20, arg3 - 20, false);
scr_darkbox(arg0, arg1, arg2, arg3);
}
(0, 240, 415, 480);
79
    
scr_darkbox_black
scr_darkbox_black

function
scr_darkbox_black(arg0, arg1, arg2, arg3)
{ draw_set_color(c_black); draw_rectangle(arg0 + 20, arg1 + 20, arg2 - 20, arg3 - 20, false);
scr_darkbox(arg0, arg1, arg2, arg3);
}
(400, 240, 640, 480);
80
}
81
if (menu == 4)
82
    
scr_darkbox_black
scr_darkbox_black

function
scr_darkbox_black(arg0, arg1, arg2, arg3)
{ draw_set_color(c_black); draw_rectangle(arg0 + 20, arg1 + 20, arg2 - 20, arg3 - 20, false);
scr_darkbox(arg0, arg1, arg2, arg3);
}
(0, 240, 640, 480);
83
if (menu == 0)
84
{
85
    sell = 0;
86
    selling = 0;
87
    sidemessage = 0;
88
    menuc[1] = 0;
89
    menuc[2] = 0;
90
    menuc[3] = 0;
91
    menuc[4] = 0;
92
    if (instance_exists(obj_writer) == false)
93
    {
94
        global.typer = 6;
95
        global.msg[0] = stringsetloc(
Face 0* Take your time...Delay 11
* Ain't like it's
better spent.
"\\E0* Take your time..^1.&* Ain't like it's&better spent.", "obj_shop1_slash_Draw_0_gml_98_0"
);
96
        if (mainmessage == 0)
97
            global.msg[0] = stringsetloc(
Face 0* Hee hee...Delay 11
* Welcome, travellers.
"\\E0* Hee hee..^1.&* Welcome, travellers.", "obj_shop1_slash_Draw_0_gml_99_0"
);
98
        instance_create(30, 270, obj_writer);
99
    }
100
    menumax = 3;
101
    draw_set_color(c_white);
102
    
scr_84_set_draw_font
scr_84_set_draw_font

function
scr_84_set_draw_font(arg0)
{ global.chemg_font = arg0; draw_set_font(
scr_84_get_font(arg0));
}
("mainbig");
103
    draw_text(480, 260, string_hash_to_newline(stringsetloc(
Buy
"Buy", "obj_shop1_slash_Draw_0_gml_106_0"
)));
104
    draw_text(480, 300, string_hash_to_newline(stringsetloc(
Sell
"Sell", "obj_shop1_slash_Draw_0_gml_107_0"
)));
105
    draw_text(480, 340, string_hash_to_newline(stringsetloc(
Talk
"Talk", "obj_shop1_slash_Draw_0_gml_108_0"
)));
106
    draw_text(480, 380, string_hash_to_newline(stringsetloc(
Exit
"Exit", "obj_shop1_slash_Draw_0_gml_109_0"
)));
107
    draw_sprite(spr_heart, 0, 450, (135 + (menuc[0] * 20)) * 2);
108
    if (button1_p())
109
    {
110
        onebuffer = 2;
111
        mainmessage = 1;
112
        with (obj_writer)
113
            instance_destroy();
114
        if (menuc[0] == 0)
115
            menu = 1;
116
        if (menuc[0] == 1)
117
        {
118
            menu = 10;
119
            sidemessage = 0;
120
        }
121
        if (menuc[0] == 2)
122
        {
123
            if (global.chapter == 1)
124
                menu = 3;
125
            if (global.chapter >= 2)
126
                menu = 4;
127
            sell = 10;
128
        }
129
        if (menuc[0] == 3)
130
        {
131
            sell = 2;
132
            menu = 4;
133
        }
134
    }
135
}
136
if (menu == 1 || menu == 2)
137
{
138
    draw_set_color(c_white);
139
    
scr_84_set_draw_font
scr_84_set_draw_font

function
scr_84_set_draw_font(arg0)
{ global.chemg_font = arg0; draw_set_font(
scr_84_get_font(arg0));
}
("mainbig");
140
    for (i = 0; i < itemtotal; i += 1)
141
    {
142
        draw_text(60, 260 + (i * 40), string_hash_to_newline(shopitemname[i]));
143
        draw_text(300, 260 + (i * 40), string_hash_to_newline(stringsetsubloc("$~1", string(buyvalue[i]), "obj_shop1_slash_Draw_0_gml_143_0")));
144
    }
145
    draw_text(60, 260 + (itemtotal * 40), string_hash_to_newline(stringsetloc(
Exit
"Exit", "obj_shop1_slash_Draw_0_gml_139_0"
)));
146
    if (menu == 1)
147
    {
148
        menumax = 4;
149
        if (instance_exists(obj_writer) == false)
150
        {
151
            if (sidemessage == 0)
152
                global.msg[0] = stringsetloc(
Face 0What do
you like
to buy?
"\\E0What do&you like&to buy?", "obj_shop1_slash_Draw_0_gml_148_0"
);
153
            if (sidemessage == 1)
154
                global.msg[0] = stringsetloc(
Face 2Thanks for
that.
"\\E2Thanks for&that.", "obj_shop1_slash_Draw_0_gml_149_0"
);
155
            if (sidemessage == 2)
156
                global.msg[0] = stringsetloc(
Face 0What,
not good
enough?
"\\E0What,&not good&enough?", "obj_shop1_slash_Draw_0_gml_150_0"
);
157
            if (sidemessage == 3)
158
                global.msg[0] = stringsetloc(
Face 3Not
enough
money.
"\\E3Not&enough&money.", "obj_shop1_slash_Draw_0_gml_151_0"
);
159
            if (sidemessage == 4)
160
                global.msg[0] = stringsetloc(
Face 3You're
carrying
too much.
"\\E3You're&carrying&too much.", "obj_shop1_slash_Draw_0_gml_152_0"
);
161
            if (sidemessage == 5)
162
                msgsetloc(0, 
Face 2Thanks, it'll
be in your
STORAGE.
"\\E2Thanks, it'll&be in your&STORAGE.", "obj_shop1_slash_Draw_0_gml_159_0"
);
163
            if (murder == 1)
164
                global.msg[0] = stringsetloc(
Wait for input*
"/*", "obj_shop1_slash_Draw_0_gml_153_0"
);
165
            instance_create(450, 260, obj_writer);
166
        }
167
        draw_sprite(spr_heart, 0, 30, 270 + (menuc[1] * 40));
168
        if (button1_p() && onebuffer < 0)
169
        {
170
            menu = 2;
171
            onebuffer = 2;
172
            with (obj_writer)
173
                instance_destroy();
174
            if (menuc[1] == menumax)
175
                menu = 0;
176
        }
177
        if (button2_p() && twobuffer < 0 && onebuffer < 2)
178
        {
179
            menu = 0;
180
            twobuffer = 2;
181
            minimenuy = 220;
182
            with (obj_writer)
183
                instance_destroy();
184
        }
185
        menuc[2] = 0;
186
    }
187
    if (menu == 2)
188
    {
189
        menumax = 1;
190
        draw_set_color(c_white);
191
        
scr_84_set_draw_font
scr_84_set_draw_font

function
scr_84_set_draw_font(arg0)
{ global.chemg_font = arg0; draw_set_font(
scr_84_get_font(arg0));
}
("mainbig");
192
        var y1_off = langopt(260, 290);
193
        var y2_off = langopt(290, 260);
194
        draw_text(460, y1_off, string_hash_to_newline(stringsetloc(
Buy it for
"Buy it for", "obj_shop1_slash_Draw_0_gml_167_0"
)));
195
        draw_text(460, y2_off, string_hash_to_newline(stringsetsubloc("$~1 ?", string(buyvalue[menuc[1]]), "obj_shop1_slash_Draw_0_gml_177_0")));
196
        draw_text(480, 340, string_hash_to_newline(stringsetloc(
Yes
"Yes", "obj_shop1_slash_Draw_0_gml_169_0"
)));
197
        draw_text(480, 370, string_hash_to_newline(stringsetloc(
No
"No", "obj_shop1_slash_Draw_0_gml_170_0"
)));
198
        draw_sprite(spr_heart, 0, 450, 350 + (menuc[2] * 30));
199
        if (button2_p() && twobuffer < 0)
200
        {
201
            menu = 1;
202
            sidemessage = 2;
203
            twobuffer = 2;
204
            onebuffer = 2;
205
        }
206
        if (button1_p() && onebuffer < 0 && twobuffer < 0)
207
        {
208
            if (menuc[2] == 0)
209
            {
210
                afford = 0;
211
                if (global.gold >= buyvalue[menuc[1]])
212
                    afford = 1;
213
                if (afford == 1)
214
                {
215
                    _pocketed = 0;
216
                    if (itemtype[menuc[1]] == "item")
217
                        
scr_itemget
scr_itemget

function
scr_itemget(arg0)
{ var __i = 0; var loop = 1; noroom = 0; _pocketed = 0; _noroominventory = 0; global.item[12] = 999; while (loop == 1) { if (global.item[__i] == 0) { global.item[__i] = arg0; break; } if (__i == 12) { _noroominventory = 1; noroom = 1; for (var __j = 0; __j < global.flag[64 storage_size]; __j++) { if (global.pocketitem[__j] == 0) { global.pocketitem[__j] = arg0; _pocketed = 1; noroom = 0; break; } } break; } __i += 1; } script_execute(scr_iteminfo_all); }
(item[menuc[1]]);
218
                    if (itemtype[menuc[1]] == "weapon")
219
                        
scr_weaponget
scr_weaponget

function
scr_weaponget(arg0)
{ noroom = 0; var legacy = 0; var __i = 0; if (legacy == 0) { var __itemcount = 0; __weapon[0] = arg0; for (__i = 0; __i < 48; __i++) { if (global.weapon[__i] != 0) { __weapon[__itemcount + 1] = global.weapon[__i]; __itemcount++; } } if (__itemcount >= 48) { noroom = 1; } else { for (__i = 0; __i < 48; __i++) { if (__i <= __itemcount) global.weapon[__i] = __weapon[__i]; else global.weapon[__i] = 0; } } } else if (legacy) { loop = 1; global.weapon[48] = 999; while (loop == 1) { if (global.weapon[__i] == 0) { global.weapon[__i] = arg0; break; } if (__i == 48) { noroom = 1; break; } __i += 1; } } script_execute(scr_weaponinfo_all); }
(item[menuc[1]]);
220
                    if (itemtype[menuc[1]] == "armor")
221
                        
scr_armorget
scr_armorget

function
scr_armorget(arg0)
{ noroom = 0; var legacy = 0; var __i = 0; if (legacy == 0) { var __itemcount = 0; __armor[0] = arg0; for (__i = 0; __i < 48; __i++) { if (global.armor[__i] != 0) { __armor[__itemcount + 1] = global.armor[__i]; __itemcount++; } } if (__itemcount >= 48) { noroom = 1; } else { for (__i = 0; __i < 48; __i++) { if (__i <= __itemcount) global.armor[__i] = __armor[__i]; else global.armor[__i] = 0; } } } else if (legacy) { loop = 1; global.armor[48] = 999; while (loop == 1) { if (global.armor[__i] == 0) { global.armor[__i] = arg0; break; } if (__i == 48) { noroom = 1; break; } __i += 1; } } script_execute(scr_armorinfo_all); }
(item[menuc[1]]);
222
                    if (noroom == 0)
223
                    {
224
                        global.gold -= buyvalue[menuc[1]];
225
                        snd_play(snd_locker);
226
                        if (_pocketed == 1)
227
                            sidemessage = 5;
228
                        else
229
                            sidemessage = 1;
230
                    }
231
                    if (noroom == 1)
232
                        sidemessage = 4;
233
                }
234
                else
235
                {
236
                    sidemessage = 3;
237
                }
238
            }
239
            if (menuc[2] == 1)
240
                sidemessage = 2;
241
            menu = 1;
242
        }
243
    }
244
    if (menuc[1] != 4)
245
    {
246
        if (minimenuy <= 20)
247
            minimenuy = 20;
248
        if (minimenuy > 20)
249
            minimenuy -= 5;
250
        if (minimenuy > 50)
251
            minimenuy -= 5;
252
        if (minimenuy > 100)
253
            minimenuy -= 8;
254
        if (minimenuy > 150)
255
            minimenuy -= 10;
256
    }
257
    else if (minimenuy < 200)
258
    {
259
        minimenuy += 40;
260
    }
261
    if (minimenuy >= 200)
262
        minimenuy = 200;
263
}
264
if (menu == 3)
265
{
266
    menumax = 4;
267
    draw_set_color(c_white);
268
    
scr_84_set_draw_font
scr_84_set_draw_font

function
scr_84_set_draw_font(arg0)
{ global.chemg_font = arg0; draw_set_font(
scr_84_get_font(arg0));
}
("mainbig");
269
    draw_text(80, 260, string_hash_to_newline(stringsetloc(
About yourself
"About yourself", "obj_shop1_slash_Draw_0_gml_217_0"
)));
270
    draw_text(80, 300, string_hash_to_newline(stringsetloc(
Lightners
"Lightners", "obj_shop1_slash_Draw_0_gml_218_0"
)));
271
    if (global.flag[241 JEVIL_plot] < 6)
272
    {
273
        draw_text(80, 340, string_hash_to_newline(stringsetloc(
Kingdom
"Kingdom", "obj_shop1_slash_Draw_0_gml_220_0"
)));
274
    }
275
    else
276
    {
277
        draw_set_color(c_yellow);
278
        draw_text(80, 340, string_hash_to_newline(stringsetloc(
About JEVIL
"About JEVIL", "obj_shop1_slash_Draw_0_gml_224_0"
)));
279
    }
280
    if (global.flag[241 JEVIL_plot] == 0)
281
    {
282
        draw_text(80, 380, string_hash_to_newline(stringsetloc(
We're legendary
"We're legendary", "obj_shop1_slash_Draw_0_gml_227_0"
)));
283
    }
284
    else
285
    {
286
        _legendstring = stringsetloc(
Strange Prisoner
"Strange Prisoner", "obj_shop1_slash_Draw_0_gml_241_0"
);
287
        draw_set_color(c_yellow);
288
        if (global.flag[115 got_key_a] >= 1)
289
            draw_set_color(c_white);
290
        if (global.flag[241 JEVIL_plot] >= 6)
291
        {
292
            draw_set_color(c_yellow);
293
            _legendstring = stringsetloc(
We Won
"We Won", "obj_shop1_slash_Draw_0_gml_244_0"
);
294
        }
295
        draw_text(80, 380, string_hash_to_newline(_legendstring));
296
    }
297
    draw_set_color(c_white);
298
    draw_text(80, 420, string_hash_to_newline(stringsetloc(
Exit
"Exit", "obj_shop1_slash_Draw_0_gml_240_0"
)));
299
    if (instance_exists(obj_writer) == false)
300
    {
301
        global.msg[0] = stringsetloc(
Face 0Don't have
anything
better
to do.
"\\E0Don't have&anything&better&to do.", "obj_shop1_slash_Draw_0_gml_255_0"
);
302
        instance_create(440, 260, obj_writer);
303
    }
304
    draw_sprite(spr_heart, 0, 50, 270 + (menuc[3] * 40));
305
    if (button1_p() && onebuffer < 0)
306
    {
307
        onebuffer = 2;
308
        with (obj_writer)
309
            instance_destroy();
310
        if (menuc[3] < menumax)
311
        {
312
            sell = menuc[3] + 3;
313
            menu = 4;
314
        }
315
        else
316
        {
317
            menu = 0;
318
        }
319
    }
320
    else if (button2_p() && twobuffer < 0 && onebuffer < 0)
321
    {
322
        twobuffer = 2;
323
        menu = 0;
324
        with (obj_writer)
325
            instance_destroy();
326
    }
327
}
328
if (menu == 10)
329
{
330
    menuc[11] = 0;
331
    menuc[12] = 0;
332
    menuc[13] = 0;
333
    menumax = 4;
334
    draw_set_color(c_white);
335
    
scr_84_set_draw_font
scr_84_set_draw_font

function
scr_84_set_draw_font(arg0)
{ global.chemg_font = arg0; draw_set_font(
scr_84_get_font(arg0));
}
("mainbig");
336
    draw_text(80, 260, string_hash_to_newline(stringsetloc(
Sell Items
"Sell Items", "obj_shop1_slash_Draw_0_gml_278_0"
)));
337
    draw_text(80, 300, string_hash_to_newline(stringsetloc(
Sell Weapons
"Sell Weapons", "obj_shop1_slash_Draw_0_gml_279_0"
)));
338
    draw_text(80, 340, string_hash_to_newline(stringsetloc(
Sell Armor
"Sell Armor", "obj_shop1_slash_Draw_0_gml_280_0"
)));
339
    draw_text(80, 380, string_hash_to_newline(stringsetloc(
Sell Pocket Items
"Sell Pocket Items", "obj_shop1_slash_Draw_0_gml_292_0"
)));
340
    draw_text(80, 420, string_hash_to_newline(stringsetloc(
Return
"Return", "obj_shop1_slash_Draw_0_gml_293_0"
)));
341
    if (instance_exists(obj_writer) == false)
342
    {
343
        if (sidemessage == 0)
344
            global.msg[0] = stringsetloc(
Face 0What kind
of junk
you got?
"\\E0What kind&of junk&you got?", "obj_shop1_slash_Draw_0_gml_285_0"
);
345
        if (sidemessage == 1)
346
            global.msg[0] = stringsetloc(
Face 0That's it
for that.
"\\E0That's it&for that.", "obj_shop1_slash_Draw_0_gml_286_0"
);
347
        if (sidemessage == 2)
348
            global.msg[0] = stringsetloc(
Face 3You don't
have
anything!
"\\E3You don't&have&anything!", "obj_shop1_slash_Draw_0_gml_287_0"
);
349
        instance_create(460, 260, obj_writer);
350
    }
351
    draw_sprite(spr_heart, 0, 50, 270 + (menuc[10] * 40));
352
    if (button1_p() && onebuffer < 0)
353
    {
354
        pagemax = 0;
355
        sidemessage2 = 0;
356
        onebuffer = 2;
357
        with (obj_writer)
358
            instance_destroy();
359
        can = 1;
360
        idealmenu = menuc[10] + 11;
361
        if (idealmenu == 11)
362
        {
363
            
scr_itemcheck
scr_itemcheck

function
scr_itemcheck(arg0)
{ haveit = 0; itemcount = 0; for (var __i = 0; __i < 12; __i += 1) { if (global.item[__i] == arg0) haveit = 1; if (global.item[__i] == arg0) itemcount += 1; } return haveit; }
(0);
364
            if (itemcount == 12)
365
            {
366
                sidemessage = 2;
367
                can = 0;
368
            }
369
            nothingcount = itemcount;
370
            
scr_iteminfo_all
scr_iteminfo_all

function
scr_iteminfo_all()
{ for (i = 0; i < 12; i += 1) { itemid = global.item[i];
scr_iteminfo(itemid);
global.itemnameb[i] = itemnameb; global.itemdescb[i] = itemdescb; global.itemvalue[i] = value; global.itemusable[i] = usable; } }
();
371
            selltype = "item";
372
            selltotal = 12;
373
            for (i = 0; i < selltotal; i++)
374
            {
375
                itemsellvalue[i] = global.itemvalue[i];
376
                itemsellname[i] = global.itemnameb[i];
377
            }
378
        }
379
        if (idealmenu == 12)
380
        {
381
            
scr_weaponcheck_inventory
scr_weaponcheck_inventory

function
scr_weaponcheck_inventory(arg0)
{ haveit = 0; itemcount = 0; for (i = 0; i < 48; i += 1) { if (global.weapon[i] == arg0) haveit = 1; if (global.weapon[i] == arg0) itemcount += 1; } return haveit; }
(0);
382
            if (itemcount == 48)
383
            {
384
                sidemessage = 2;
385
                can = 0;
386
            }
387
            
scr_weaponinfo_all
scr_weaponinfo_all

function
scr_weaponinfo_all()
{ for (i = 0; i < 48; i += 1) {
scr_weaponinfo(global.weapon[i]);
weaponname[i] = weaponnametemp; weapondesc[i] = weapondesctemp; wmessage2[i] = wmessage2temp; wmessage3[i] = wmessage3temp; wmessage4[i] = wmessage4temp; weaponat[i] = weaponattemp; weapondf[i] = weapondftemp; weaponmag[i] = weaponmagtemp; weaponbolts[i] = weaponboltstemp; weaponstyle[i] = weaponstyletemp; weapongrazeamt[i] = weapongrazeamttemp; weapongrazesize[i] = weapongrazesizetemp; weaponchar1[i] = weaponchar1temp; weaponchar2[i] = weaponchar2temp; weaponchar3[i] = weaponchar3temp; weaponchar4[i] = weaponchar4temp; weaponvalue[i] = value; weaponability[i] = weaponabilitytemp; weaponabilityicon[i] = weaponabilityicontemp; weaponicon[i] = weaponicontemp; } }
();
388
        }
389
        if (idealmenu == 13)
390
        {
391
            
scr_armorcheck_inventory
scr_armorcheck_inventory

function
scr_armorcheck_inventory(arg0)
{ haveit = 0; itemcount = 0; for (i = 0; i < 48; i += 1) { if (global.armor[i] == arg0) haveit = 1; if (global.armor[i] == arg0) itemcount += 1; } return haveit; }
(0);
392
            if (itemcount == 48)
393
            {
394
                sidemessage = 2;
395
                can = 0;
396
            }
397
            
scr_armorinfo_all
scr_armorinfo_all

function
scr_armorinfo_all()
{ for (i = 0; i < 48; i += 1) {
scr_armorinfo(global.armor[i]);
armorname[i] = armornametemp; armordesc[i] = armordesctemp; amessage2[i] = amessage2temp; amessage3[i] = amessage3temp; amessage4[i] = amessage4temp; armorat[i] = armorattemp; armordf[i] = armordftemp; armormag[i] = armormagtemp; armorbolts[i] = armorboltstemp; armorgrazeamt[i] = armorgrazeamttemp; armorgrazesize[i] = armorgrazesizetemp; armorchar1[i] = armorchar1temp; armorchar2[i] = armorchar2temp; armorchar3[i] = armorchar3temp; armorchar4[i] = armorchar4temp; armorvalue[i] = value; armorability[i] = armorabilitytemp; armorabilityicon[i] = armorabilityicontemp; armoricon[i] = armoricontemp; armorelement[i] = armorelementtemp; armorelementamount[i] = armorelementamounttemp; } }
();
398
        }
399
        if (idealmenu == 14)
400
        {
401
            
scr_itemcheck_pocket
scr_itemcheck_pocket

function
scr_itemcheck_pocket(arg0)
{ haveit = 0; itemcount = 0; for (var __i = 0; __i < global.flag[64 storage_size]; __i += 1) { if (global.pocketitem[__i] == arg0) haveit = 1; if (global.pocketitem[__i] == arg0) itemcount += 1; } return haveit; }
(0);
402
            if (itemcount == global.flag[64 storage_size])
403
            {
404
                sidemessage = 2;
405
                can = 0;
406
            }
407
            selltype = "pocket";
408
            nothingcount = 0;
409
            selltotal = global.flag[64 storage_size];
410
            for (i = 0; i < global.flag[64 storage_size]; i++)
411
            {
412
                
scr_iteminfo
scr_iteminfo

function
scr_iteminfo(arg0)
{ usable = 0; replaceable = 0; value = 0; itemtarget = 0; itemnameb = " "; itemdescb = " "; switch (arg0) { case 0: itemnameb = " "; itemdescb = "---"; break; case 1: itemnameb = stringsetloc(
Dark Candy
"Dark Candy", "scr_iteminfo_slash_scr_iteminfo_gml_15_0"
);
itemdescb = stringsetloc(
Heals#40HP
"Heals#40HP", "scr_iteminfo_slash_scr_iteminfo_gml_16_0"
);
itemtarget = 1; value = 25; usable = 1; break; case 2: itemnameb = stringsetloc(
ReviveMint
"ReviveMint", "scr_iteminfo_slash_scr_iteminfo_gml_22_0"
);
itemdescb = stringsetloc(
Heal#Downed#Ally
"Heal#Downed#Ally", "scr_iteminfo_slash_scr_iteminfo_gml_23_0"
);
itemtarget = 1; value = 400; usable = 1; break; case 3: itemnameb = stringsetloc(
Glowshard
"Glowshard", "scr_iteminfo_slash_scr_iteminfo_gml_29_0"
);
itemdescb = stringsetloc(
Sell#at#shops
"Sell#at#shops", "scr_iteminfo_slash_scr_iteminfo_gml_30_0"
);
itemtarget = 0; value = 200 + (global.chapter * 100); usable = 0; break; case 4: itemnameb = stringsetloc(
Manual
"Manual", "scr_iteminfo_slash_scr_iteminfo_gml_36_0"
);
itemdescb = stringsetloc(
Read#out of#battle
"Read#out of#battle", "scr_iteminfo_slash_scr_iteminfo_gml_37_0"
);
itemtarget = 2; value = 1; usable = 0; break; case 5: itemnameb = stringsetloc(
BrokenCake
"BrokenCake", "scr_iteminfo_slash_scr_iteminfo_gml_43_0"
);
itemdescb = stringsetloc(
Heals#20HP
"Heals#20HP", "scr_iteminfo_slash_scr_iteminfo_gml_44_0"
);
itemtarget = 1; value = 5; usable = 1; break; case 6: itemnameb = stringsetloc(
Top Cake
"Top Cake", "scr_iteminfo_slash_scr_iteminfo_gml_50_0"
);
itemdescb = stringsetloc(
Heals#team#160HP
"Heals#team#160HP", "scr_iteminfo_slash_scr_iteminfo_gml_51_0"
);
itemtarget = 2; value = 150; usable = 1; break; case 7: var healamount = (global.chapter == 1) ? 80 : 140; itemnameb = stringsetloc(
Spincake
"Spincake", "scr_iteminfo_slash_scr_iteminfo_gml_58_0"
);
itemdescb = stringsetsubloc("Heals#team#~1HP", string(healamount), "scr_iteminfo_slash_scr_iteminfo_gml_59_0"); itemtarget = 2; value = 5; usable = 1; break; case 8: itemnameb = stringsetloc(
Darkburger
"Darkburger", "scr_iteminfo_slash_scr_iteminfo_gml_65_0"
);
itemdescb = stringsetloc(
Heals#70HP
"Heals#70HP", "scr_iteminfo_slash_scr_iteminfo_gml_66_0"
);
itemtarget = 1; value = 70; usable = 1; break; case 9: itemnameb = stringsetloc(
LancerCookie
"LancerCookie", "scr_iteminfo_slash_scr_iteminfo_gml_72_0"
);
itemdescb = stringsetloc(
Heals#50HP
"Heals#50HP", "scr_iteminfo_slash_scr_iteminfo_gml_73_0"
);
itemtarget = 1; value = 10; usable = 1; break; case 10: itemnameb = stringsetloc(
GigaSalad
"GigaSalad", "scr_iteminfo_slash_scr_iteminfo_gml_79_0"
);
itemdescb = stringsetloc(
Heals#4HP
"Heals#4HP", "scr_iteminfo_slash_scr_iteminfo_gml_80_0"
);
itemtarget = 1; value = 10; usable = 1; break; case 11: itemnameb = stringsetloc(
ClubsSandwich
"ClubsSandwich", "scr_iteminfo_slash_scr_iteminfo_gml_86_0"
);
itemdescb = stringsetloc(
Heals#team#70HP
"Heals#team#70HP", "scr_iteminfo_slash_scr_iteminfo_gml_87_0"
);
itemtarget = 2; value = 70; usable = 1; break; case 12: itemnameb = stringsetloc(
HeartsDonut
"HeartsDonut", "scr_iteminfo_slash_scr_iteminfo_gml_93_0"
);
itemdescb = stringsetloc(
Healing#varies
"Healing#varies", "scr_iteminfo_slash_scr_iteminfo_gml_94_0"
);
itemtarget = 1; value = 40; usable = 1; break; case 13: itemnameb = stringsetloc(
ChocDiamond
"ChocDiamond", "scr_iteminfo_slash_scr_iteminfo_gml_100_0"
);
...
(global.pocketitem[i]);
413
                itemsellvalue[i] = value;
414
                itemsellname[i] = itemnameb;
415
            }
416
            idealmenu = 11;
417
        }
418
        if (menuc[10] < menumax)
419
        {
420
            if (can == 1)
421
                menu = idealmenu;
422
            sidemessage1 = 0;
423
        }
424
        else
425
        {
426
            menu = 0;
427
        }
428
        submenu = 0;
429
        submenuc[1] = 0;
430
    }
431
    if (button2_p() && twobuffer < 0 && onebuffer < 0)
432
    {
433
        twobuffer = 2;
434
        menu = 0;
435
        with (obj_writer)
436
            instance_destroy();
437
    }
438
}
439
if (menu == 11 || menu == 12 || menu == 13 || menu == 14)
440
{
441
    if (instance_exists(obj_writer) == false)
442
    {
443
        if (sidemessage2 == 0 && (menu == 11 || menu == 14))
444
            global.msg[0] = stringsetloc(
Face 0Alright,
give me
an ITEM.
"\\E0Alright,&give me&an ITEM.", "obj_shop1_slash_Draw_0_gml_347_0"
);
445
        if (sidemessage2 == 0 && menu == 12)
446
            global.msg[0] = stringsetloc(
Face 0What WEAPON
will you
give me?
"\\E0What WEAPON&will you&give me?", "obj_shop1_slash_Draw_0_gml_348_0"
);
447
        if (sidemessage2 == 0 && menu == 13)
448
            global.msg[0] = stringsetloc(
Face 0What ARMOR
will you
give me?
"\\E0What ARMOR&will you&give me?", "obj_shop1_slash_Draw_0_gml_349_0"
);
449
        if (sidemessage2 == 1)
450
            global.msg[0] = stringsetloc(
Face 2Thanks for
that.
"\\E2Thanks for&that.", "obj_shop1_slash_Draw_0_gml_350_0"
);
451
        if (sidemessage2 == 2)
452
            global.msg[0] = stringsetloc(
Face 0No?
"\\E0No?", "obj_shop1_slash_Draw_0_gml_351_0"
);
453
        if (sidemessage2 == 3)
454
            global.msg[0] = stringsetloc(
Face 3Y'think I
WANT that?
"\\E3Y'think I&WANT that?", "obj_shop1_slash_Draw_0_gml_352_0"
);
455
        if (sidemessage2 == 4)
456
            global.msg[0] = stringsetloc(
Face 0That's
nothing.
"\\E0That's&nothing.", "obj_shop1_slash_Draw_0_gml_353_0"
);
457
        instance_create(450, 260, obj_writer);
458
    }
459
}
460
scr_shopmenu
scr_shopmenu

function
scr_shopmenu(arg0)
{ if (arg0 == 0) { if (menu == 1 || menu == 2) {
scr_darkbox_black(400, minimenuy, 640, 255);
draw_set_color(c_white);
scr_84_set_draw_font("mainbig");
if (menuc[1] == 0) draw_text(440, minimenuy + 28, string_hash_to_newline(shopdesc[0])); if (menuc[1] == 1) draw_text(440, minimenuy + 28, string_hash_to_newline(shopdesc[1])); if (menuc[1] == 2) draw_text(440, minimenuy + 28, string_hash_to_newline(shopdesc[2])); if (menuc[1] == 3) draw_text(440, minimenuy + 28, string_hash_to_newline(shopdesc[3]));
scr_84_set_draw_font("dotumche");
if (itemtype[menuc[1]] == "weapon" || itemtype[menuc[1]] == "armor") { for (i = 0; i < 3; i += 1) { can_index = 0; facetype = spr_headkris; which = global.char[i]; if (global.char[i] == 1) facetype = spr_headkris; if (global.char[i] == 2) facetype = spr_headsusie; if (global.char[i] == 3) facetype = spr_headralsei; if (which != 0) { if (i == 0) { locx = 0; locy = 0; } if (i == 1) { locx = 100; locy = 0; } if (i == 2) { locx = 0; locy = 45; } if (canequip[menuc[1]][which] == 0) can_index = 8; draw_sprite(facetype, can_index, 426 + locx, minimenuy + 140 + locy); if (itemtype[menuc[1]] == "weapon" && can_index != 8) { draw_set_color(c_white); sum[0] = itematk[menuc[1]] - global.itemat[which][0]; sum[1] = itemmagic[menuc[1]] - global.itemmag[which][0]; for (j = 0; j < 2; j += 1) { dcolor = c_white; addt = ""; draw_set_color(c_white); if (sum[j] > 0) { draw_set_color(c_yellow); addt = "+"; } if (sum[j] < 0) draw_set_color(c_aqua); draw_sprite_ext(spr_shopicon, j, 470 + locx, minimenuy + locy + 135 + (20 * j), 1, 1, 0, dcolor, 1); draw_text(490 + locx, minimenuy + locy + 135 + (20 * j), string_hash_to_newline(addt + string(sum[j]))); } } if (itemtype[menuc[1]] == "armor" && can_index != 8) { sum[0] = itemdef[menuc[1]] - global.itemdf[which][1]; sum[1] = itemdef[menuc[1]] - global.itemdf[which][2]; for (j = 0; j < 2; j += 1) { dcolor = c_white; addt = ""; draw_set_color(c_white); if (sum[j] > 0) { draw_set_color(c_yellow); addt = "+"; } if (sum[j] < 0) draw_set_color(c_aqua); draw_sprite_ext(spr_shopicon, 2 + j, 470 + locx, minimenuy + locy + 135 + (20 * j), 1, 1, 0, dcolor, 1); draw_text(490 + locx, minimenuy + 135 + (20 * j) + locy, string_hash_to_newline(addt + string(sum[j]))); } } } } } } } if (arg0 == 4) { if (menu == 11 || menu == 15) { ...
(4);
461
if (menu == 15 || menu == 16 || menu == 17 || menu == 18)
462
{
463
    menumax = 1;
464
    draw_set_color(c_white);
465
    
scr_84_set_draw_font
scr_84_set_draw_font

function
scr_84_set_draw_font(arg0)
{ global.chemg_font = arg0; draw_set_font(
scr_84_get_font(arg0));
}
("mainbig");
466
    var y1_off = langopt(260, 290);
467
    var y2_off = langopt(290, 260);
468
    draw_text(460, y1_off, string_hash_to_newline(stringsetloc(
Sell it for
"Sell it for", "obj_shop1_slash_Draw_0_gml_365_0"
)));
469
    draw_text(460, y2_off, string_hash_to_newline(stringsetsubloc("$~1 ?", string(sellvalue), "obj_shop1_slash_Draw_0_gml_407_0")));
470
    draw_text(480, 340, string_hash_to_newline(stringsetloc(
Yes
"Yes", "obj_shop1_slash_Draw_0_gml_367_0"
)));
471
    draw_text(480, 370, string_hash_to_newline(stringsetloc(
No
"No", "obj_shop1_slash_Draw_0_gml_368_0"
)));
472
    draw_sprite(spr_heart, 0, 450, 350 + (menuc[menu] * 30));
473
}
474
scr_shopmenu
scr_shopmenu

function
scr_shopmenu(arg0)
{ if (arg0 == 0) { if (menu == 1 || menu == 2) {
scr_darkbox_black(400, minimenuy, 640, 255);
draw_set_color(c_white);
scr_84_set_draw_font("mainbig");
if (menuc[1] == 0) draw_text(440, minimenuy + 28, string_hash_to_newline(shopdesc[0])); if (menuc[1] == 1) draw_text(440, minimenuy + 28, string_hash_to_newline(shopdesc[1])); if (menuc[1] == 2) draw_text(440, minimenuy + 28, string_hash_to_newline(shopdesc[2])); if (menuc[1] == 3) draw_text(440, minimenuy + 28, string_hash_to_newline(shopdesc[3]));
scr_84_set_draw_font("dotumche");
if (itemtype[menuc[1]] == "weapon" || itemtype[menuc[1]] == "armor") { for (i = 0; i < 3; i += 1) { can_index = 0; facetype = spr_headkris; which = global.char[i]; if (global.char[i] == 1) facetype = spr_headkris; if (global.char[i] == 2) facetype = spr_headsusie; if (global.char[i] == 3) facetype = spr_headralsei; if (which != 0) { if (i == 0) { locx = 0; locy = 0; } if (i == 1) { locx = 100; locy = 0; } if (i == 2) { locx = 0; locy = 45; } if (canequip[menuc[1]][which] == 0) can_index = 8; draw_sprite(facetype, can_index, 426 + locx, minimenuy + 140 + locy); if (itemtype[menuc[1]] == "weapon" && can_index != 8) { draw_set_color(c_white); sum[0] = itematk[menuc[1]] - global.itemat[which][0]; sum[1] = itemmagic[menuc[1]] - global.itemmag[which][0]; for (j = 0; j < 2; j += 1) { dcolor = c_white; addt = ""; draw_set_color(c_white); if (sum[j] > 0) { draw_set_color(c_yellow); addt = "+"; } if (sum[j] < 0) draw_set_color(c_aqua); draw_sprite_ext(spr_shopicon, j, 470 + locx, minimenuy + locy + 135 + (20 * j), 1, 1, 0, dcolor, 1); draw_text(490 + locx, minimenuy + locy + 135 + (20 * j), string_hash_to_newline(addt + string(sum[j]))); } } if (itemtype[menuc[1]] == "armor" && can_index != 8) { sum[0] = itemdef[menuc[1]] - global.itemdf[which][1]; sum[1] = itemdef[menuc[1]] - global.itemdf[which][2]; for (j = 0; j < 2; j += 1) { dcolor = c_white; addt = ""; draw_set_color(c_white); if (sum[j] > 0) { draw_set_color(c_yellow); addt = "+"; } if (sum[j] < 0) draw_set_color(c_aqua); draw_sprite_ext(spr_shopicon, 2 + j, 470 + locx, minimenuy + locy + 135 + (20 * j), 1, 1, 0, dcolor, 1); draw_text(490 + locx, minimenuy + 135 + (20 * j) + locy, string_hash_to_newline(addt + string(sum[j]))); } } } } } } } if (arg0 == 4) { if (menu == 11 || menu == 15) { ...
(5);
475
if (menu == 4)
476
{
477
    if (sell == 0)
478
        menu = 0;
479
    if (instance_exists(obj_writer) == false && selling == 0)
480
    {
481
        if (sell == 1)
482
        {
483
        }
484
        if (sell == 2)
485
            global.msg[0] = stringsetloc(
Face 0* See you again...Delay 11
* Or not.Delay 11
* Ha ha ha ha...Wait for inputClose Message
"\\E0* See you again..^1.&* Or not^1.&* Ha ha ha ha.../%", "obj_shop1_slash_Draw_0_gml_395_0"
);
486
        if (sell == 3)
487
        {
488
            global.msg[0] = stringsetloc(
Face 0* The name's Seam.
* Pronounced "Shawm."Wait for input
"\\E0* The name's Seam.&* Pronounced \"Shawm.\"/", "obj_shop1_slash_Draw_0_gml_399_0"
);
489
            global.msg[1] = stringsetloc(
Face 0* And this is my little Seap.Delay 11
* Ha ha ha ha...Wait for input
"\\E0* And this is my little Seap^1.&* Ha ha ha ha.../", "obj_shop1_slash_Draw_0_gml_400_0"
);
490
            global.msg[2] = stringsetloc(
Face 0* Over the years, I've collected odds and ends.Wait for input
"\\E0* Over the years, I've collected odds and ends./", "obj_shop1_slash_Draw_0_gml_401_0"
);
491
            global.msg[3] = stringsetloc(
* 'Course, I've no attachment to any of it.Delay 11
* It's just a hobby of mine.Wait for input
"* 'Course, I've no attachment to any of it^1.&* It's just a hobby of mine./", "obj_shop1_slash_Draw_0_gml_402_0"
);
492
            global.msg[4] = stringsetloc(
* Around here, you learn to find ways to pass the time...
* ... or go mad like everyone else.Wait for inputClose Message
"* Around here, you learn to find ways to pass the time...&* ... or go mad like everyone else./%", "obj_shop1_slash_Draw_0_gml_403_0"
);
493
        }
494
        if (sell == 4)
495
        {
496
            global.msg[0] = stringsetloc(
Face 1* Long ago, the Darkners lived in harmony with the Lightners.Wait for input
"\\E1* Long ago, the Darkners lived in harmony with the Lightners./", "obj_shop1_slash_Draw_0_gml_411_0"
);
497
            global.msg[1] = stringsetloc(
Face 0* They were like Gods to us.
* Our protectors.
* Our creators.
* Those who gave us purpose...Wait for input
"\\E0* They were like Gods to us.&* Our protectors.&* Our creators.&* Those who gave us purpose.../", "obj_shop1_slash_Draw_0_gml_412_0"
);
498
            global.msg[2] = stringsetloc(
Face 3* Then, one day we were all locked away in this prison...Delay 11
* And the Lightners never returned.Wait for input
"\\E3* Then, one day we were all locked away in this prison..^1.&* And the Lightners never returned./", "obj_shop1_slash_Draw_0_gml_413_0"
);
499
            global.msg[3] = stringsetloc(
Face 1* Embittered,Delay 11 the King took up arms,Delay 11 and aims to take revenge upon the Lightners that left us behind.Wait for input
"\\E1* Embittered^1, the King took up arms^1, and aims to take revenge upon the Lightners that left us behind./", "obj_shop1_slash_Draw_0_gml_414_0"
);
500
            global.msg[4] = stringsetloc(
Face 0* 'Course,Delay 11 even among his troops,Delay 11 some still distantly hope the Lightners will return...Wait for inputClose Message
"\\E0* 'Course^1, even among his troops^1, some still distantly hope the Lightners will return.../%", "obj_shop1_slash_Draw_0_gml_415_0"
);
501
        }
502
        if (sell == 5)
503
        {
504
            global.msg[0] = stringsetloc(
Face 0* Historically,Delay 11 this land was ruled by the Four Kings,Delay 11 from CARD CASTLE to the East.Wait for input
"\\E0* Historically^1, this land was ruled by the Four Kings^1, from \\cYCARD CASTLE\\cW to the East./", "obj_shop1_slash_Draw_0_gml_421_0"
);
505
            global.msg[1] = stringsetloc(
Face 1* But, recently, a strange knight appeared...Delay 11
* And three of the kings were locked away.Wait for input
"\\E1* But, recently, a \\cRstrange knight\\cW appeared..^1.&* And three of the kings were locked away./", "obj_shop1_slash_Draw_0_gml_422_0"
);
506
            global.msg[2] = stringsetloc(
Face 0* The remaining king put him and his strange son into power.Wait for input
"\\E0* The remaining king put him and his strange son into power./", "obj_shop1_slash_Draw_0_gml_423_0"
);
507
            global.msg[3] = stringsetloc(
Face 1* This land hasn't seen THIS much chaos since...Wait for input
"\\E1* This land hasn't seen THIS much chaos since.../", "obj_shop1_slash_Draw_0_gml_424_0"
);
508
            global.msg[4] = stringsetloc(
Face 2* Ha ha ha...Delay 11
* Well, you don't need to know about THAT.Wait for inputClose Message
"\\E2* Ha ha ha..^1.&* Well, you don't need to know about THAT./%", "obj_shop1_slash_Draw_0_gml_425_0"
);
509
            if (global.flag[241 JEVIL_plot] >= 6)
510
            {
511
                global.msg[0] = stringsetloc(
Face 0* He...Delay 11 was a funny little man.Delay 11 Once,Delay 11 the court jester.Delay 11 I,Delay 11 the court magician.Wait for input
"\\E0* He..^1. was a funny little man^1. Once^1, the court jester^1. I^1, the court magician./", "obj_shop1_slash_Draw_0_gml_429_0"
);
512
                global.msg[1] = stringsetloc(
Face 1* A friend...?Delay 11 Could I consider him a friend...?Delay 11 Perhaps,Delay 11 perhaps not.Wait for input
"\\E1* A friend...^1? Could I consider him a friend...^1? Perhaps^1, perhaps not./", "obj_shop1_slash_Draw_0_gml_430_0"
);
513
                global.msg[2] = stringsetloc(
Face 2* But he was the only one who matched me in the games we used to play.Wait for input
"\\E2* But he was the only one who matched me in the games we used to play./", "obj_shop1_slash_Draw_0_gml_431_0"
);
514
                global.msg[3] = stringsetloc(
Face 3* One day,Delay 11 he met a strange someone...Delay 11 and since then,Delay 11 he began to change.Wait for input
"\\E3* One day^1, he met a strange someone..^1. and since then^1, he began to change./", "obj_shop1_slash_Draw_0_gml_432_0"
);
515
                global.msg[4] = stringsetloc(
Face 1* He started saying bizarre things that didn't completely make sense -Wait for input
"\\E1* He started saying bizarre things that didn't completely make sense -/", "obj_shop1_slash_Draw_0_gml_433_0"
);
516
                global.msg[5] = stringsetloc(
Face 3* But didn't completely not make sense,Delay 11 either.Wait for input
"\\E3* But didn't completely not make sense^1, either./", "obj_shop1_slash_Draw_0_gml_434_0"
);
517
                global.msg[6] = stringsetloc(
* Soon,Delay 11 he began to see the world as a game,Delay 11 and everyone as its participants.Wait for input
"* Soon^1, he began to see the world as a game^1, and everyone as its participants./", "obj_shop1_slash_Draw_0_gml_435_0"
);
518
                global.msg[7] = stringsetloc(
* As the court mage,Delay 11 and his only companion,Delay 11 I was forced to lock him away...Wait for input
"* As the court mage^1, and his only companion^1, I was forced to lock him away.../", "obj_shop1_slash_Draw_0_gml_436_0"
);
519
                global.msg[8] = stringsetloc(
Face 2* Or,Delay 11 rather,Delay 11 lock US all away,Delay 11 in his own words.Wait for input
"\\E2* Or^1, rather^1, lock US all away^1, in his own words./", "obj_shop1_slash_Draw_0_gml_437_0"
);
520
                global.msg[9] = stringsetloc(
Face 1* Since that time,Delay 11 the strange words he's said have stuck inside my cotton...Wait for input
"\\E1* Since that time^1, the strange words he's said have stuck inside my cotton.../", "obj_shop1_slash_Draw_0_gml_438_0"
);
521
                global.msg[10] = stringsetloc(
Face 3* And my view of this world has become darker,Delay 11 yet darker.Wait for input
"\\E3* And my view of this world has become darker^1, yet darker./", "obj_shop1_slash_Draw_0_gml_439_0"
);
522
                global.msg[11] = stringsetloc(
Face 2* Reflecting on these old memories,Delay 11 I think,Delay 11 perhaps -Delay 11 I miss playing games with him.Wait for input
"\\E2* Reflecting on these old memories^1, I think^1, perhaps ^1- I miss playing games with him./", "obj_shop1_slash_Draw_0_gml_440_0"
);
523
                global.msg[12] = stringsetloc(
Face 3* And I wonder,Delay 11 if I hadn't been asked to lock him up...Wait for input
"\\E3* And I wonder^1, if I hadn't been asked to lock him up.../", "obj_shop1_slash_Draw_0_gml_441_0"
);
524
                global.msg[13] = stringsetloc(
Face 2* Would I have found a little more purpose in my life...?Wait for inputClose Message
"\\E2* Would I have found a little more purpose in my life...?/%", "obj_shop1_slash_Draw_0_gml_442_0"
);
525
            }
526
        }
527
        if (sell == 6)
528
        {
529
            global.msg[0] = stringsetloc(
Face 2* Ha ha ha ...Delay 11
* So you are the "heroes" who are going to seal our Fountain?Wait for input
"\\E2* Ha ha ha ..^1.&* So you are the \"heroes\" who are going to seal our Fountain?/", "obj_shop1_slash_Draw_0_gml_448_0"
);
530
            global.msg[1] = stringsetloc(
Face 0* Ha, good luck.Delay 11
* It makes no difference to me.Wait for input
"\\E0* Ha, good luck^1.&* It makes no difference to me./", "obj_shop1_slash_Draw_0_gml_449_0"
);
531
            global.msg[2] = stringsetloc(
Face 3* Neither Light nor Dark hold a future for a Darkner in my condition.Wait for inputClose Message
"\\E3* Neither Light nor Dark hold a future for a Darkner in my condition./%", "obj_shop1_slash_Draw_0_gml_450_0"
);
532
            if (global.flag[241 JEVIL_plot] >= 1 && global.flag[115 got_key_a] == 1)
533
            {
534
                global.msg[0] = stringsetloc(
Face 1* Trouble opening the door...?Wait for input
"\\E1* Trouble opening the door...?/", "obj_shop1_slash_Draw_0_gml_459_0"
);
535
                global.msg[1] = stringsetloc(
Face 0* Ha ha ha,Delay 11 well,Delay 11 whether you can or not,Delay 11 it doesn't matter to me.Wait for input
"\\E0* Ha ha ha^1, well^1, whether you can or not^1, it doesn't matter to me./", "obj_shop1_slash_Draw_0_gml_460_0"
);
536
                global.msg[2] = stringsetloc(
Face 2* But here's a hint -Delay 11 walk where the stars don't shine.Wait for inputClose Message
"\\E2* But here's a hint ^1- \\cYwalk where the stars don't shine\\cW./%", "obj_shop1_slash_Draw_0_gml_461_0"
);
537
            }
538
            if (global.flag[241 JEVIL_plot] >= 1 && global.flag[115 got_key_a] == 0)
539
            {
540
                global.msg[0] = stringsetloc(
Face 3* Eh...?Delay 11 What are you talking about...?Delay 11 A prisoner with an odd manner...?Wait for input
"\\E3* Eh...^1? What are you talking about...^1? A prisoner with an odd manner...?/", "obj_shop1_slash_Draw_0_gml_472_0"
);
541
                global.msg[1] = stringsetloc(
Face 1* ... No,Delay 11 you couldn't possibly be talking about HIM...?Wait for input
"\\E1* ... No^1, you couldn't possibly be talking about HIM...?/", "obj_shop1_slash_Draw_0_gml_473_0"
);
542
                global.msg[2] = stringsetloc(
Face 3* ... I see.Delay 11
* After all the trouble I went through to lock him up,Delay 11 you want to release him?Wait for input
"\\E3* ... I see^1.&* After all the trouble I went through to lock him up^1, you want to release him?/", "obj_shop1_slash_Draw_0_gml_474_0"
);
543
                global.msg[3] = stringsetloc(
Face 0* ...Wait for input
"\\E0* .../", "obj_shop1_slash_Draw_0_gml_475_0"
);
544
                global.msg[4] = stringsetloc(
Face 1* Hmm,Delay 11 now that you mention it,Delay 11 it could be troublesome if he was left alone...Wait for input
"\\E1* Hmm^1, now that you mention it^1, it could be troublesome if he was left alone.../", "obj_shop1_slash_Draw_0_gml_476_0"
);
545
                global.msg[5] = stringsetloc(
Face 0* Yes,Delay 11 perhaps it's better if you Heroes dealt with him now...?Wait for input
"\\E0* Yes^1, perhaps it's better if you Heroes dealt with him now...?/", "obj_shop1_slash_Draw_0_gml_477_0"
);
546
                global.msg[6] = stringsetloc(
Face 2* After all,Delay 11 it's not as if whatever happens,Delay 11 will matter in the end.Wait for input
"\\E2* After all^1, it's not as if whatever happens^1, will matter in the end./", "obj_shop1_slash_Draw_0_gml_478_0"
);
547
                global.msg[7] = stringsetloc(
* Perhaps a little chaos might be fun.Wait for input
"* Perhaps a little chaos might be fun./", "obj_shop1_slash_Draw_0_gml_479_0"
);
548
                global.msg[8] = stringsetloc(
Face 0* So then, take this.Wait for input
"\\E0* So then, take this./", "obj_shop1_slash_Draw_0_gml_480_0"
);
549
                global.writersnd[0] = snd_item;
550
                global.msg[9] = stringsetloc(
\S0* (BROKEN KEY A was added to your KEY ITEMS.)Wait for input
"\\S0* (\\cYBROKEN KEY A\\cW was added to your \\cYKEY ITEMS\\cW.)/", "obj_shop1_slash_Draw_0_gml_482_0"
);
551
                global.msg[10] = stringsetloc(
* If you're so driven,Delay 11 find the other two pieces,Delay 11 and get someone to fix them.Wait for input
"* If you're so driven^1, find the other \\cYtwo\\cW pieces^1, and get someone to \\cYfix\\cW them./", "obj_shop1_slash_Draw_0_gml_483_0"
);
552
                global.msg[11] = stringsetloc(
* I'll even give you a hint - Walk where the stars don't shine.Wait for input
"* I'll even give you a hint - \\cYWalk where the stars don't shine\\cW./", "obj_shop1_slash_Draw_0_gml_484_0"
);
553
                global.msg[12] = stringsetloc(
* Anyhow,Delay 11 if you succeed,Delay 11 come back here and tell me!Delay 11 Good luck!!Wait for input
"* Anyhow^1, if you succeed^1, come back here and tell me^1! Good luck!!/", "obj_shop1_slash_Draw_0_gml_485_0"
);
554
                global.msg[13] = stringsetloc(
* If you can call THIS luck...Delay 11 No,Delay 11 it's more like a curse...!Wait for inputClose Message
"* If you can call THIS luck..^1. No^1, it's more like a curse...!/%", "obj_shop1_slash_Draw_0_gml_486_0"
);
555
                
scr_keyitemget
scr_keyitemget

function
scr_keyitemget(arg0)
{ i = 0; loop = 1; noroom = 0; global.item[12] = 999; while (loop == 1) { if (global.keyitem[i] == 0) { global.keyitem[i] = arg0; break; } if (i == 12) { noroom = 1; break; } i += 1; } script_execute(scr_keyiteminfo_all); }
(4);
556
                global.flag[115 got_key_a] = 1;
557
            }
558
            if (global.flag[115 got_key_a] == 1 && global.flag[241 JEVIL_plot] >= 5)
559
            {
560
                global.msg[0] = stringsetloc(
Face 1* You already opened the door...?Wait for input
"\\E1* You already opened the door...?/", "obj_shop1_slash_Draw_0_gml_493_0"
);
561
                global.msg[1] = stringsetloc(
Face 2* Ha ha ha...Delay 11 I almost wish I could watch!Delay 11 Tell me what happens!Wait for input
"\\E2* Ha ha ha..^1. I almost wish I could watch^1! Tell me what happens!/", "obj_shop1_slash_Draw_0_gml_494_0"
);
562
                global.msg[2] = stringsetloc(
Face 2* Ha ha ha...Delay 11 though,Delay 11 I suppose if you don't come back,Delay 11 I'll understand,Delay 11 too!Wait for inputClose Message
"\\E2* Ha ha ha..^1. though^1, I suppose if you don't come back^1, I'll understand^1, too!/%", "obj_shop1_slash_Draw_0_gml_495_0"
);
563
            }
564
            if (global.flag[115 got_key_a] == 1 && global.flag[241 JEVIL_plot] >= 6)
565
            {
566
                global.msg[0] = stringsetloc(
Face 1* You defeated him!?Delay 11 You REALLY defeated him!?Wait for input
"\\E1* You defeated him!^1? You REALLY defeated him!?/", "obj_shop1_slash_Draw_0_gml_500_0"
);
567
                global.msg[1] = stringsetloc(
Face 0* I see...Delay 11 perhaps you three may truly be "Heroes" after all...Wait for input
"\\E0* I see..^1. perhaps you three may truly be \"Heroes\" after all.../", "obj_shop1_slash_Draw_0_gml_501_0"
);
568
                global.msg[2] = stringsetloc(
Face 1* But JEVIL was just a taste of what you'll face from now on.Wait for input
"\\E1* But JEVIL was just a taste of what you'll face from now on./", "obj_shop1_slash_Draw_0_gml_502_0"
);
569
                global.msg[3] = stringsetloc(
Face 0* One day soon...Wait for input
"\\E0* One day soon.../", "obj_shop1_slash_Draw_0_gml_503_0"
);
570
                global.msg[4] = stringsetloc(
Face 1* You too,Delay 11 will begin to realize the futility of your actions.Wait for input
"\\E1* You too^1, will begin to realize the futility of your actions./", "obj_shop1_slash_Draw_0_gml_504_0"
);
571
                global.msg[5] = stringsetloc(
Face 2* Ha ha ha...Wait for input
"\\E2* Ha ha ha.../", "obj_shop1_slash_Draw_0_gml_505_0"
);
572
                global.msg[6] = stringsetloc(
Face 0* At that time,Delay 11 feel free to come back here.Delay 11
* I'll make you tea...Wait for input
"\\E0* At that time^1, feel free to come back here^1.&* I'll make you tea.../", "obj_shop1_slash_Draw_0_gml_506_0"
);
573
                global.msg[7] = stringsetloc(
Face 2* And we can toast...Delay 11 to the end of the world!Wait for inputClose Message
"\\E2* And we can toast..^1. to the end of the world!/%", "obj_shop1_slash_Draw_0_gml_507_0"
);
574
            }
575
        }
576
        if (sell == 10)
577
        {
578
            
scr_keyitemcheck
scr_keyitemcheck

function
scr_keyitemcheck(arg0)
{ haveit = 0; itemcount = 0; for (i = 0; i < 12; i += 1) { if (global.keyitem[i] == arg0) haveit = 1; if (global.keyitem[i] == arg0) itemcount += 1; } return haveit; }
(13);
579
            var show_jevil = false;
580
            if (global.plot < 200)
581
            {
582
                if (global.flag[312 talked_seam_ch2] == 0)
583
                {
584
                    global.flag[312 talked_seam_ch2] = 1;
585
                    if (global.flag[241 JEVIL_plot] < 6)
586
                    {
587
                        
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 == "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; } if (global.fighting == 1) ...
("seam");
588
                        msgsetloc(0, 
Face 1* Hmm...Delay 11 So we are now in the Castle Town.Wait for input
"\\E1* Hmm..^1. So we are now in the Castle Town./", "obj_shop1_slash_Draw_0_gml_567_0"
);
589
                        msgnextloc(
Face 0* Well,Delay 11 now. It makes no difference to me.Wait for input
"\\E0* Well^1, now. It makes no difference to me./", "obj_shop1_slash_Draw_0_gml_568_0"
);
590
                        msgnextloc(
Face 2* As long as I stay in my shop,Delay 11 these walls won't change.Wait for input
"\\E2* As long as I stay in my shop^1, these walls won't change./", "obj_shop1_slash_Draw_0_gml_569_0"
);
591
                        msgnextloc(
Face 0* ...Delay 11 But.Wait for input
"\\E0* ..^1. But./", "obj_shop1_slash_Draw_0_gml_570_0"
);
592
                        msgnextloc(
Face 2* In a way,Delay 11 I suppose it's just a little bit amusing to see you again.Wait for input
"\\E2* In a way^1, I suppose it's just a little bit amusing to see you again./", "obj_shop1_slash_Draw_0_gml_571_0_b"
);
593
                        msgnextloc(
Face 0* I'm sure you three will have an interesting journey.Wait for input
"\\E0* I'm sure you three will have an interesting journey./", "obj_shop1_slash_Draw_0_gml_572_0"
);
594
                        msgnextloc(
Face 1* Me? I'll just be here offering the same old junk.Wait for input
"\\E1* Me? I'll just be here offering the same old junk./", "obj_shop1_slash_Draw_0_gml_573_0"
);
595
                        msgnextloc(
Face 0* As you find stronger treasure,Delay 11 I'm sure you'll have little reason to return here.Wait for input
"\\E0* As you find stronger treasure^1, I'm sure you'll have little reason to return here./", "obj_shop1_slash_Draw_0_gml_574_0"
);
596
                        msgnextloc(
Face 2* But if you have some time,Delay 11 I'll offer you a biscuit and a hint!Wait for inputClose Message
"\\E2* But if you have some time^1, I'll offer you a biscuit and a hint!/%", "obj_shop1_slash_Draw_0_gml_575_0"
);
597
                    }
598
                    else if (global.flag[241 JEVIL_plot] >= 6 || global.flag[460 got_jevil_hole] == 1)
599
                    {
600
                        show_jevil = true;
601
                        msgsetloc(0, 
Face 1* So we are here now,Delay 11 in a new world.Wait for input
"\\E1* So we are here now^1, in a new world./", "obj_shop1_slash_Draw_0_gml_582_0"
);
602
                        msgnextloc(
Face 2* And right off the heels of defeating that clown...Delay 11 Incredible.Wait for input
"\\E2* And right off the heels of defeating that clown..^1. Incredible./", "obj_shop1_slash_Draw_0_gml_583_0"
);
603
                    }
604
                }
605
                else if (global.flag[241 JEVIL_plot] >= 6 || global.flag[460 got_jevil_hole] == 1)
606
                {
607
                    if (global.flag[954 gave_JEVIL_crystal] == 0)
608
                    {
609
                        show_jevil = true;
610
                        msgsetloc(0, 
Face 1* Ah,Delay 11 yes,Delay 11 that's right.Delay 11 It didn't occur to me until just now,Delay 11 but...Wait for input
"\\E1* Ah^1, yes^1, that's right^1. It didn't occur to me until just now^1, but.../", "obj_shop1_slash_Draw_0_gml_601_0_b"
);
611
                        msgnextloc(
Face 2* You three defeated that clown last time,Delay 11 didn't you?Delay 11Wait for input
"\\E2* You three defeated that clown last time^1, didn't you^1?/", "obj_shop1_slash_Draw_0_gml_602_0_b"
);
612
                    }
613
                    else
614
                    {
615
                        
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 == "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; } if (global.fighting == 1) ...
("seam");
616
                        msgsetloc(0, 
* If you can defeat more strong adversaries,Delay 11 you may find more Shadow Crystals.Wait for input
"* If you can defeat more strong adversaries^1, you may find more Shadow Crystals./", "obj_shop1_slash_Draw_0_gml_674_0"
);
617
                        msgnextloc(
Face 2* Try your best!Delay 11 It may be tough,Delay 11 but I'm sure it will be worth it!Wait for inputClose Message
"\\E2* Try your best^1! It may be tough^1, but I'm sure it will be worth it!/%", "obj_shop1_slash_Draw_0_gml_675_0"
);
618
                    }
619
                }
620
                else
621
                {
622
                    talk_counter++;
623
                    if (global.plot < 15)
624
                    {
625
                        
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 == "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; } if (global.fighting == 1) ...
("seam");
626
                        msgsetloc(0, 
Face 0* The little prince has something to show you in his castle.Wait for input
"\\E0* The little prince has something to show you in his castle./", "obj_shop1_slash_Draw_0_gml_640_0"
);
627
                        msgnextloc(
Face 3* Well now,Delay 11 are you going to turn down a royal invitation?Wait for inputClose Message
"\\E3* Well now^1, are you going to turn down a royal invitation?/%", "obj_shop1_slash_Draw_0_gml_641_0"
);
628
                    }
629
                    else
630
                    {
631
                        
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 == "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; } if (global.fighting == 1) ...
("seam");
632
                        msgsetloc(0, 
Face 0* If I were you,Delay 11 I would head home to the LIGHT WORLD.Wait for input
"\\E0* If I were you^1, I would head home to the LIGHT WORLD./", "obj_shop1_slash_Draw_0_gml_645_0"
);
633
                        msgnextloc(
Face 1* Of course,Delay 11 I'm not you. So,Delay 11 I'm staying right here.Wait for input
"\\E1* Of course^1, I'm not you. So^1, I'm staying right here./", "obj_shop1_slash_Draw_0_gml_646_0"
);
634
                        msgnextloc(
Face 1* By the by,Delay 11 I can't offer any advice when you're not here...Wait for input
"\\E1* By the by^1, I can't offer any advice when you're not here.../", "obj_shop1_slash_Draw_0_gml_647_0"
);
635
                        msgnextloc(
Face 2* So I'm not sure my hints will be much use after all!Delay 11 Ha ha!Wait for inputClose Message
"\\E2* So I'm not sure my hints will be much use after all^1! Ha ha!/%", "obj_shop1_slash_Draw_0_gml_648_0"
);
636
                    }
637
                }
638
                if (show_jevil)
639
                {
640
                    global.flag[954 gave_JEVIL_crystal] = 1;
641
                    
scr_keyitemremove
scr_keyitemremove

function
scr_keyitemremove(arg0)
{ removed = 0;
scr_keyitemcheck(arg0);
if (haveit == 1) { loc = 0; skip = 0; if (global.keyitem[0] == arg0 && skip == 0) { loc = 0; skip = 1; } if (global.keyitem[1] == arg0 && skip == 0) { loc = 1; skip = 1; } if (global.keyitem[2] == arg0 && skip == 0) { loc = 2; skip = 1; } if (global.keyitem[3] == arg0 && skip == 0) { loc = 3; skip = 1; } if (global.keyitem[4] == arg0 && skip == 0) { loc = 4; skip = 1; } if (global.keyitem[5] == arg0 && skip == 0) { loc = 5; skip = 1; } if (global.keyitem[6] == arg0 && skip == 0) { loc = 6; skip = 1; } if (global.keyitem[7] == arg0 && skip == 0) { loc = 7; skip = 1; } if (global.keyitem[8] == arg0 && skip == 0) { loc = 8; skip = 1; } if (global.keyitem[9] == arg0 && skip == 0) { loc = 9; skip = 1; } if (global.keyitem[10] == arg0 && skip == 0) { loc = 10; skip = 1; } if (global.keyitem[11] == arg0 && skip == 0) { loc = 11; skip = 1; }
scr_keyitemshift(loc, 0);
removed = 1; } }
(13);
642
                    took_crystal = true;
643
                    msgnextloc(
Face 1* ...Delay 11 Oh? What's that? It seems like he gave something to you.Wait for input
"\\E1* ..^1. Oh? What's that? It seems like he gave something to you./", "obj_shop1_slash_Draw_0_gml_584_0"
);
644
                    msgnextloc(
Face 0* That's right...Delay 11 You must not have noticed it.Wait for input
"\\E0* That's right..^1. You must not have noticed it./", "obj_shop1_slash_Draw_0_gml_585_0"
);
645
                    msgnextloc(
Face 3* That Crystal...Delay 11 It's nearly invisible,Delay 11 but you've been holding it this whole time.Wait for input
"\\E3* That Crystal..^1. It's nearly invisible^1, but you've been holding it this whole time./", "obj_shop1_slash_Draw_0_gml_586_0"
);
646
                    msgnextloc(
Face 0* Here,Delay 11 I'll take it off your hands and appraise it.Wait for input
"\\E0* Here^1, I'll take it off your hands and appraise it./", "obj_shop1_slash_Draw_0_gml_587_0"
);
647
                    msgnextloc(
Face 3* ...Wait for input
"\\E3* .../", "obj_shop1_slash_Draw_0_gml_588_0"
);
648
                    msgnextloc(
Face 1* Incredible!Delay 11 To think he had a Shadow Crystal...Wait for input
"\\E1* Incredible^1! To think he had a Shadow Crystal.../", "obj_shop1_slash_Draw_0_gml_589_0"
);
649
                    msgnextloc(
Face 0* Shadow Crystals,Delay 11 so called because you can only see their shadow.Wait for input
"\\E0* Shadow Crystals^1, so called because you can only see their shadow./", "obj_shop1_slash_Draw_0_gml_590_0"
);
650
                    msgnextloc(
Face 0* ...Wait for input
"\\E0* .../", "obj_shop1_slash_Draw_0_gml_591_0"
);
651
                    msgnextloc(
Face 3* Call it a premonition,Delay 11 but I get the feeling you may find more of these...Wait for input
"\\E3* Call it a premonition^1, but I get the feeling you may find more of these.../", "obj_shop1_slash_Draw_0_gml_592_0"
);
652
                    msgnextloc(
Face 2* ...Delay 11 If you continue to defeat strong adversaries like him,Delay 11 that is.Wait for input
"\\E2* ..^1. If you continue to defeat strong adversaries like \\cYhim\\c0^1, that is./", "obj_shop1_slash_Draw_0_gml_593_0"
);
653
                    msgnextloc(
Face 0* If you can gather more Shadow Crystals,Delay 11 bring them here!Wait for input
"\\E0* If you can gather more Shadow Crystals^1, bring them here!/", "obj_shop1_slash_Draw_0_gml_594_0"
);
654
                    msgnextloc(
Face 2* I'm sure I can stitch together something incredible for you...Wait for inputClose Message
"\\E2* I'm sure I can stitch together something incredible for you.../%", "obj_shop1_slash_Draw_0_gml_595_0"
);
655
                }
656
            }
657
            else
658
            {
659
                var normal_post_plot = false;
660
                if (global.flag[309 spamton_plot] < 9)
661
                {
662
                    if (global.flag[954 gave_JEVIL_crystal] == 1 && global.flag[961 failed_spam_crystal] == 0)
663
                    {
664
                        
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 == "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; } if (global.fighting == 1) ...
("seam");
665
                        msgsetloc(0, 
Face 1* ...Delay 11 It seems that you didn't get another Shadow Crystal.Wait for input
"\\E1* ..^1. It seems that you didn't get another Shadow Crystal./", "obj_shop1_slash_Draw_0_gml_681_0"
);
666
                        msgnextloc(
Face 0* Hm. I understand. It's no small feat to fight an opponent that has one.Wait for input
"\\E0* Hm. I understand. It's no small feat to fight an opponent that has one./", "obj_shop1_slash_Draw_0_gml_682_0"
);
667
                        msgnextloc(
Face 3* ...Wait for input
"\\E3* .../", "obj_shop1_slash_Draw_0_gml_683_0"
);
668
                        msgnextloc(
Face 1* Well then,Delay 11 forget it all.Wait for input
"\\E1* Well then^1, forget it all./", "obj_shop1_slash_Draw_0_gml_684_0"
);
669
                        msgnextloc(
Face 0* You're a Lightner. Don't take your life,Delay 11 well,Delay 11 lightly!Wait for inputClose Message
"\\E0* You're a Lightner. Don't take your life^1, well^1, lightly!/%", "obj_shop1_slash_Draw_0_gml_685_0"
);
670
                        global.flag[961 failed_spam_crystal] = 1;
671
                    }
672
                    else if (global.flag[312 talked_seam_ch2] == 0)
673
                    {
674
                        global.flag[312 talked_seam_ch2] = 1;
675
                        
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 == "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; } if (global.fighting == 1) ...
("seam");
676
                        msgsetloc(0, 
Face 1* Hmm...Delay 11 So we are now in the Castle Town.Wait for input
"\\E1* Hmm..^1. So we are now in the Castle Town./", "obj_shop1_slash_Draw_0_gml_567_0"
);
677
                        msgnextloc(
Face 0* Well,Delay 11 now. It makes no difference to me.Wait for input
"\\E0* Well^1, now. It makes no difference to me./", "obj_shop1_slash_Draw_0_gml_568_0"
);
678
                        msgnextloc(
Face 2* As long as I stay in my shop,Delay 11 these walls won't change.Wait for input
"\\E2* As long as I stay in my shop^1, these walls won't change./", "obj_shop1_slash_Draw_0_gml_569_0"
);
679
                        msgnextloc(
Face 0* ...Delay 11 But.Wait for input
"\\E0* ..^1. But./", "obj_shop1_slash_Draw_0_gml_570_0"
);
680
                        msgnextloc(
Face 2* In a way,Delay 11 I suppose it's just a little bit amusing to see you again.Wait for input
"\\E2* In a way^1, I suppose it's just a little bit amusing to see you again./", "obj_shop1_slash_Draw_0_gml_571_0_b"
);
681
                        msgnextloc(
Face 0* I'm sure you three will have an interesting journey.Wait for input
"\\E0* I'm sure you three will have an interesting journey./", "obj_shop1_slash_Draw_0_gml_572_0"
);
682
                        msgnextloc(
Face 1* Me? I'll just be here offering the same old junk.Wait for input
"\\E1* Me? I'll just be here offering the same old junk./", "obj_shop1_slash_Draw_0_gml_573_0"
);
683
                        msgnextloc(
Face 0* As you find stronger treasure,Delay 11 I'm sure you'll have little reason to return here.Wait for input
"\\E0* As you find stronger treasure^1, I'm sure you'll have little reason to return here./", "obj_shop1_slash_Draw_0_gml_574_0"
);
684
                        msgnextloc(
Face 2* But if you have some time,Delay 11 I'll offer you a biscuit and a hint!Wait for inputClose Message
"\\E2* But if you have some time^1, I'll offer you a biscuit and a hint!/%", "obj_shop1_slash_Draw_0_gml_575_0"
);
685
                    }
686
                    else
687
                    {
688
                        normal_post_plot = true;
689
                    }
690
                }
691
                else if (global.flag[954 gave_JEVIL_crystal] == 1)
692
                {
693
                    if (global.flag[353 talk_two_crystals] == 0)
694
                    {
695
                        global.flag[353 talk_two_crystals] = 1;
696
                        msgsetloc(0, 
Face 2* Well,Delay 11 what have we here!Delay 11 You managed to find another Shadow Crystal...Wait for input
"\\E2* Well^1, what have we here^1! You managed to find another Shadow Crystal.../", "obj_shop1_slash_Draw_0_gml_601_0"
);
697
                        msgnextloc(
Face 1* Oh,Delay 11 is that so?Delay 11 That salesman had found the crystal in the old machine...?Wait for input
"\\E1* Oh^1, is that so^1? That salesman had found the crystal in the old machine...?/", "obj_shop1_slash_Draw_0_gml_602_0"
);
698
                        msgnextloc(
Face 0* I wonder...Delay 11 if perhaps,Delay 11 long ago,Delay 11 that old machine was very important to someone.Wait for input
"\\E0* I wonder..^1. if perhaps^1, long ago^1, that old machine was very important to someone./", "obj_shop1_slash_Draw_0_gml_603_0"
);
699
                        msgnextloc(
Face 3* A certain Lightner,Delay 11 perhaps...Delay 11 or maybe it's just a hunch.Delay 11 Haha!Wait for input
"\\E3* A certain Lightner^1, perhaps..^1. or maybe it's just a hunch^1. Haha!/", "obj_shop1_slash_Draw_0_gml_604_0"
);
700
                        msgnextloc(
Face 0* At any rate,Delay 11 it's truly unfortunate a Darkner decided to steal that power...Wait for input
"\\E0* At any rate^1, it's truly unfortunate a Darkner decided to steal that power.../", "obj_shop1_slash_Draw_0_gml_605_0"
);
701
                        msgnextloc(
Face 0* Or,Delay 11 is it fortunate? Because of that,Delay 11 you found a new Crystal.Wait for input
"\\E0* Or^1, is it fortunate? Because of that^1, you found a new Crystal./", "obj_shop1_slash_Draw_0_gml_606_0"
);
702
                        msgnextloc(
Face 2* Here,Delay 11 let me hold onto that for you. Ha ha ha!Wait for inputClose Message
"\\E2* Here^1, let me hold onto that for you. Ha ha ha!/%", "obj_shop1_slash_Draw_0_gml_607_0"
);
703
                        
scr_keyitemremove
scr_keyitemremove

function
scr_keyitemremove(arg0)
{ removed = 0;
scr_keyitemcheck(arg0);
if (haveit == 1) { loc = 0; skip = 0; if (global.keyitem[0] == arg0 && skip == 0) { loc = 0; skip = 1; } if (global.keyitem[1] == arg0 && skip == 0) { loc = 1; skip = 1; } if (global.keyitem[2] == arg0 && skip == 0) { loc = 2; skip = 1; } if (global.keyitem[3] == arg0 && skip == 0) { loc = 3; skip = 1; } if (global.keyitem[4] == arg0 && skip == 0) { loc = 4; skip = 1; } if (global.keyitem[5] == arg0 && skip == 0) { loc = 5; skip = 1; } if (global.keyitem[6] == arg0 && skip == 0) { loc = 6; skip = 1; } if (global.keyitem[7] == arg0 && skip == 0) { loc = 7; skip = 1; } if (global.keyitem[8] == arg0 && skip == 0) { loc = 8; skip = 1; } if (global.keyitem[9] == arg0 && skip == 0) { loc = 9; skip = 1; } if (global.keyitem[10] == arg0 && skip == 0) { loc = 10; skip = 1; } if (global.keyitem[11] == arg0 && skip == 0) { loc = 11; skip = 1; }
scr_keyitemshift(loc, 0);
removed = 1; } }
(13);
704
                        took_crystal = true;
705
                    }
706
                    else if (global.flag[353 talk_two_crystals] == 1)
707
                    {
708
                        global.flag[353 talk_two_crystals] = 2;
709
                        
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 == "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; } if (global.fighting == 1) ...
("seam");
710
                        msgsetloc(0, 
* You have collected 2 Shadow Crystals.Wait for input
"* You have collected 2 Shadow Crystals./", "obj_shop1_slash_Draw_0_gml_706_0"
);
711
                        msgnextloc(
Face 1* But don't let down your guard. I feel your next opponent may be...Delay 11 hm.Wait for input
"\\E1* But don't let down your guard. I feel your next opponent may be..^1. hm./", "obj_shop1_slash_Draw_0_gml_707_0"
);
712
                        msgnextloc(
Face 3* In reality,Delay 11 it may be impossible to win.Wait for input
"\\E3* In reality^1, it may be impossible to win./", "obj_shop1_slash_Draw_0_gml_708_0"
);
713
                        msgnextloc(
Face 0* ...Delay 11 Unless you use the power of the Shadow Mantle.Wait for input
"\\E0* ..^1. Unless you use the power of the Shadow Mantle./", "obj_shop1_slash_Draw_0_gml_709_0"
);
714
                        msgnextloc(
Face 0* Here,Delay 11 it may look like an old scrap of cloth,Delay 11 but...Wait for input
"\\E0* Here^1, it may look like an old scrap of cloth^1, but.../", "obj_shop1_slash_Draw_0_gml_710_0"
);
715
                        msgnextloc(
Face 1* ...Delay 11 eh?Wait for input
"\\E1* ..^1. eh?/", "obj_shop1_slash_Draw_0_gml_711_0"
);
716
                        msgnextloc(
Face 3* I can't find it. Did someone...Delay 11 take it...?Wait for input
"\\E3* I can't find it. Did someone..^1. take it...?/", "obj_shop1_slash_Draw_0_gml_712_0"
);
717
                        msgnextloc(
Face 2* Hahaha!Delay 11 Well now,Delay 11 there goes your one chance of victory!Wait for inputClose Message
"\\E2* Hahaha^1! Well now^1, there goes your one chance of victory!/%", "obj_shop1_slash_Draw_0_gml_713_0"
);
718
                    }
719
                    else
720
                    {
721
                        
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 == "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; } if (global.fighting == 1) ...
("seam");
722
                        msgsetloc(0, 
* You have collected 2 Shadow Crystals.Wait for input
"* You have collected 2 Shadow Crystals./", "obj_shop1_slash_Draw_0_gml_717_0"
);
723
                        msgnextloc(
Face 3* Unfortunately,Delay 11 without the Shadow Mantle,Delay 11 at 2 you may remain.Wait for input
"\\E3* Unfortunately^1, without the Shadow Mantle^1, at 2 you may remain./", "obj_shop1_slash_Draw_0_gml_718_0"
);
724
                        msgnextloc(
Face 0* Fate is approaching...Delay 11 and it is not on your side.Wait for inputClose Message
"\\E0* Fate is approaching..^1. and it is not on your side./%", "obj_shop1_slash_Draw_0_gml_719_0"
);
725
                    }
726
                }
727
                else
728
                {
729
                    var have_jevil = global.flag[460 got_jevil_hole] == 1 || global.flag[241 JEVIL_plot] >= 6;
730
                    var sentence_end = have_jevil ? "/" : "/%";
731
                    if (haveit == 1)
732
                    {
733
                        
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 == "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; } if (global.fighting == 1) ...
("seam");
734
                        msgsetloc(0, 
Face 1* ...Delay 11 What is that? It appears you have a Shadow Crystal.Wait for input
"\\E1* ..^1. What is that? It appears you have a Shadow Crystal./", "obj_shop1_slash_Draw_0_gml_619_0"
);
735
                        msgnextloc(
Face 3* ...Wait for input
"\\E3* .../", "obj_shop1_slash_Draw_0_gml_620_0"
);
736
                        msgnextloc(
Face 0* Unfortunately,Delay 11 I believe that you are missing one from your previous adventures.Wait for input
"\\E0* Unfortunately^1, I believe that you are missing one from your previous adventures./", "obj_shop1_slash_Draw_0_gml_621_0"
);
737
                        msgnextloc(
Face 0* ...Wait for input
"\\E0* .../", "obj_shop1_slash_Draw_0_gml_622_0"
);
738
                        msgnextloc(
Face 3* But,Delay 11 are you sure? Are you sure you didn't defeat that clown...?Wait for input
"\\E3* But^1, are you sure? Are you sure you didn't defeat that clown...?/", "obj_shop1_slash_Draw_0_gml_623_0"
);
739
                        msgnextloc(
Face 0* Perhaps...Delay 11 You just haven't remembered that you had yet.Wait for input
"\\E0* Perhaps..^1. You just haven't remembered that you had yet./", "obj_shop1_slash_Draw_0_gml_624_0"
);
740
                        msgnextloc(
Face 2* That's right,Delay 11 as long as you ever defeated that enemy in the past...Wait for input
"\\E2* That's right^1, as long as you ever defeated that enemy in the past.../", "obj_shop1_slash_Draw_0_gml_625_0"
);
741
                        msgnextsubloc("\\E2* Then perhaps^1, even now^1, that Crystal might turn up somewhere close..^1. Perhaps!~1", sentence_end, "obj_shop1_slash_Draw_0_gml_638_0");
742
                    }
743
                    if (have_jevil)
744
                    {
745
                        global.flag[954 gave_JEVIL_crystal] = 1;
746
                        global.flag[353 talk_two_crystals] = 1;
747
                        var first_line = stringsetloc(
Face 2* Aha!Delay 11 Another Shadow Crystal!Delay 11 You found it...Wait for input
"\\E2* Aha^1! Another Shadow Crystal^1! You found it.../", "obj_shop1_slash_Draw_0_gml_639_0"
);
748
                        if (global.flag[312 talked_seam_ch2] > 0)
749
                            msgset(0, first_line);
750
                        else
751
                            msgnext(first_line);
752
                        msgnextloc(
Face 0* You can't see it,Delay 11 so perhaps you didn't notice...Wait for input
"\\E0* You can't see it^1, so perhaps you didn't notice.../", "obj_shop1_slash_Draw_0_gml_640_0_b"
);
753
                        msgnextloc(
Face 0* Didn't you defeat him? Didn't you defeat Jevil?Wait for input
"\\E0* Didn't you defeat him? Didn't you defeat Jevil?/", "obj_shop1_slash_Draw_0_gml_641_0_b"
);
754
                        msgnextloc(
Face 2* Here,Delay 11 I'll take that Crystal. Now,Delay 11 you have collected 2 of them!Delay 11 Huzzah!Wait for inputClose Message
"\\E2* Here^1, I'll take that Crystal. Now^1, you have collected 2 of them^1! Huzzah!/%", "obj_shop1_slash_Draw_0_gml_642_0"
);
755
                    }
756
                    else if (global.flag[312 talked_seam_ch2] == 1 && !haveit)
757
                    {
758
                        normal_post_plot = true;
759
                    }
760
                    if (global.flag[312 talked_seam_ch2] == 0)
761
                        global.flag[312 talked_seam_ch2] = 1;
762
                    if (haveit == 1)
763
                    {
764
                        
scr_keyitemremove
scr_keyitemremove

function
scr_keyitemremove(arg0)
{ removed = 0;
scr_keyitemcheck(arg0);
if (haveit == 1) { loc = 0; skip = 0; if (global.keyitem[0] == arg0 && skip == 0) { loc = 0; skip = 1; } if (global.keyitem[1] == arg0 && skip == 0) { loc = 1; skip = 1; } if (global.keyitem[2] == arg0 && skip == 0) { loc = 2; skip = 1; } if (global.keyitem[3] == arg0 && skip == 0) { loc = 3; skip = 1; } if (global.keyitem[4] == arg0 && skip == 0) { loc = 4; skip = 1; } if (global.keyitem[5] == arg0 && skip == 0) { loc = 5; skip = 1; } if (global.keyitem[6] == arg0 && skip == 0) { loc = 6; skip = 1; } if (global.keyitem[7] == arg0 && skip == 0) { loc = 7; skip = 1; } if (global.keyitem[8] == arg0 && skip == 0) { loc = 8; skip = 1; } if (global.keyitem[9] == arg0 && skip == 0) { loc = 9; skip = 1; } if (global.keyitem[10] == arg0 && skip == 0) { loc = 10; skip = 1; } if (global.keyitem[11] == arg0 && skip == 0) { loc = 11; skip = 1; }
scr_keyitemshift(loc, 0);
removed = 1; } }
(13);
765
                        took_crystal = true;
766
                    }
767
                }
768
                if (normal_post_plot)
769
                {
770
                    talk_counter++;
771
                    if (talk_counter == 1)
772
                    {
773
                        
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 == "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; } if (global.fighting == 1) ...
("seam");
774
                        msgsetloc(0, 
* There are many fresh faces in town,Delay 11 I see.Wait for input
"* There are many fresh faces in town^1, I see./", "obj_shop1_slash_Draw_0_gml_654_0"
);
775
                        msgnextloc(
Face 2* It warms this old fluff to see such hope.Wait for input
"\\E2* It warms this old fluff to see such hope./", "obj_shop1_slash_Draw_0_gml_655_0"
);
776
                        msgnextloc(
Face 3* I was even surprised to see the Queen again.Wait for input
"\\E3* I was even surprised to see the Queen again./", "obj_shop1_slash_Draw_0_gml_656_0"
);
777
                        msgnextloc(
Face 0* Same as ever...Delay 11 Well,Delay 11 aren't we all.Wait for inputClose Message
"\\E0* Same as ever..^1. Well^1, aren't we all./%", "obj_shop1_slash_Draw_0_gml_657_0"
);
778
                    }
779
                    else
780
                    {
781
                        
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 == "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; } if (global.fighting == 1) ...
("seam");
782
                        if (
scr_get_total_recruits
scr_get_total_recruits

function
scr_get_total_recruits()
{ var totalrecruits = 0; var chapter = -1; var start_index = 0; var max_index = 100; if (argument_count > 0) chapter = argument[0]; if (chapter == 2) { start_index = 30; max_index = 44; } for (var i = start_index; i < max_index; i++) { if (global.flag[i + 600] == 1) totalrecruits++; } return totalrecruits; }
(2) >= 9)
783
                        {
784
                            msgsetloc(0, 
* Those young men have made an interesting shop.Wait for input
"* Those young men have made an interesting shop./", "obj_shop1_slash_Draw_0_gml_661_0"
);
785
                            msgnextloc(
Face 3* They're leaving the bagel business,Delay 11 so I have the rest of their remaining stock.Wait for input
"\\E3* They're leaving the bagel business^1, so I have the rest of their remaining stock./", "obj_shop1_slash_Draw_0_gml_662_0"
);
786
                        }
787
                        else
788
                        {
789
                            msgsetloc(0, 
* Those three young musical men are thinking about setting up a shop here.Wait for input
"* Those three young musical men are thinking about setting up a shop here./", "obj_shop1_slash_Draw_0_gml_674_0_b"
);
790
                            msgnextloc(
Face 2* I'm sure you'd appreciate having an option other than me,Delay 11 ha ha.Wait for input
"\\E2* I'm sure you'd appreciate having an option other than me^1, ha ha./", "obj_shop1_slash_Draw_0_gml_675_0_b"
);
791
                        }
792
                        msgnextloc(
Face 3* ...Delay 11 By the by,Delay 11 it's growing late,Delay 11 isn't it?Wait for input
"\\E3* ..^1. By the by^1, it's growing late^1, isn't it?/", "obj_shop1_slash_Draw_0_gml_663_0"
);
793
                        msgnextloc(
Face 0* You should hurry home once you finish your business here.Wait for input
"\\E0* You should hurry home once you finish your business here./", "obj_shop1_slash_Draw_0_gml_664_0"
);
794
                        msgnextloc(
Face 3* You don't want to get caught when the sun goes down...Wait for inputClose Message
"\\E3* You don't want to get caught when the sun goes down.../%", "obj_shop1_slash_Draw_0_gml_665_0"
);
795
                    }
796
                }
797
            }
798
        }
799
        instance_create(30, 270, obj_writer);
800
        selling = 1;
801
    }
802
    if (selling == 1 && instance_exists(obj_writer) == false)
803
    {
804
        if (took_crystal)
805
        {
806
            took_crystal = false;
807
            snd_play(snd_item);
808
        }
809
        if (sell == 2)
810
        {
811
            selling = 2;
812
            event_user(1);
813
        }
814
        else
815
        {
816
            if (sell == 1 || sell == 7 || sell == 10)
817
                menu = 0;
818
            else
819
                menu = 3;
820
            sell = 0;
821
            selling = 0;
822
        }
823
    }
824
}
825
if (down_p())
826
{
827
    if (menu != 11 && menu != 12 && menu != 13)
828
    {
829
        menuc[menu] += 1;
830
        if (menuc[menu] > menumax)
831
            menuc[menu] = 0;
832
    }
833
}
834
if (up_p())
835
{
836
    if (menu != 11 && menu != 12 && menu != 13)
837
    {
838
        menuc[menu] -= 1;
839
        if (menuc[menu] < 0)
840
            menuc[menu] = menumax;
841
    }
842
}
843
if (menu < 4 || menu >= 10)
844
{
845
    draw_text(440, 420, "$" + string_hash_to_newline(string(global.gold)));
846
    if (menu == 1 || menu == 2)
847
    {
848
        if (menuc[1] < 4)
849
        {
850
            if (itemtype[menuc[1]] == "item")
851
                
scr_itemcheck_inventory_and_pocket
scr_itemcheck_inventory_and_pocket

function
scr_itemcheck_inventory_and_pocket(arg0)
{ var _haveeither = 0; var itemcounttotal = 0;
scr_itemcheck(arg0);
if (haveit == 1) _haveeither = 1; itemcounttotal += itemcount;
scr_itemcheck_pocket(arg0);
if (haveit == 1) _haveeither = 1; itemcounttotal += itemcount; haveit = _haveeither; itemcount = itemcounttotal; return haveit; }
(0);
852
            if (itemtype[menuc[1]] == "armor")
853
                
scr_armorcheck_inventory
scr_armorcheck_inventory

function
scr_armorcheck_inventory(arg0)
{ haveit = 0; itemcount = 0; for (i = 0; i < 48; i += 1) { if (global.armor[i] == arg0) haveit = 1; if (global.armor[i] == arg0) itemcount += 1; } return haveit; }
(0);
854
            if (itemtype[menuc[1]] == "weapon")
855
                
scr_weaponcheck_inventory
scr_weaponcheck_inventory

function
scr_weaponcheck_inventory(arg0)
{ haveit = 0; itemcount = 0; for (i = 0; i < 48; i += 1) { if (global.weapon[i] == arg0) haveit = 1; if (global.weapon[i] == arg0) itemcount += 1; } return haveit; }
(0);
856
            
scr_84_set_draw_font
scr_84_set_draw_font

function
scr_84_set_draw_font(arg0)
{ global.chemg_font = arg0; draw_set_font(
scr_84_get_font(arg0));
}
("dotumche");
857
            if (itemcount < 10)
858
                roomstring = "0" + string(itemcount);
859
            else
860
                roomstring = string(itemcount);
861
            if (itemcount > 0)
862
                draw_text(520, 430, string_hash_to_newline(stringsetsubloc("Space:~1", roomstring, "obj_shop1_slash_Draw_0_gml_784_0")));
863
            if (itemcount == 0)
864
                draw_text(520, 430, string_hash_to_newline(stringsetloc(
NO SPACE
"NO SPACE", "obj_shop1_slash_Draw_0_gml_571_0"
)));
865
        }
866
    }
867
}
868
onebuffer -= 1;
869
twobuffer -= 1;