Deltarune (Chapter 4) script viewer

idletimer = 0;

idlefacer = 0;

talkfacer = 0;

talkbuffer = 0;

menu = 0;

submenu = 0;

global.typer = 6;

draw_set_color(c_white);

scr_84_set_draw_font
scr_84_set_draw_font

function 
scr_84_set_draw_font(arg0)
{
    global.chemg_font = arg0;
    draw_set_font(
scr_84_get_font(arg0));
}
("mainbig");

talktimer = 0;

cur_jewel = 0;

shopcharx = 0;

siner = 0;

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

{

    menuc[i] = 0;

    submenuc[i] = 0;

}

onebuffer = 0;

twobuffer = 0;

upbuffer = 0;

downbuffer = 0;

hold_up = 0;

hold_down = 0;

_up_pressed = 0;

_down_pressed = 0;

murder = 0;

moff = 415;

global.currentsong[0] = snd_init("shop1.ogg");

global.currentsong[1] = mus_loop_ext(global.currentsong[0], 1, 0.95);

menu = 0;

menuc[0] = 0;

menuc[1] = 0;

menuc[2] = 0;

menuc[3] = 0;

menuc[4] = 0;

item0pic = spr_heart;

item1pic = spr_heart;

item2pic = spr_heart;

item3pic = spr_heart;

itemtotal = 4;

item[0] = 1;

item[1] = 8;

item[2] = 1;

item[3] = 5;

item[4] = 0;

item[5] = 0;

item[6] = 0;

itemtype[0] = "item";

itemtype[1] = "item";

itemtype[2] = "armor";

itemtype[3] = "weapon";

itemtype[4] = "item";

itemtype[5] = "item";

itemtype[6] = "item";

shopdesc[0] = stringsetloc(
ITEM#Star-shape#candy that#heals 120HP
"ITEM#Star-shape#candy that#heals 120HP", "obj_shop1_slash_Create_0_gml_65_0"
);

shopdesc[1] = stringsetloc(
ITEM#Mysterious#hamburger#heals 70HP
"ITEM#Mysterious#hamburger#heals 70HP", "obj_shop1_slash_Create_0_gml_75_0"
);

shopdesc[2] = stringsetloc(
ARMOR#Defensive#charm
"ARMOR#Defensive#charm", "obj_shop1_slash_Create_0_gml_76_0"
);

shopdesc[3] = stringsetloc(
WEAPON#Black-and#orange
"WEAPON#Black-and#orange", "obj_shop1_slash_Create_0_gml_77_0"
);

if (global.chapter >= 2)

{

    if (scr_get_total_recruits(2) >= 9)

    {

        item[0] = 16;

        shopdesc[0] = stringsetloc(
ITEM#Music with#each bite#heals 80HP
"ITEM#Music with#each bite#heals 80HP", "obj_shop1_slash_Create_0_gml_87_0"
);

    }

}

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

