RELLO!!

//Horizontal Colission

if hsp > 0
{
    if collision_rectangle(x-16, y-32, x+15+hsp, y+31, obj_par_ceiling, true, true)
    {
        while(!place_meeting(x+sign(hsp),y,obj_par_ceiling)) x += sign(hsp);
        hsp = 0;
    }
}
else if hsp < 0
{
    if collision_rectangle(x-16+hsp, y-32, x+15, y+31, obj_par_ceiling, true, true)
    {
        while(!place_meeting(x+sign(hsp),y,obj_par_ceiling)) x += sign(hsp);
        hsp = 0;
    }
}
x += hsp


//Vertical Colission
if vsp > 0
{
    if collision_rectangle(x-16, y-32, x+15, y+31+vsp, obj_par_ceiling, true, true)
    {
        while(!place_meeting(x,y+sign(vsp),obj_par_ceiling)) y += sign(vsp);
        vsp = 0;
    }
}
else if vsp < 0
{
    if collision_rectangle(x-15, y-32+vsp, x+15, y+31, obj_par_ceiling, true, true)
    {
        while(!place_meeting(x,y+sign(vsp),obj_par_ceiling)) y += sign(vsp);
        vsp = 0;
    }
}
y += vsp