Замедлять движения коэффициентами не лучший способ, т.к. при этом надо и анимации как-то замедлить... (все твои jump_Speed'ы должны быть float, т.е. первый раз объявляя переменную напиши jump_Speed#)
Снизить fps потянет, если не пишешь блокбастер
Типа так:
While KeyDown(1)=0
start = MilliSecs()
Do_Game;
UpdateWorld()
RenderWorld()
Flip
;-- сброс времени до fps=30 ---
.rep
If MilliSecs() < start +( 1000/30 ) Goto rep
;--------------------------------
Wend