Undertale script viewer

← back to main script listing

gml_Object_obj_base_writer_Create_0

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

if (argument0 != 0)
    global.typer = argument0;
if (global.typer == 1)
    script_execute(SCR_TEXTSETUP, fnt_main, c_white, x + 20, y + 20, x + (global.idealborder[1] - 55), 1, 1, SND_TXT2, 16, 32);
if (global.typer == 2)
    script_execute(SCR_TEXTSETUP, fnt_plain, c_black, x, y, x + 190, 43, 2, SND_TXT1, 9, 20);
if (global.typer == 3)
    script_execute(SCR_TEXTSETUP, fnt_curs, c_teal, x, y, x + 100, 39, 3, SND_TXT1, 10, 10);
if (global.typer == 4)
    script_execute(SCR_TEXTSETUP, fnt_maintext, c_white, x + 20, y + 20, view_xview[view_current] + 290, 0, 1, snd_txttor, 8, 18);
if (global.typer == 5)
    script_execute(SCR_TEXTSETUP, fnt_maintext, c_white, x + 20, y + 20, view_xview[view_current] + 290, 0, 1, SND_TXT1, 8, 18);
if (global.typer == 6)
    script_execute(SCR_TEXTSETUP, fnt_plain, c_black, x, y, x + 200, 0, 1, snd_floweytalk1, 9, 20);
if (global.typer == 7)
    script_execute(SCR_TEXTSETUP, fnt_plain, c_black, x, y, x + 200, 2, 2, snd_floweytalk2, 9, 20);
if (global.typer == 8)
    script_execute(SCR_TEXTSETUP, fnt_plain, c_black, x, y, x + 200, 0, 1, snd_txttor, 9, 20);
if (global.typer == 9)
    script_execute(SCR_TEXTSETUP, fnt_maintext, c_white, x + 20, y + 20, view_xview[view_current] + 290, 0, 1, snd_floweytalk1, 8, 18);
if (global.typer == 10)
    script_execute(SCR_TEXTSETUP, fnt_maintext, c_white, x + 20, y + 20, view_xview[view_current] + 290, 0, 1, snd_nosound, 8, 18);
if (global.typer == 11)
    script_execute(SCR_TEXTSETUP, fnt_maintext, c_white, x + 20, y + 20, view_xview[view_current] + 290, 0, 2, SND_TXT2, 9, 18);
if (global.typer == 12)
    script_execute(SCR_TEXTSETUP, fnt_plain, c_black, x, y, x + 200, 1, 3, snd_txttor2, 10, 20);
if (global.typer == 13)
    script_execute(SCR_TEXTSETUP, fnt_plain, c_black, x, y, x + 200, 2, 4, snd_txttor2, 11, 20);
if (global.typer == 14)
    script_execute(SCR_TEXTSETUP, fnt_plain, c_black, x, y, x + 200, 3, 5, snd_txttor2, 14, 20);
if (global.typer == 15)
    script_execute(SCR_TEXTSETUP, fnt_plain, c_black, x, y, x + 200, 0, 10, snd_txttor2, 18, 20);
if (global.typer == 16)
    script_execute(SCR_TEXTSETUP, fnt_maintext, c_white, x + 20, y + 20, view_xview[view_current] + 290, 1.2, 2, snd_floweytalk2, 8, 18);
if (global.typer == 17)
    script_execute(SCR_TEXTSETUP, fnt_comicsans, c_white, x + 20, y + 20, view_xview[view_current] + 290, 0, 1, snd_txtsans, 8, 18);
if (global.typer == 19)
    global.typer = 18;
if (global.typer == 18)
    script_execute(SCR_TEXTSETUP, fnt_papyrus, c_white, x + 20, y + 20, view_xview[view_current] + 290, 0, 1, snd_txtpap, 11, 18);
if (global.typer == 20)
    script_execute(SCR_TEXTSETUP, fnt_plainbig, c_black, x, y, x + 200, 0, 2, snd_floweytalk2, 25, 20);
if (global.typer == 21)
    script_execute(SCR_TEXTSETUP, fnt_maintext, c_white, x + 20, y + 20, view_xview[view_current] + 290, 0, 4, snd_nosound, 10, 18);
if (global.typer == 22)
    script_execute(SCR_TEXTSETUP, fnt_papyrus, c_black, x + 10, y, x + 200, 1, 1, snd_txtpap, 11, 20);
