if keyboard_check(vk_up) && !place_free(x,y+1)
 { vv=-12 }
if keyboard_check (vk_left)
{vh=-4}
if keyboard_check (vk_right)
{vh=4}

vh -= sign (vh) ;

{ vv += 1 }

var ii, i;

for (i=floor(abs(vh)); i!=0; i-=1) {
   if ((place_free(x+sign(vh),y+1)) && (!place_free(x,y+1))) {
       x+=sign(vh);
       y+=1;
   } else if (place_free(x+sign(vh),y)) {
       x+=sign(vh);
   } else {
       for (ii=1; ii<(pxlmax+1); ii+=1) {
           if (place_free(x+sign(vh),y-ii)) {
               x+=sign(vh);
               y-=ii;
               i=round(i/ii);
               break;
           }
       }
       if (i == pxlmax+1) {
           vh=0;
           break;
       }
   }
}
repeat abs(vv) {
   if (place_free(x,y+sign(vv))) {
       y+=sign(vv);
   } else {
       vv=0;
       break;
   }
}

if (vh>0)
   image_xscale=1;
if (vh<0)
   image_xscale=-1;

if place_free(x,y+1) {
   if (vv>0)
       sprite_index=saute;
   else
       sprite_index=saute;
} else {
   if (vh!=0)
       sprite_index = court_d;
   else
       sprite_index = samus;
}