Делаеца просто. В начале цЫкла:
oldFps=millisecs()
//конец цикла
deltaFps=millisecs()-OldFps
if DeltaFps=0 then DeltaFps=1
FPS=1000/deltafps
GAME_SPEED_K#=float 60/Fps
//Вот теперь мы имеем коэффициент тормознутости системы
//На него умножаем все счетчики и перемещения обэктов
//а если нужно замедлить игру...
GAME_SPEED_K#=GAME_SPEED_K#*Speed_K#
Speed_K#=Speed_K#-.05
Voila, C'est tres simple