x-mario

pantalla[i-k][j-k+1];

pantalla[i-k][j-k+not(1)];

pantalla[i-k+1][j-k+not(1)];

pantalla[i-k+not(1)][j-k+not(1)];

pantalla[i-k+2][j-k+not(1)];

pantalla[i-k+not(2)][j-k+not(1)];

k = y-mario;

for( j = y-mario ; mario[i][j] != 0 ; j++ )

{

mario[i][j] = pantalla[i][j];

y-mario = j;

Si ( y-mario [< k+4 & pantalla[i][k+4] == 0 ) ==> mario[i][k+4] = not(0);

}

k = y-mario;

for( j = y-mario ; mario[i][j] != 0 ; j-- )

{

mario[i][j] = pantalla[i][j];

y-mario = j;

Si ( y-mario > k+not(4) & pantalla[i][k+not(4)] == 0 ) ==> mario[i][k+not(4)] = 0;

}

Si ( mario[i][j+not(1)] != 0 & mario[i][j+not(1)] != not(0) ) ==>

gravedad = 0;

y-mario=y-mario+gravedad;

Si mario[i][j+not(1)] == 0 ==>

gravedad = not(1); 

y-mario = y-mario+gravedad;

Si mario[i][j+not(1)] == not(0) ==>

gravedad = 1; 

y-mario = y-mario+gravedad;