so on my third level when I jump it isn't as smooth as the first two levels I want the fall to be slower but it falls really fast heres my third level.
EarthSection:
MyScore = 0
REM LOAD IMAGES
load image "E:\Edutainment Game\images/16032727.jpg",40
load image "E:\Edutainment Game\images/grass.bmp",41
load image "E:\Edutainment Game\images/desert.bmp",41
load image "E:\Edutainment Game\images/cloud.bmp",50
texture backdrop 0
REM OBJECT CREATION
Make object box 41, 3000,100,3000
position object 41, -5,-10,-5
color object 41,rgb(155,155,155)
texture object 41,41
scale object texture 41,10,10
Make object box 51, 200,50,200
position object 51, 255,10,1700
color object 51,rgb(155,155,155)
texture object 51,51
scale object texture 51,10,10
Make object box 52, 200,50,200
position object 52, 100,10,2100
color object 52,rgb(155,155,155)
texture object 52,52
scale object texture 52,10,10
Make object box 53, 200,50,200
position object 53, 255,10,2550
color object 53,rgb(155,155,155)
texture object 53,53
scale object texture 53,10,10
Make object box 54, 200,50,200
position object 54, 100,10,3000
color object 54,rgb(155,155,155)
texture object 54,54
scale object texture 54,10,10
Make object box 55, 3000,100,3000
position object 55, 100,-10,4900
color object 55,rgb(155,155,155)
texture object 55,55
scale object texture 55,10,10
REM PLAYER
make object sphere 40,50,20,50
color object 40,rgb(255,255,0)
position object 40,15,70,-1000
texture object 40,40
texture backdrop 50
REM NOB
make object box 45,50,50,50
position object 45, 15,60,200
texture object 45,45
position camera -200,300,-300
point camera 15,5,15
yrotate camera -90
do
if upkey() then move object 40,1.5
if downkey() then move object 40,-1
if rightkey() then rotation#=rotation#+.25 REM control the rotation
if leftkey() then rotation#=rotation#-.25 REM control the rotation
yrotate object 40, rotation# REM rotate the object
set camera to follow object position x(40), object position y(40), object position z(40), object angle y(40), 190, 290, 100, 0
if object collision(40,41)=0 then inc FallSpeed#,.010 else FallSpeed#=0
if spacekey() then move object up 40,4.5
position object 40,object position x(40),object position y(40)-FallSpeed#,object position z(40)
if object collision(40,51)=0 then inc FallSpeed#,.010 else FallSpeed#=0
if object collision(40,52)=0 then inc FallSpeed#,.010 else FallSpeed#=0
if object collision(40,53)=0 then inc FallSpeed#,.010 else FallSpeed#=0
if object collision(40,54)=0 then inc FallSpeed#,.010 else FallSpeed#=0
if object collision(40,55)=0 then inc FallSpeed#,.010 else FallSpeed#=0
loop
REM *****************************************
REM *** START END SECTION
REM *** END SECTION HEADERHasty
