TheGameCreators - CodeBase

Return to the CodeBase listing

Category: Input

Version: 1.08

Information

Uploaded: 17th Jun 2009 04:28

Modified: 17th Jun 2009 04:33

Author: Eskodas

Summary

WASD Movement Coding, does not include mouse->look movement. Use for whatever

Full Description

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

` movements on Z plane

If Keystate(17)=1

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

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

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

X#=XTest#

Z#=ZTest#

Endif

If Keystate(31)=1

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

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

If XTest#>0 and XTest#<10000 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#

`strafing

If Keystate(30)=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 Keystate(32)=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

Download

Please login to download

Comments

No comments yet.

CodeBase - WASD Movement

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments

Author Name:	Eskodas
CodeBase Entries:	2