Deltarune (Chapter 2) script viewer

← back to main script listing

gml_Object_DEVICE_MENU_Step_0

(view raw script w/o annotations or w/e)
1
if (!input_enabled)
2
    exit;
3
if (MENU_NO == 1 || MENU_NO == 4 || MENU_NO == 6 || MENU_NO == 7 || MENU_NO == 11)
4
{
5
    if (left_p())
6
    {
7
        if (MENUCOORD[MENU_NO] == 1)
8
        {
9
            MENUCOORD[MENU_NO] = 0;
10
            MOVENOISE = 1;
11
        }
12
    }
13
    if (right_p())
14
    {
15
        if (MENUCOORD[MENU_NO] == 0)
16
        {
17
            MENUCOORD[MENU_NO] = 1;
18
            MOVENOISE = 1;
19
        }
20
    }
21
    if (button1_p() && ONEBUFFER < 0)
22
    {
23
        ONEBUFFER = 2;
24
        TWOBUFFER = 2;
25
        SELNOISE = 1;
26
        if (MENUCOORD[MENU_NO] == 0)
27
        {
28
            if (MENU_NO == 1 || MENU_NO == 11)
29
            {
30
                var FILECHECK = 0;
31
                var FILESLOT = 0;
32
                var DONAMING = 0;
33
                if (MENU_NO == 1)
34
                    FILESLOT = MENUCOORD[0];
35
                if (MENU_NO == 11)
36
                    FILESLOT = MENUCOORD[10];
37
                if (MENU_NO == 1 && FILE[MENUCOORD[0]] == 1)
38
                    FILECHECK = 1;
39
                if (MENU_NO == 11)
40
                {
41
                    if (INCOMPLETE_LOAD)
42
                    {
43
                        if (INCOMPLETEFILE_PREV[FILESLOT] == 1)
44
                            FILECHECK = 1;
45
                        else
46
                            FILECHECK = -1;
47
                    }
48
                    else if (COMPLETEFILE_PREV[FILESLOT] == 1)
49
                    {
50
                        FILECHECK = 1;
51
                    }
52
                    else
53
                    {
54
                        FILECHECK = -1;
55
                    }
56
                }
57
                if (FILECHECK)
58
                {
59
                    global.filechoice = FILESLOT;
60
                    snd_free_all();
61
                    f = instance_create(0, 0, obj_persistentfadein);
62
                    f.image_xscale = 1000;
63
                    f.image_yscale = 1000;
64
                    if (ossafe_file_exists("keyconfig_" + string(global.filechoice) + ".ini"))
65
                    {
66
                        ossafe_ini_open("keyconfig_" + string(global.filechoice) + ".ini");
67
                        for (var i = 0; i < 10; i += 1)
68
                        {
69
                            readval = ini_read_real("KEYBOARD_CONTROLS", string(i), -1);
70
                            if (readval != -1)
71
                                global.input_k[i] = readval;
72
                        }
73
                        for (var i = 0; i < 10; i += 1)
74
                        {
75
                            readval = ini_read_real("GAMEPAD_CONTROLS", string(i), -1);
76
                            if (readval != -1)
77
                                global.input_g[i] = readval;
78
                        }
79
                        if (!global.is_console)
80
                        {
81
                            ini_close();
82
                        }
83
                        else
84
                        {
85
                            readval = ini_read_real("SHOULDERLB_REASSIGN", "SHOULDERLB_REASSIGN", obj_gamecontroller.gamepad_shoulderlb_reassign);
86
                            if (readval != -1)
87
                                obj_gamecontroller.gamepad_shoulderlb_reassign = readval;
88
                            global.button0 = global.input_g[4];
89
                            global.button1 = global.input_g[5];
90
                            global.button2 = global.input_g[6];
91
                            global.screen_border_id = ini_read_string("BORDER", "TYPE", "Dynamic");
92
                            var _disable_border = global.screen_border_id == "None" || global.screen_border_id == "なし";
93
                            
scr_enable_screen_border
scr_enable_screen_border

function
scr_enable_screen_border(arg0)
{ var flag = arg0; flag = flag != 0; if (flag != global.screen_border_active) { global.screen_border_active = flag != 0; global.screen_border_state = 0; global.screen_border_dynamic_fade_id = 0; global.screen_border_dynamic_fade_level = 0; } }
(!_disable_border);
94
                            ossafe_ini_close();
95
                            ossafe_savedata_save();
96
                        }
97
                    }
98
                    else if (ossafe_file_exists("config_" + string(global.filechoice) + ".ini"))
99
                    {
100
                        ossafe_ini_open("config_" + string(global.filechoice) + ".ini");
101
                        for (var i = 0; i < 10; i += 1)
102
                        {
103
                            readval = ini_read_real("KEYBOARD_CONTROLS", string(i), -1);
104
                            if (readval != -1)
105
                                global.input_k[i] = readval;
106
                        }
107
                        for (var i = 0; i < 10; i += 1)
108
                        {
109
                            readval = ini_read_real("GAMEPAD_CONTROLS", string(i), -1);
110
                            if (readval != -1)
111
                                global.input_g[i] = readval;
112
                        }
113
                        readval = ini_read_real("SHOULDERLB_REASSIGN", "SHOULDERLB_REASSIGN", obj_gamecontroller.gamepad_shoulderlb_reassign);
114
                        if (readval != -1)
115
                            obj_gamecontroller.gamepad_shoulderlb_reassign = readval;
116
                        global.input_g[0] = gp_padd;
117
                        global.input_g[1] = gp_padr;
118
                        global.input_g[2] = gp_padu;
119
                        global.input_g[3] = gp_padl;
120
                        global.input_g[4] = global.button0;
121
                        global.input_g[5] = global.button1;
122
                        global.input_g[6] = global.button2;
123
                        global.input_g[7] = 999;
124
                        global.input_g[8] = 999;
125
                        global.input_g[9] = 999;
126
                        global.button0 = global.input_g[4];
127
                        global.button1 = global.input_g[5];
128
                        global.button2 = global.input_g[6];
129
                        if (global.is_console)
130
                        {
131
                            global.screen_border_id = ini_read_string("BORDER", "TYPE", "Dynamic");
132
                            var _disable_border = global.screen_border_id == "None" || global.screen_border_id == "なし";
133
                            
scr_enable_screen_border
scr_enable_screen_border

function
scr_enable_screen_border(arg0)
{ var flag = arg0; flag = flag != 0; if (flag != global.screen_border_active) { global.screen_border_active = flag != 0; global.screen_border_state = 0; global.screen_border_dynamic_fade_id = 0; global.screen_border_dynamic_fade_level = 0; } }
(!_disable_border);
134
                        }
135
                        ossafe_ini_close();
136
                        ossafe_savedata_save();
137
                        if (!global.is_console)
138
                        {
139
                            ossafe_ini_open("keyconfig_" + string(global.filechoice) + ".ini");
140
                            for (var i = 0; i < 10; i++)
141
                                ini_write_real("KEYBOARD_CONTROLS", string(i), global.input_k[i]);
142
                            for (var i = 0; i < 10; i++)
143
                                ini_write_real("GAMEPAD_CONTROLS", string(i), global.input_g[i]);
144
                            ini_write_real("SHOULDERLB_REASSIGN", "SHOULDERLB_REASSIGN", obj_gamecontroller.gamepad_shoulderlb_reassign);
145
                            ossafe_ini_close();
146
                        }
147
                    }
148
                    if (MENU_NO == 1)
149
                    {
150
                        if (os_type == os_ps5)
151
                        {
152
                            with (obj_event_manager)
153
                                trigger_event(UnknownEnum.Value_2, UnknownEnum.Value_0);
154
                        }
155
                        
scr_load
scr_load

function
scr_load()
{ snd_free_all(); filechoicebk = global.filechoice;
scr_gamestart();
global.filechoice = filechoicebk; file = "filech2_" + string(global.filechoice); myfileid = ossafe_file_text_open_read(file); global.truename = ossafe_file_text_read_string(myfileid); ossafe_file_text_readln(myfileid); if (global.is_console) { var othername_list =
scr_ds_list_read(myfileid);
for (i = 0; i < ds_list_size(othername_list); i += 1) global.othername[i] = ds_list_find_value(othername_list, i); ds_list_destroy(othername_list); ossafe_file_text_readln(myfileid); } else { for (i = 0; i < 6; i += 1) { global.othername[i] = ossafe_file_text_read_string(myfileid); ossafe_file_text_readln(myfileid); } } global.char[0] = ossafe_file_text_read_real(myfileid); ossafe_file_text_readln(myfileid); global.char[1] = ossafe_file_text_read_real(myfileid); ossafe_file_text_readln(myfileid); global.char[2] = ossafe_file_text_read_real(myfileid); ossafe_file_text_readln(myfileid); global.gold = ossafe_file_text_read_real(myfileid); ossafe_file_text_readln(myfileid); global.xp = ossafe_file_text_read_real(myfileid); ossafe_file_text_readln(myfileid); global.lv = ossafe_file_text_read_real(myfileid); ossafe_file_text_readln(myfileid); global.inv = ossafe_file_text_read_real(myfileid); ossafe_file_text_readln(myfileid); global.invc = ossafe_file_text_read_real(myfileid); ossafe_file_text_readln(myfileid); global.darkzone = ossafe_file_text_read_real(myfileid); ossafe_file_text_readln(myfileid); if (global.is_console) { var hp_list =
scr_ds_list_read(myfileid);
for (i = 0; i < ds_list_size(hp_list); i += 1) global.hp[i] = ds_list_find_value(hp_list, i); ds_list_destroy(hp_list); ossafe_file_text_readln(myfileid); var maxhp_list =
scr_ds_list_read(myfileid);
for (i = 0; i < ds_list_size(maxhp_list); i += 1) global.maxhp[i] = ds_list_find_value(maxhp_list, i); ds_list_destroy(maxhp_list); ossafe_file_text_readln(myfileid); var at_list =
scr_ds_list_read(myfileid);
for (i = 0; i < ds_list_size(at_list); i += 1) global.at[i] = ds_list_find_value(at_list, i); ds_list_destroy(at_list); ossafe_file_text_readln(myfileid); var df_list =
scr_ds_list_read(myfileid);
for (i = 0; i < ds_list_size(df_list); i += 1) global.df[i] = ds_list_find_value(df_list, i); ds_list_destroy(df_list); ossafe_file_text_readln(myfileid); var mag_list =
scr_ds_list_read(myfileid);
for (i = 0; i < ds_list_size(mag_list); i += 1) global.mag[i] = ds_list_find_value(mag_list, i); ds_list_destroy(mag_list); ossafe_file_text_readln(myfileid); var guts_list =
scr_ds_list_read(myfileid);
for (i = 0; i < ds_list_size(guts_list); i += 1) global.guts[i] = ds_list_find_value(guts_list, i); ds_list_destroy(guts_list); ossafe_file_text_readln(myfileid); var charweapon_list =
scr_ds_list_read(myfileid);
for (i = 0; i < ds_list_size(charweapon_list); i += 1) global.charweapon[i] = ds_list_find_value(charweapon_list, i); ds_list_destroy(charweapon_list); ossafe_file_text_readln(myfileid); var chararmor1_list =
scr_ds_list_read(myfileid);
for (i = 0; i < ds_list_size(chararmor1_list); i += 1) global.chararmor1[i] = ds_list_find_value(chararmor1_list, i); ds_list_destroy(chararmor1_list); ossafe_file_text_readln(myfileid); var chararmor2_list =
scr_ds_list_read(myfileid);
for (i = 0; i < ds_list_size(chararmor2_list); i += 1) global.chararmor2[i] = ds_list_find_value(chararmor2_list, i); ds_list_destroy(chararmor2_list); ossafe_file_text_readln(myfileid); var weaponstyle_list =
scr_ds_list_read(myfileid);
for (i = 0; i < ds_list_size(weaponstyle_list); i += 1) global.weaponstyle[i] = ds_list_find_value(weaponstyle_list, i); ds_list_destroy(weaponstyle_list); ossafe_file_text_readln(myfileid); } for (i = 0; i < 5; i += 1) { if (!global.is_console) { ...
();
156
                        exit;
157
                    }
158
                    if (MENU_NO == 11)
159
                    {
160
                        if (INCOMPLETE_LOAD == 0)
161
                        {
162
                            global.filechoice += 3;
163
                            
scr_load_chapter1
scr_load_chapter1

function
scr_load_chapter1()
{ snd_free_all(); filechoicebk = global.filechoice;
scr_gamestart();
global.filechoice = filechoicebk; file = "filech1_" + string(global.filechoice); myfileid = ossafe_file_text_open_read(file); global.truename = ossafe_file_text_read_string(myfileid); ossafe_file_text_readln(myfileid); if (global.is_console) { var othername_list =
scr_ds_list_read(myfileid);
for (i = 0; i < ds_list_size(othername_list); i += 1) global.othername[i] = ds_list_find_value(othername_list, i); ds_list_destroy(othername_list); ossafe_file_text_readln(myfileid); } else { for (i = 0; i < 6; i += 1) { global.othername[i] = ossafe_file_text_read_string(myfileid); ossafe_file_text_readln(myfileid); } } global.char[0] = ossafe_file_text_read_real(myfileid); ossafe_file_text_readln(myfileid); global.char[1] = ossafe_file_text_read_real(myfileid); ossafe_file_text_readln(myfileid); global.char[2] = ossafe_file_text_read_real(myfileid); ossafe_file_text_readln(myfileid); global.gold = ossafe_file_text_read_real(myfileid); ossafe_file_text_readln(myfileid); global.xp = ossafe_file_text_read_real(myfileid); ossafe_file_text_readln(myfileid); global.lv = ossafe_file_text_read_real(myfileid); ossafe_file_text_readln(myfileid); global.inv = ossafe_file_text_read_real(myfileid); ossafe_file_text_readln(myfileid); global.invc = ossafe_file_text_read_real(myfileid); ossafe_file_text_readln(myfileid); global.darkzone = ossafe_file_text_read_real(myfileid); ossafe_file_text_readln(myfileid); if (global.is_console) { var hp_list =
scr_ds_list_read(myfileid);
for (i = 0; i < ds_list_size(hp_list); i += 1) global.hp[i] = ds_list_find_value(hp_list, i); ds_list_destroy(hp_list); ossafe_file_text_readln(myfileid); var maxhp_list =
scr_ds_list_read(myfileid);
for (i = 0; i < ds_list_size(maxhp_list); i += 1) global.maxhp[i] = ds_list_find_value(maxhp_list, i); ds_list_destroy(maxhp_list); ossafe_file_text_readln(myfileid); var at_list =
scr_ds_list_read(myfileid);
for (i = 0; i < ds_list_size(at_list); i += 1) global.at[i] = ds_list_find_value(at_list, i); ds_list_destroy(at_list); ossafe_file_text_readln(myfileid); var df_list =
scr_ds_list_read(myfileid);
for (i = 0; i < ds_list_size(df_list); i += 1) global.df[i] = ds_list_find_value(df_list, i); ds_list_destroy(df_list); ossafe_file_text_readln(myfileid); var mag_list =
scr_ds_list_read(myfileid);
for (i = 0; i < ds_list_size(mag_list); i += 1) global.mag[i] = ds_list_find_value(mag_list, i); ds_list_destroy(mag_list); ossafe_file_text_readln(myfileid); var guts_list =
scr_ds_list_read(myfileid);
for (i = 0; i < ds_list_size(guts_list); i += 1) global.guts[i] = ds_list_find_value(guts_list, i); ds_list_destroy(guts_list); ossafe_file_text_readln(myfileid); var charweapon_list =
scr_ds_list_read(myfileid);
for (i = 0; i < ds_list_size(charweapon_list); i += 1) global.charweapon[i] = ds_list_find_value(charweapon_list, i); ds_list_destroy(charweapon_list); ossafe_file_text_readln(myfileid); var chararmor1_list =
scr_ds_list_read(myfileid);
for (i = 0; i < ds_list_size(chararmor1_list); i += 1) global.chararmor1[i] = ds_list_find_value(chararmor1_list, i); ds_list_destroy(chararmor1_list); ossafe_file_text_readln(myfileid); var chararmor2_list =
scr_ds_list_read(myfileid);
for (i = 0; i < ds_list_size(chararmor2_list); i += 1) global.chararmor2[i] = ds_list_find_value(chararmor2_list, i); ds_list_destroy(chararmor2_list); ossafe_file_text_readln(myfileid); var weaponstyle_list =
scr_ds_list_read(myfileid);
for (i = 0; i < ds_list_size(weaponstyle_list); i += 1) global.weaponstyle[i] = ds_list_find_value(weaponstyle_list, i); ds_list_destroy(weaponstyle_list); ossafe_file_text_readln(myfileid); } for (i = 0; i < 4; i += 1) { if (!global.is_console) { ...
();
164
                            global.filechoice -= 3;
165
                        }
166
                        else
167
                        {
168
                            
scr_load_chapter1
scr_load_chapter1

function
scr_load_chapter1()
{ snd_free_all(); filechoicebk = global.filechoice;
scr_gamestart();
global.filechoice = filechoicebk; file = "filech1_" + string(global.filechoice); myfileid = ossafe_file_text_open_read(file); global.truename = ossafe_file_text_read_string(myfileid); ossafe_file_text_readln(myfileid); if (global.is_console) { var othername_list =
scr_ds_list_read(myfileid);
for (i = 0; i < ds_list_size(othername_list); i += 1) global.othername[i] = ds_list_find_value(othername_list, i); ds_list_destroy(othername_list); ossafe_file_text_readln(myfileid); } else { for (i = 0; i < 6; i += 1) { global.othername[i] = ossafe_file_text_read_string(myfileid); ossafe_file_text_readln(myfileid); } } global.char[0] = ossafe_file_text_read_real(myfileid); ossafe_file_text_readln(myfileid); global.char[1] = ossafe_file_text_read_real(myfileid); ossafe_file_text_readln(myfileid); global.char[2] = ossafe_file_text_read_real(myfileid); ossafe_file_text_readln(myfileid); global.gold = ossafe_file_text_read_real(myfileid); ossafe_file_text_readln(myfileid); global.xp = ossafe_file_text_read_real(myfileid); ossafe_file_text_readln(myfileid); global.lv = ossafe_file_text_read_real(myfileid); ossafe_file_text_readln(myfileid); global.inv = ossafe_file_text_read_real(myfileid); ossafe_file_text_readln(myfileid); global.invc = ossafe_file_text_read_real(myfileid); ossafe_file_text_readln(myfileid); global.darkzone = ossafe_file_text_read_real(myfileid); ossafe_file_text_readln(myfileid); if (global.is_console) { var hp_list =
scr_ds_list_read(myfileid);
for (i = 0; i < ds_list_size(hp_list); i += 1) global.hp[i] = ds_list_find_value(hp_list, i); ds_list_destroy(hp_list); ossafe_file_text_readln(myfileid); var maxhp_list =
scr_ds_list_read(myfileid);
for (i = 0; i < ds_list_size(maxhp_list); i += 1) global.maxhp[i] = ds_list_find_value(maxhp_list, i); ds_list_destroy(maxhp_list); ossafe_file_text_readln(myfileid); var at_list =
scr_ds_list_read(myfileid);
for (i = 0; i < ds_list_size(at_list); i += 1) global.at[i] = ds_list_find_value(at_list, i); ds_list_destroy(at_list); ossafe_file_text_readln(myfileid); var df_list =
scr_ds_list_read(myfileid);
for (i = 0; i < ds_list_size(df_list); i += 1) global.df[i] = ds_list_find_value(df_list, i); ds_list_destroy(df_list); ossafe_file_text_readln(myfileid); var mag_list =
scr_ds_list_read(myfileid);
for (i = 0; i < ds_list_size(mag_list); i += 1) global.mag[i] = ds_list_find_value(mag_list, i); ds_list_destroy(mag_list); ossafe_file_text_readln(myfileid); var guts_list =
scr_ds_list_read(myfileid);
for (i = 0; i < ds_list_size(guts_list); i += 1) global.guts[i] = ds_list_find_value(guts_list, i); ds_list_destroy(guts_list); ossafe_file_text_readln(myfileid); var charweapon_list =
scr_ds_list_read(myfileid);
for (i = 0; i < ds_list_size(charweapon_list); i += 1) global.charweapon[i] = ds_list_find_value(charweapon_list, i); ds_list_destroy(charweapon_list); ossafe_file_text_readln(myfileid); var chararmor1_list =
scr_ds_list_read(myfileid);
for (i = 0; i < ds_list_size(chararmor1_list); i += 1) global.chararmor1[i] = ds_list_find_value(chararmor1_list, i); ds_list_destroy(chararmor1_list); ossafe_file_text_readln(myfileid); var chararmor2_list =
scr_ds_list_read(myfileid);
for (i = 0; i < ds_list_size(chararmor2_list); i += 1) global.chararmor2[i] = ds_list_find_value(chararmor2_list, i); ds_list_destroy(chararmor2_list); ossafe_file_text_readln(myfileid); var weaponstyle_list =
scr_ds_list_read(myfileid);
for (i = 0; i < ds_list_size(weaponstyle_list); i += 1) global.weaponstyle[i] = ds_list_find_value(weaponstyle_list, i); ds_list_destroy(weaponstyle_list); ossafe_file_text_readln(myfileid); } for (i = 0; i < 4; i += 1) { if (!global.is_console) { ...
();
169
                        }
170
                        if (os_type == os_ps5)
171
                        {
172
                            with (obj_event_manager)
173
                                trigger_event(UnknownEnum.Value_2, UnknownEnum.Value_0);
174
                        }
175
                        if (global.flag[914 chapter_started] == 0)
176
                            global.flag[914 chapter_started] = global.chapter - 1;
177
                        FILECHECK = -2;
178
                        STARTGAME = 1;
179
                    }
180
                }
181
                if (FILECHECK == 0)
182
                {
183
                    if (os_type == os_ps5)
184
                    {
185
                        with (obj_event_manager)
186
                            trigger_event(UnknownEnum.Value_2, UnknownEnum.Value_0);
187
                    }
188
                    global.filechoice = FILESLOT;
189
                    var namer = instance_create(0, 0, DEVICE_NAMER);
190
                    namer.REMMENU = MENU_NO;
191
                    REMMENU = MENU_NO;
192
                    MENU_NO = -1;
193
                }
194
                if (FILECHECK == -1)
195
                    snd_play(snd_error);
196
            }
197
            if (MENU_NO == 4)
198
            {
199
                var temp_comment_is_interesting = false;
200
                if (TYPE == 0)
201
                {
202
                    TEMPCOMMENT = stringsetloc(
IT CONFORMED TO THE REFLECTION.
"IT CONFORMED TO THE REFLECTION.", "DEVICE_MENU_slash_Step_0_gml_74_0"
);
203
                    if (NAME[0] == NAME[1] && NAME[1] == NAME[2])
204
                    {
205
                        if (TIME[0] == TIME[1] && TIME[1] == TIME[2])
206
                        {
207
                            if (PLACE[0] == PLACE[1] && PLACE[1] == PLACE[2])
208
                            {
209
                                temp_comment_is_interesting = true;
210
                                TEMPCOMMENT = stringsetloc(
WHAT AN INTERESTING BEHAVIOR.
"WHAT AN INTERESTING BEHAVIOR.", "DEVICE_MENU_slash_Step_0_gml_77_0"
);
211
                            }
212
                        }
213
                    }
214
                }
215
                event_user(5);
216
                if (TYPE == 0)
217
                {
218
                    if (NAME[0] == NAME[1] && NAME[1] == NAME[2])
219
                    {
220
                        if (TIME[0] == TIME[1] && TIME[1] == TIME[2])
221
                        {
222
                            if (PLACE[0] == PLACE[1] && PLACE[1] == PLACE[2] && !temp_comment_is_interesting)
223
                                TEMPCOMMENT = stringsetloc(
PREPARATIONS ARE COMPLETE.
"PREPARATIONS ARE COMPLETE.", "DEVICE_MENU_slash_Step_0_gml_86_0"
);
224
                        }
225
                    }
226
                }
227
                if (TYPE == 1)
228
                    TEMPCOMMENT = stringsetloc(
Copy complete.
"Copy complete.", "DEVICE_MENU_slash_Step_0_gml_91_0"
);
229
                MESSAGETIMER = 90;
230
                SELNOISE = 0;
231
                DEATHNOISE = 1;
232
                MENU_NO = 0;
233
            }
234
            if (MENU_NO == 7)
235
            {
236
                FILE[MENUCOORD[5]] = 0;
237
                NAME[MENUCOORD[5]] = stringsetloc(
[EMPTY]
"[EMPTY]", "DEVICE_MENU_slash_Step_0_gml_105_0"
);
238
                TIME[MENUCOORD[5]] = 0;
239
                PLACE[MENUCOORD[5]] = "------------";
240
                LEVEL[MENUCOORD[5]] = 0;
241
                TIME_STRING[MENUCOORD[5]] = "--:--";
242
                ossafe_file_delete("filech" + string(global.chapter) + "_" + string(MENUCOORD[5]));
243
                iniwrite = ossafe_ini_open("dr.ini");
244
                ini_write_string(
scr_ini_chapter
scr_ini_chapter

function
scr_ini_chapter(arg0, arg1)
{ if (arg0 >= 2) return "G_" + string(arg0) + "_" + string(arg1); else return "G" + string(arg1); }
(global.chapter, MENUCOORD[5]), "Name", "[EMPTY]");
245
                ini_write_real(
scr_ini_chapter
scr_ini_chapter

function
scr_ini_chapter(arg0, arg1)
{ if (arg0 >= 2) return "G_" + string(arg0) + "_" + string(arg1); else return "G" + string(arg1); }
(global.chapter, MENUCOORD[5]), "Level", 0);
246
                ini_write_real(
scr_ini_chapter
scr_ini_chapter

function
scr_ini_chapter(arg0, arg1)
{ if (arg0 >= 2) return "G_" + string(arg0) + "_" + string(arg1); else return "G" + string(arg1); }
(global.chapter, MENUCOORD[5]), "Love", 0);
247
                ini_write_real(
scr_ini_chapter
scr_ini_chapter

function
scr_ini_chapter(arg0, arg1)
{ if (arg0 >= 2) return "G_" + string(arg0) + "_" + string(arg1); else return "G" + string(arg1); }
(global.chapter, MENUCOORD[5]), "Time", 0);
248
                ini_write_real(
scr_ini_chapter
scr_ini_chapter

function
scr_ini_chapter(arg0, arg1)
{ if (arg0 >= 2) return "G_" + string(arg0) + "_" + string(arg1); else return "G" + string(arg1); }
(global.chapter, MENUCOORD[5]), "Room", 0);
249
                ini_write_real(
scr_ini_chapter
scr_ini_chapter

function
scr_ini_chapter(arg0, arg1)
{ if (arg0 >= 2) return "G_" + string(arg0) + "_" + string(arg1); else return "G" + string(arg1); }
(global.chapter, MENUCOORD[5]), "Date", 0);
250
                ini_write_real(
scr_ini_chapter
scr_ini_chapter

function
scr_ini_chapter(arg0, arg1)
{ if (arg0 >= 2) return "G_" + string(arg0) + "_" + string(arg1); else return "G" + string(arg1); }
(global.chapter, MENUCOORD[5]), "UraBoss", 0);
251
                ini_write_string(
scr_ini_chapter
scr_ini_chapter

function
scr_ini_chapter(arg0, arg1)
{ if (arg0 >= 2) return "G_" + string(arg0) + "_" + string(arg1); else return "G" + string(arg1); }
(global.chapter, MENUCOORD[5]), "Version", "0");
252
                ossafe_ini_close();
253
                ossafe_savedata_save();
254
                if (ossafe_file_exists("keyconfig_" + string(MENUCOORD[5]) + ".ini"))
255
                    ossafe_file_delete("keyconfig_" + string(MENUCOORD[5]) + ".ini");
256
                TEMPCOMMENT = stringsetloc(
IT WAS AS IF IT WAS NEVER THERE AT ALL.
"IT WAS AS IF IT WAS NEVER THERE AT ALL.", "DEVICE_MENU_slash_Step_0_gml_126_0"
);
257
                if (TYPE == 1)
258
                    TEMPCOMMENT = stringsetloc(
Erase complete.
"Erase complete.", "DEVICE_MENU_slash_Step_0_gml_127_0"
);
259
                MESSAGETIMER = 90;
260
                SELNOISE = 0;
261
                DEATHNOISE = 1;
262
                MENU_NO = 0;
263
                with (obj_event_manager)
264
                    trigger_event(UnknownEnum.Value_0, UnknownEnum.Value_29);
265
            }
266
            if (MENU_NO == 6)
267
            {
268
                THREAT += 1;
269
                MENU_NO = 7;
270
                MENUCOORD[7] = 0;
271
            }
272
        }
273
        if (MENU_NO >= 0)
274
        {
275
            if (MENUCOORD[MENU_NO] == 1)
276
            {
277
                if (MENU_NO == 4 && TYPE == 0)
278
                {
279
                    TEMPCOMMENT = stringsetloc(
IT RETAINED ITS ORIGINAL SHAPE.
"IT RETAINED ITS ORIGINAL SHAPE.", "DEVICE_MENU_slash_Step_0_gml_149_0"
);
280
                    MESSAGETIMER = 90;
281
                }
282
                if (MENU_NO == 6 || MENU_NO == 7)
283
                {
284
                    if (TYPE == 0)
285
                    {
286
                        TEMPCOMMENT = stringsetloc(
THEN IT WAS SPARED.
"THEN IT WAS SPARED.", "DEVICE_MENU_slash_Step_0_gml_156_0"
);
287
                        if (THREAT >= 10)
288
                        {
289
                            TEMPCOMMENT = stringsetloc(
VERY INTERESTING.
"VERY INTERESTING.", "DEVICE_MENU_slash_Step_0_gml_159_0"
);
290
                            THREAT = 0;
291
                        }
292
                        MESSAGETIMER = 90;
293
                    }
294
                }
295
                if (MENU_NO == 11)
296
                    MENU_NO = 10;
297
                else
298
                    MENU_NO = 0;
299
            }
300
        }
301
    }
302
    if (button2_p() && TWOBUFFER < 0)
303
    {
304
        ONEBUFFER = 1;
305
        TWOBUFFER = 1;
306
        if (MENU_NO != 0)
307
            BACKNOISE = 1;
308
        if (MENU_NO == 1)
309
            MENU_NO = 0;
310
        else if (MENU_NO == 4)
311
            MENU_NO = 2;
312
        else if (MENU_NO == 6)
313
            MENU_NO = 5;
314
        else if (MENU_NO == 7)
315
            MENU_NO = 5;
316
        else if (MENU_NO == 11)
317
            MENU_NO = 10;
318
    }
319
}
320
if (MENU_NO == 2 || MENU_NO == 3 || MENU_NO == 5)
321
{
322
    if (down_p())
323
    {
324
        if (MENUCOORD[MENU_NO] < 3)
325
        {
326
            MENUCOORD[MENU_NO] += 1;
327
            MOVENOISE = 1;
328
        }
329
    }
330
    if (up_p())
331
    {
332
        if (MENUCOORD[MENU_NO] > 0)
333
        {
334
            MENUCOORD[MENU_NO] -= 1;
335
            MOVENOISE = 1;
336
        }
337
    }
338
    if (button1_p() && ONEBUFFER < 0)
339
    {
340
        if (MENUCOORD[MENU_NO] < 3)
341
        {
342
            if (MENU_NO == 3)
343
            {
344
                if (MENUCOORD[2] != MENUCOORD[3])
345
                {
346
                    if (FILE[MENUCOORD[MENU_NO]] == 1)
347
                    {
348
                        TWOBUFFER = 2;
349
                        ONEBUFFER = 2;
350
                        SELNOISE = 1;
351
                        MENUCOORD[4] = 0;
352
                        MENU_NO = 4;
353
                    }
354
                    else
355
                    {
356
                        TEMPCOMMENT = stringsetloc(
THE DIVISION IS COMPLETE.
"THE DIVISION IS COMPLETE.", "DEVICE_MENU_slash_Step_0_gml_225_0"
);
357
                        MESSAGETIMER = 90;
358
                        if (TYPE == 1)
359
                            TEMPCOMMENT = stringsetloc(
Copy complete.
"Copy complete.", "DEVICE_MENU_slash_Step_0_gml_227_0"
);
360
                        DEATHNOISE = 1;
361
                        MENU_NO = 0;
362
                        ONEBUFFER = 2;
363
                        TWOBUFFER = 2;
364
                        event_user(5);
365
                    }
366
                }
367
                else
368
                {
369
                    TEMPCOMMENT = stringsetloc(
IT IS IMMUNE TO ITS OWN IMAGE.
"IT IS IMMUNE TO ITS OWN IMAGE.", "DEVICE_MENU_slash_Step_0_gml_238_0"
);
370
                    if (TYPE == 1)
371
                        TEMPCOMMENT = stringsetloc(
You can't copy there.
"You can't copy there.", "DEVICE_MENU_slash_Step_0_gml_239_0"
);
372
                    MESSAGETIMER = 90;
373
                    TWOBUFFER = 2;
374
                    ONEBUFFER = 2;
375
                    BACKNOISE = 1;
376
                }
377
            }
378
            if (MENU_NO == 2)
379
            {
380
                if (FILE[MENUCOORD[MENU_NO]] == 1)
381
                {
382
                    TWOBUFFER = 2;
383
                    ONEBUFFER = 2;
384
                    SELNOISE = 1;
385
                    MENUCOORD[3] = 0;
386
                    MENU_NO = 3;
387
                }
388
                else
389
                {
390
                    TEMPCOMMENT = stringsetloc(
IT IS BARREN AND CANNOT BE COPIED.
"IT IS BARREN AND CANNOT BE COPIED.", "DEVICE_MENU_slash_Step_0_gml_261_0"
);
391
                    if (FILE[0] == 0 && FILE[1] == 0 && FILE[2] == 0)
392
                        TEMPCOMMENT = stringsetloc(
BUT THERE WAS NOTHING LEFT TO COPY.
"BUT THERE WAS NOTHING LEFT TO COPY.", "DEVICE_MENU_slash_Step_0_gml_264_0"
);
393
                    if (TYPE == 1)
394
                        TEMPCOMMENT = stringsetloc(
It can't be copied.
"It can't be copied.", "DEVICE_MENU_slash_Step_0_gml_266_0"
);
395
                    MESSAGETIMER = 90;
396
                    BACKNOISE = 1;
397
                    TWOBUFFER = 2;
398
                    ONEBUFFER = 2;
399
                }
400
            }
401
            if (MENU_NO == 5)
402
            {
403
                if (FILE[MENUCOORD[MENU_NO]] == 1)
404
                {
405
                    TWOBUFFER = 2;
406
                    ONEBUFFER = 2;
407
                    SELNOISE = 1;
408
                    MENUCOORD[6] = 0;
409
                    MENU_NO = 6;
410
                }
411
                else
412
                {
413
                    TEMPCOMMENT = stringsetloc(
BUT IT WAS ALREADY GONE.
"BUT IT WAS ALREADY GONE.", "DEVICE_MENU_slash_Step_0_gml_289_0"
);
414
                    if (FILE[0] == 0 && FILE[1] == 0 && FILE[2] == 0)
415
                        TEMPCOMMENT = stringsetloc(
BUT THERE WAS NOTHING LEFT TO ERASE.
"BUT THERE WAS NOTHING LEFT TO ERASE.", "DEVICE_MENU_slash_Step_0_gml_292_0"
);
416
                    if (TYPE == 1)
417
                        TEMPCOMMENT = stringsetloc(
There's nothing to erase.
"There's nothing to erase.", "DEVICE_MENU_slash_Step_0_gml_294_0"
);
418
                    MESSAGETIMER = 90;
419
                    TWOBUFFER = 2;
420
                    ONEBUFFER = 2;
421
                    BACKNOISE = 1;
422
                }
423
            }
424
        }
425
        if (MENUCOORD[MENU_NO] == 3)
426
        {
427
            TWOBUFFER = 2;
428
            ONEBUFFER = 2;
429
            SELNOISE = 1;
430
            MENU_NO = 0;
431
        }
432
    }
433
    if (button2_p() && TWOBUFFER < 0)
434
    {
435
        TWOBUFFER = 2;
436
        ONEBUFFER = 2;
437
        BACKNOISE = 1;
438
        if (MENU_NO == 2 || MENU_NO == 5)
439
            MENU_NO = 0;
440
        if (MENU_NO == 3)
441
            MENU_NO = 2;
442
    }
443
}
444
if (MENU_NO == 10)
445
{
446
    var M = MENU_NO;
447
    var MAXY = 3;
448
    if (down_p())
449
    {
450
        if (MENUCOORD[MENU_NO] < 3)
451
        {
452
            MENUCOORD[MENU_NO] += 1;
453
            MOVENOISE = 1;
454
        }
455
    }
456
    if (up_p())
457
    {
458
        if (MENUCOORD[MENU_NO] > 0)
459
        {
460
            MENUCOORD[MENU_NO] -= 1;
461
            MOVENOISE = 1;
462
        }
463
    }
464
    if (button1_p() && ONEBUFFER < 0)
465
    {
466
        MESSAGETIMER = -1;
467
        if (MENUCOORD[M] <= 2)
468
        {
469
            var FILECHECK = 1;
470
            if (INCOMPLETE_LOAD == 0 && COMPLETEFILE_PREV[MENUCOORD[M]] != 1)
471
                FILECHECK = 0;
472
            if (INCOMPLETE_LOAD == 1 && INCOMPLETEFILE_PREV[MENUCOORD[M]] != 1)
473
                FILECHECK = 0;
474
            if (FILECHECK)
475
            {
476
                MENUCOORD[M + 1] = 0;
477
                ONEBUFFER = 1;
478
                TWOBUFFER = 1;
479
                MENU_NO = M + 1;
480
                SELNOISE = 1;
481
            }
482
            else
483
            {
484
                ONEBUFFER = 4;
485
                snd_play(snd_error);
486
            }
487
        }
488
        if (MENUCOORD[MENU_NO] == 3)
489
        {
490
            TWOBUFFER = 2;
491
            ONEBUFFER = 2;
492
            SELNOISE = 1;
493
            MENU_NO = 0;
494
        }
495
    }
496
    if (button2_p() && TWOBUFFER < 0)
497
    {
498
        TWOBUFFER = 2;
499
        ONEBUFFER = 2;
500
        BACKNOISE = 1;
501
        MENU_NO = 0;
502
    }
503
}
504
if (MENU_NO == 0)
505
{
506
    var M = MENU_NO;
507
    var MAXY = 8;
508
    if (M == 10)
509
        MAXY = 3;
510
    if (down_p())
511
    {
512
        if (MENUCOORD[M] < MAXY)
513
        {
514
            if (MENUCOORD[M] < 3)
515
                MENUCOORD[M] += 1;
516
            else if (MENUCOORD[M] == 3)
517
                MENUCOORD[M] = 5;
518
            else if (MENUCOORD[M] == 4)
519
                MENUCOORD[M] = 6;
520
            else if (MENUCOORD[M] == 7 && CANQUIT == 1)
521
                MENUCOORD[M] = 8;
522
            MOVENOISE = 1;
523
        }
524
    }
525
    if (up_p())
526
    {
527
        if (MENUCOORD[M] > 0)
528
        {
529
            if (MENUCOORD[M] < 3)
530
                MENUCOORD[M] -= 1;
531
            else if (MENUCOORD[M] == 3 || MENUCOORD[M] == 4 || MENUCOORD[M] == 7)
532
                MENUCOORD[M] = 2;
533
            else if (MENUCOORD[M] == 5 || MENUCOORD[M] == 6)
534
                MENUCOORD[M] -= 2;
535
            else if (MENUCOORD[M] == 8)
536
                MENUCOORD[M] = 7;
537
            MOVENOISE = 1;
538
        }
539
    }
540
    if (right_p())
541
    {
542
        if (MENUCOORD[M] >= 3 && MENUCOORD[M] < 7)
543
        {
544
            MOVENOISE = 1;
545
            if (MENUCOORD[M] == 4)
546
                MENUCOORD[M] = 7;
547
            else if (MENUCOORD[M] == 6 && CANQUIT == 1)
548
                MENUCOORD[M] = 8;
549
            else
550
                MENUCOORD[M]++;
551
        }
552
    }
553
    if (left_p())
554
    {
555
        if (MENUCOORD[M] >= 4 && MENUCOORD[M] != 5)
556
        {
557
            if (MENUCOORD[M] == 7)
558
                MENUCOORD[M] = 4;
559
            else if (MENUCOORD[M] == 8)
560
                MENUCOORD[M] = 6;
561
            else
562
                MENUCOORD[M]--;
563
            MOVENOISE = 1;
564
        }
565
    }
566
    if (button1_p() && ONEBUFFER < 0)
567
    {
568
        MESSAGETIMER = -1;
569
        if (MENUCOORD[M] <= 2)
570
        {
571
            var FILECHECK = 1;
572
            if (MENU_NO == 10)
573
            {
574
                if (INCOMPLETE_LOAD == 0 && COMPLETEFILE_PREV[MENUCOORD[M]] != 1)
575
                    FILECHECK = 0;
576
                if (INCOMPLETE_LOAD == 1 && INCOMPLETEFILE_PREV[MENUCOORD[M]] != 1)
577
                    FILECHECK = 0;
578
            }
579
            if (FILECHECK)
580
            {
581
                MENUCOORD[M + 1] = 0;
582
                ONEBUFFER = 1;
583
                TWOBUFFER = 1;
584
                MENU_NO = M + 1;
585
                SELNOISE = 1;
586
            }
587
            else
588
            {
589
                ONEBUFFER = 4;
590
                snd_play(snd_error);
591
            }
592
        }
593
        if (MENUCOORD[M] == 3)
594
        {
595
            if (M == 0)
596
            {
597
                MENUCOORD[2] = 0;
598
                ONEBUFFER = 1;
599
                TWOBUFFER = 1;
600
                MENU_NO = 2;
601
                SELNOISE = 1;
602
            }
603
            else
604
            {
605
                MENUCOORD[0] = 5;
606
                ONEBUFFER = 1;
607
                TWOBUFFER = 1;
608
                MENU_NO = 0;
609
                SELNOISE = 1;
610
            }
611
        }
612
        if (MENUCOORD[M] == 4)
613
        {
614
            MENUCOORD[5] = 0;
615
            ONEBUFFER = 1;
616
            TWOBUFFER = 1;
617
            MENU_NO = 5;
618
            SELNOISE = 1;
619
        }
620
        if (MENUCOORD[M] == 5)
621
        {
622
            MENUCOORD[10] = 0;
623
            ONEBUFFER = 1;
624
            TWOBUFFER = 1;
625
            MENU_NO = 10;
626
            SELNOISE = 1;
627
        }
628
        if (MENUCOORD[M] == 6)
629
        {
630
            SELNOISE = 1;
631
            
scr_change_language
scr_change_language

function
scr_change_language()
{ if (global.lang == "en") global.lang = "ja"; else global.lang = "en"; ossafe_ini_open("true_config.ini"); ini_write_string("LANG", "LANG", global.lang); ossafe_ini_close(); ossafe_savedata_save();
scr_84_init_localization();
}
();
632
            
scr_84_load_ini
scr_84_load_ini

function
scr_84_load_ini()
{ var CH = string(global.chapter); for (i = 0; i < 3; i += 1) FILE[i] = 0; for (i = 0; i < 3; i += 1) { FILE[i] = 0; NAME[i] = stringsetloc(
[EMPTY]
"[EMPTY]", "scr_84_load_ini_slash_scr_84_load_ini_gml_13_0"
);
TIME[i] = 0; PLACE[i] = "------------"; LEVEL[i] = 0; TIME_STRING[i] = "--:--"; INITLANG[i] = 0; } if (ossafe_file_exists("filech" + CH + "_0")) { FILE[0] = 1; NAME[0] = "FILE0"; } if (ossafe_file_exists("filech" + CH + "_1")) { FILE[1] = 1; NAME[1] = "FILE1"; } if (ossafe_file_exists("filech" + CH + "_2")) { FILE[2] = 1; NAME[2] = "FILE2"; } if (ossafe_file_exists("dr.ini")) { ossafe_ini_open("dr.ini"); for (i = 0; i < 3; i += 1) { if (FILE[i] == 1) { var room_id = ini_read_real(
scr_ini_chapter(global.chapter, i), "Room", scr_get_id_by_room_index(room));
var room_index =
scr_get_valid_room(global.chapter, room_id);
PLACE[i] =
scr_roomname(room_index);
TIME[i] = ini_read_real(
scr_ini_chapter(global.chapter, i), "Time", 0);
NAME[i] = ini_read_string(
scr_ini_chapter(global.chapter, i), "Name", "------");
LEVEL[i] = 1; INITLANG[i] = ini_read_real(
scr_ini_chapter(global.chapter, i), "InitLang", 0);
TIME_SECONDS_TOTAL[i] = floor(TIME[i] / 30); TIME_MINUTES[i] = floor(TIME_SECONDS_TOTAL[i] / 60); TIME_SECONDS[i] = TIME_SECONDS_TOTAL[i] - (TIME_MINUTES[i] * 60); TIME_SECONDS_STRING[i] = string(TIME_SECONDS[i]); if (TIME_SECONDS[i] == 0) TIME_SECONDS_STRING[i] = "00"; if (TIME_SECONDS[i] < 10 && TIME_SECONDS[i] >= 1) TIME_SECONDS_STRING[i] = "0" + string(TIME_SECONDS[i]); TIME_STRING[i] =
scr_timedisp(TIME[i]);
} } ossafe_ini_close(); ossafe_savedata_save(); } }
();
633
        }
634
        if (MENUCOORD[M] == 7)
635
        {
636
            input_enabled = false;
637
            SELNOISE = 1;
638
            snd_free_all();
639
            alarm[0]
 = 30;
gml_Object_DEVICE_MENU_Alarm_0.gml

var _target_chapter = 0; if (global.is_console) { var _loading = instance_create(0, 0, obj_screen_loading); _loading.show_loading_screen(_target_chapter, scr_chapterswitch); _loading.depth = -1000; } else {
scr_chapterswitch(_target_chapter);
}
640
        }
641
        if (MENUCOORD[M] == 8 && CANQUIT)
642
        {
643
            SELNOISE = 1;
644
            if (global.is_console)
645
                ossafe_game_end();
646
            else
647
                game_end();
648
        }
649
    }
650
    if (button2_p() && TWOBUFFER < 0)
651
    {
652
        ONEBUFFER = 1;
653
        TWOBUFFER = 1;
654
        BACKNOISE = 1;
655
        if (MENU_NO == 10)
656
            MENU_NO = 0;
657
    }
658
}
659
if (OBMADE == 1)
660
{
661
    OB_DEPTH += 1;
662
    obacktimer += OBM;
663
    if (obacktimer >= 20)
664
    {
665
        DV = instance_create(0, 0, DEVICE_OBACK_4);
666
        DV.depth = 5 + OB_DEPTH;
667
        DV.OBSPEED = 0.01 * OBM;
668
        if (OB_DEPTH >= 60000)
669
            OB_DEPTH = 0;
670
        obacktimer = 0;
671
    }
672
}
673
if (MOVENOISE == 1)
674
{
675
    snd_play(snd_menumove);
676
    MOVENOISE = 0;
677
}
678
if (SELNOISE == 1)
679
{
680
    snd_play(snd_select);
681
    SELNOISE = 0;
682
}
683
if (BACKNOISE == 1)
684
{
685
    snd_play(snd_swing);
686
    BACKNOISE = 0;
687
}
688
if (DEATHNOISE == 1)
689
{
690
    snd_play(AUDIO_APPEARANCE);
691
    DEATHNOISE = 0;
692
}
693
ONEBUFFER -= 1;
694
TWOBUFFER -= 1;
695
if (STARTGAME == 1)
696
{
697
    snd_free_all();
698
    if (global.chapter == 1)
699
        room_goto(PLACE_CONTACT );
700
    if (global.chapter >= 2)
701
        room_goto(room_krisroom );
702
}
703
704
enum UnknownEnum
705
{
706
    Value_0,
707
    Value_2 = 2,
708
    Value_29 = 29
709
}