if (global.typer == 23)
    script_execute(SCR_TEXTSETUP, fnt_maintext, c_white, x + 20, y + 20, view_xview[view_current] + 310, 0, 1, SND_TXT1, 8, 18);
if (global.typer == 24)
    script_execute(SCR_TEXTSETUP, fnt_maintext, c_white, x + 20, y + 20, view_xview[view_current] + 310, 0, 1, snd_tem, 8, 18);
if (global.typer == 25)
{
    if (global.language == "ja")
        script_execute(SCR_TEXTSETUP, fnt_ja_plainsmall, c_white, x + 20, y + 20, view_xview[view_current] + 290, 0, 1, SND_TXT1, 10, 15);
    else
        script_execute(SCR_TEXTSETUP, fnt_maintext, c_white, x + 20, y + 20, view_xview[view_current] + 290, 0, 1, SND_TXT1, 8, 18);
}
if (global.typer == 27)
    script_execute(SCR_TEXTSETUP, fnt_maintext, c_white, x + 20, y + 20, view_xview[view_current] + 290, 0, 3, snd_mtt1, 8, 18);
if (global.typer == 28)
    script_execute(SCR_TEXTSETUP, fnt_maintext, c_white, x + 20, y + 20, view_xview[view_current] + 290, 0, 2, snd_tem, 8, 18);
if (global.typer == 30)
    script_execute(SCR_TEXTSETUP, fnt_main, c_white, x + 20, y + 20, 9999, 0, 2, snd_txtasg, 20, 36);
if (global.typer == 31)
    script_execute(SCR_TEXTSETUP, fnt_maintext, c_white, x + 20, y + 20, 9999, 0, 2, snd_txtasg, 12, 18);
if (global.typer == 32)
    script_execute(SCR_TEXTSETUP, fnt_main, c_white, x + 20, y + 20, 9999, 0, 2, snd_txtasr, 20, 36);
if (global.typer == 33)
    script_execute(SCR_TEXTSETUP, fnt_plain, c_black, x, y, x + 190, 43, 1, SND_TXT1, 9, 20);
if (global.typer == 34)
    script_execute(SCR_TEXTSETUP, fnt_wingdings, c_white, x + 20, y + 20, view_xview[view_current] + 290, 0, 3, snd_wngdng1, 16, 18);
if (global.typer == 35)
    script_execute(SCR_TEXTSETUP, fnt_maintext, c_white, x + 20, y + 20, view_xview[view_current] + 290, 0, 2, snd_txtasr, 10, 18);
if (global.typer == 36)
    script_execute(SCR_TEXTSETUP, fnt_maintext, c_white, x + 20, y + 20, view_xview[view_current] + 290, 0, 8, snd_txtasr2, 10, 18);
if (global.typer == 37)
    script_execute(SCR_TEXTSETUP, fnt_maintext, c_white, x + 20, y + 20, view_xview[view_current] + 290, 0, 1, snd_txtund, 8, 18);
if (global.typer == 38)
    script_execute(SCR_TEXTSETUP, fnt_maintext, c_white, x + 20, y + 20, view_xview[view_current] + 290, 0, 6, snd_txtund, 8, 18);
if (global.typer == 39)
    script_execute(SCR_TEXTSETUP, fnt_plain, c_black, x + 16, y, x + 190, 0, 1, snd_txtund, 9, 20);
if (global.typer == 40)
    script_execute(SCR_TEXTSETUP, fnt_plain, c_black, x + 16, y, x + 190, 1, 2, snd_txtund, 9, 20);
if (global.typer == 41)
    script_execute(SCR_TEXTSETUP, fnt_plain, c_black, x + 16, y, x + 190, 0, 1, snd_txtund, 9, 20);
if (global.typer == 42)
    script_execute(SCR_TEXTSETUP, fnt_plain, c_black, x + 16, y, x + 190, 2, 4, snd_txtund, 9, 20);
if (global.typer == 43)
    script_execute(SCR_TEXTSETUP, fnt_plain, c_black, x + 16, y, x + 190, 2, 4, snd_txtund2, 9, 20);
if (global.typer == 44)
    script_execute(SCR_TEXTSETUP, fnt_plain, c_black, x + 16, y, x + 190, 2, 5, snd_txtund3, 9, 20);
if (global.typer == 45)
    script_execute(SCR_TEXTSETUP, fnt_plain, c_black, x + 16, y, x + 190, 2, 7, snd_txtund4, 9, 20);
