fus = merge_color(c_black, make_color_hsv((sin(siner / 300) * 127) + 127, 255, 255), 0.1);
if (scr_debug())
{
    if (keyboard_check_pressed(ord("R")))
        room_restart();
}
var surfwid = 160;
var surfhei = 120;
if (!surface_exists(surf))
    surf = surface_create(surfwid, surfhei);
timer++;
siner += rate;
if (up_h())
    rate += 0.01;
if (down_h())
    rate -= 0.01;
rate = clamp(rate, 0.1, 5);
if ((timer % ceil(60 / rate)) == 0)
    makecirc();
surface_set_target(surf);
draw_clear(c_black);
for (var i = 0; i < array_length(circarray); i++)
{
    with (circarray[i])
    {
        image_xscale += (0.002 * other.rate);
        image_yscale += (0.0025 * other.rate);
        if (image_xscale > 1)
            fakealpha -= 0.02;
        draw_sprite_ext(sprite_index, image_index, surfwid / 2, surfhei / 2, image_xscale, image_yscale, image_angle, image_blend, fakealpha);
    }
}
surface_reset_target();
var ang = 0;
var yoff = (sin(siner / 30) * (rate - 1)) + (rate - 1);
draw_surface_ext(surf, 320, 0 - ((yoff * surfhei) / 2), 4, 4 + yoff, ang, c_white, 1);
draw_surface_ext(surf, 320, 0 - ((yoff * surfhei) / 2), -4, 4 + yoff, ang, c_white, 1);
with (obj_marker)
{
    if (variable_instance_exists(id, "iscircle"))
    {
        if (fakealpha <= 0)
        {
            var me = id;
            var ind = -1;
            with (other)
            {
                for (var i = 0; i < array_length(circarray); i++)
                {
                    if (circarray[i] == me)
                    {
                        with (circarray[i])
                            instance_destroy();
                        circarray[i] = -4;
                        break;
                    }
                }
                if (ind != -1)
                    array_delete(circarray, ind, 1);
            }
        }
    }
}
showval(5, 5, "rate");