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 (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 (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 
                    if (MENU_NO == 1)
99 
                    {
100 
                        if (os_type == os_ps5)
101 
                        {
102 
                            with (obj_event_manager)
103 
                                trigger_event(UnknownEnum.Value_2, UnknownEnum.Value_0);
104 
                        }
105 
                        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)
        {
...
();
106 
                        exit;
107 
                    }
108 
                    if (MENU_NO == 11)
109 
                    {
110 
                        if (INCOMPLETE_LOAD == 0)
111 
                        {
112 
                            global.filechoice += 3;
113 
                            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)
        {
...
();
114 
                            global.filechoice -= 3;
115 
                        }
116 
                        else
117 
                        {
118 
                            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)
        {
...
();
119 
                        }
120 
                        if (os_type == os_ps5)
121 
                        {
122 
                            with (obj_event_manager)
123 
                                trigger_event(UnknownEnum.Value_2, UnknownEnum.Value_0);
124 
                        }
125 
                        if (global.flag[914 chapter_started] == 0)
126 
                            global.flag[914 chapter_started] = global.chapter - 1;
127 
                        FILECHECK = -2;
128 
                        STARTGAME = 1;
129 
                    }
130 
                }
131 
                if (FILECHECK == 0)
132 
                {
133 
                    if (os_type == os_ps5)
134 
                    {
135 
                        with (obj_event_manager)
136 
                            trigger_event(UnknownEnum.Value_2, UnknownEnum.Value_0);
137 
                    }
138 
                    global.filechoice = FILESLOT;
139 
                    var namer = instance_create(0, 0, DEVICE_NAMER);
140 
                    namer.REMMENU = MENU_NO;
141 
                    REMMENU = MENU_NO;
142 
                    MENU_NO = -1;
143 
                }
144 
                if (FILECHECK == -1)
145 
                    snd_play(snd_error);
146 
            }
147 
            if (MENU_NO == 4)
148 
            {
149 
                var temp_comment_is_interesting = false;
150 
                if (TYPE == 0)
151 
                {
152 
                    TEMPCOMMENT = stringsetloc(
IT CONFORMED TO THE REFLECTION.
"IT CONFORMED TO THE REFLECTION.", "DEVICE_MENU_slash_Step_0_gml_74_0"
);
153 
                    if (NAME[0] == NAME[1] && NAME[1] == NAME[2])
154 
                    {
155 
                        if (TIME[0] == TIME[1] && TIME[1] == TIME[2])
156 
                        {
157 
                            if (PLACE[0] == PLACE[1] && PLACE[1] == PLACE[2])
158 
                            {
159 
                                temp_comment_is_interesting = true;
160 
                                TEMPCOMMENT = stringsetloc(
WHAT AN INTERESTING BEHAVIOR.
"WHAT AN INTERESTING BEHAVIOR.", "DEVICE_MENU_slash_Step_0_gml_77_0"
);
161 
                            }
162 
                        }
163 
                    }
164 
                }
165 
                event_user(5);
166 
                if (TYPE == 0)
167 
                {
168 
                    if (NAME[0] == NAME[1] && NAME[1] == NAME[2])
169 
                    {
170 
                        if (TIME[0] == TIME[1] && TIME[1] == TIME[2])
171 
                        {
172 
                            if (PLACE[0] == PLACE[1] && PLACE[1] == PLACE[2] && !temp_comment_is_interesting)
173 
                                TEMPCOMMENT = stringsetloc(
PREPARATIONS ARE COMPLETE.
"PREPARATIONS ARE COMPLETE.", "DEVICE_MENU_slash_Step_0_gml_86_0"
);
174 
                        }
175 
                    }
176 
                }
177 
                if (TYPE == 1)
178 
                    TEMPCOMMENT = stringsetloc(
Copy complete.
"Copy complete.", "DEVICE_MENU_slash_Step_0_gml_91_0"
);
179 
                MESSAGETIMER = 90;
180 
                SELNOISE = 0;
181 
                DEATHNOISE = 1;
182 
                MENU_NO = 0;
183 
            }
