Take Fall Damage

////CREATE EVENT
falling = 0;
freefall = false;
startfalling = false;
fallcount = 0;
damage_amt = 0;
set_dmg = true;

hp = 100;
max_hp = 100;
hp_target = 100;
current_hp =100;

////STEP EVENT
//Take Fall Damage
fall = collision_line(x, y, x, room_height, obj_all_parent, false, true);

if(distance_to_object(fall) >= 128)
{
    freefall = true;
    startfalling = true;

    if(startfalling)
    {
        falling++;
    }
}
else
{

    if(startfalling)
    {
        fallcount = 14;
    }

    startfalling = false;
    freefall = false;
    falling = falling;

    if(fallcount >= 1)
    {
        fallcount--;
    }

    if(fallcount <= 0)
    {
        fallcount = 0;
    }

    if(!startfalling && fallcount == 0)
    {
        start_dmg = true;

        if(start_dmg)
        {
            if(set_dmg)
            {
                damage_amt = falling;
                set_dmg = false;
            }

            if(!set_dmg)
            {
                falling = 0;
            }

            scr_minushp(damage_amt);
            start_dmg = false;
        }

    }
}