scr_depth();
global.currentroom = room;
scr_initialize_charnames();
autorun = 0;
bg = 0;
if (instance_exists(obj_backgrounderparent))
    bg = 1;
stepping = 0;
stepped = 0;
drawbattlemode = 1;
battlemode = 0;
battleheart = instance_create(x, y, obj_overworldheart);
battleheart.image_alpha = 0;
battleheart.image_speed = 0;
battlealpha = 0;
becamebattle = 0;
sliding = 0;
becamesword = 0;
swordmode = 0;
swordcon = 0;
swordtimer = 0;
stop_movement = 0;
roomenterfreezeend = 0;
darkmode = global.darkzone;
if (darkmode == 1)
{
    stepping = 1;
    image_xscale = 2;
    image_yscale = 2;
}
cutscene = 0;
press_l = 0;
press_r = 0;
press_d = 0;
press_u = 0;
px = 0;
py = 0;
wallcheck = 0;
wspeed = 3;
bwspeed = 3;
if (darkmode == 1)
{
    bwspeed = 4;
    wspeed = 4;
}
run = 0;
runtimer = 0;
runcounter = 0;
subxspeed = 0;
subyspeed = 0;
subx = 0;
suby = 0;
walkanim = 0;
walkbuffer = 0;
walktimer = 0;
image_speed = 0;
dsprite = spr_krisd;
rsprite = spr_krisr;
usprite = spr_krisu;
lsprite = spr_krisl;
if (global.darkzone == 1)
{
    dsprite = spr_krisd_dark;
    rsprite = spr_krisr_dark;
    lsprite = spr_krisl_dark;
    usprite = spr_krisu_dark;
}
swordfacing = 1;
swordsprite = rsprite;
fun = 0;
if (global.facing == 0)
    sprite_index = dsprite;
if (global.facing == 1)
    sprite_index = rsprite;
if (global.facing == 2)
    sprite_index = usprite;
if (global.facing == 3)
    sprite_index = lsprite;
onebuffer = 0;
twobuffer = 0;
threebuffer = 0;
global.menuno = 0;
for (i = 0; i < 10; i += 1)
    global.menucoord[i] = 0;
cameFromEntrance = global.entrance;
if (global.interact == 3)
{
    noentrancefound = 0;
    if (global.entrance > 0)
    {
        if (global.flag[21] <= 0)
        {
            global.interact = 0;
            global.flag[21] = -10;
            roomenterfreezeend = 1;
        }
        switch (global.entrance)
        {
            case 1:
                if (i_ex(obj_markerA))
                    setxy(obj_markerA.x, obj_markerA.y);
                else
                    noentrancefound = 1;
                break;
            case 2:
                if (i_ex(obj_markerB))
                    setxy(obj_markerB.x, obj_markerB.y);
                else
                    noentrancefound = 1;
                break;
            case 3:
                if (i_ex(obj_markerC))
                    setxy(obj_markerC.x, obj_markerC.y);
                else
                    noentrancefound = 1;
                break;
            case 4:
                if (i_ex(obj_markerD))
                    setxy(obj_markerD.x, obj_markerD.y);
                else
                    noentrancefound = 1;
                break;
            case 5:
                if (i_ex(obj_markerE))
                    setxy(obj_markerE.x, obj_markerE.y);
                else
                    noentrancefound = 1;
                break;
            case 6:
                if (i_ex(obj_markerF))
                    setxy(obj_markerF.x, obj_markerF.y);
                else
                    noentrancefound = 1;
                break;
            case 18:
                if (i_ex(obj_markerr))
                    setxy(obj_markerr.x, obj_markerr.y);
                else
                    noentrancefound = 1;
                break;
            case 19:
                if (i_ex(obj_markers))
                    setxy(obj_markers.x, obj_markers.y);
                else
                    noentrancefound = 1;
                break;
            case 20:
                if (i_ex(obj_markert))
                    setxy(obj_markert.x, obj_markert.y);
                else
                    noentrancefound = 1;
                break;
            case 21:
                if (i_ex(obj_markeru))
                    setxy(obj_markeru.x, obj_markeru.y);
                else
                    noentrancefound = 1;
                break;
            case 22:
                if (i_ex(obj_markerv))
                    setxy(obj_markerv.x, obj_markerv.y);
                else
                    noentrancefound = 1;
                break;
            case 23:
                if (i_ex(obj_markerw))
                    setxy(obj_markerw.x, obj_markerw.y);
                else
                    noentrancefound = 1;
                break;
            case 24:
                if (i_ex(obj_markerX))
                    setxy(obj_markerX.x, obj_markerX.y);
                else
                    noentrancefound = 1;
                break;
            default:
                noentrancefound = 1;
        }
        if (noentrancefound == 1)
        {
            if (i_ex(obj_markerAny))
            {
                with (obj_markerAny)
                {
                    if (image_index == global.entrance)
                    {
                        other.x = x;
                        other.y = y;
                    }
                }
            }
            else
            {
                setxy(room_width / 2, room_height / 2);
                debug_message("entrance not found, setting to center of room");
                debug_message("entrance requested was global.entrance=" + string(global.entrance));
            }
        }
    }
}
initwd = sprite_width;
initht = sprite_height;
mywidth = sprite_width;
myheight = sprite_height;
for (i = 0; i < 3; i += 1)
    global.battledf[i] = global.df[global.char[i]] + global.itemdf[global.char[i]][0] + global.itemdf[global.char[i]][1] + global.itemdf[global.char[i]][2];
if (global.chapter == 2)
{
    if (global.flag[302] == 1)
        instance_create(x, y, obj_kris_headobj);
}