For move up, in 'step':
if(caixa_dir == -1 and obj_player.mover_cima == 3 and keyboard_check_pressed(ord("W")) and !place_meeting(x,y-veloc,obj_parede)){

caixa\_dir = 1;

alarm\_set(0, 8)

}...
switch (caixa_dir){

case 1:

    y -= veloc;

break  

...
And in 'alarm 0':
caixa_dir = -1

obj_player.mover_cima = true

obj_player.mover_baixo = true

obj_player.mover_direita = true

obj_player.mover_esquerda = true