184 
            if (MENU_NO == 7)
185 
            {
186 
                FILE[MENUCOORD[5]] = 0;
187 
                NAME[MENUCOORD[5]] = stringsetloc(
[EMPTY]
"[EMPTY]", "DEVICE_MENU_slash_Step_0_gml_105_0"
);
188 
                TIME[MENUCOORD[5]] = 0;
189 
                PLACE[MENUCOORD[5]] = "------------";
190 
                LEVEL[MENUCOORD[5]] = 0;
191 
                TIME_STRING[MENUCOORD[5]] = "--:--";
192 
                ossafe_file_delete("filech" + string(global.chapter) + "_" + string(MENUCOORD[5]));
193 
                iniwrite = ossafe_ini_open("dr.ini");
194 
                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]");
195 
                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);
196 
                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);
197 
                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);
198 
                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);
199 
                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);
200 
                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);
201 
                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");
202 
                ossafe_ini_close();
203 
                ossafe_savedata_save();
204 
                if (ossafe_file_exists("keyconfig_" + string(MENUCOORD[5]) + ".ini"))
205 
                    ossafe_file_delete("keyconfig_" + string(MENUCOORD[5]) + ".ini");
206 
                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"
);
207 
                if (TYPE == 1)
208 
                    TEMPCOMMENT = stringsetloc(
Erase complete.
"Erase complete.", "DEVICE_MENU_slash_Step_0_gml_127_0"
);
209 
                MESSAGETIMER = 90;
210 
                SELNOISE = 0;
211 
                DEATHNOISE = 1;
212 
                MENU_NO = 0;
213 
                with (obj_event_manager)
214 
                    trigger_event(UnknownEnum.Value_0, UnknownEnum.Value_29);
215 
            }
216 
            if (MENU_NO == 6)
217 
            {
218 
                THREAT += 1;
219 
                MENU_NO = 7;
220 
                MENUCOORD[7] = 0;
221 
            }
222 
        }
223 
        if (MENU_NO >= 0)
224 
        {
225 
            if (MENUCOORD[MENU_NO] == 1)
226 
            {
227 
                if (MENU_NO == 4 && TYPE == 0)
228 
                {
229 
                    TEMPCOMMENT = stringsetloc(
IT RETAINED ITS ORIGINAL SHAPE.
"IT RETAINED ITS ORIGINAL SHAPE.", "DEVICE_MENU_slash_Step_0_gml_149_0"
);
230 
                    MESSAGETIMER = 90;
231 
                }
232 
                if (MENU_NO == 6 || MENU_NO == 7)
233 
                {
234 
                    if (TYPE == 0)
235 
                    {
236 
                        TEMPCOMMENT = stringsetloc(
THEN IT WAS SPARED.
"THEN IT WAS SPARED.", "DEVICE_MENU_slash_Step_0_gml_156_0"
);
237 
                        if (THREAT >= 10)
238 
                        {
239 
                            TEMPCOMMENT = stringsetloc(
VERY INTERESTING.
"VERY INTERESTING.", "DEVICE_MENU_slash_Step_0_gml_159_0"
);
240 
                            THREAT = 0;
241 
                        }
242 
                        MESSAGETIMER = 90;
243 
                    }
244 
                }
245 
                if (MENU_NO == 11)
246 
                    MENU_NO = 10;
247 
                else
248 
                    MENU_NO = 0;
249 
            }
250 
        }
251 
    }
252 
    if (button2_p() && TWOBUFFER < 0)
253 
    {
254 
        ONEBUFFER = 1;
255 
        TWOBUFFER = 1;
256 
        if (MENU_NO != 0)
257 
            BACKNOISE = 1;
258 
        if (MENU_NO == 1)
259 
            MENU_NO = 0;
260 
        else if (MENU_NO == 4)
261 
            MENU_NO = 2;
262 
        else if (MENU_NO == 6)
263 
            MENU_NO = 5;
264 
        else if (MENU_NO == 7)
265 
            MENU_NO = 5;
266 
        else if (MENU_NO == 11)
267 
            MENU_NO = 10;
268 
    }
