con = 0;
flower_con = 0;
customcon = 0;
flowers_talked = 0;
max_flowers = 6;
clean_up_queue = [];
_trigger = -4;
bgm_track[0] = -4;
bgm_track[1] = -4;
_flowery_marker = scr_dark_marker(899, 644, spr_flowery_walk_upright);
with (_flowery_marker)
    scr_depth();
_flower_readable = -4;
_flowery_solid = -4;
_green_marker = scr_dark_marker(1481, 806, spr_enemy_green_behind);
with (_green_marker)
    scr_depth();
_green_readable = instance_create(_green_marker.x + 10, _green_marker.y + 50, obj_readable_room1);
with (_green_readable)
{
    extflag = "green";
    image_xscale = 2;
    image_yscale = 2;
}
_green_solid = instance_create(_green_marker.x + 4, _green_marker.y + 40, obj_solidblock);
with (_green_solid)
{
    image_xscale = 2.5;
    image_yscale = 3;
}
_yellow_marker = scr_dark_marker(1493, 523, spr_yellow_walk_up);
with (_yellow_marker)
    scr_depth();
_yellow_readable = instance_create(_yellow_marker.x + 4, _yellow_marker.y + 80, obj_readable_room1);
with (_yellow_readable)
{
    extflag = "yellow";
    image_xscale = 2;
    image_yscale = 3;
}
_yellow_solid = instance_create(_yellow_marker.x + 4, _yellow_marker.y + 80, obj_solidblock);
with (_yellow_solid)
{
    image_xscale = 2;
    image_yscale = 3;
}
_blue_marker = scr_dark_marker(1803, 536, spr_blue_up);
with (_blue_marker)
    scr_depth();
_blue_readable = instance_create(_blue_marker.x + 20, _blue_marker.y + 90, obj_readable_room1);
with (_blue_readable)
{
    extflag = "blue";
    image_xscale = 2;
    image_yscale = 2;
}
_blue_solid = instance_create(_blue_marker.x + 8, _blue_marker.y + 70, obj_solidblock);
with (_blue_solid)
{
    image_xscale = 3;
    image_yscale = 3;
}
_aqua_marker = scr_dark_marker(1297, 715, spr_aqua_walk_up);
with (_aqua_marker)
    scr_depth();
_aqua_readable = instance_create(_aqua_marker.x, _aqua_marker.y + 40, obj_readable_room1);
with (_aqua_readable)
{
    extflag = "aqua";
    image_xscale = 2;
    image_yscale = 2;
}
_aqua_solid = instance_create(_aqua_marker.x, _aqua_marker.y + 40, obj_solidblock);
with (_aqua_solid)
{
    image_xscale = 2;
    image_yscale = 2;
}
_orange_marker = scr_dark_marker(1808, 870, spr_enemy_orange_walk_up);
with (_orange_marker)
    scr_depth();
_orange_readable = instance_create(_orange_marker.x, _orange_marker.y, obj_readable_room1);
with (_orange_readable)
{
    extflag = "orange";
    image_xscale = 2;
    image_yscale = 2;
}
_orange_solid = instance_create(_orange_marker.x, _orange_marker.y, obj_solidblock);
with (_orange_solid)
{
    image_xscale = 2;
    image_yscale = 2;
}
_seth_marker = scr_dark_marker(2004, 699, spr_seth_walk_up);
with (_seth_marker)
    scr_depth();
_seth_readable = instance_create(_seth_marker.x + 10, _seth_marker.y + 40, obj_readable_room1);
with (_seth_readable)
{
    extflag = "seth";
    image_xscale = 2;
    image_yscale = 2;
}
_seth_solid = instance_create(_seth_marker.x + 10, _seth_marker.y + 40, obj_solidblock);
with (_seth_solid)
{
    image_xscale = 2;
    image_yscale = 2;
}
_susie_marker = scr_dark_marker(2310, 650, spr_susied_dark_unhappy);
with (_susie_marker)
    scr_depth();
_susie_readable = instance_create(_susie_marker.x, _susie_marker.y + 40, obj_readable_room1);
with (_susie_readable)
{
    extflag = "susie";
    image_xscale = 2;
    image_yscale = 2;
}
_ralsei_marker = scr_dark_marker(2250, 656, spr_ralsei_walk_down_unhappy);
with (_ralsei_marker)
    scr_depth();
_ralsei_readable = instance_create(_ralsei_marker.x, _ralsei_marker.y + 40, obj_readable_room1);
with (_ralsei_readable)
{
    extflag = "ralsei";
    image_xscale = 2;
    image_yscale = 2;
}
_sr_solid = instance_create(_ralsei_marker.x, _susie_marker.y + 50, obj_solidblock);
with (_sr_solid)
{
    image_xscale = 5;
    image_yscale = 2;
}

set_up = function()
{
    scr_miniface_init_flowers();
    layer_set_visible("TILES_GRASS_DARK", true);
    layer_set_visible("TILES_GRASS_BRIGHT", false);
    _trigger = instance_create(840, 640, obj_trigger);
    with (_trigger)
        image_yscale = 20;
};

