Deltarune (Chapter 1) script viewer

skipme = 0;

textsound = snd_text;

charline = 33;

originalcharline = charline;

hspace = 8;

vspace = 18;

rate = 1;

mycolor = c_white;

myfont = 
scr_84_get_font
scr_84_get_font

function 
scr_84_get_font(arg0)
{
    if (!variable_global_exists("chemg_last_get_font"))
        global.chemg_last_get_font = "";
    if (arg0 != global.chemg_last_get_font)
        global.chemg_last_get_font = arg0;
    return ds_map_find_value(global.font_map, arg0);
}
("main");

shake = 0;

special = 0;

skippable = 1;

automash_timer = 0;

if (global.flag[6 disable_text_skip] == 1)

    skippable = 0;

f = 1;

if (global.darkzone == 1)

    f = 2;

scr_texttype
scr_texttype

function 
scr_texttype()
{
    textscale = 1;
    var extra_ja_vspace = 0;
    if (!variable_global_exists("chemg_typer"))
        global.chemg_typer = -1;
    if (global.chemg_typer != global.typer)
        global.chemg_typer = global.typer;
    var font_set = true;
    switch (global.typer)
    {
        case 0:
            font_set = false;
            break;
        case 1:
            
scr_textsetup(
scr_84_get_font("main"), c_white, x, y, 33, 0, 1, snd_text, 8, 18, 0);
            break;
        case 2:
            
scr_textsetup(
scr_84_get_font("main"), c_white, x, y, 33, 0, 2, snd_nosound, 8, 18, 0);
            break;
        case 3:
            
scr_textsetup(
scr_84_get_font("main"), c_white, x, y, 33, 0, 2, snd_text, 8, 18, 1);
            break;
        case 4:
            
scr_textsetup(
scr_84_get_font("mainbig"), c_white, x, y, 33, 0, 1, snd_text, 16, 28, 1);
            extra_ja_vspace = 2;
            break;
        case 5:
            
scr_textsetup(
scr_84_get_font("main"), c_white, x, y, 33, 0, 1, snd_text, 8, 18, 0);
            break;
        case 6:
            
scr_textsetup(
scr_84_get_font("mainbig"), c_white, x, y, 33, 0, 1, snd_text, 16, 36, 1);
            break;
        case 7:
            
scr_textsetup(
scr_84_get_font("main"), c_white, x, y, 33, 0, 1, snd_txttor, 8, 18, 0);
            break;
        case 8:
            
scr_textsetup(
scr_84_get_font("main"), c_white, x, y, 33, 0, 2, snd_txttor, 8, 18, 0);
            break;
        case 10:
            
scr_textsetup(
scr_84_get_font("main"), c_white, x, y, 33, 0, 1, snd_txtsus, 8, 18, 0);
            break;
        case 11:
            
scr_textsetup(
scr_84_get_font("main"), c_white, x, y, 33, 0, 1, snd_txtsus, 8, 18, 0);
            break;
        case 12:
            
scr_textsetup(
scr_84_get_font("main"), c_white, x, y, 33, 0, 1, snd_txtnoe, 8, 18, 0);
            break;
        case 13:
            
scr_textsetup(
scr_84_get_font("main"), c_white, x, y, 33, 0, 1, snd_txtber, 8, 18, 0);
            break;
        case 14:
            
scr_textsetup(
scr_84_get_font("comicsans"), c_white, x, y, 33, 0, 1, snd_txtsans, 8, 18, 0);
            break;
        case 15:
            
scr_textsetup(
scr_84_get_font("main"), c_white, x, y, 33, 0, 1, snd_text, 8, 18, 0);
            break;
        case 16:
            font_set = false;
            break;
        case 17:
            
scr_textsetup(
scr_84_get_font("main"), c_white, x, y, 33, 0, 1, snd_txtund, 8, 18, 0);
            break;
        case 18:
            
scr_textsetup(
scr_84_get_font("main"), c_white, x, y, 33, 0, 1, snd_txtasg, 8, 18, 0);
            break;
        case 19:
            
scr_textsetup(
scr_84_get_font("main"), c_white, x, y, 33, 0, 1, snd_text, 8, 18, 0);
            break;
        case 20:
            
scr_textsetup(
scr_84_get_font("main"), c_white, x, y, 33, 0, 1, snd_txtal, 8, 18, 0);
            break;
        case 21:
            
scr_textsetup(
scr_84_get_font("main"), c_white, x, y, 33, 0, 1, snd_txtal, 8, 18, 0);
            break;
        case 22:
            
scr_textsetup(
scr_84_get_font("tinynoelle"), c_white, x, y + 7, 33, 0, 1, snd_txtal, 6, 18, 0);
            break;
        case 23:
            
scr_textsetup(
scr_84_get_font("tinynoelle"), c_white, x, y + 7, 33, 0, 1, snd_txtnoe, 6, 18, 0);
            break;
        case 30:
            
scr_textsetup(
scr_84_get_font("mainbig"), c_white, x, y, 33, 0, 1, snd_txtsus, 16, 36, 1);
            break;
        case 31:
            
scr_textsetup(
scr_84_get_font("mainbig"), c_white, x, y, 33, 0, 1, snd_txtral, 16, 36, 1);
            break;
        case 32:
            
scr_textsetup(
scr_84_get_font("mainbig"), c_white, x, y, 33, 0, 1, snd_txtlan, 16, 36, 1);
            break;
        case 33:
            
scr_textsetup(
scr_84_get_font("mainbig"), c_white, x, y, 33, 0, 1, snd_dadtxt, 16, 36, 1);
            break;
        case 35:
            
scr_textsetup(
scr_84_get_font("mainbig"), c_white, x, y, 33, 0, 1, snd_txtjok, 16, 36, 1);
            break;
        case 36:
            
scr_textsetup(
scr_84_get_font("mainbig"), c_white, x, y, 33, 0, 1, snd_nosound, 16, 36, 1);
            break;
        case 37:
            
scr_textsetup(
scr_84_get_font("mainbig"), c_white, x, y, 33, 0, 3, snd_txtsus, 18, 36, 1);
...
();

autoaster = 1;

pos = 2;

lineno = 0;

aster = 0;

halt = 0;

xcolor = c_black;

wxskip = 0;

msgno = 0;

first_alarm = 0;

firstnoise = 0;

noiseskip = 0;

formatted = 0;

colorchange = 0;

fontchange = 0;

sound_played = 0;

writingx = x;

writingy = y;

dialoguer = 0;

smallface = 505050;

faced = 0;

facedever = 0;

facer = 0;

siner = 0;

specfade = 1;

for (i = 0; i < 7; i += 1)

{

    specx[i] = i * 6;

    specy[i] = i * 6;

}

mystring = global.msg[0];

for (j = 0; j < 100; j += 1)

    nstring[j] = global.msg[j];

length = string_length(mystring);

alarm[0]
 = rate;
gml_Object_obj_writer_Alarm_0.gml

if (rate > 2)
    alarm[1]
 = 1;
else if (first_alarm == 1 && pos >= 2)
    
scr_textsound();
if (pos <= length)
    alarm[0]
 = rate;
if (first_alarm == 0)
{
    getchar = string_char_at(mystring, 1);
    if (getchar == "\\")
        pos += 3;
    else
        pos += 1;
    first_alarm = 1;
}
else
{
    getchar = string_char_at(mystring, pos);
    nextchar = string_char_at(mystring, pos + 1);
    if (getchar == "&")
        pos += 1;
    if (getchar == "\\")
        pos += 3;
    if (getchar == "/")
    {
        halt = 1;
        if (nextchar == "%")
            halt = 2;
        alarm[0]
 = -1;
    }
    getchar = string_char_at(mystring, pos);
    nextchar = string_char_at(mystring, pos + 1);
    if (getchar == "|")
        pos += 2;
    if (getchar == "^")
    {
        pos += 2;
        if (alarm[0] > 0)
        {
            if (nextchar == "1")
                alarm[0]
 += 5;
            if (nextchar == "2")
                alarm[0]
 += 10;
            if (nextchar == "3")
                alarm[0]
 += 15;
            if (nextchar == "4")
                alarm[0]
 += 20;
            if (nextchar == "5")
                alarm[0]
 += 30;
            if (nextchar == "6")
                alarm[0]
 += 40;
            if (nextchar == "7")
                alarm[0]
 += 60;
            if (nextchar == "8")
                alarm[0]
 += 90;
            if (nextchar == "9")
                alarm[0]
 += 150;
        }
    }
    pos += 1;
}

if (rate < 3)

    alarm[2]
 = 1;
gml_Object_obj_writer_Alarm_2.gml

if (firstnoise == 0)
{
    firstnoise = 1;
    
scr_textsound();
}

else

    
scr_textsound
scr_textsound

function 
scr_textsound()
{
    playtextsound = 1;
    if (button2_h() == 1)
        playtextsound = 0;
    if (skippable == 0)
        playtextsound = 1;
    if (playtextsound == 1)
    {
        if (rate <= 2)
            getchar = string_char_at(mystring, pos);
        else
            getchar = string_char_at(mystring, pos - 1);
        play = 1;
        playcheck = 0;
        if (getchar == "&")
        {
            if (rate < 3)
            {
                playcheck = 1;
                getchar = string_char_at(mystring, pos + 1);
            }
            else
            {
                play = 0;
            }
        }
        if (getchar == " ")
            play = 0;
        if (getchar == "^")
            play = 0;
        if (getchar == "!")
            play = 0;
        if (getchar == ".")
            play = 0;
        if (getchar == "?")
            play = 0;
        if (getchar == ",")
            play = 0;
        if (getchar == ":")
            play = 0;
        if (getchar == "/")
            play = 0;
        if (getchar == "\\")
            play = 0;
        if (getchar == "|")
            play = 0;
        if (getchar == "*")
            play = 0;
        if (play == 1)
        {
            snd_play(textsound);
            with (obj_face_parent)
                mouthmove = 1;
        }
    }
}
();