269 
}
270 
if (MENU_NO == 2 || MENU_NO == 3 || MENU_NO == 5)
271 
{
272 
    if (down_p())
273 
    {
274 
        if (MENUCOORD[MENU_NO] < 3)
275 
        {
276 
            MENUCOORD[MENU_NO] += 1;
277 
            MOVENOISE = 1;
278 
        }
279 
    }
280 
    if (up_p())
281 
    {
282 
        if (MENUCOORD[MENU_NO] > 0)
283 
        {
284 
            MENUCOORD[MENU_NO] -= 1;
285 
            MOVENOISE = 1;
286 
        }
287 
    }
288 
    if (button1_p() && ONEBUFFER < 0)
289 
    {
290 
        if (MENUCOORD[MENU_NO] < 3)
291 
        {
292 
            if (MENU_NO == 3)
293 
            {
294 
                if (MENUCOORD[2] != MENUCOORD[3])
295 
                {
296 
                    if (FILE[MENUCOORD[MENU_NO]] == 1)
297 
                    {
298 
                        TWOBUFFER = 2;
299 
                        ONEBUFFER = 2;
300 
                        SELNOISE = 1;
301 
                        MENUCOORD[4] = 0;
302 
                        MENU_NO = 4;
303 
                    }
304 
                    else
305 
                    {
306 
                        TEMPCOMMENT = stringsetloc(
THE DIVISION IS COMPLETE.
"THE DIVISION IS COMPLETE.", "DEVICE_MENU_slash_Step_0_gml_225_0"
);
307 
                        MESSAGETIMER = 90;
308 
                        if (TYPE == 1)
309 
                            TEMPCOMMENT = stringsetloc(
Copy complete.
"Copy complete.", "DEVICE_MENU_slash_Step_0_gml_227_0"
);
310 
                        DEATHNOISE = 1;
311 
                        MENU_NO = 0;
312 
                        ONEBUFFER = 2;
313 
                        TWOBUFFER = 2;
314 
                        event_user(5);
315 
                    }
316 
                }
317 
                else
318 
                {
319 
                    TEMPCOMMENT = stringsetloc(
IT IS IMMUNE TO ITS OWN IMAGE.
"IT IS IMMUNE TO ITS OWN IMAGE.", "DEVICE_MENU_slash_Step_0_gml_238_0"
);
320 
                    if (TYPE == 1)
321 
                        TEMPCOMMENT = stringsetloc(
You can't copy there.
"You can't copy there.", "DEVICE_MENU_slash_Step_0_gml_239_0"
);
322 
                    MESSAGETIMER = 90;
323 
                    TWOBUFFER = 2;
324 
                    ONEBUFFER = 2;
325 
                    BACKNOISE = 1;
326 
                }
327 
            }
328 
            if (MENU_NO == 2)
329 
            {
330 
                if (FILE[MENUCOORD[MENU_NO]] == 1)
331 
                {
332 
                    TWOBUFFER = 2;
333 
                    ONEBUFFER = 2;
334 
                    SELNOISE = 1;
335 
                    MENUCOORD[3] = 0;
336 
                    MENU_NO = 3;
337 
                }
338 
                else
339 
                {
340 
                    TEMPCOMMENT = stringsetloc(
IT IS BARREN AND CANNOT BE COPIED.
"IT IS BARREN AND CANNOT BE COPIED.", "DEVICE_MENU_slash_Step_0_gml_261_0"
);
341 
                    if (FILE[0] == 0 && FILE[1] == 0 && FILE[2] == 0)
342 
                        TEMPCOMMENT = stringsetloc(
BUT THERE WAS NOTHING LEFT TO COPY.
"BUT THERE WAS NOTHING LEFT TO COPY.", "DEVICE_MENU_slash_Step_0_gml_264_0"
);
343 
                    if (TYPE == 1)
344 
                        TEMPCOMMENT = stringsetloc(
It can't be copied.
"It can't be copied.", "DEVICE_MENU_slash_Step_0_gml_266_0"
);
345 
                    MESSAGETIMER = 90;
346 
                    BACKNOISE = 1;
347 
                    TWOBUFFER = 2;
348 
                    ONEBUFFER = 2;
349 
                }
350 
            }
351 
            if (MENU_NO == 5)
352 
            {
353 
                if (FILE[MENUCOORD[MENU_NO]] == 1)
354 
                {
355 
                    TWOBUFFER = 2;
356 
                    ONEBUFFER = 2;
357 
                    SELNOISE = 1;
358 
                    MENUCOORD[6] = 0;
359 
                    MENU_NO = 6;
360 
                }
361 
                else
362 
                {
363 
                    TEMPCOMMENT = stringsetloc(
BUT IT WAS ALREADY GONE.
"BUT IT WAS ALREADY GONE.", "DEVICE_MENU_slash_Step_0_gml_289_0"
);
364 
                    if (FILE[0] == 0 && FILE[1] == 0 && FILE[2] == 0)
365 
                        TEMPCOMMENT = stringsetloc(
BUT THERE WAS NOTHING LEFT TO ERASE.
"BUT THERE WAS NOTHING LEFT TO ERASE.", "DEVICE_MENU_slash_Step_0_gml_292_0"
);
366 
                    if (TYPE == 1)
367 
                        TEMPCOMMENT = stringsetloc(
There's nothing to erase.
"There's nothing to erase.", "DEVICE_MENU_slash_Step_0_gml_294_0"
);
368 
                    MESSAGETIMER = 90;
369 
                    TWOBUFFER = 2;
370 
                    ONEBUFFER = 2;
371 
                    BACKNOISE = 1;
372 
                }
373 
            }
374 
        }
375 
        if (MENUCOORD[MENU_NO] == 3)
376 
        {
377 
            TWOBUFFER = 2;
378 
            ONEBUFFER = 2;
379 
            SELNOISE = 1;
380 
            MENU_NO = 0;
381 
        }
382 
    }
383 
    if (button2_p() && TWOBUFFER < 0)
384 
    {
385 
        TWOBUFFER = 2;
386 
        ONEBUFFER = 2;
387 
        BACKNOISE = 1;
388 
        if (MENU_NO == 2 || MENU_NO == 5)
389 
            MENU_NO = 0;
390 
        if (MENU_NO == 3)
391 
            MENU_NO = 2;
392 
    }
393 
}
394 
if (MENU_NO == 10)
395 
{
396 
    var M = MENU_NO;
397 
    var MAXY = 3;
398 
    if (down_p())
399 
    {
400 
        if (MENUCOORD[MENU_NO] < 3)
401 
        {
402 
            MENUCOORD[MENU_NO] += 1;
403 
            MOVENOISE = 1;
404 
        }
405 
    }
406 
    if (up_p())
407 
    {
408 
        if (MENUCOORD[MENU_NO] > 0)
409 
        {
410 
            MENUCOORD[MENU_NO] -= 1;
411 
            MOVENOISE = 1;
412 
        }
413 
    }
414 
    if (button1_p() && ONEBUFFER < 0)
415 
    {
416 
        MESSAGETIMER = -1;
417 
        if (MENUCOORD[M] <= 2)
418 
        {
419 
            var FILECHECK = 1;
420 
            if (INCOMPLETE_LOAD == 0 && COMPLETEFILE_PREV[MENUCOORD[M]] != 1)
421 
                FILECHECK = 0;
422 
            if (INCOMPLETE_LOAD == 1 && INCOMPLETEFILE_PREV[MENUCOORD[M]] != 1)
423 
                FILECHECK = 0;
424 
            if (FILECHECK)
425 
            {
426 
                MENUCOORD[M + 1] = 0;
427 
                ONEBUFFER = 1;
428 
                TWOBUFFER = 1;
429 
                MENU_NO = M + 1;
430 
                SELNOISE = 1;
431 
            }
432 
            else
433 
            {
434 
                ONEBUFFER = 4;
435 
                snd_play(snd_error);
436 
            }
437 
        }
438 
        if (MENUCOORD[MENU_NO] == 3)
439 
        {
440 
            TWOBUFFER = 2;
441 
            ONEBUFFER = 2;
442 
            SELNOISE = 1;
443 
            MENU_NO = 0;
444 
        }
445 
    }
446 
    if (button2_p() && TWOBUFFER < 0)
447 
    {
448 
        TWOBUFFER = 2;
449 
        ONEBUFFER = 2;
450 
        BACKNOISE = 1;
451 
        MENU_NO = 0;
452 
    }
453 
}
454 
if (MENU_NO == 0)
455 
{
456 
    var M = MENU_NO;
457 
    var MAXY = 8;
458 
    if (M == 10)
459 
        MAXY = 3;
460 
    if (down_p())
461 
    {
462 
        if (MENUCOORD[M] < MAXY)
463 
        {
464 
            if (MENUCOORD[M] < 3)
465 
                MENUCOORD[M] += 1;
466 
            else if (MENUCOORD[M] == 3)
467 
                MENUCOORD[M] = 5;
468 
            else if (MENUCOORD[M] == 4)
469 
                MENUCOORD[M] = 6;
470 
            else if (MENUCOORD[M] == 7 && CANQUIT == 1)
471 
                MENUCOORD[M] = 8;
472 
            MOVENOISE = 1;
473 
        }
474 
    }
475 
    if (up_p())
476 
    {
477 
        if (MENUCOORD[M] > 0)
478 
        {
479 
            if (MENUCOORD[M] < 3)
480 
                MENUCOORD[M] -= 1;
481 
            else if (MENUCOORD[M] == 3 || MENUCOORD[M] == 4 || MENUCOORD[M] == 7)
482 
                MENUCOORD[M] = 2;
483 
            else if (MENUCOORD[M] == 5 || MENUCOORD[M] == 6)
484 
                MENUCOORD[M] -= 2;
485 
            else if (MENUCOORD[M] == 8)
486 
                MENUCOORD[M] = 7;
487 
            MOVENOISE = 1;
488 
        }
489 
    }
490 
    if (right_p())
491 
    {
492 
        if (MENUCOORD[M] >= 3 && MENUCOORD[M] < 7)
493 
        {
494 
            MOVENOISE = 1;
495 
            if (MENUCOORD[M] == 4)
496 
                MENUCOORD[M] = 7;
497 
            else if (MENUCOORD[M] == 6 && CANQUIT == 1)
498 
                MENUCOORD[M] = 8;
499 
            else
500 
                MENUCOORD[M]++;
501 
        }
502 
    }
503 
    if (left_p())
504 
    {
505 
        if (MENUCOORD[M] >= 4 && MENUCOORD[M] != 5)
506 
        {
507 
            if (MENUCOORD[M] == 7)
508 
                MENUCOORD[M] = 4;
509 
            else if (MENUCOORD[M] == 8)
510 
                MENUCOORD[M] = 6;
511 
            else
512 
                MENUCOORD[M]--;
513 
            MOVENOISE = 1;
514 
        }
515 
    }
516 
    if (button1_p() && ONEBUFFER < 0)
517 
    {
518 
        MESSAGETIMER = -1;
519 
        if (MENUCOORD[M] <= 2)
520 
        {
521 
            var FILECHECK = 1;
522 
            if (MENU_NO == 10)
523 
            {
524 
                if (INCOMPLETE_LOAD == 0 && COMPLETEFILE_PREV[MENUCOORD[M]] != 1)
525 
                    FILECHECK = 0;
526 
                if (INCOMPLETE_LOAD == 1 && INCOMPLETEFILE_PREV[MENUCOORD[M]] != 1)
527 
                    FILECHECK = 0;
528 
            }
529 
            if (FILECHECK)
530 
            {
531 
                MENUCOORD[M + 1] = 0;
532 
                ONEBUFFER = 1;
533 
                TWOBUFFER = 1;
534 
                MENU_NO = M + 1;
535 
                SELNOISE = 1;
536 
            }
537 
            else
538 
            {
539 
                ONEBUFFER = 4;
540 
                snd_play(snd_error);
541 
            }
542 
        }
543 
        if (MENUCOORD[M] == 3)
544 
        {
545 
            if (M == 0)
546 
            {
547 
                MENUCOORD[2] = 0;
548 
                ONEBUFFER = 1;
549 
                TWOBUFFER = 1;
550 
                MENU_NO = 2;
551 
                SELNOISE = 1;
552 
            }
553 
            else
554 
            {
555 
                MENUCOORD[0] = 5;
556 
                ONEBUFFER = 1;
557 
                TWOBUFFER = 1;
558 
                MENU_NO = 0;
559 
                SELNOISE = 1;
560 
            }
561 
        }
562 
        if (MENUCOORD[M] == 4)
563 
        {
564 
            MENUCOORD[5] = 0;
565 
            ONEBUFFER = 1;
566 
            TWOBUFFER = 1;
567 
            MENU_NO = 5;
568 
            SELNOISE = 1;
569 
        }
570 
        if (MENUCOORD[M] == 5)
571 
        {
572 
            MENUCOORD[10] = 0;
573 
            ONEBUFFER = 1;
574 
            TWOBUFFER = 1;
575 
            MENU_NO = 10;
576 
            SELNOISE = 1;
577 
        }
578 
        if (MENUCOORD[M] == 6)
579 
        {
580 
            SELNOISE = 1;
581 
            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();
}
();
582 
            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();
    }
}
();
583 
        }
