Deltarune (Chapter 1) 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(spr_shopbg1, 0, 0, 0, 2, 2, 0, c_white, 1);
2
draw_sprite_ext(spr_shopbg1, 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] = 
Face 0* Take your time...Delay 11
* Ain't like it's
better spent.
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_98_0")
;
96
        if (mainmessage == 0)
97
            global.msg[0] = 
Face 0* Hee hee...Delay 11
* Welcome, travellers.
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("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(
Buy
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_106_0")
));
104
    draw_text(480, 300, string_hash_to_newline(
Sell
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_107_0")
));
105
    draw_text(480, 340, string_hash_to_newline(
Talk
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_108_0")
));
106
    draw_text(480, 380, string_hash_to_newline(
Exit
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("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
            menu = 3;
123
        if (menuc[0] == 3)
124
        {
125
            sell = 2;
126
            menu = 4;
127
        }
128
    }
129
}
130
if (menu == 1 || menu == 2)
131
{
132
    draw_set_color(c_white);
133
    
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");
134
    for (i = 0; i < itemtotal; i += 1)
135
    {
136
        draw_text(60, 260 + (i * 40), string_hash_to_newline(shopitemname[i]));
137
        draw_text(300, 260 + (i * 40), string_hash_to_newline("$" + string(buyvalue[i])));
138
    }
139
    draw_text(60, 260 + (itemtotal * 40), string_hash_to_newline(
Exit
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_139_0")
));
140
    if (menu == 1)
141
    {
142
        menumax = 4;
143
        if (instance_exists(obj_writer) == false)
144
        {
145
            if (sidemessage == 0)
146
                global.msg[0] = 
Face 0What do
you like
to buy?
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_148_0")
;
147
            if (sidemessage == 1)
148
                global.msg[0] = 
Face 2Thanks for
that.
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_149_0")
;
149
            if (sidemessage == 2)
150
                global.msg[0] = 
Face 0What,
not good
enough?
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_150_0")
;
151
            if (sidemessage == 3)
152
                global.msg[0] = 
Face 3Not
enough
money.
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_151_0")
;
153
            if (sidemessage == 4)
154
                global.msg[0] = 
Face 3You're
carrying
too much.
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_152_0")
;
155
            if (murder == 1)
156
                global.msg[0] = 
Wait for input*
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_153_0")
;
157
            instance_create(450, 260, obj_writer);
158
        }
159
        draw_sprite(spr_heart, 0, 30, 270 + (menuc[1] * 40));
160
        if (button1_p() && onebuffer < 0)
161
        {
162
            menu = 2;
163
            onebuffer = 2;
164
            with (obj_writer)
165
                instance_destroy();
166
            if (menuc[1] == menumax)
167
                menu = 0;
168
        }
169
        if (button2_p() && twobuffer < 0 && onebuffer < 2)
170
        {
171
            menu = 0;
172
            twobuffer = 2;
173
            minimenuy = 220;
174
            with (obj_writer)
175
                instance_destroy();
176
        }
177
        menuc[2] = 0;
178
    }
179
    if (menu == 2)
180
    {
181
        menumax = 1;
182
        draw_set_color(c_white);
183
        
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");
184
        if (global.lang == "ja")
185
        {
186
            draw_text(460, 290, string_hash_to_newline(
Buy it for
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_167_0")
));
187
            draw_text(460, 260, "$" + string_hash_to_newline(string(buyvalue[menuc[1]]) + 
?
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_168_0")
));
188
        }
189
        else
190
        {
191
            draw_text(460, 260, string_hash_to_newline(
Buy it for
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_167_0")
));
192
            draw_text(460, 290, "$" + string_hash_to_newline(string(buyvalue[menuc[1]]) + 
?
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_168_0")
));
193
        }
194
        draw_text(480, 340, string_hash_to_newline(
Yes
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_169_0")
));
195
        draw_text(480, 370, string_hash_to_newline(
No
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_170_0")
));
196
        draw_sprite(spr_heart, 0, 450, 350 + (menuc[2] * 30));
197
        if (button2_p() && twobuffer < 0)
198
        {
199
            menu = 1;
200
            sidemessage = 2;
201
            twobuffer = 2;
202
            onebuffer = 2;
203
        }
204
        if (button1_p() && onebuffer < 0 && twobuffer < 0)
205
        {
206
            if (menuc[2] == 0)
207
            {
208
                afford = 0;
209
                if (global.gold >= buyvalue[menuc[1]])
210
                    afford = 1;
211
                if (afford == 1)
212
                {
213
                    if (itemtype[menuc[1]] == "item")
214
                        
scr_itemget
scr_itemget

function
scr_itemget(arg0)
{ i = 0; loop = 1; noroom = 0; global.item[12] = 999; while (loop == 1) { if (global.item[i] == 0) { global.item[i] = arg0; break; } if (i == 12) { noroom = 1; break; } i += 1; } script_execute(scr_iteminfo_all); }
(item[menuc[1]]);
215
                    if (itemtype[menuc[1]] == "weapon")
216
                        
scr_weaponget
scr_weaponget

function
scr_weaponget(arg0)
{ i = 0; loop = 1; noroom = 0; global.weapon[12] = 999; while (loop == 1) { if (global.weapon[i] == 0) { global.weapon[i] = arg0; break; } if (i == 12) { noroom = 1; break; } i += 1; } script_execute(scr_weaponinfo_all); }
(item[menuc[1]]);
217
                    if (itemtype[menuc[1]] == "armor")
218
                        
scr_armorget
scr_armorget

function
scr_armorget(arg0)
{ i = 0; loop = 1; noroom = 0; global.armor[12] = 999; while (loop == 1) { if (global.armor[i] == 0) { global.armor[i] = arg0; break; } if (i == 12) { noroom = 1; break; } i += 1; } script_execute(scr_armorinfo_all); }
(item[menuc[1]]);
219
                    if (noroom == 0)
220
                    {
221
                        global.gold -= buyvalue[menuc[1]];
222
                        sidemessage = 1;
223
                        snd_play(snd_locker);
224
                    }
225
                    if (noroom == 1)
226
                        sidemessage = 4;
227
                }
228
                else
229
                {
230
                    sidemessage = 3;
231
                }
232
            }
233
            if (menuc[2] == 1)
234
                sidemessage = 2;
235
            menu = 1;
236
        }
237
    }
238
    if (menuc[1] != 4)
239
    {
240
        if (minimenuy <= 20)
241
            minimenuy = 20;
242
        if (minimenuy > 20)
243
            minimenuy -= 5;
244
        if (minimenuy > 50)
245
            minimenuy -= 5;
246
        if (minimenuy > 100)
247
            minimenuy -= 8;
248
        if (minimenuy > 150)
249
            minimenuy -= 10;
250
    }
251
    else if (minimenuy < 200)
252
    {
253
        minimenuy += 40;
254
    }
255
    if (minimenuy >= 200)
256
        minimenuy = 200;
257
}
258
if (menu == 3)
259
{
260
    menumax = 4;
261
    draw_set_color(c_white);
262
    
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");
263
    draw_text(80, 260, string_hash_to_newline(
About yourself
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_217_0")
));
264
    draw_text(80, 300, string_hash_to_newline(
Lightners
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_218_0")
));
265
    if (global.flag[241 JEVIL_plot] < 6)
266
    {
267
        draw_text(80, 340, string_hash_to_newline(
Kingdom
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_220_0")
));
268
    }
269
    else
270
    {
271
        draw_set_color(c_yellow);
272
        draw_text(80, 340, string_hash_to_newline(
About JEVIL
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_224_0")
));
273
    }
274
    if (global.flag[241 JEVIL_plot] == 0)
275
    {
276
        draw_text(80, 380, string_hash_to_newline(
We're legendary
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_227_0")
));
277
    }
278
    else
279
    {
280
        _legendstring = 
Strange Prisoner
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_230_0")
;
281
        draw_set_color(c_yellow);
282
        if (global.flag[115 got_key_a] >= 1)
283
            draw_set_color(c_white);
284
        if (global.flag[241 JEVIL_plot] >= 6)
285
        {
286
            draw_set_color(c_yellow);
287
            _legendstring = 
We Won
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_233_0")
;
288
        }
289
        draw_text(80, 380, string_hash_to_newline(_legendstring));
290
    }
291
    draw_set_color(c_white);
292
    draw_text(80, 420, string_hash_to_newline(
Exit
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_240_0")
));
293
    if (instance_exists(obj_writer) == false)
294
    {
295
        global.msg[0] = 
Face 0Don't have
anything
better
to do.
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_244_0")
;
296
        instance_create(440, 260, obj_writer);
297
    }
298
    draw_sprite(spr_heart, 0, 50, 270 + (menuc[3] * 40));
299
    if (button1_p() && onebuffer < 0)
300
    {
301
        onebuffer = 2;
302
        with (obj_writer)
303
            instance_destroy();
304
        if (menuc[3] < menumax)
305
        {
306
            sell = menuc[3] + 3;
307
            menu = 4;
308
        }
309
        else
310
        {
311
            menu = 0;
312
        }
313
    }
314
    else if (button2_p() && twobuffer < 0 && onebuffer < 0)
315
    {
316
        twobuffer = 2;
317
        menu = 0;
318
        with (obj_writer)
319
            instance_destroy();
320
    }
321
}
322
if (menu == 10)
323
{
324
    menuc[11] = 0;
325
    menuc[12] = 0;
326
    menuc[13] = 0;
327
    menumax = 3;
328
    draw_set_color(c_white);
329
    
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");
330
    draw_text(80, 260, string_hash_to_newline(
Sell Items
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_278_0")
));
331
    draw_text(80, 300, string_hash_to_newline(
Sell Weapons
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_279_0")
));
332
    draw_text(80, 340, string_hash_to_newline(
Sell Armor
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_280_0")
));
333
    draw_text(80, 380, string_hash_to_newline(
Return
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_281_0")
));
334
    if (instance_exists(obj_writer) == false)
335
    {
336
        if (sidemessage == 0)
337
            global.msg[0] = 
Face 0What kind
of junk
you got?
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_285_0")
;
338
        if (sidemessage == 1)
339
            global.msg[0] = 
Face 0That's it
for that.
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_286_0")
;
340
        if (sidemessage == 2)
341
            global.msg[0] = 
Face 3You don't
have
anything!
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_287_0")
;
342
        instance_create(460, 260, obj_writer);
343
    }
344
    draw_sprite(spr_heart, 0, 50, 270 + (menuc[10] * 40));
345
    if (button1_p() && onebuffer < 0)
346
    {
347
        pagemax = 0;
348
        sidemessage2 = 0;
349
        onebuffer = 2;
350
        with (obj_writer)
351
            instance_destroy();
352
        can = 1;
353
        idealmenu = menuc[10] + 11;
354
        if (idealmenu == 11)
355
        {
356
            
scr_itemcheck
scr_itemcheck

function
scr_itemcheck(arg0)
{ haveit = 0; itemcount = 0; for (i = 0; i < 12; i += 1) { if (global.item[i] == arg0) haveit = 1; if (global.item[i] == arg0) itemcount += 1; } return haveit; }
(0);
357
            if (itemcount == 12)
358
            {
359
                sidemessage = 2;
360
                can = 0;
361
            }
362
            
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; } }
();
363
        }
364
        if (idealmenu == 12)
365
        {
366
            
scr_weaponcheck_inventory
scr_weaponcheck_inventory

function
scr_weaponcheck_inventory(arg0)
{ haveit = 0; itemcount = 0; for (i = 0; i < 12; i += 1) { if (global.weapon[i] == arg0) haveit = 1; if (global.weapon[i] == arg0) itemcount += 1; } return haveit; }
(0);
367
            if (itemcount == 12)
368
            {
369
                sidemessage = 2;
370
                can = 0;
371
            }
372
            
scr_weaponinfo_all
scr_weaponinfo_all

function
scr_weaponinfo_all()
{ for (i = 0; i < 12; i += 1) {
scr_weaponinfo(global.weapon[i]);
weaponname[i] = weaponnametemp; weapondesc[i] = weapondesctemp; wmessage2[i] = wmessage2temp; wmessage3[i] = wmessage3temp; 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; weaponvalue[i] = value; weaponability[i] = weaponabilitytemp; weaponabilityicon[i] = weaponabilityicontemp; weaponicon[i] = weaponicontemp; } }
();
373
        }
374
        if (idealmenu == 13)
375
        {
376
            
scr_armorcheck_inventory
scr_armorcheck_inventory

function
scr_armorcheck_inventory(arg0)
{ haveit = 0; itemcount = 0; for (i = 0; i < 12; i += 1) { if (global.armor[i] == arg0) haveit = 1; if (global.armor[i] == arg0) itemcount += 1; } return haveit; }
(0);
377
            if (itemcount == 12)
378
            {
379
                sidemessage = 2;
380
                can = 0;
381
            }
382
            
scr_armorinfo_all
scr_armorinfo_all

function
scr_armorinfo_all()
{ for (i = 0; i < 12; i += 1) {
scr_armorinfo(global.armor[i]);
armorname[i] = armornametemp; armordesc[i] = armordesctemp; amessage2[i] = amessage2temp; amessage3[i] = amessage3temp; 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; armorvalue[i] = value; armorability[i] = armorabilitytemp; armorabilityicon[i] = armorabilityicontemp; armoricon[i] = armoricontemp; } }
();
383
        }
384
        if (menuc[10] < menumax)
385
        {
386
            if (can == 1)
387
                menu = menuc[10] + 11;
388
            sidemessage1 = 0;
389
        }
390
        else
391
        {
392
            menu = 0;
393
        }
394
        submenu = 0;
395
        submenuc[1] = 0;
396
    }
