TheGameCreators - CodeBase - FPS Terrain code

Return to the CodeBase listing

Category: Collision

Version: 1.0

Information

Uploaded: 11th Jan 2010 09:21

Modified: 1st Jan 1970 01:00

Author: Dannyza

Summary

Walk on terrain created with terrain creating software.

Full Description

If you've got a terrain you have made in terrain making software and want to use it just put this code in your game or run this alone.

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

sync on

sync rate 60

load object "media/world.x",1 `load terrain object, replace with own or use original

load image "media/world.png",76 `load texture for the terrain

texture object 1,76

rotate object 1,0,180,0

scale object 1, 20000,14000,20000 `its too small otherwise

rem Main

OldCamAngleY# = CameraAngleY#

OldCamAngleX# = CameraAngleX#

CameraAngleY# = WrapValue(CameraAngleY#+MousemoveX()*0.2)

CameraAngleX# = WrapValue(CameraAngleX#+MousemoveY()*0.2)

cx#=camera position x() : cz#=camera position z()

Rem  Control input for camera

`move forwards

If keystate(17)=1

cX# = Newxvalue(cX#,CameraAngleY#,10)

cZ# = Newzvalue(cZ#,CameraAngleY#,10)

Endif

`move backwards

If keystate(31)=1

cX# = Newxvalue(cX#,Wrapvalue(CameraAngleY#-180),10)

cZ# = Newzvalue(cZ#,Wrapvalue(CameraAngleY#-180),10)

Endif

`move left

If keystate(30)=1

cX# =  Newxvalue(cX#,Wrapvalue(CameraAngleY#-90),10)

cZ# = Newzvalue(cZ#,Wrapvalue(CameraAngleY#-90),10)

Endif

`move right

If keystate(32)=1

cX# = Newxvalue(cX#,Wrapvalue(CameraAngleY#+90),10)

cZ# = Newzvalue(cZ#,Wrapvalue(CameraAngleY#+90),10)

Endif

`mouse movement

Yrotate camera CurveAngle(CameraAngleY#,OldCamAngleY#,24)

Xrotate camera CurveAngle(CameraAngleX#,OldCamAngleX#,24)

position camera cx#,1027-intersect object(1,cx#,1000,cz#,cx#,-1000,cz#),cz# `this is the main part of the code, use

`normal wsad controls with the x and z positions but intersect the terrain object with the y position

camx = camera position x (0)

camy = camera position y (0)

camz = camera position z (0)

cx#=camera position x() : cz#=camera position z()

sync

rem Debug

if keystate(41)=1

set cursor 0,0 : print "FPS: ";screen fps():print "X Position : " ,camx:print "Y Position : " , camy:print "Z Position : " , camz

CodeBase - FPS Terrain code

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments

Author Name:	Dannyza
CodeBase Entries:	1