GameMaker Epic Egypt Basic Player Code

CREATE\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\

image_speed = 0.1
//definitions
sp = 0
vsp = 0
hsp = 0
grav = 20
jump = 28
jumptimer = 0
space = 0
dir = 0
dir2 = 0

//location of player
position = 0

STEP\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\

//input
if ( ( - keyboard_check ( ord ( "A" ) ) + keyboard_check ( ord ( "D" ) ) ) = 1 ) { dir = 1 dir2 = 1 }
if ( ( - keyboard_check ( ord ( "A" ) ) + keyboard_check ( ord ( "D" ) ) ) = -1 ) { dir = -1 dir2 = -1 }
if ( ( - keyboard_check ( ord ( "A" ) ) + keyboard_check ( ord ( "D" ) ) ) = 0 ) { dir = 0 }
if ( keyboard_check_pressed ( vk_space ) ) { space = 1 }
if ( keyboard_check_released ( vk_space ) ) { space = 0 }

//positions
if ( place_meeting ( x , y + 1 , obj_tile ) and ( sp < 0.5 ) ) { position = 1 }
if ( place_meeting ( x , y + 1 , obj_tile ) and ( sp >= 0.5 ) ) { position = 2 }
if ( place_meeting ( x , y + 1 , obj_tile ) and ( sp > 20 ) ) { position = 3 }
if ( place_meeting ( x , y + 1 , obj_tile ) and sp > 40 ) { position = 4 }
if ( jumptimer > 0 ) { position = 5 }
if ( jumptimer > 5 or vsp = grav) { position = 6 }
if ( place_meeting ( x + dir2 , y , obj_tile ) and !place_meeting ( x , y + 1 , obj_tile ) ) { position = 7 }

//momentum
sp = ( max ( sp , 0 ) )
sp = ( min ( sp , 80 ) )
if ( dir = 0 ) { sp -= 1 } else { sp += 0.5 }

//movement
if ( !sp = 0 ) { hsp = dir2 * sp } else { hsp = 0 }

//jumping
if ( ( position = 1 or position = 2 or position = 3 or position = 4 or position = 7 ) or jumptimer > 0 )
    { if ( space = 1 ) { jumptimer += 1 if ( jumptimer >= 9 ) { space = 0 jumptimer = 0 } vsp += -jump } }
if ( space = 0 and !jumptimer = 0 ) { jumptimer = 0 }
if ( jumptimer > 0 ) { position = 5 }

//gravity
if ( vsp < 10 ) { vsp += grav }

//collision
if ( place_meeting ( x , y + vsp , obj_tile ) ) { while ( !place_meeting ( x , y + sign ( vsp ) , obj_tile ) ) { y += sign ( vsp ) } vsp = 0 }
if ( place_meeting ( x + hsp , y , obj_tile ) ) { while ( !place_meeting ( x + sign ( hsp ) , y , obj_tile ) ) { x += sign ( hsp ) } hsp = 0 sp = 0 }
while ( place_meeting ( x , y , obj_tile ) ) { y -= 1 }

//x and y
x += hsp
y += vsp

//animation
if ( dir2 = 1 and position = 1 ) { sprite_index = spr_player_idleright }
if ( dir2 = -1 and position = 1 ) { sprite_index = spr_player_idleleft }
if ( dir2 = 1 and position = 2 ) { sprite_index = spr_player_walkright }
if ( dir2 = -1 and position = 2 ) { sprite_index = spr_player_walkleft }
if ( dir2 = 1 and position = 3 ) { sprite_index = spr_player_runright }
if ( dir2 = -1 and position = 3 ) { sprite_index = spr_player_runleft }
if ( dir2 = 1 and position = 4 ) { sprite_index = spr_player_sprintright }
if ( dir2 = -1 and position = 4 ) { sprite_index = spr_player_sprintleft }
if ( dir2 = 1 and position = 5 ) { sprite_index = spr_player_jumpright }
if ( dir2 = -1 and position = 5 ) { sprite_index = spr_player_jumpleft }
if ( dir2 = 1 and position = 6 ) { sprite_index = spr_player_fallright }
if ( dir2 = -1 and position = 6 ) { sprite_index = spr_player_fallleft }
if ( dir2 = 1 and position = 7 ) { sprite_index = spr_player_wallright }
if ( dir2 = -1 and position = 7 ) { sprite_index = spr_player_wallleft }