|
1
|
if (up_p())
|
|
2
|
choice_index = ((choice_index - 1) < 0) ? (array_length_1d(choice) - 1) : (choice_index - 1);
|
|
3
|
if (down_p())
|
|
4
|
choice_index = ((choice_index + 1) > (array_length_1d(choice) - 1)) ? 0 : (choice_index + 1);
|
|
5
|
if (button1_p())
|
|
6
|
{
|
|
7
|
if (choice_index == 0)
|
|
8
|
{
|
|
9
|
var menu_go = 0;
|
|
10
|
var roomchoice = room_intro_ch4;
|
|
11
|
if (scr_chapter_save_file_exists(global.chapter) || ossafe_file_exists("dr.ini"))
|
|
12
|
menu_go = 1;
|
|
13
|
if (scr_completed_chapter_any_slot(global.chapter))
|
|
14
|
menu_go = 2;
|
|
15
|
if (menu_go == 0 || menu_go == 1)
|
|
16
|
roomchoice = room_intro_ch4;
|
|
17
|
if (menu_go == 2)
|
|
18
|
{
|
|
19
|
scr_windowcaptionscr_windowcaption
function scr_windowcaption(arg0)
{
if (global.tempflag[10] != 1 && global.chapter == 1)
window_set_caption(arg0);
else
window_set_caption("DELTARUNE Chapter 4");
} ("DELTARUNE");
|
|
20
|
global.tempflag[10] = 1;
|
|
21
|
roomchoice = room_legend;
|
|
22
|
global.plot = 0;
|
|
23
|
}
|
|
24
|
global.darkzone = 0;
|
|
25
|
room_goto(roomchoice);
|
|
26
|
}
|
|
27
|
else if (choice_index == 1)
|
|
28
|
{
|
|
29
|
room_goto_next();
|
|
30
|
}
|
|
31
|
else if (choice_index == 2)
|
|
32
|
{
|
|
33
|
scr_loadscr_load
function scr_load()
{
snd_free_all();
filechoicebk = global.filechoice;
scr_gamestart();
global.filechoice = filechoicebk;
file = "filech" + string(global.chapter) + "_" + 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)
{
... ();
|
|
34
|
}
|
|
35
|
else if (choice_index == 3)
|
|
36
|
{
|
|
37
|
room_goto(PLACE_MENU );
|
|
38
|
}
|
|
39
|
}
|
|
40
|
if (keyboard_check_pressed(ord("L")))
|
|
41
|
scr_loadscr_load
function scr_load()
{
snd_free_all();
filechoicebk = global.filechoice;
scr_gamestart();
global.filechoice = filechoicebk;
file = "filech" + string(global.chapter) + "_" + 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)
{
... ();
|