397
    if (button2_p() && twobuffer < 0 && onebuffer < 0)
398
    {
399
        twobuffer = 2;
400
        menu = 0;
401
        with (obj_writer)
402
            instance_destroy();
403
    }
404
}
405
if (menu == 11 || menu == 12 || menu == 13)
406
{
407
    if (instance_exists(obj_writer) == false)
408
    {
409
        if (sidemessage2 == 0 && menu == 11)
410
            global.msg[0] = 
Face 0Alright,
give me
an ITEM.
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_347_0")
;
411
        if (sidemessage2 == 0 && menu == 12)
412
            global.msg[0] = 
Face 0What WEAPON
will you
give me?
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_348_0")
;
413
        if (sidemessage2 == 0 && menu == 13)
414
            global.msg[0] = 
Face 0What ARMOR
will you
give me?
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_349_0")
;
415
        if (sidemessage2 == 1)
416
            global.msg[0] = 
Face 2Thanks for
that.
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_350_0")
;
417
        if (sidemessage2 == 2)
418
            global.msg[0] = 
Face 0No?
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_351_0")
;
419
        if (sidemessage2 == 3)
420
            global.msg[0] = 
Face 3Y'think I
WANT that?
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_352_0")
;
421
        if (sidemessage2 == 4)
422
            global.msg[0] = 
Face 0That's
nothing.
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_353_0")
;
423
        instance_create(450, 260, obj_writer);
424
    }
425
}
426
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);
427
if (menu == 15 || menu == 16 || menu == 17)
428
{
429
    menumax = 1;
430
    draw_set_color(c_white);
431
    
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");
432
    if (global.lang == "ja")
433
    {
434
        draw_text(460, 290, string_hash_to_newline(
Sell it for
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_365_0")
));
435
        draw_text(460, 260, "$" + string_hash_to_newline(string(sellvalue) + 
?
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_366_0")
));
436
    }
437
    else
438
    {
439
        draw_text(460, 260, string_hash_to_newline(
Sell it for
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_365_0")
));
440
        draw_text(460, 290, "$" + string_hash_to_newline(string(sellvalue) + 
?
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_366_0")
));
441
    }
442
    draw_text(480, 340, string_hash_to_newline(
Yes
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_367_0")
));
443
    draw_text(480, 370, string_hash_to_newline(
No
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_368_0")
));
444
    draw_sprite(spr_heart, 0, 450, 350 + (menuc[menu] * 30));
445
}
446
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);
447
if (menu == 4)
448
{
449
    if (sell == 0)
450
        menu = 0;
451
    if (instance_exists(obj_writer) == false && selling == 0)
452
    {
453
        if (sell == 1)
454
        {
455
        }
456
        if (sell == 2)
457
            global.msg[0] = 
Face 0* See you again...Delay 11
* Or not.Delay 11
* Ha ha ha ha...Wait for inputClose Message
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_395_0")
;
458
        if (sell == 3)
459
        {
460
            global.msg[0] = 
Face 0* The name's Seam.
* Pronounced "Shawm."Wait for input
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_399_0")
+ "/";
461
            global.msg[1] = 
Face 0* And this is my little Seap.Delay 11
* Ha ha ha ha...Wait for input
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_400_0")
;
462
            global.msg[2] = 
Face 0* Over the years, I've collected odds and ends.Wait for input
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_401_0")
;
463
            global.msg[3] = 
* 'Course, I've no attachment to any of it.Delay 11
* It's just a hobby of mine.Wait for input
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_402_0")
;
464
            global.msg[4] = 
* Around here, you learn to find ways to pass the time...
* ... or go mad like everyone else.Wait for inputClose Message
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_403_0")
;
465
        }
466
        if (sell == 4)
467
        {
468
            global.msg[0] = 
Face 1* Long ago, the Darkners lived in harmony with the Lightners.Wait for input
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_411_0")
;
469
            global.msg[1] = 
Face 0* They were like Gods to us.
* Our protectors.
* Our creators.
* Those who gave us purpose...Wait for input
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_412_0")
;
470
            global.msg[2] = 
Face 3* Then, one day we were all locked away in this prison...Delay 11
* And the Lightners never returned.Wait for input
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_413_0")
;
471
            global.msg[3] = 
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
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_414_0")
;
472
            global.msg[4] = 
Face 0* 'Course,Delay 11 even among his troops,Delay 11 some still distantly hope the Lightners will return...Wait for inputClose Message
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_415_0")
;
473
        }
474
        if (sell == 5)
475
        {
476
            global.msg[0] = 
Face 0* Historically,Delay 11 this land was ruled by the Four Kings,Delay 11 from CARD CASTLE to the East.Wait for input
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_421_0")
;
477
            global.msg[1] = 
Face 1* But, recently, a strange knight appeared...Delay 11
* And three of the kings were locked away.Wait for input
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_422_0")
;
478
            global.msg[2] = 
Face 0* The remaining king put him and his strange son into power.Wait for input
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_423_0")
;
479
            global.msg[3] = 
Face 1* This land hasn't seen THIS much chaos since...Wait for input
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_424_0")
;
480
            global.msg[4] = 
Face 2* Ha ha ha...Delay 11
* Well, you don't need to know about THAT.Wait for inputClose Message
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_425_0")
;
481
            if (global.flag[241 JEVIL_plot] >= 6)
482
            {
483
                global.msg[0] = 
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
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_429_0")
;
484
                global.msg[1] = 
Face 1* A friend...?Delay 11 Could I consider him a friend...?Delay 11 Perhaps,Delay 11 perhaps not.Wait for input
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_430_0")
;
485
                global.msg[2] = 
Face 2* But he was the only one who matched me in the games we used to play.Wait for input
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_431_0")
;
486
                global.msg[3] = 
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
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_432_0")
;
487
                global.msg[4] = 
Face 1* He started saying bizarre things that didn't completely make sense -Wait for input
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_433_0")
;
488
                global.msg[5] = 
Face 3* But didn't completely not make sense,Delay 11 either.Wait for input
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_434_0")
;
489
                global.msg[6] = 
* Soon,Delay 11 he began to see the world as a game,Delay 11 and everyone as its participants.Wait for input
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_435_0")
;
490
                global.msg[7] = 
* As the court mage,Delay 11 and his only companion,Delay 11 I was forced to lock him away...Wait for input
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_436_0")
;
491
                global.msg[8] = 
Face 2* Or,Delay 11 rather,Delay 11 lock US all away,Delay 11 in his own words.Wait for input
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_437_0")
;
492
                global.msg[9] = 
Face 1* Since that time,Delay 11 the strange words he's said have stuck inside my cotton...Wait for input
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_438_0")
;
493
                global.msg[10] = 
Face 3* And my view of this world has become darker,Delay 11 yet darker.Wait for input
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_439_0")
;
494
                global.msg[11] = 
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
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_440_0")
;
495
                global.msg[12] = 
Face 3* And I wonder,Delay 11 if I hadn't been asked to lock him up...Wait for input
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_441_0")
;
496
                global.msg[13] = 
Face 2* Would I have found a little more purpose in my life...?Wait for inputClose Message
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_442_0")
;
497
            }
498
        }
499
        if (sell == 6)
500
        {
501
            global.msg[0] = 
Face 2* Ha ha ha ...Delay 11
* So you are the "heroes" who are going to seal our Fountain?Wait for input
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_448_0")
;
502
            global.msg[1] = 
Face 0* Ha, good luck.Delay 11
* It makes no difference to me.Wait for input
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_449_0")
;
503
            global.msg[2] = 
Face 3* Neither Light nor Dark hold a future for a Darkner in my condition.Wait for inputClose Message
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_450_0")
;
504
            if (global.flag[241 JEVIL_plot] >= 1 && global.flag[115 got_key_a] == 1)
505
            {
506
                global.msg[0] = 
Face 1* Trouble opening the door...?Wait for input
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_459_0")
;
507
                global.msg[1] = 
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
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_460_0")
;
508
                global.msg[2] = 
Face 2* But here's a hint -Delay 11 walk where the stars don't shine.Wait for inputClose Message
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_461_0")
;
509
            }
510
            if (global.flag[241 JEVIL_plot] >= 1 && global.flag[115 got_key_a] == 0)
511
            {
512
                global.msg[0] = 
Face 3* Eh...?Delay 11 What are you talking about...?Delay 11 A prisoner with an odd manner...?Wait for input
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_472_0")
;
513
                global.msg[1] = 
Face 1* ... No,Delay 11 you couldn't possibly be talking about HIM...?Wait for input
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_473_0")
;
514
                global.msg[2] = 
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
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_474_0")
;
515
                global.msg[3] = 
Face 0* ...Wait for input
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_475_0")
;
516
                global.msg[4] = 
Face 1* Hmm,Delay 11 now that you mention it,Delay 11 it could be troublesome if he was left alone...Wait for input
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_476_0")
;
517
                global.msg[5] = 
Face 0* Yes,Delay 11 perhaps it's better if you Heroes dealt with him now...?Wait for input
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_477_0")
;
518
                global.msg[6] = 
Face 2* After all,Delay 11 it's not as if whatever happens,Delay 11 will matter in the end.Wait for input
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_478_0")
;
519
                global.msg[7] = 
* Perhaps a little chaos might be fun.Wait for input
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_479_0")
;
520
                global.msg[8] = 
Face 0* So then, take this.Wait for input
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_480_0")
;
521
                global.writersnd[0] = snd_item;
522
                global.msg[9] = 
\S0* (BROKEN KEY A was added to your KEY ITEMS.)Wait for input
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_482_0")
;
523
                global.msg[10] = 
* If you're so driven,Delay 11 find the other two pieces,Delay 11 and get someone to fix them.Wait for input
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_483_0")
;
524
                global.msg[11] = 
* I'll even give you a hint - Walk where the stars don't shine.Wait for input
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_484_0")
;
525
                global.msg[12] = 
* Anyhow,Delay 11 if you succeed,Delay 11 come back here and tell me!Delay 11 Good luck!!Wait for input
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_485_0")
;
526
                global.msg[13] = 
* If you can call THIS luck...Delay 11 No,Delay 11 it's more like a curse...!Wait for inputClose Message
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_486_0")
;
527
                
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);
528
                global.flag[115 got_key_a] = 1;
529
            }
530
            if (global.flag[115 got_key_a] == 1 && global.flag[241 JEVIL_plot] >= 5)
531
            {
532
                global.msg[0] = 
Face 1* You already opened the door...?Wait for input
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_493_0")
;
533
                global.msg[1] = 
Face 2* Ha ha ha...Delay 11 I almost wish I could watch!Delay 11 Tell me what happens!Wait for input
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_494_0")
;
534
                global.msg[2] = 
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
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_495_0")
;
535
            }
536
            if (global.flag[115 got_key_a] == 1 && global.flag[241 JEVIL_plot] >= 6)
537
            {
538
                global.msg[0] = 
Face 1* You defeated him!?Delay 11 You REALLY defeated him!?Wait for input
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_500_0")
;
539
                global.msg[1] = 
Face 0* I see...Delay 11 perhaps you three may truly be "Heroes" after all...Wait for input
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_501_0")
;
540
                global.msg[2] = 
Face 1* But JEVIL was just a taste of what you'll face from now on.Wait for input
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_502_0")
;
541
                global.msg[3] = 
Face 0* One day soon...Wait for input
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_503_0")
;
542
                global.msg[4] = 
Face 1* You too,Delay 11 will begin to realize the futility of your actions.Wait for input
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_504_0")
;
543
                global.msg[5] = 
Face 2* Ha ha ha...Wait for input
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_505_0")
;
544
                global.msg[6] = 
Face 0* At that time,Delay 11 feel free to come back here.Delay 11
* I'll make you tea...Wait for input
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_506_0")
;
545
                global.msg[7] = 
Face 2* And we can toast...Delay 11 to the end of the world!Wait for inputClose Message
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_507_0")
;
546
            }
547
        }
548
        instance_create(30, 270, obj_writer);
549
        selling = 1;
550
    }