if (global.typer == 47)
    script_execute(SCR_TEXTSETUP, fnt_maintext, c_white, x + 20, y + 20, view_xview[view_current] + 290, 0, 1, snd_txtal, 8, 18);
if (global.typer == 48)
    script_execute(SCR_TEXTSETUP, fnt_comicsans, c_white, x + 20, y + 20, view_xview[view_current] + 290, 0, 1, snd_txtsans2, 8, 18);
if (global.typer == 49)
    script_execute(SCR_TEXTSETUP, fnt_plain, c_white, x, y, x + 190, 43, 1, snd_txtal, 9, 20);
if (global.typer == 50)
    script_execute(SCR_TEXTSETUP, fnt_main, c_white, x + 20, y + 10, 999, 0, 3, snd_mtt1, 8, 18);
...
(global.typer);
2 
x = round(x);
3 
y = round(y);
4 
writingx = round(writingx);
5 
writingy = round(writingy);
6 
stringno = 0;
7 
stringpos = 0;
8 
halt = 0;
9 
dfy = 0;
10 
sound_enable = 1;
11 
for (var n = 0; global.msg[n] != "%%%"; n++)
12 
    mystring[n] = global.msg[n];
13 
originalstring = scr_replace_buttons_pc
scr_replace_buttons_pc

var str = argument0;
if (global.osflavor <= 2)
{
    str = string_replace_all(str, "\*Z", "[Z]");
    str = string_replace_all(str, "\*X", "[X]");
    str = string_replace_all(str, "\*C", "[C]");
    str = string_replace_all(str, "\*A", 
[LEFT]
scr_gettext("key_left")
);
    str = string_replace_all(str, "\*D", 
[RIGHT]
scr_gettext("key_right")
);
}
return str;
(mystring[0]);
14 
alarm[0] = textspeed;
gml_Object_obj_base_writer_Alarm_0.gml

if (stringpos >= string_length(originalstring))
    exit;
var advance = 1;
if (global.typer == 111)
    advance += 1;
if (txtsound == 56)
    advance += 2;
else if (txtsound == 65)
    advance += 1;
var dosound = 0;
var delay = textspeed;
while (stringpos < string_length(originalstring) && advance > 0)
{
    stringpos++;
    var ch = string_char_at(originalstring, stringpos);
    if (ch == "^")
    {
        stringpos++;
        ch = string_char_at(originalstring, stringpos);
        if (ch != "0")
        {
            var n = real(ch);
            delay = n * 10;
            advance = 1;
        }
    }
    else if (ch == "\")
    {
        stringpos++;
        ch = string_char_at(originalstring, stringpos);
        if (ch == "S")
        {
            stringpos++;
            var sfxtype = string_char_at(originalstring, stringpos);
            if (sfxtype == "+")
            {
                sound_enable = 1;
            }
            else if (sfxtype == "-")
            {
                sound_enable = 0;
            }
            else
            {
                var sfx = -4;
                if (sfxtype == "p")
                    sfx = 105;
                if (sfx != -4)
                    snd_play(sfx);
            }
        }
        else if (ch == "z")
        {
            stringpos++;
            advance--;
            if (sound_enable)
                dosound = 1;
        }
        else if (ch == "E" || ch == "F" || ch == "M" || ch == "T" || ch == "*")
        {
            stringpos++;
        }
    }
    else if (ch != "/" && ch != "%" && ch != "&")
    {
        advance--;
        if (sound_enable)
            dosound = 1;
    }
}
alarm[0] = delay;
if (dosound)
{
    if (txtsound == 56)
    {
        snd_stop(snd_mtt1);
        snd_stop(snd_mtt2);
        snd_stop(snd_mtt3);
        snd_stop(snd_mtt4);
        snd_stop(snd_mtt5);
        snd_stop(snd_mtt6);
        snd_stop(snd_mtt7);
        snd_stop(snd_mtt8);
        snd_stop(snd_mtt9);
        var rnsound = floor(random(9));
        switch (rnsound)
        {
            case 0:
                snd_play(snd_mtt1);
                break;
            case 1:
                snd_play(snd_mtt2);
                break;
            case 2:
                snd_play(snd_mtt3);
                break;
            case 3:
                snd_play(snd_mtt4);
                break;
            case 4:
                snd_play(snd_mtt5);
...