TheGameCreators - CodeBase - Basic input for camera

Return to the CodeBase listing

Category: Camera

Version: 1.0

Information

Uploaded: 16th Aug 2004 16:08

Modified: 16th Aug 2004 16:08

Author: SpazDC

Summary

defferent commands for your camera

Full Description

move up with up key, down with down key, straf right with control key, straf left with shift key. Add texture to your matrix to make it look better. Just load and go (no media needed).

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

Sync Rate 30

hide mouse

Make matrix 1,10000,10000,20,20

randomize matrix 1,125

Rem Main loop

OldCamAngleY# = CameraAngleY#

OldCamAngleX# = CameraAngleX#

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

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

Rem  Control input for camera

If Upkey()=1

XTest# = Newxvalue(X#,CameraAngleY#,10)

ZTest# = Newzvalue(Z#,CameraAngleY#,10)

If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000

X#=XTest#

Z#=ZTest#

Endif

If Downkey()=1

XTest# = Newxvalue(X#,Wrapvalue(CameraAngleY#-180),10)

ZTest# = Newzvalue(Z#,Wrapvalue(CameraAngleY#-180),10)

If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000

X#=XTest#

Z#=ZTest#

Endif

endif

If Shiftkey()=1

XTest# = Newxvalue(X#,Wrapvalue(CameraAngleY#-90),10)

ZTest# = Newzvalue(Z#,Wrapvalue(CameraAngleY#-90),10)

If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000

X#=XTest#

Z#=ZTest#

Endif

If Controlkey()=1

XTest# = Newxvalue(X#,Wrapvalue(CameraAngleY#+90),10)

ZTest# = Newzvalue(Z#,Wrapvalue(CameraAngleY#+90),10)

If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000

X#=XTest#

Z#=ZTest#

Endif

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

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

Y# = Get ground height(1,X#,Z#)

Position Camera X#,Y#+50,Z#

Rem Refresh Screen

Sync

Loop

Download

Please login to download

Comments

No comments yet.

Author Name:	SpazDC
CodeBase Entries:	2

CodeBase - Basic input for camera

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments