Er, that's not gravity at all! That's moving an entity downwards at a constant rate and then doing absolutely nothing when it hits the ground!
Open in online IDEGraphics3D 640,480,16 Global Gravity# = -0.05 Global YSpeed# = 0 Collisions 1,2,2,2 Cam=CreateCamera() Global ball = CreateSphere() light = CreateLight() PositionEntity ball,0,10,0 EntityType ball,1 PositionEntity cam,0,10,-25 CameraClsColor cam,0,255,255 ground=CreatePlane() EntityType ground,2 While Not KeyHit(1) UpdateGravity() ;TranslateEntity ball,0,-0.1,0 UpdateWorld If CountCollisions(ball) ySpeed = 0-ySpeed EndIf RenderWorld Flip Wend End Function UpdateGravity() Yspeed = YSpeed + Gravity TranslateEntity Ball,0,yspeed,0 End Function