//PLAYER.STEP
key_right = keyboard_check(ord("D"));
key_up = keyboard_check(ord("W"));
key_left = keyboard_check(ord("A"));
key_down = keyboard_check(ord("S"));

if (key_left || key_right)
{
    sprite_index = spr_p1_walk;
}
else
{
    sprite_index = spr_p1_idle;
}

move = key_right - key_left;
hsp = move * movespeed + hsp_carry;
hsp_carry=0
if(move!=0) image_xscale = move;

//water check
if(place_meeting(x, y, obj_water))
{
    grav = gravity_swimming;
    vsp = lerp(vsp, 0, 0.01);
    //state

    if(!are_we_in_water)
    {
        vsp /= 4;
    }
    are_we_in_water=true;


}
else
{
    grav = gravity_normal;
    are_we_in_water=false;
}



if(place_meeting(x,y+1, obj_wall)||place_meeting(x,y+1, obj_moving_platform1)||place_meeting(x,y+1, obj_pushable_block))&&key_up==1{

    vsp = key_up * - jumpspeed;//}      //jumping mechanic
}
if(are_we_in_water&&key_up)
{
    vsp = key_up * - (jumpspeed/3);     //jumping in water
}



//*/
if(vsp < 10) vsp += grav;           //gravity



//moving platform collision;
var _movingPlatform = instance_place(x,y+max(1, vsp), obj_moving_platform1);
if(_movingPlatform!=noone && bbox_bottom>_movingPlatform.bbox_top)
{
    if(vsp>0)
    {
        while(!place_meeting(x, y + sign(vsp), obj_moving_platform1))
        {
            y+=sign(vsp);
        }
        vsp=0;
    }
    x+=_movingPlatform.move_x;
    y+=_movingPlatform.move_y;
}

//WALL + MOVING PLATFORM COLLISION
var block_on_movingPlatform = instance_place(x,y+max(1, vsp), obj_pushable_block);
if(block_on_movingPlatform!=noone && bbox_bottom>block_on_movingPlatform.bbox_top)
{
    if(vsp>0)
    {
        while(!place_meeting(x, y + sign(vsp), obj_pushable_block))
        {
            y+=sign(vsp);
        }
        vsp=0;
    }

    x+=block_on_movingPlatform.hsp_carry;
    y+=block_on_movingPlatform.vsp_carry;
}
else
{
    scr_push_p1();
}

scr_move(hsp,vsp);

//JUMP ANIMATION
if (!place_meeting(x,y+1,obj_wall) && !place_meeting(x,y+1,obj_moving_platform1))
{
    if (sign(vsp) > 0)
    {
        sprite_index = spr_p1_fall;
    } else if (sign(vsp) < 0) {
        sprite_index = spr_p1_jump;
    }
}

//Ladder


if (place_meeting( x,y, obj_ladder))
{
    //vsp = 0;
    if(key_up)
    {
        vsp = -2;
        sprite_index=spr_p1_climb;
    }
    else if(key_down)
    {
        sprite_index=spr_p1_climb;
        vsp = 2;
    }
}

//portal system
var pad, dest;
pad=instance_place(x,y,obj_pad_portal);
if(place_meeting(x, y, pad) && pad != noone)
{
    if(keyboard_check_pressed(ord("E")))
    {
        for(i=0;i<instance_number(obj_dest_portal);i++)
        {
            dest = instance_find(obj_dest_portal, i);
            if(pad.index==dest.index)
            {

                pad.sprite_index = spr_pad_portal_end;
                pad.image_index = 0;
                x=dest.x;
                y=dest.y;
                //visible = false;
                break;
            }
        }
    }
}




//SCR_MOVE

function scr_move(hsp,vsp){
//horizontal collision
if(place_meeting(x+hsp, y, obj_wall))
{
    while(!place_meeting(x+sign(hsp), y, obj_wall))
    {
        x+=sign(hsp);
    }
    hsp = 0;
}

if(place_meeting(x+hsp, y, obj_wall_heaven))
{
    while(!place_meeting(x+sign(hsp), y, obj_wall))
    {
        x+=sign(hsp);
    }
    hsp = 0;
}
if(place_meeting(x+hsp, y, obj_wall_recolor))
{
    while(!place_meeting(x+sign(hsp), y, obj_wall))
    {
        x+=sign(hsp);
    }
    hsp = 0;
}


if(place_meeting(x+hsp, y, obj_door))
{
    while(!place_meeting(x+sign(hsp), y, obj_door))
    {
        x+=sign(hsp);
    }
    hsp = 0;
}

x+= hsp;


//vertical collision

if(place_meeting(x, y+vsp, obj_wall))
{
    while(!place_meeting(x, y+sign(vsp), obj_wall))
    {
        y+=sign(vsp);
    }
    vsp = 0;
}


if(place_meeting(x, y+vsp, obj_door))
{
    while(!place_meeting(x, y+sign(vsp), obj_door))
    {
        y+=sign(vsp);
    }
    vsp = 0;
}

y += vsp;
}