gravity_direction = 270 //Направление гравитации - вниз.  
if place_free(x,y+1) //Если снизу нет столкновений...  
gravity = 2 //...гравитация равна двум.    
else //А если столкновения есть...    
gravity = 0 //...гравитация отключается.

if (getkey() == KEY_UP)  // Если нажата клавиша "вверх", то...
{  // Ммм...
   // ...
   // ...
   // ...блин.
player.y--    // Может быть...?
   // Фу, нет, нет!! ^W^W^W
   // Чёрт...
   // Тогда что же?!
   // А, придумал!
/* TODO: Написать процедуру перемещения */
}