551
    if (selling == 1 && instance_exists(obj_writer) == false)
552
    {
553
        if (sell == 2)
554
        {
555
            selling = 2;
556
            event_user(1);
557
        }
558
        else
559
        {
560
            if (sell == 1 || sell == 7)
561
                menu = 0;
562
            else
563
                menu = 3;
564
            sell = 0;
565
            selling = 0;
566
        }
567
    }
568
}
569
if (down_p())
570
{
571
    if (menu != 11 && menu != 12 && menu != 13)
572
    {
573
        menuc[menu] += 1;
574
        if (menuc[menu] > menumax)
575
            menuc[menu] = 0;
576
    }
577
}
578
if (up_p())
579
{
580
    if (menu != 11 && menu != 12 && menu != 13)
581
    {
582
        menuc[menu] -= 1;
583
        if (menuc[menu] < 0)
584
            menuc[menu] = menumax;
585
    }
586
}
587
if (menu < 4 || menu >= 10)
588
{
589
    draw_text(440, 420, "$" + string_hash_to_newline(string(global.gold)));
590
    if (menu == 1 || menu == 2)
591
    {
592
        if (menuc[1] < 4)
593
        {
594
            if (itemtype[menuc[1]] == "item")
595
                
scr_itemcheck
scr_itemcheck

function
scr_itemcheck(arg0)
{ haveit = 0; itemcount = 0; for (i = 0; i < 12; i += 1) { if (global.item[i] == arg0) haveit = 1; if (global.item[i] == arg0) itemcount += 1; } return haveit; }
(0);
596
            if (itemtype[menuc[1]] == "armor")
597
                
scr_armorcheck_inventory
scr_armorcheck_inventory

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

function
scr_weaponcheck_inventory(arg0)
{ haveit = 0; itemcount = 0; for (i = 0; i < 12; i += 1) { if (global.weapon[i] == arg0) haveit = 1; if (global.weapon[i] == arg0) itemcount += 1; } return haveit; }
(0);
600
            
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");
601
            if (itemcount < 10)
602
                roomstring = "0" + string(itemcount);
603
            else
604
                roomstring = string(itemcount);
605
            if (itemcount > 0)
606
                draw_text(520, 430, string_hash_to_newline(
Space:
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_568_0")
+ roomstring));
607
            if (itemcount == 0)
608
                draw_text(520, 430, string_hash_to_newline(
NO SPACE
scr_84_get_lang_string
scr_84_get_lang_string

function
scr_84_get_lang_string(arg0)
{ return ds_map_find_value(global.lang_map, arg0); }
("obj_shop1_slash_Draw_0_gml_571_0")
));
609
        }
610
    }
611
}
612
onebuffer -= 1;
613
twobuffer -= 1;