Gamemaker 2d

//variables for moving
xspd = 0;
yspd = 0;
moveSpd = 3;
faceDir = RIGHT;
 
//how we need to move
gridSpace = 16;
startPointX = x;
startPointY = y;
targetX = x;
targetY = y;
 
 
//what state are we in
sliding = false;//может двигаться только на расстояние gridSpace
pushblockArea = false;//площадка для sliding
onIce = false;//движется, пока не встретится препятствие

//what state are we in?
    //idle - not sliding
    if sliding == false
    {
        startPointX = x;
        startPointY = y;
        
        //reset movement speed
        xspd = 0;
        yspd = 0;
    }
    
    //get ground type
    if place_meeting(x, y, obj_push_block_area)
    {
        pushblockArea = true;
    }
    else
    {
        pushblockArea = false;
    }
    
    if place_meeting(x, y, obj_ice_ground)
    {
        onIce = true;
    }
    else
    {
        onIce = false;
    }
    
    
    if sliding = true
    {
        //get the actual 360 direction we should move in
        var _realDir = faceDir*90;
        
        //get our targer coordinates
        var _targetXDist = lengthdir_x(gridSpace, _realDir);
        var _targetYDist = lengthdir_y(gridSpace, _realDir);
        targetX = startPointX + _targetXDist;
        targetY = startPointY + _targetYDist;
        
        //если на льду, продолжать добавлять к координатам занчение передвижения
        if onIce == true
        {
            targetX = startPointX;
            targetY = startPointY;
            //убедимся, что дальше ледяная площадь
            while place_meeting(targetX+_targetXDist, targetY+_targetYDist, obj_ice_ground)
            && !place_meeting(targetX+_targetXDist, targetY+_targetYDist, obj_wall)
            {
                targetX += _targetXDist;
                targetY += _targetYDist;
            }
        }
        
        //set the speeds
        var _targetDist = point_distance(x, y, targetX, targetY);
        var _finalSpd = min(moveSpd, _targetDist);
        
        xspd = lengthdir_x(_finalSpd, _realDir);
        yspd = lengthdir_y(_finalSpd, _realDir);
        
        //если мы в площади, где можно двигаться,
        //но наше следующее положение выходит из этой площади
        if pushblockArea = true && !place_meeting(targetX, targetY, obj_push_block_area)
        {
            xspd = 0;
            yspd = 0;
            //done with sliding 
        }
        
        //don't let the block move to a grid that has a wall in it
        if place_meeting(targetX, targetY, oWall)
        {
            xspd = 0;
            yspd = 0;
            //done with sliding         
        }       
    }
scr_move_character(self)//двигаю объект
if xspd == 0 && yspd == 0//движение остановлено
{
    sliding = false;
}
scr_set_depth(self);//изменение глубины