Deltarune (Chapter 3) script viewer

depth = 5000;

var marker = 
scr_dark_marker
scr_dark_marker

function 
scr_dark_marker(arg0, arg1, arg2)
{
    thismarker = instance_create(arg0, arg1, obj_marker);
    with (thismarker)
    {
        sprite_index = arg2;
        image_speed = 0;
        image_xscale = 2;
        image_yscale = 2;
    }
    return thismarker;
}
(x, y, sprite_index);

marker.image_xscale = 2;

marker.image_yscale = 2;

with (marker)

    
scr_depth
scr_depth

function 
scr_depth()
{
    if (argument_count > 0)
    {
        with (argument0)
            depth = 100000 - ((y * 10) + (sprite_height * 10));
    }
    else
    {
        depth = 100000 - ((y * 10) + (sprite_height * 10));
    }
}
();

event_active = false;

event_con = 0;

is_interacting = false;

is_talking = false;

menu_type = 0;

menu_display_type = 0;

menu_talk_flag = "";

menu_talk_style = 0;

menu_talk_con = 0;

menu_dollar = room == room_dw_green_room && global.plot >= 280;

default_text = stringsetloc(
* (It's a vending
machine.)
"* (It's a vending&machine.)", "obj_shop_vending_slash_Create_0_gml_20_0"
);

menu_list = [];

item_list = [];

var value_label = menu_dollar ? stringsetloc(
money
"money", "obj_shop_vending_slash_Create_0_gml_28_0_b"
) : stringsetloc(
points
"points", "obj_shop_vending_slash_Create_0_gml_28_1"
);

sidemessage_list = [stringsetloc(
(Select
an item.)
"(Select&an item.)", "obj_shop_vending_slash_Create_0_gml_24_0"
), stringsetloc(
(Item
bought.)
"(Item&bought.)", "obj_shop_vending_slash_Create_0_gml_25_0"
), stringsetsubloc("(Not&enough&~1.)", value_label, "obj_shop_vending_slash_Create_0_gml_26_0"), stringsetloc(
(Not
enough
space.)
"(Not&enough&space.)", "obj_shop_vending_slash_Create_0_gml_27_0"
), stringsetloc(
(Item
placed in
STORAGE.)
"(Item&placed in&STORAGE.)", "obj_shop_vending_slash_Create_0_gml_28_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_1d(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(
Dark Candy
"Dark Candy", "scr_iteminfo_slash_scr_iteminfo_gml_15_0"
);
            itemdescb = stringsetloc(
Heals#40HP
"Heals#40HP", "scr_iteminfo_slash_scr_iteminfo_gml_16_0"
);
            itemtarget = 1;
            value = 25;
            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;

        if (current_item.custom_price > 0)

            value = current_item.custom_price;

        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. Increases the range#at which bullets raise tension.
"A cute hair ribbon. Increases the range#at which bullets raise 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;

        if (current_item.custom_price > 0)

            value = current_item.custom_price;

        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;

        if (current_item.custom_price > 0)

            value = current_item.custom_price;

        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.chapter == 2)
            {
                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"
);
                }
            }
            if (global.chapter == 3)
            {
                tempkeyitemdesc = stringsetloc(
Ho ho ho!#Enjoy my prescence for a single room!
"Ho ho ho!#Enjoy my prescence for a single room!", "scr_keyiteminfo_slash_scr_keyiteminfo_gml_123_0_b"
);
                var lancercount = 0;
                for (var __l = 0; __l < 12; __l++)
                {
                    if (global.keyitem[__l] == 8)
                        lancercount++;
                }
                if (lancercount >= 2)
                    tempkeyitemdesc = stringsetloc(
The best thing about me is that#I'm the only one!
"The best thing about me is that#I'm the only one!", "scr_keyiteminfo_slash_scr_keyiteminfo_gml_129_0"
);
            }
            tempkeyitemname = stringsetloc(
Lancer
"Lancer", "scr_keyiteminfo_slash_scr_keyiteminfo_gml_48_0"
);
            tempkeyitemusable = 1;
            break;
...
(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 = 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 = 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;