Deltarune script viewer

con = -1

if (global.plot >= 200 && global.flag[387 returned_castle_town] == 0)

{

    con = 1

    scr_losechar
scr_losechar

function scr_losechar() //gml_Script_scr_losechar
{
    global.char[2] = 0
    global.char[1] = 0
    with (obj_darkcontroller)
    {
        chartotal = 0
        havechar[0] = 0
        havechar[1] = 0
        havechar[2] = 0
        havechar[3] = 0
        for (i = 0; i < 3; i += 1)
        {
            global.faceaction[i] = 0
            if (global.char[i] != 0)
                chartotal += 1
            if (global.char[i] == 1)
            {
                havechar[0] = 1
                charpos[0] = i
            }
            if (global.char[i] == 2)
            {
                havechar[1] = 1
                charpos[1] = i
            }
            if (global.char[i] == 3)
            {
                havechar[2] = 1
                charpos[2] = i
            }
            if (global.char[i] == 4)
            {
                havechar[3] = 1
                charpos[3] = i
            }
        }
    }
}
()

    if instance_exists(obj_caterpillarchara)

        instance_destroy(obj_caterpillarchara)

    scr_getchar
scr_getchar

function scr_getchar(argument0) //gml_Script_scr_getchar
{
    getchar = 0
    if (global.char[0] == 0)
    {
        global.char[0] = argument0
        getchar = 1
    }
    if (global.char[1] == 0 && getchar == 0)
    {
        global.char[1] = argument0
        getchar = 1
    }
    if (global.char[2] == 0 && getchar == 0)
    {
        global.char[2] = argument0
        getchar = 1
    }
    with (obj_darkcontroller)
    {
        chartotal = 0
        havechar[0] = 0
        havechar[1] = 0
        havechar[2] = 0
        havechar[3] = 0
        for (i = 0; i < 3; i += 1)
        {
            global.faceaction[i] = 0
            if (global.char[i] != 0)
                chartotal += 1
            if (global.char[i] == 1)
            {
                havechar[0] = 1
                charpos[0] = i
            }
            if (global.char[i] == 2)
            {
                havechar[1] = 1
                charpos[1] = i
            }
            if (global.char[i] == 3)
            {
                havechar[2] = 1
                charpos[2] = i
            }
            if (global.char[i] == 4)
            {
                havechar[3] = 1
                charpos[3] = i
            }
        }
    }
}
(2)

    scr_makecaterpillar
scr_makecaterpillar

function scr_makecaterpillar(argument0, argument1, argument2, argument3) //gml_Script_scr_makecaterpillar
{
    global.cinstance[argument3] = instance_create(argument0, argument1, obj_caterpillarchara)
    global.cinstance[argument3].target = 12 + argument3 * 12
    if (argument2 == 3)
    {
        with (global.cinstance[argument3])
        {
            usprite = spr_ralseiu
            dsprite = spr_ralseid
            rsprite = spr_ralseir
            lsprite = spr_ralseil
            if (global.chapter >= 2)
            {
                name = "ralsei"
                usprite = spr_ralsei_walk_up
                dsprite = spr_ralsei_walk_down
                rsprite = spr_ralsei_walk_right
                lsprite = spr_ralsei_walk_left
            }
        }
    }
    if (argument2 == 4)
    {
        with (global.cinstance[argument3])
        {
            name = "noelle"
            usprite = spr_noelle_walk_up_dw
            dsprite = spr_noelle_walk_down_dw
            rsprite = spr_noelle_walk_right_dw
            lsprite = spr_noelle_walk_left_dw
            if (global.chapter == 2 && global.plot == 95)
            {
                dsprite = spr_noelle_walk_down_blush_dw
                rsprite = spr_noelle_walk_right_blush_dw
                lsprite = spr_noelle_walk_left_blush_dw
            }
        }
    }
    if (argument2 == 5)
    {
        with (global.cinstance[argument3])
        {
            name = "berdly"
            usprite = spr_berdly_walk_up_dw
            dsprite = spr_berdly_walk_down_dw
            rsprite = spr_berdly_walk_right_dw
            lsprite = spr_berdly_walk_left_dw
        }
    }
    if (argument2 == 6)
    {
        with (global.cinstance[argument3])
        {
            name = "starwalker"
            usprite = spr_npc_originalstarwalker
            dsprite = spr_npc_originalstarwalker
            rsprite = spr_npc_originalstarwalker
            lsprite = spr_npc_originalstarwalker
        }
    }
    return global.cinstance[argument3];
}
((obj_mainchara.x - 40), obj_mainchara.y, 2, 0)

    if (!scr_keyitemcheck
scr_keyitemcheck

function scr_keyitemcheck(argument0) //gml_Script_scr_keyitemcheck
{
    haveit = 0
    itemcount = 0
    for (i = 0; i < 12; i += 1)
    {
        if (global.keyitem[i] == argument0)
            haveit = 1
        if (global.keyitem[i] == argument0)
            itemcount += 1
    }
    return haveit;
}
(8))

        scr_keyitemget
scr_keyitemget

function scr_keyitemget(argument0) //gml_Script_scr_keyitemget
{
    i = 0
    loop = 1
    noroom = 0
    global.item[12] = 999
    while (loop == 1)
    {
        if (global.keyitem[i] == 0)
        {
            global.keyitem[i] = argument0
            break
        }
        else if (i == 12)
        {
            noroom = 1
            break
        }
        else
        {
            i += 1
            continue
        }
    }
    script_execute(gml_Script_scr_keyiteminfo_all)
}
(8)

    if (!scr_keyitemcheck
scr_keyitemcheck

function scr_keyitemcheck(argument0) //gml_Script_scr_keyitemcheck
{
    haveit = 0
    itemcount = 0
    for (i = 0; i < 12; i += 1)
    {
        if (global.keyitem[i] == argument0)
            haveit = 1
        if (global.keyitem[i] == argument0)
            itemcount += 1
    }
    return haveit;
}
(9))

        scr_keyitemget
scr_keyitemget

function scr_keyitemget(argument0) //gml_Script_scr_keyitemget
{
    i = 0
    loop = 1
    noroom = 0
    global.item[12] = 999
    while (loop == 1)
    {
        if (global.keyitem[i] == 0)
        {
            global.keyitem[i] = argument0
            break
        }
        else if (i == 12)
        {
            noroom = 1
            break
        }
        else
        {
            i += 1
            continue
        }
    }
    script_execute(gml_Script_scr_keyiteminfo_all)
}
(9)

    trashy_release = false

    trashy_leave = false

}

if (global.plot <= 7)

    con = 10