{

    itematk[i] = 0;

    itemdef[i] = 0;

    itemmagic[i] = 0;

    canequip[i][1] = 0;

    canequip[i][2] = 0;

    canequip[i][3] = 0;

    if (itemtype[i] == "item")

    {

        
scr_iteminfo
scr_iteminfo

function 
scr_iteminfo(arg0)
{
    usable = 0;
    replaceable = 0;
    value = 0;
    itemtarget = 0;
    itemnameb = " ";
    itemdescb = " ";
    switch (arg0)
    {
        case 0:
            itemnameb = " ";
            itemdescb = "---";
            break;
        case 1:
            itemnameb = stringsetloc(
Darker Candy
"Darker Candy", "scr_iteminfo_slash_scr_iteminfo_gml_16_0_b"
);
            itemdescb = stringsetloc(
Heals#120HP
"Heals#120HP", "scr_iteminfo_slash_scr_iteminfo_gml_17_0"
);
            itemtarget = 1;
            value = 120;
            usable = 1;
            break;
        case 2:
            itemnameb = stringsetloc(
ReviveMint
"ReviveMint", "scr_iteminfo_slash_scr_iteminfo_gml_22_0"
);
            itemdescb = stringsetloc(
Heal#Downed#Ally
"Heal#Downed#Ally", "scr_iteminfo_slash_scr_iteminfo_gml_23_0"
);
            itemtarget = 1;
            value = 400;
            usable = 1;
            break;
        case 3:
            itemnameb = stringsetloc(
Glowshard
"Glowshard", "scr_iteminfo_slash_scr_iteminfo_gml_29_0"
);
            itemdescb = stringsetloc(
Sell#at#shops
"Sell#at#shops", "scr_iteminfo_slash_scr_iteminfo_gml_30_0"
);
            itemtarget = 0;
            value = 200 + (global.chapter * 100);
            usable = 0;
            break;
        case 4:
            itemnameb = stringsetloc(
Manual
"Manual", "scr_iteminfo_slash_scr_iteminfo_gml_36_0"
);
            itemdescb = stringsetloc(
Read#out of#battle
"Read#out of#battle", "scr_iteminfo_slash_scr_iteminfo_gml_37_0"
);
            itemtarget = 2;
            value = 1;
            usable = 0;
            break;
        case 5:
            itemnameb = stringsetloc(
BrokenCake
"BrokenCake", "scr_iteminfo_slash_scr_iteminfo_gml_43_0"
);
            itemdescb = stringsetloc(
Heals#20HP
"Heals#20HP", "scr_iteminfo_slash_scr_iteminfo_gml_44_0"
);
            itemtarget = 1;
            value = 5;
            usable = 1;
            break;
        case 6:
            itemnameb = stringsetloc(
Top Cake
"Top Cake", "scr_iteminfo_slash_scr_iteminfo_gml_50_0"
);
            itemdescb = stringsetloc(
Heals#team#160HP
"Heals#team#160HP", "scr_iteminfo_slash_scr_iteminfo_gml_51_0"
);
            itemtarget = 2;
            value = 150;
            usable = 1;
            break;
        case 7:
            var healamount = (global.chapter == 1) ? 80 : 140;
            if (global.chapter == 3)
                healamount = 150;
            if (global.chapter >= 4)
                healamount = 160;
            itemnameb = stringsetloc(
Spincake
"Spincake", "scr_iteminfo_slash_scr_iteminfo_gml_58_0"
);
            itemdescb = stringsetsubloc("Heals#team#~1HP", string(healamount), "scr_iteminfo_slash_scr_iteminfo_gml_59_0");
            itemtarget = 2;
            value = 5;
            usable = 1;
            break;
        case 8:
            itemnameb = stringsetloc(
Darkburger
"Darkburger", "scr_iteminfo_slash_scr_iteminfo_gml_65_0"
);
            itemdescb = stringsetloc(
Heals#70HP
"Heals#70HP", "scr_iteminfo_slash_scr_iteminfo_gml_66_0"
);
            itemtarget = 1;
            value = 70;
            usable = 1;
            break;
        case 9:
            itemnameb = stringsetloc(
LancerCookie
"LancerCookie", "scr_iteminfo_slash_scr_iteminfo_gml_72_0"
);
            itemdescb = stringsetloc(
Heals#50HP
"Heals#50HP", "scr_iteminfo_slash_scr_iteminfo_gml_73_0"
);
            itemtarget = 1;
            value = 10;
            usable = 1;
            break;
        case 10:
            itemnameb = stringsetloc(
GigaSalad
"GigaSalad", "scr_iteminfo_slash_scr_iteminfo_gml_79_0"
);
            itemdescb = stringsetloc(
Heals#4HP
"Heals#4HP", "scr_iteminfo_slash_scr_iteminfo_gml_80_0"
);
            itemtarget = 1;
            value = 10;
            usable = 1;
            break;
        case 11:
            itemnameb = stringsetloc(
ClubsSandwich
"ClubsSandwich", "scr_iteminfo_slash_scr_iteminfo_gml_86_0"
);
            itemdescb = stringsetloc(
Heals#team#70HP
"Heals#team#70HP", "scr_iteminfo_slash_scr_iteminfo_gml_87_0"
);
            itemtarget = 2;
            value = 70;
            usable = 1;
            break;
        case 12:
            itemnameb = stringsetloc(
HeartsDonut
"HeartsDonut", "scr_iteminfo_slash_scr_iteminfo_gml_93_0"
);
            itemdescb = stringsetloc(
Healing#varies
"Healing#varies", "scr_iteminfo_slash_scr_iteminfo_gml_94_0"
);
            itemtarget = 1;
            value = 40;
...
(item[i]);

        shopitemname[i] = itemnameb;

        buyvalue[i] = value;

    }

    if (itemtype[i] == "armor")

    {

        
scr_armorinfo
scr_armorinfo

function 
scr_armorinfo(arg0)
{
    armorchar4temp = 1;
    armornametemp = stringsetloc(
 
" ", "scr_armorinfo_slash_scr_armorinfo_gml_2_0"
);
    armorelementtemp = 0;
    armorelementamounttemp = 0;
    switch (arg0)
    {
        case 0:
            armornametemp = stringsetloc(
 
" ", "scr_armorinfo_slash_scr_armorinfo_gml_7_0"
);
            armordesctemp = stringsetloc(
 
" ", "scr_armorinfo_slash_scr_armorinfo_gml_8_0_b"
);
            amessage2temp = stringsetloc(
Hey, hands off!
"Hey, hands off!", "scr_armorinfo_slash_scr_armorinfo_gml_8_0"
);
            amessage3temp = stringsetloc(
 
" ", "scr_armorinfo_slash_scr_armorinfo_gml_10_0"
);
            amessage4temp = stringsetloc(
 
" ", "scr_armorinfo_slash_scr_armorinfo_gml_11_0"
);
            armorattemp = 0;
            armordftemp = 0;
            armormagtemp = 0;
            armorboltstemp = 0;
            armorgrazeamttemp = 0;
            armorgrazesizetemp = 0;
            armorchar1temp = 1;
            armorchar2temp = 0;
            armorchar3temp = 1;
            armorchar4temp = 1;
            armorabilitytemp = stringsetloc(
 
" ", "scr_armorinfo_slash_scr_armorinfo_gml_22_0"
);
            armorabilityicontemp = 0;
            armoricontemp = 0;
            value = 0;
            break;
        case 1:
            armornametemp = stringsetloc(
Amber Card
"Amber Card", "scr_armorinfo_slash_scr_armorinfo_gml_28_0"
);
            armordesctemp = stringsetloc(
A thin square charm that sticks#to you, increasing defense.
"A thin square charm that sticks#to you, increasing defense.", "scr_armorinfo_slash_scr_armorinfo_gml_29_0"
);
            amessage2temp = stringsetloc(
... better than nothing.
"... better than nothing.", "scr_armorinfo_slash_scr_armorinfo_gml_30_0"
);
            amessage3temp = stringsetloc(
It's sticky, huh, Kris...
"It's sticky, huh, Kris...", "scr_armorinfo_slash_scr_armorinfo_gml_31_0"
);
            amessage4temp = stringsetloc(
It's like a name-tag!
"It's like a name-tag!", "scr_armorinfo_slash_scr_armorinfo_gml_33_0"
);
            armorattemp = 0;
            armordftemp = 1;
            armormagtemp = 0;
            armorboltstemp = 0;
            armorgrazeamttemp = 0;
            armorgrazesizetemp = 0;
            armorchar1temp = 1;
            armorchar2temp = 1;
            armorchar3temp = 1;
            armorabilitytemp = stringsetloc(
 
" ", "scr_armorinfo_slash_scr_armorinfo_gml_43_0"
);
            armorabilityicontemp = 0;
            armoricontemp = 4;
            value = 100;
            break;
        case 2:
            armornametemp = stringsetloc(
Dice Brace
"Dice Brace", "scr_armorinfo_slash_scr_armorinfo_gml_49_0"
);
            armordesctemp = stringsetloc(
A bracelet made out of various#symbol-inscribed cubes.
"A bracelet made out of various#symbol-inscribed cubes.", "scr_armorinfo_slash_scr_armorinfo_gml_50_0"
);
            amessage2temp = stringsetloc(
... okay.
"... okay.", "scr_armorinfo_slash_scr_armorinfo_gml_51_0"
);
            amessage3temp = stringsetloc(
It says "Friendship!"
"It says \"Friendship!\"", "scr_armorinfo_slash_scr_armorinfo_gml_52_0"
);
            amessage4temp = stringsetloc(
Hey, y-you jumbled it...
"Hey, y-you jumbled it...", "scr_armorinfo_slash_scr_armorinfo_gml_54_0"
);
            armorattemp = 0;
            armordftemp = 2;
            armormagtemp = 0;
            armorboltstemp = 0;
            armorgrazeamttemp = 0;
            armorgrazesizetemp = 0;
            armorchar1temp = 1;
            armorchar2temp = 1;
            armorchar3temp = 1;
            armorabilitytemp = stringsetloc(
 
" ", "scr_armorinfo_slash_scr_armorinfo_gml_64_0"
);
            armorabilityicontemp = 0;
            armoricontemp = 4;
            value = 150;
            break;
        case 3:
            armornametemp = stringsetloc(
Pink Ribbon
"Pink Ribbon", "scr_armorinfo_slash_scr_armorinfo_gml_70_0"
);
            armordesctemp = stringsetloc(
A cute hair ribbon that increases#the range bullets increase tension.
"A cute hair ribbon that increases#the range bullets increase tension.", "scr_armorinfo_slash_scr_armorinfo_gml_71_0"
);
            amessage2temp = stringsetloc(
Nope. Not in 1st grade anymore.
"Nope. Not in 1st grade anymore.", "scr_armorinfo_slash_scr_armorinfo_gml_72_0"
);
            amessage3temp = stringsetloc(
Um... D-do I look cute...?
"Um... D-do I look cute...?", "scr_armorinfo_slash_scr_armorinfo_gml_73_0"
);
            amessage4temp = stringsetloc(
... feels familiar.
"... feels familiar.", "scr_armorinfo_slash_scr_armorinfo_gml_75_0"
);
            if (global.chapter == 2)
            {
                amessage2temp = stringsetloc(
I said NO! C'mon already!
"I said NO! C'mon already!", "scr_armorinfo_slash_scr_armorinfo_gml_78_0"
);
                amessage3temp = stringsetloc(
It's nice dressing up...
"It's nice dressing up...", "scr_armorinfo_slash_scr_armorinfo_gml_79_0"
);
            }
            armorattemp = 0;
            armordftemp = 1;
            armormagtemp = 0;
            armorboltstemp = 0;
            armorgrazeamttemp = 0;
            armorgrazesizetemp = 20;
            armorchar1temp = 1;
            armorchar2temp = 0;
            armorchar3temp = 1;
            armorchar4temp = 1;
            armorabilitytemp = stringsetloc(
GrazeArea
"GrazeArea", "scr_armorinfo_slash_scr_armorinfo_gml_91_0"
);
            armorabilityicontemp = 7;
            armoricontemp = 4;
            value = 100;
            break;
        case 4:
            armornametemp = stringsetloc(
White Ribbon
"White Ribbon", "scr_armorinfo_slash_scr_armorinfo_gml_98_0"
);
            armordesctemp = stringsetloc(
A crinkly hair ribbon that slightly#increases your defense.
"A crinkly hair ribbon that slightly#increases your defense.", "scr_armorinfo_slash_scr_armorinfo_gml_99_0"
);
            amessage2temp = stringsetloc(
Nope. Not in 1st grade anymore.
"Nope. Not in 1st grade anymore.", "scr_armorinfo_slash_scr_armorinfo_gml_100_0"
);
            amessage3temp = stringsetloc(
Um... D-do I look cute...?
"Um... D-do I look cute...?", "scr_armorinfo_slash_scr_armorinfo_gml_101_0"
);
            if (global.chapter == 2)
...
(item[i]);

        shopitemname[i] = armornametemp;

        buyvalue[i] = value;

        itemdef[i] = armordftemp;

        canequip[i][1] = armorchar1temp;

        canequip[i][2] = armorchar2temp;

        canequip[i][3] = armorchar3temp;

    }

    if (itemtype[i] == "weapon")

    {

        
scr_weaponinfo
scr_weaponinfo

function 
scr_weaponinfo(arg0)
{
    weaponchar4temp = 0;
    weaponnametemp = stringsetloc(
 
" ", "scr_weaponinfo_slash_scr_weaponinfo_gml_2_0"
);
    switch (arg0)
    {
        case 0:
            weaponnametemp = stringsetloc(
 
" ", "scr_weaponinfo_slash_scr_weaponinfo_gml_11_0"
);
            weapondesctemp = stringsetloc(
 
" ", "scr_weaponinfo_slash_scr_weaponinfo_gml_12_0"
);
            wmessage2temp = stringsetloc(
 
" ", "scr_weaponinfo_slash_scr_weaponinfo_gml_13_0"
);
            wmessage3temp = stringsetloc(
 
" ", "scr_weaponinfo_slash_scr_weaponinfo_gml_14_0"
);
            wmessage4temp = stringsetloc(
 
" ", "scr_weaponinfo_slash_scr_weaponinfo_gml_15_0"
);
            weaponattemp = 0;
            weapondftemp = 0;
            weaponmagtemp = 0;
            weaponboltstemp = 0;
            weaponstyletemp = " ";
            weapongrazeamttemp = 0;
            weapongrazesizetemp = 0;
            weaponchar1temp = 0;
            weaponchar2temp = 0;
            weaponchar3temp = 0;
            weaponchar4temp = 0;
            weaponabilitytemp = " ";
            weaponabilityicontemp = 0;
            weaponicontemp = 0;
            value = 0;
            break;
        case 1:
            weaponnametemp = stringsetloc(
Wood Blade
"Wood Blade", "scr_weaponinfo_slash_scr_weaponinfo_gml_33_0"
);
            weapondesctemp = stringsetloc(
A wooden practice blade with a carbon-#reinforced core.
"A wooden practice blade with a carbon-#reinforced core.", "scr_weaponinfo_slash_scr_weaponinfo_gml_34_0"
);
            wmessage2temp = stringsetloc(
What's this!? A CHOPSTICK?
"What's this!? A CHOPSTICK?", "scr_weaponinfo_slash_scr_weaponinfo_gml_35_0"
);
            if (global.plot < 30 && global.chapter == 1)
                wmessage2tempt = stringsetloc(
... You have a SWORD!?
"... You have a SWORD!?", "scr_weaponinfo_slash_scr_weaponinfo_gml_39_0"
);
            wmessage3temp = stringsetloc(
That's yours, Kris...
"That's yours, Kris...", "scr_weaponinfo_slash_scr_weaponinfo_gml_40_0"
);
            wmessage4temp = stringsetloc(
(It has bite marks...)
"(It has bite marks...)", "scr_weaponinfo_slash_scr_weaponinfo_gml_42_0"
);
            weaponattemp = 0;
            weapondftemp = 0;
            weaponmagtemp = 0;
            weaponboltstemp = 1;
            weaponstyletemp = "?";
            weapongrazeamttemp = 0;
            weapongrazesizetemp = 0;
            weaponchar1temp = 1;
            weaponchar2temp = 0;
            weaponchar3temp = 0;
            weaponicontemp = 1;
            weaponabilityicontemp = 0;
            weaponabilitytemp = " ";
            value = 60;
            break;
        case 2:
            weaponnametemp = stringsetloc(
Mane Ax
"Mane Ax", "scr_weaponinfo_slash_scr_weaponinfo_gml_59_0"
);
            weapondesctemp = stringsetloc(
Beginner's ax forged from the#mane of a dragon whelp.
"Beginner's ax forged from the#mane of a dragon whelp.", "scr_weaponinfo_slash_scr_weaponinfo_gml_60_0"
);
            wmessage2temp = stringsetloc(
I'm too GOOD for that.
"I'm too GOOD for that.", "scr_weaponinfo_slash_scr_weaponinfo_gml_61_0"
);
            wmessage3temp = stringsetloc(
Ummm... it's a bit big.
"Ummm... it's a bit big.", "scr_weaponinfo_slash_scr_weaponinfo_gml_62_0"
);
            wmessage4temp = stringsetloc(
It... smells nice...
"It... smells nice...", "scr_weaponinfo_slash_scr_weaponinfo_gml_64_0"
);
            weaponattemp = 0;
            weapondftemp = 0;
            weaponmagtemp = 0;
            weaponboltstemp = 1;
            weaponstyletemp = "?";
            weapongrazeamttemp = 0;
            weapongrazesizetemp = 0;
            weaponchar1temp = 0;
            weaponchar2temp = 0;
            weaponchar3temp = 0;
            weaponicontemp = 2;
            weaponabilityicontemp = 0;
            weaponabilitytemp = " ";
            value = 80;
            break;
        case 3:
            weaponnametemp = stringsetloc(
Red Scarf
"Red Scarf", "scr_weaponinfo_slash_scr_weaponinfo_gml_81_0"
);
            weapondesctemp = stringsetloc(
A basic scarf made of lightly#magical fiber.
"A basic scarf made of lightly#magical fiber.", "scr_weaponinfo_slash_scr_weaponinfo_gml_82_0"
);
            wmessage2temp = stringsetloc(
No. Just... no.
"No. Just... no.", "scr_weaponinfo_slash_scr_weaponinfo_gml_83_0"
);
            wmessage3temp = stringsetloc(
Comfy! Touch it, Kris!
"Comfy! Touch it, Kris!", "scr_weaponinfo_slash_scr_weaponinfo_gml_84_0"
);
            wmessage4temp = stringsetloc(
Huh? No, I'm not cold.
"Huh? No, I'm not cold.", "scr_weaponinfo_slash_scr_weaponinfo_gml_86_0"
);
            weaponattemp = 0;
            weapondftemp = 0;
            weaponmagtemp = 0;
            weaponboltstemp = 1;
            weaponstyletemp = "?";
            weapongrazeamttemp = 0;
            weapongrazesizetemp = 0;
            weaponchar1temp = 0;
            weaponchar2temp = 0;
            weaponchar3temp = 1;
            weaponicontemp = 3;
            weaponabilityicontemp = 0;
            weaponabilitytemp = " ";
            value = 100;
            break;
        case 4:
            weaponnametemp = stringsetloc(
EverybodyWeapon
"EverybodyWeapon", "scr_weaponinfo_slash_scr_weaponinfo_gml_105_0"
);
            weapondesctemp = stringsetloc(
It felt right for everyone.
"It felt right for everyone.", "scr_weaponinfo_slash_scr_weaponinfo_gml_106_0"
);
            wmessage2temp = stringsetloc(
Uhhh... Ok.
"Uhhh... Ok.", "scr_weaponinfo_slash_scr_weaponinfo_gml_107_0"
);
            wmessage3temp = stringsetloc(
A perfect fit!
"A perfect fit!", "scr_weaponinfo_slash_scr_weaponinfo_gml_108_0"
);
            wmessage4temp = stringsetloc(
Wh... what is this?
"Wh... what is this?", "scr_weaponinfo_slash_scr_weaponinfo_gml_109_0"
);
            weaponattemp = 12;
            weapondftemp = 6;
...
(item[i]);

        itematk[i] = weaponattemp;

        itemmagic[i] = weaponmagtemp;

        shopitemname[i] = weaponnametemp;

        canequip[i][1] = weaponchar1temp;

        canequip[i][2] = weaponchar2temp;

        canequip[i][3] = weaponchar3temp;

        buyvalue[i] = value;

    }

}

buyvalue[0] = 240;

if (global.chapter >= 2)

{

    if (scr_get_total_recruits(2) >= 9)

        buyvalue[0] = 100;

}

sell = 0;

bought = 0;

mainmessage = 0;

minimenuy = 220;

global.typer = 23;

scr_84_set_draw_font
scr_84_set_draw_font

function 
scr_84_set_draw_font(arg0)
{
    global.chemg_font = arg0;
    draw_set_font(
scr_84_get_font(arg0));
}
("mainbig");

sidemessage = 0;

selling = 0;

global.msc = 0;

glow = 0;

shx = 130;

soldo = 0;

global.faceemotion = 0;

an = 0;

talk_counter = 0;

nothingcount = 0;

selltype = "item";

selltotal = max(global.flag[64 storage_size], 12);

for (i = 0; i < selltotal; i++)

{

    itemsellvalue[i] = 0;

    itemsellname[i] = "";

}

took_crystal = false;