/////CREATE EVENT//////
sprinting = false;
playerSpeed = 1;


//////STEP EVENT///////

///Movement
Key_Left = keyboard_check_direct(ord("A"));
Key_Right = keyboard_check_direct(ord("D"));
Key_Up = keyboard_check_direct(ord("W"));
Key_Down = keyboard_check_direct(ord("S"));
Key_Sprint = keyboard_check_direct(vk_lshift);

key_hor = Key_Right - Key_Left;
key_vert = Key_Down - Key_Up;
key_speed = min(1,abs(key_hor)+abs(key_vert));
key_dir = point_direction(0,0,key_hor,key_vert);


//Collisions and Movement
//Horizontal (X)
if place_meeting(x+(sign(key_hor)*8),y,par_collision){

    while !place_meeting(x+(sign(key_hor)*4),y,par_collision){
        x += key_hor;
    }

    if place_meeting(x+(sign(key_hor)*8),y+16,par_collision){
        y = y - 4;
    }

    if place_meeting(x+(sign(key_hor)*8),y-16,par_collision){
        y = y + 4;
    }

}
else
{
    x += lengthdir_x(key_speed*playerSpeed,key_dir);
}

//Vertical (Y)
if place_meeting(x,y+(sign(key_vert)*8),par_collision){

    while !place_meeting(x,y+(sign(key_vert)*4),par_collision){
        y += key_vert;
    }

    if place_meeting(x+16,y+(sign(key_vert)*8),par_collision){
        x = x - 4;
    }

    if place_meeting(x-16,y+(sign(key_vert)*8),par_collision){
        x = x + 4;
    }

}
else
{
    y += lengthdir_y(key_speed*playerSpeed,key_dir);
}

if (Key_Sprint){
    sprinting = true;
    playerSpeed = 8;
}
else{
    sprinting = false;
    playerSpeed = 5;
}


image_angle = point_direction(x,y,mouse_x,mouse_y);