regain_control = function()
{
    global.interact = 0;
    global.facing = 0;
    var kr_x = kr_actor.x;
    var kr_y = kr_actor.y;
    obj_mainchara.x = kr_x;
    obj_mainchara.y = kr_y;
    obj_mainchara.visible = 1;
    obj_mainchara.cutscene = 0;
    if (global.plot >= 510)
    {
        var su_x = su_actor.x;
        var su_y = su_actor.y;
        var ra_x = ra_actor.x;
        var ra_y = ra_actor.y;
        with (obj_caterpillarchara)
        {
            if (name == "susie")
            {
                x = su_x;
                y = su_y;
            }
            else if (name == "ralsei")
            {
                x = ra_x;
                y = ra_y;
            }
            scr_caterpillar_interpolate();
            visible = 1;
        }
    }
    with (obj_actor)
        visible = 0;
};

lose_control = function()
{
    global.interact = 1;
    kr_actor.x = obj_mainchara.x;
    kr_actor.y = obj_mainchara.y;
    kr_actor.sprite_index = obj_mainchara.sprite_index;
    if (global.plot < 510)
    {
        su_actor.x = _susie_marker.x;
        su_actor.y = _susie_marker.y;
        su_actor.sprite_index = _susie_marker.sprite_index;
        ra_actor.x = _ralsei_marker.x;
        ra_actor.y = _ralsei_marker.y;
        ra_actor.sprite_index = _ralsei_marker.sprite_index;
    }
    else
    {
        var su_x = 0;
        var su_y = 0;
        var su_sprite = -4;
        var ra_x = 0;
        var ra_y = 0;
        var ra_sprite = -4;
        with (obj_caterpillarchara)
        {
            if (name == "susie")
            {
                su_x = x;
                su_y = y;
                su_sprite = sprite_index;
            }
            else if (name == "ralsei")
            {
                ra_x = x;
                ra_y = y;
                ra_sprite = sprite_index;
            }
        }
        su_actor.x = su_x;
        su_actor.y = su_y;
        ra_actor.x = ra_x;
        ra_actor.y = ra_y;
    }
    with (obj_actor)
        visible = 1;
    with (obj_caterpillarchara)
        visible = 0;
    with (obj_mainchara)
        visible = 0;
};

show_convo = function(arg0, arg1 = 0)
{
    con = 5;
    customcon = 1;
    flower_con = arg0;
    queue_clean_up(arg0);
    switch (arg0)
    {
        case "flowery":
            con = (arg1 < 1) ? 10 : 11;
            if (flowers_talked >= max_flowers)
                con = (arg1 < 1) ? 30 : 40;
            break;
        case "green":
            flowers_talked++;
            break;
        case "yellow":
            flowers_talked++;
            break;
        case "blue":
            flowers_talked++;
            break;
        case "aqua":
            flowers_talked++;
            break;
        case "orange":
            flowers_talked++;
            break;
        case "seth":
            flowers_talked++;
            break;
        case "susie":
            con = (arg1 < 1) ? 12 : 14;
            if (flowers_talked >= max_flowers)
                con = (arg1 < 1) ? 20 : 22;
            break;
        case "ralsei":
            con = (arg1 < 1) ? 16 : 18;
            if (flowers_talked >= max_flowers)
                con = 24;
            break;
    }
};

show_particles = function(arg0, arg1)
{
    for (var i = 0; i < 12; i++)
    {
        var shine = instance_create(arg0.x + irandom_range(-20, 20), arg0.y - 40 - irandom_range(-4, 40), obj_afterimage);
        shine.image_speed = 0.25;
        shine.image_alpha = 1;
        shine.sprite_index = spr_shine;
        shine.visible = true;
        shine.gravity = -0.1;
        shine.hspeed = irandom_range(2, 4);
        shine.depth = arg0.depth - 5;
        scr_darksize(shine);
    }
};

queue_clean_up = function(arg0)
{
    if (arg0 == "flowery")
        exit;
    if (arg0 == "susie")
        exit;
    if (arg0 == "ralsei")
        exit;
    clean_up_queue[array_length(clean_up_queue)] = arg0;
};

dequeue_clean_up = function()
{
    var adjusted_list = [];
    for (var i = 0; i < array_length(clean_up_queue); i++)
    {
        var extflag = clean_up_queue[i];
        clean_up(extflag);
        adjusted_list[array_length(adjusted_list)] = extflag;
    }
    clean_up_queue = adjusted_list;
};

clean_up = function(arg0)
{
    switch (arg0)
    {
        case "green":
            with (gr_actor)
                instance_destroy();
            with (_green_marker)
                instance_destroy();
            with (_green_solid)
                instance_destroy();
            break;
        case "yellow":
            with (ye_actor)
                instance_destroy();
            with (_yellow_marker)
                instance_destroy();
            with (_yellow_solid)
                instance_destroy();
            break;
        case "blue":
            with (bl_actor)
                instance_destroy();
            with (_blue_marker)
                instance_destroy();
            with (_blue_solid)
                instance_destroy();
            break;
        case "aqua":
            with (aq_actor)
                instance_destroy();
            with (_aqua_marker)
                instance_destroy();
            with (_aqua_solid)
                instance_destroy();
            break;
        case "orange":
            with (ar_actor)
                instance_destroy();
            with (_orange_marker)
                instance_destroy();
            with (_orange_solid)
                instance_destroy();
            break;
        case "seth":
            with (se_actor)
                instance_destroy();
            with (_seth_marker)
                instance_destroy();
            with (_seth_solid)
                instance_destroy();
            break;
    }
    var target_flag = arg0;
    with (obj_readable_room1)
    {
        if (extflag == target_flag)
            instance_destroy();
    }
};