Deltarune (Chapter 4) script viewer

depth = 5000;

gerson_mode = global.plot < 242;

event_active = false;

event_con = 0;

is_interacting = false;

is_talking = false;

menu_type = 1;

menu_display_type = 0;

menu_talk_flag = "";

menu_talk_style = 0;

menu_talk_con = 0;

menu_dollar = 1;

default_text = "";

menu_list = [];

item_list = [];

sidemessage_list = [stringsetloc(
Shall we
choose
something?
"Shall we&choose&something?", "obj_gerson_table_slash_Create_0_gml_30_0"
), stringsetloc(
Umm, and
here's
change!
"Umm, and&here's&change!", "obj_gerson_table_slash_Create_0_gml_31_0"
), stringsetloc(
Sorry,
Kris! No
money...
"Sorry,&Kris! No&money...", "obj_gerson_table_slash_Create_0_gml_32_0"
), stringsetloc(
No room...
Let's SELL
upstairs!
"No room...&Let's SELL&upstairs!", "obj_gerson_table_slash_Create_0_gml_33_0"
), stringsetloc(
Whee!
Into our
STORAGE!
"Whee!&Into our&STORAGE!", "obj_gerson_table_slash_Create_0_gml_34_0"
)];

if (gerson_mode)

    sidemessage_list = [stringsetloc(
What are
ya lookin
for?
"What are&ya lookin&for?", "obj_gerson_table_slash_Create_0_gml_40_0"
), stringsetloc(
Thanks!
Wa ha ha.
"Thanks!&Wa ha ha.", "obj_gerson_table_slash_Create_0_gml_41_0"
), stringsetloc(
You're a
bit short
on cash.
"You're a&bit short&on cash.", "obj_gerson_table_slash_Create_0_gml_42_0"
), stringsetloc(
You're
carrying
too much!
"You're&carrying&too much!", "obj_gerson_table_slash_Create_0_gml_43_0"
), stringsetloc(
Sent to
your
STORAGE!
"Sent to&your&STORAGE!", "obj_gerson_table_slash_Create_0_gml_44_0"
)];

event_user(1);

for (var i = 0; i < 10; i++)

{

    item[i] = 0;

    itemtype[i] = "item";

    shopdesc[i] = "";

}

for (var i = 0; i < array_length(item_list); i++)

