Deltarune script viewer

← back to main script listing

gml_GlobalScript_scr_save_ch1

(view raw script w/o annotations or w/e)
1 
function scr_save_ch1
scr_save_ch1

function scr_save_ch1()
{
    var is_valid = scr_saveprocess_ch1(global.filechoice);
    if (is_valid)
    {
        filechoicebk2 = global.filechoice;
        global.filechoice = 9;
        is_valid = scr_saveprocess_ch1(9);
        global.filechoice = filechoicebk2;
    }
    if (is_valid)
    {
        ossafe_ini_open_ch1("dr.ini");
        ini_write_string("G" + string(global.filechoice), "Name", global.truename);
        ini_write_real("G" + string(global.filechoice), "Level", global.lv);
        ini_write_real("G" + string(global.filechoice), "Love", global.llv);
        ini_write_real("G" + string(global.filechoice), "Time", global.time);
        ini_write_real("G" + string(global.filechoice), "Room", global.currentroom);
        ini_write_real("G" + string(global.filechoice), "InitLang", global.flag[912 language]);
        var uraboss = 0;
        if (global.flag[241 JEVIL_plot] == 6)
            uraboss = 1;
        else if (global.flag[241 JEVIL_plot] == 7)
            uraboss = 2;
        ini_write_real("G" + string(global.filechoice), "UraBoss", uraboss);
        ini_write_string("G" + string(global.filechoice), "Version", global.version);
        ossafe_ini_close_ch1();
        ossafe_savedata_save_ch1();
    }
    return is_valid;
}
()
2 
{
3 
    var is_valid = scr_saveprocess_ch1
scr_saveprocess_ch1

function scr_saveprocess_ch1(arg0)
{
    global.lastsavedtime = global.time;
    global.lastsavedlv = global.lv;
    file = "filech1_" + string(arg0);
    myfileid = ossafe_file_text_open_write_ch1(file);
    ossafe_file_text_write_string_ch1(myfileid, global.truename);
    ossafe_file_text_writeln_ch1(myfileid);
    if (global.is_console)
    {
        scr_ds_list_write_ch1(global.othername, 6);
        ossafe_file_text_writeln_ch1(myfileid);
    }
    else
    {
        for (i = 0; i < 6; i += 1)
        {
            ossafe_file_text_write_string_ch1(myfileid, global.othername[i]);
            ossafe_file_text_writeln_ch1(myfileid);
        }
    }
    ossafe_file_text_write_real_ch1(myfileid, global.char[0]);
    ossafe_file_text_writeln_ch1(myfileid);
    ossafe_file_text_write_real_ch1(myfileid, global.char[1]);
    ossafe_file_text_writeln_ch1(myfileid);
    ossafe_file_text_write_real_ch1(myfileid, global.char[2]);
    ossafe_file_text_writeln_ch1(myfileid);
    ossafe_file_text_write_real_ch1(myfileid, global.gold);
    ossafe_file_text_writeln_ch1(myfileid);
    ossafe_file_text_write_real_ch1(myfileid, global.xp);
    ossafe_file_text_writeln_ch1(myfileid);
    ossafe_file_text_write_real_ch1(myfileid, global.lv);
    ossafe_file_text_writeln_ch1(myfileid);
    ossafe_file_text_write_real_ch1(myfileid, global.inv);
    ossafe_file_text_writeln_ch1(myfileid);
    ossafe_file_text_write_real_ch1(myfileid, global.invc);
    ossafe_file_text_writeln_ch1(myfileid);
    ossafe_file_text_write_real_ch1(myfileid, global.darkzone);
    ossafe_file_text_writeln_ch1(myfileid);
    if (global.is_console)
    {
        scr_ds_list_write_ch1(global.hp, 4);
        ossafe_file_text_writeln_ch1(myfileid);
        scr_ds_list_write_ch1(global.maxhp, 4);
        ossafe_file_text_writeln_ch1(myfileid);
        scr_ds_list_write_ch1(global.at, 4);
        ossafe_file_text_writeln_ch1(myfileid);
        scr_ds_list_write_ch1(global.df, 4);
        ossafe_file_text_writeln_ch1(myfileid);
        scr_ds_list_write_ch1(global.mag, 4);
        ossafe_file_text_writeln_ch1(myfileid);
        scr_ds_list_write_ch1(global.guts, 4);
        ossafe_file_text_writeln_ch1(myfileid);
        scr_ds_list_write_ch1(global.charweapon, 4);
        ossafe_file_text_writeln_ch1(myfileid);
        scr_ds_list_write_ch1(global.chararmor1, 4);
        ossafe_file_text_writeln_ch1(myfileid);
        scr_ds_list_write_ch1(global.chararmor2, 4);
        ossafe_file_text_writeln_ch1(myfileid);
        scr_ds_list_write_ch1(global.weaponstyle, 4);
        ossafe_file_text_writeln_ch1(myfileid);
    }
    for (i = 0; i < 4; i += 1)
    {
        if (!global.is_console)
        {
            file_text_write_real(myfileid, global.hp[i]);
            file_text_writeln(myfileid);
            file_text_write_real(myfileid, global.maxhp[i]);
            file_text_writeln(myfileid);
            file_text_write_real(myfileid, global.at[i]);
            file_text_writeln(myfileid);
            file_text_write_real(myfileid, global.df[i]);
            file_text_writeln(myfileid);
            file_text_write_real(myfileid, global.mag[i]);
            file_text_writeln(myfileid);
            file_text_write_real(myfileid, global.guts[i]);
            file_text_writeln(myfileid);
            file_text_write_real(myfileid, global.charweapon[i]);
            file_text_writeln(myfileid);
            file_text_write_real(myfileid, global.chararmor1[i]);
            file_text_writeln(myfileid);
            file_text_write_real(myfileid, global.chararmor2[i]);
            file_text_writeln(myfileid);
            file_text_write_string(myfileid, global.weaponstyle[i]);
            file_text_writeln(myfileid);
        }
        for (q = 0; q < 4; q += 1)
        {
            ossafe_file_text_write_real_ch1(myfileid, global.itemat[i][q]);
            ossafe_file_text_writeln_ch1(myfileid);
            ossafe_file_text_write_real_ch1(myfileid, global.itemdf[i][q]);
            ossafe_file_text_writeln_ch1(myfileid);
            ossafe_file_text_write_real_ch1(myfileid, global.itemmag[i][q]);
            ossafe_file_text_writeln_ch1(myfileid);
            ossafe_file_text_write_real_ch1(myfileid, global.itembolts[i][q]);
            ossafe_file_text_writeln_ch1(myfileid);
            ossafe_file_text_write_real_ch1(myfileid, global.itemgrazeamt[i][q]);
            ossafe_file_text_writeln_ch1(myfileid);
            ossafe_file_text_write_real_ch1(myfileid, global.itemgrazesize[i][q]);
            ossafe_file_text_writeln_ch1(myfileid);
...
(global.filechoice);
4 
    if (is_valid)
5 
    {
6 
        filechoicebk2 = global.filechoice;
7 
        global.filechoice = 9;
8 
        is_valid = scr_saveprocess_ch1
scr_saveprocess_ch1

function scr_saveprocess_ch1(arg0)
{
    global.lastsavedtime = global.time;
    global.lastsavedlv = global.lv;
    file = "filech1_" + string(arg0);
    myfileid = ossafe_file_text_open_write_ch1(file);
    ossafe_file_text_write_string_ch1(myfileid, global.truename);
    ossafe_file_text_writeln_ch1(myfileid);
    if (global.is_console)
    {
        scr_ds_list_write_ch1(global.othername, 6);
        ossafe_file_text_writeln_ch1(myfileid);
    }
    else
    {
        for (i = 0; i < 6; i += 1)
        {
            ossafe_file_text_write_string_ch1(myfileid, global.othername[i]);
            ossafe_file_text_writeln_ch1(myfileid);
        }
    }
    ossafe_file_text_write_real_ch1(myfileid, global.char[0]);
    ossafe_file_text_writeln_ch1(myfileid);
    ossafe_file_text_write_real_ch1(myfileid, global.char[1]);
    ossafe_file_text_writeln_ch1(myfileid);
    ossafe_file_text_write_real_ch1(myfileid, global.char[2]);
    ossafe_file_text_writeln_ch1(myfileid);
    ossafe_file_text_write_real_ch1(myfileid, global.gold);
    ossafe_file_text_writeln_ch1(myfileid);
    ossafe_file_text_write_real_ch1(myfileid, global.xp);
    ossafe_file_text_writeln_ch1(myfileid);
    ossafe_file_text_write_real_ch1(myfileid, global.lv);
    ossafe_file_text_writeln_ch1(myfileid);
    ossafe_file_text_write_real_ch1(myfileid, global.inv);
    ossafe_file_text_writeln_ch1(myfileid);
    ossafe_file_text_write_real_ch1(myfileid, global.invc);
    ossafe_file_text_writeln_ch1(myfileid);
    ossafe_file_text_write_real_ch1(myfileid, global.darkzone);
    ossafe_file_text_writeln_ch1(myfileid);
    if (global.is_console)
    {
        scr_ds_list_write_ch1(global.hp, 4);
        ossafe_file_text_writeln_ch1(myfileid);
        scr_ds_list_write_ch1(global.maxhp, 4);
        ossafe_file_text_writeln_ch1(myfileid);
        scr_ds_list_write_ch1(global.at, 4);
        ossafe_file_text_writeln_ch1(myfileid);
        scr_ds_list_write_ch1(global.df, 4);
        ossafe_file_text_writeln_ch1(myfileid);
        scr_ds_list_write_ch1(global.mag, 4);
        ossafe_file_text_writeln_ch1(myfileid);
        scr_ds_list_write_ch1(global.guts, 4);
        ossafe_file_text_writeln_ch1(myfileid);
        scr_ds_list_write_ch1(global.charweapon, 4);
        ossafe_file_text_writeln_ch1(myfileid);
        scr_ds_list_write_ch1(global.chararmor1, 4);
        ossafe_file_text_writeln_ch1(myfileid);
        scr_ds_list_write_ch1(global.chararmor2, 4);
        ossafe_file_text_writeln_ch1(myfileid);
        scr_ds_list_write_ch1(global.weaponstyle, 4);
        ossafe_file_text_writeln_ch1(myfileid);
    }
    for (i = 0; i < 4; i += 1)
    {
        if (!global.is_console)
        {
            file_text_write_real(myfileid, global.hp[i]);
            file_text_writeln(myfileid);
            file_text_write_real(myfileid, global.maxhp[i]);
            file_text_writeln(myfileid);
            file_text_write_real(myfileid, global.at[i]);
            file_text_writeln(myfileid);
            file_text_write_real(myfileid, global.df[i]);
            file_text_writeln(myfileid);
            file_text_write_real(myfileid, global.mag[i]);
            file_text_writeln(myfileid);
            file_text_write_real(myfileid, global.guts[i]);
            file_text_writeln(myfileid);
            file_text_write_real(myfileid, global.charweapon[i]);
            file_text_writeln(myfileid);
            file_text_write_real(myfileid, global.chararmor1[i]);
            file_text_writeln(myfileid);
            file_text_write_real(myfileid, global.chararmor2[i]);
            file_text_writeln(myfileid);
            file_text_write_string(myfileid, global.weaponstyle[i]);
            file_text_writeln(myfileid);
        }
        for (q = 0; q < 4; q += 1)
        {
            ossafe_file_text_write_real_ch1(myfileid, global.itemat[i][q]);
            ossafe_file_text_writeln_ch1(myfileid);
            ossafe_file_text_write_real_ch1(myfileid, global.itemdf[i][q]);
            ossafe_file_text_writeln_ch1(myfileid);
            ossafe_file_text_write_real_ch1(myfileid, global.itemmag[i][q]);
            ossafe_file_text_writeln_ch1(myfileid);
            ossafe_file_text_write_real_ch1(myfileid, global.itembolts[i][q]);
            ossafe_file_text_writeln_ch1(myfileid);
            ossafe_file_text_write_real_ch1(myfileid, global.itemgrazeamt[i][q]);
            ossafe_file_text_writeln_ch1(myfileid);
            ossafe_file_text_write_real_ch1(myfileid, global.itemgrazesize[i][q]);
            ossafe_file_text_writeln_ch1(myfileid);
...
(9);
9 
        global.filechoice = filechoicebk2;
10 
    }
11 
    if (is_valid)
12 
    {
13 
        ossafe_ini_open_ch1("dr.ini");
14 
        ini_write_string("G" + string(global.filechoice), "Name", global.truename);
15 
        ini_write_real("G" + string(global.filechoice), "Level", global.lv);
16 
        ini_write_real("G" + string(global.filechoice), "Love", global.llv);
17 
        ini_write_real("G" + string(global.filechoice), "Time", global.time);
18 
        ini_write_real("G" + string(global.filechoice), "Room", global.currentroom);
19 
        ini_write_real("G" + string(global.filechoice), "InitLang", global.flag[912 language]);
20 
        var uraboss = 0;
21 
        if (global.flag[241 JEVIL_plot] == 6)
22 
            uraboss = 1;
23 
        else if (global.flag[241 JEVIL_plot] == 7)
24 
            uraboss = 2;
25 
        ini_write_real("G" + string(global.filechoice), "UraBoss", uraboss);
26 
        ini_write_string("G" + string(global.filechoice), "Version", global.version);
27 
        ossafe_ini_close_ch1();
28 
        ossafe_savedata_save_ch1();
29 
    }
30 
    return is_valid;
31 
}