script_execute(gml_Script_scr_controls_battle_heart_red)
x_previous = x
y_previous = y
move_x = key_left + key_right
move_y = key_down + key_up
hsp = move_x * walk_speed
vsp = move_y * walk_speed
if key_revert
{
    if (speed_sound_noloop == false)
    {
        if (!instance_exists(obj_quote_bubble_battle))
            speed_sound_noloop = true
    }
    hsp = round(hsp / 2)
    vsp = round(vsp / 2)
}
else if (speed_sound_noloop == true)
    speed_sound_noloop = false
hsp += hsp_factor
vsp += vsp_factor
if (sign(hsp) == -1 && (bbox_left + hsp) <= (obj_dialogue_box_battle_transformation_any.bbox_left + 4))
{
    while ((bbox_left + sign(hsp)) > (obj_dialogue_box_battle_transformation_any.bbox_left + 4))
        x += sign(hsp)
    hsp = 0
}
else if (sign(hsp) == 1 && (bbox_right + hsp) >= (obj_dialogue_box_battle_transformation_any.bbox_right - 4))
{
    while ((bbox_right + sign(hsp)) < (obj_dialogue_box_battle_transformation_any.bbox_right - 4))
        x += sign(hsp)
    hsp = 0
}
x += hsp
if (sign(vsp) == -1 && (bbox_top + vsp) <= (obj_dialogue_box_battle_transformation_any.bbox_top + 4))
{
    while ((bbox_top + sign(vsp)) > (obj_dialogue_box_battle_transformation_any.bbox_top + 4))
        y += sign(vsp)
    vsp = 0
}
else if (sign(vsp) == 1 && (bbox_bottom + vsp) >= (obj_dialogue_box_battle_transformation_any.bbox_bottom - 4))
{
    while ((bbox_bottom + sign(vsp)) < (obj_dialogue_box_battle_transformation_any.bbox_bottom - 4))
        y += sign(vsp)
    vsp = 0
}
y += vsp
obj_heart_red_hitbox.x = x
obj_heart_red_hitbox.y = y
if instance_exists(obj_heart_battle_effect_glow)
{
    obj_heart_battle_effect_glow.x = x
    obj_heart_battle_effect_glow.y = y
}
if (moveable == true && global.current_sp_self > 0)
{
    var can_trail = false
    trail_cc_current += 1
    if (trail_cc_current >= trail_cc_max)
    {
        can_trail = true
        trail_cc_current = 0
    }
    if (can_trail == true)
    {
        ds_list_add(x_list, x)
        ds_list_add(y_list, y)
        while (ds_list_size(x_list) > max_points_trail)
        {
            ds_list_delete(x_list, 0)
            ds_list_delete(y_list, 0)
        }
    }
}
event_user(15)