{

    var current_item = item_list[i];

    item[i] = current_item.item_id;

    itemtype[i] = current_item.item_type;

    shopdesc[i] = current_item.item_desc;

    buyvalue[i] = current_item.point_value;

    itematk[i] = 0;

    itemdef[i] = 0;

    itemmagic[i] = 0;

    canequip[i][1] = 0;

    canequip[i][2] = 0;

    canequip[i][3] = 0;

    dollar_value[i] = -1;

    if (current_item.item_type == "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;

        dollar_value[i] = value;

    }

    if (current_item.item_type == "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;

        itemdef[i] = armordftemp;

        canequip[i][1] = armorchar1temp;

        canequip[i][2] = armorchar2temp;

        canequip[i][3] = armorchar3temp;

        dollar_value[i] = value;

    }

    if (current_item.item_type == "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;

        dollar_value[i] = value;

    }

    if (current_item.item_type == "key")

    {

        
scr_keyiteminfo
scr_keyiteminfo

function 
scr_keyiteminfo(arg0)
{
    tempkeyitemdesc = stringsetloc(
---
"---", "scr_keyiteminfo_slash_scr_keyiteminfo_gml_2_0"
);
    tempkeyitemname = stringsetloc(
 
" ", "scr_keyiteminfo_slash_scr_keyiteminfo_gml_3_0"
);
    tempkeyitemusable = 0;
    switch (arg0)
    {
        case 0:
            tempkeyitemdesc = stringsetloc(
---
"---", "scr_keyiteminfo_slash_scr_keyiteminfo_gml_9_0"
);
            tempkeyitemname = stringsetloc(
 
" ", "scr_keyiteminfo_slash_scr_keyiteminfo_gml_10_0"
);
            break;
        case 1:
            tempkeyitemdesc = stringsetloc(
It can be used to make calls.
"It can be used to make calls.", "scr_keyiteminfo_slash_scr_keyiteminfo_gml_13_0"
);
            tempkeyitemname = stringsetloc(
Cell Phone
"Cell Phone", "scr_keyiteminfo_slash_scr_keyiteminfo_gml_14_0"
);
            tempkeyitemusable = 1;
            break;
        case 2:
            tempkeyitemdesc = stringsetloc(
Not too important, not too unimportant.
"Not too important, not too unimportant.", "scr_keyiteminfo_slash_scr_keyiteminfo_gml_18_0"
);
            tempkeyitemname = stringsetloc(
Egg
"Egg", "scr_keyiteminfo_slash_scr_keyiteminfo_gml_19_0"
);
            tempkeyitemusable = 1;
            break;
        case 3:
            tempkeyitemdesc = stringsetloc(
Though broken, it seethes with power.#A master smith could fix it.
"Though broken, it seethes with power.#A master smith could fix it.", "scr_keyiteminfo_slash_scr_keyiteminfo_gml_23_0"
);
            tempkeyitemname = stringsetloc(
BrokenCake
"BrokenCake", "scr_keyiteminfo_slash_scr_keyiteminfo_gml_24_0"
);
            break;
        case 4:
            tempkeyitemdesc = stringsetloc(
It's the top part of a key.#A smith could fix all three parts.
"It's the top part of a key.#A smith could fix all three parts.", "scr_keyiteminfo_slash_scr_keyiteminfo_gml_27_0"
);
            tempkeyitemname = stringsetloc(
Broken Key A
"Broken Key A", "scr_keyiteminfo_slash_scr_keyiteminfo_gml_28_0"
);
            break;
        case 5:
            tempkeyitemdesc = stringsetloc(
The key to a mysterious cell.#Something feels strange about it.
"The key to a mysterious cell.#Something feels strange about it.", "scr_keyiteminfo_slash_scr_keyiteminfo_gml_31_0"
);
            tempkeyitemname = stringsetloc(
Door Key
"Door Key", "scr_keyiteminfo_slash_scr_keyiteminfo_gml_32_0"
);
            break;
        case 6:
            tempkeyitemdesc = stringsetloc(
It's the middle part of a key.#A smith could fix all three parts.
"It's the middle part of a key.#A smith could fix all three parts.", "scr_keyiteminfo_slash_scr_keyiteminfo_gml_35_0"
);
            tempkeyitemname = stringsetloc(
Broken Key B
"Broken Key B", "scr_keyiteminfo_slash_scr_keyiteminfo_gml_36_0"
);
            break;
        case 7:
            tempkeyitemdesc = stringsetloc(
It's the bottom part of a key.#A smith could fix all three parts.
"It's the bottom part of a key.#A smith could fix all three parts.", "scr_keyiteminfo_slash_scr_keyiteminfo_gml_39_0"
);
            tempkeyitemname = stringsetloc(
Broken Key C
"Broken Key C", "scr_keyiteminfo_slash_scr_keyiteminfo_gml_40_0"
);
            break;
        case 8:
            tempkeyitemdesc = stringsetloc(
Hohoho! I'm a tough boy!#Treat me like one of your ITEMS!
"Hohoho! I'm a tough boy!#Treat me like one of your ITEMS!", "scr_keyiteminfo_slash_scr_keyiteminfo_gml_43_0"
);
            if (global.plot >= 20)
                tempkeyitemdesc = stringsetloc(
Hohoho! ROUXLS jumped out of your#pocket! How dadcrobatic! (Lesser)
"Hohoho! ROUXLS jumped out of your#pocket! How dadcrobatic! (Lesser)", "scr_keyiteminfo_slash_scr_keyiteminfo_gml_46_0"
);
            if (global.plot >= 55)
                tempkeyitemdesc = stringsetloc(
Hohoho! That game looked fun!#Let me be the stool next!
"Hohoho! That game looked fun!#Let me be the stool next!", "scr_keyiteminfo_slash_scr_keyiteminfo_gml_50_0"
);
            if (global.plot >= 60)
                tempkeyitemdesc = stringsetloc(
Sounded like milk out there. Splat!#Were you three osmosing without me!?
"Sounded like milk out there. Splat!#Were you three osmosing without me!?", "scr_keyiteminfo_slash_scr_keyiteminfo_gml_54_0"
);
            if (global.plot >= 65)
                tempkeyitemdesc = stringsetloc(
We fell! But don't worry. I'm a strong boy.#I won't be trounced by a mere bounce!
"We fell! But don't worry. I'm a strong boy.#I won't be trounced by a mere bounce!", "scr_keyiteminfo_slash_scr_keyiteminfo_gml_58_0"
);
            if (global.plot >= 66)
                tempkeyitemdesc = stringsetloc(
Split up? We'll solve this mystery fast!#You? You can be the un-talking dog.
"Split up? We'll solve this mystery fast!#You? You can be the un-talking dog.", "scr_keyiteminfo_slash_scr_keyiteminfo_gml_62_0"
);
            if (global.plot >= 70)
                tempkeyitemdesc = stringsetloc(
Ho-ho! A soft cream is following you!#Can we make them a bad guy?
"Ho-ho! A soft cream is following you!#Can we make them a bad guy?", "scr_keyiteminfo_slash_scr_keyiteminfo_gml_66_0"
);
            if (global.plot >= 75)
            {
                tempkeyitemdesc = stringsetloc(
That golden statue... Could it be...#The illusory nipple technique!?
"That golden statue... Could it be...#The illusory nipple technique!?", "scr_keyiteminfo_slash_scr_keyiteminfo_gml_70_0_b"
);
                if (global.flag[418 got_shoe] == 1)
                    tempkeyitemdesc = stringsetloc(
Wow! Thanks for the free sample!#I couldn't eat another bite!!
"Wow! Thanks for the free sample!#I couldn't eat another bite!!", "scr_keyiteminfo_slash_scr_keyiteminfo_gml_74_0"
);
            }
            if (global.plot >= 79)
                tempkeyitemdesc = stringsetloc(
The bluebird of crappiness.#Fly high, bluebird. Fly high.
"The bluebird of crappiness.#Fly high, bluebird. Fly high.", "scr_keyiteminfo_slash_scr_keyiteminfo_gml_79_0"
);
            if (global.plot >= 85)
                tempkeyitemdesc = stringsetloc(
Did I miss something? I was doing my#calisthetics. Stay handsome.
"Did I miss something? I was doing my#calisthetics. Stay handsome.", "scr_keyiteminfo_slash_scr_keyiteminfo_gml_83_0"
);
            if (global.plot >= 90)
                tempkeyitemdesc = stringsetloc(
Hey! Thanks for the tape! I was hungry!#Push my tummy to hear a cool song!
"Hey! Thanks for the tape! I was hungry!#Push my tummy to hear a cool song!", "scr_keyiteminfo_slash_scr_keyiteminfo_gml_87_0"
);
            if (global.plot >= 99)
                tempkeyitemdesc = stringsetloc(
Hoho! It's me, Lancer! Release me and#I will release you!
"Hoho! It's me, Lancer! Release me and#I will release you!", "scr_keyiteminfo_slash_scr_keyiteminfo_gml_91_0"
);
            if (
scr_sideb_get_phase() >= 1 && global.flag[915 snowgrave_plot] >= 1.5)
            {
                tempkeyitemdesc = stringsetloc(
(Innocent boys are fast asleep.)
"(Innocent boys are fast asleep.)", "scr_keyiteminfo_slash_scr_keyiteminfo_gml_95_0"
);
                if (
scr_sideb_get_phase() >= 3)
                    tempkeyitemdesc = stringsetloc(
A stone statue.#Strangely, it looks like Lancer...
"A stone statue.#Strangely, it looks like Lancer...", "scr_keyiteminfo_slash_scr_keyiteminfo_gml_99_0"
);
            }
            if (global.plot >= 200)
            {
                tempkeyitemdesc = stringsetloc(
Hoho! What a terrific boy's adventure.#Time to kick off my feet and relax...
"Hoho! What a terrific boy's adventure.#Time to kick off my feet and relax...", "scr_keyiteminfo_slash_scr_keyiteminfo_gml_105_0"
);
                if (room == room_dw_castle_restaurant)
                    tempkeyitemdesc = stringsetloc(
Oo la la! Who is that handsome#mustachioed boy! I think I'm in love!
"Oo la la! Who is that handsome#mustachioed boy! I think I'm in love!", "scr_keyiteminfo_slash_scr_keyiteminfo_gml_109_0"
);
                if (room == room_cc_lancer || room == room_dw_ralsei_castle_2f)
                    tempkeyitemdesc = stringsetloc(
(huff, puff) There, I got back into your#pocket! Now you can use my power!
"(huff, puff) There, I got back into your#pocket! Now you can use my power!", "scr_keyiteminfo_slash_scr_keyiteminfo_gml_114_0"
);
            }
            tempkeyitemname = stringsetloc(
Lancer
"Lancer", "scr_keyiteminfo_slash_scr_keyiteminfo_gml_48_0"
);
            tempkeyitemusable = 1;
            break;
        case 9:
            tempkeyitemdesc = stringsetloc(
Thou gazeth upon a man most handsometh.#This daringst genius, adoredeth beyondth all hey let me speakst
"Thou gazeth upon a man most handsometh.#This daringst genius, adoredeth beyondth all hey let me speakst", "scr_keyiteminfo_slash_scr_keyiteminfo_gml_52_0"
);
            tempkeyitemname = stringsetloc(
Rouxls Kaard
"Rouxls Kaard", "scr_keyiteminfo_slash_scr_keyiteminfo_gml_53_0"
);
            if (global.plot >= 200)
                tempkeyitemdesc = stringsetloc(
Oh, milord! Tis I, your humblest servante,#righte here where I never lefteth!
"Oh, milord! Tis I, your humblest servante,#righte here where I never lefteth!", "scr_keyiteminfo_slash_scr_keyiteminfo_gml_126_0"
);
            break;
        case 10:
            tempkeyitemdesc = stringsetloc(
A data disk from a strange machine.#Didn't someone want this?
"A data disk from a strange machine.#Didn't someone want this?", "scr_keyiteminfo_slash_scr_keyiteminfo_gml_56_0"
);
            tempkeyitemname = stringsetloc(
EmptyDisk
"EmptyDisk", "scr_keyiteminfo_slash_scr_keyiteminfo_gml_57_0"
);
            break;
        case 11:
            tempkeyitemdesc = stringsetloc(
A strange disk. You can feel it#smiling in your hand.
"A strange disk. You can feel it#smiling in your hand.", "scr_keyiteminfo_slash_scr_keyiteminfo_gml_60_0"
);
            tempkeyitemname = stringsetloc(
LoadedDisk
"LoadedDisk", "scr_keyiteminfo_slash_scr_keyiteminfo_gml_61_0"
);
            break;
        case 12:
...
(item[i]);

        shopitemname[i] = tempkeyitemname;

    }

    if (current_item.item_type == "event")

    {

        shopitemname[i] = current_item.item_id;

        price_label[i] = current_item.price_label;

        sold_flag[i] = current_item.sold_flag;

    }

    if (menu_dollar)

        buyvalue[i] = dollar_value[i];

}

event_user(0);

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 (var 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;

menu = 1;

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 = array_length(item_list);

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;