584 
        if (MENUCOORD[M] == 7)
585 
        {
586 
            input_enabled = false;
587 
            SELNOISE = 1;
588 
            snd_free_all();
589 
            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);
}
590 
        }
591 
        if (MENUCOORD[M] == 8 && CANQUIT)
592 
        {
593 
            SELNOISE = 1;
594 
            if (global.is_console)
595 
                ossafe_game_end();
596 
            else
597 
                game_end();
598 
        }
599 
    }
600 
    if (button2_p() && TWOBUFFER < 0)
601 
    {
602 
        ONEBUFFER = 1;
603 
        TWOBUFFER = 1;
604 
        BACKNOISE = 1;
605 
        if (MENU_NO == 10)
606 
            MENU_NO = 0;
607 
    }
608 
}
609 
if (OBMADE == 1)
610 
{
611 
    OB_DEPTH += 1;
612 
    obacktimer += OBM;
613 
    if (obacktimer >= 20)
614 
    {
615 
        DV = instance_create(0, 0, DEVICE_OBACK_4);
616 
        DV.depth = 5 + OB_DEPTH;
617 
        DV.OBSPEED = 0.01 * OBM;
618 
        if (OB_DEPTH >= 60000)
619 
            OB_DEPTH = 0;
620 
        obacktimer = 0;
621 
    }
622 
}
623 
if (MOVENOISE == 1)
624 
{
625 
    snd_play(snd_menumove);
626 
    MOVENOISE = 0;
627 
}
628 
if (SELNOISE == 1)
629 
{
630 
    snd_play(snd_select);
631 
    SELNOISE = 0;
632 
}
633 
if (BACKNOISE == 1)
634 
{
635 
    snd_play(snd_swing);
636 
    BACKNOISE = 0;
637 
}
638 
if (DEATHNOISE == 1)
639 
{
640 
    snd_play(AUDIO_APPEARANCE);
641 
    DEATHNOISE = 0;
642 
}
643 
ONEBUFFER -= 1;
644 
TWOBUFFER -= 1;
645 
if (STARTGAME == 1)
646 
{
647 
    snd_free_all();
648 
    if (global.chapter == 1)
649 
        room_goto(PLACE_CONTACT );
650 
    if (global.chapter >= 2)
651 
        room_goto(room_krisroom );
652 
}
653 

    

    
    

        654
        
enum UnknownEnum

    

    
    

        655
        
{

    

    
    

        656
        
    Value_0,

    

    
    

        657
        
    Value_2 = 2,

    

    
    

        658
        
    Value_29 = 29

    

    
    

        659
        
}