TheGameCreators - CodeBase

Return to the CodeBase listing

Category: Complete Applications

Version: 1.0

Information

Uploaded: 8th Aug 2009 22:32

Modified: 1st Jan 1970 01:00

Author: Yezpahr

Summary

Controls: W = Forward S = Backward A = Left D = Right --- Q = Turn Left E = Turn Right --- CTRL = Down Space = UP

Full Description

I made this movement program for one purpose.<br /> To learn how DarkBASIC works.<br /> <br /> Thnx to Paul, my friend who bought DBPRO for me.

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

Rem Project: CubeV1

Rem Created: 8-8-2009 2:50:00

Rem ***** Main Source File *****

START:

SYNC RATE 80

MAKE OBJECT CUBE 1,.3

Color Object 1, RGB(230,128,64)

aX# = Object angle x(1)

aY# = Object angle y(1)

aZ# = Object angle Z(1)

Rotate()

LOOP

REM D = Y-Axis

REM A = X-Axis

REM W = Z-Axis

Function Rotate()

Repeat

REM ZROTATE OBJECT 1,OBJECT ANGLE Z(1)+0.6

Wait 10

If inkey$() = "w"

a$ = "w-FORWARD"

move(a$,aX#,aY#,aZ#)

EndIf

If inkey$() = "s"

a$ = "s-BACK"

move(a$,aX#,aY#,aZ#)

EndIf

If inkey$() = "a"

a$ = "a-LEFT"

move(a$,aX#,aY#,aZ#)

EndIf

If inkey$() = "d"

a$ = "d-RIGHT"

move(a$,aX#,aY#,aZ#)

EndIf

If inkey$() = "e"

a$="TurnRIGHT"

aY# = Wrapvalue(aY#+1)

move(a$,aX#,aY#,aZ#)

EndIf

If inkey$() = "q"

a$="TurnLEFT"

aY# = Wrapvalue(aY#-1)

move(a$,aX#,aY#,aZ#)

EndIf

If Leftkey()=1

a$="tiltLEFT"

aZ# = Wrapvalue(aZ#+1)

move(a$,aX#,aY#,aZ#)

EndIf

If Rightkey()=1

a$="tiltRIGHT"

aZ# = Wrapvalue(aZ#-1)

move(a$,aX#,aY#,aZ#)

EndIf

If controlkey()=1

a$="MoveDOWN"

aY# = Wrapvalue(aY#-1)

move(a$,aX#,aY#,aZ#)

EndIf

If spacekey()=1

a$="MoveUP"

aY# = Wrapvalue(aY#+1)

move(a$,aX#,aY#,aZ#)

EndIf

Until z = 1

EndFunction

Function Move(a$,aX#,aY#,aZ#)

If a$ = "w-FORWARD"

move OBJECT 1,.1

EndIF

If a$ = "s-BACK"

move OBJECT 1,-.1

EndIF

If a$ = "a-LEFT"

YROTATE OBJECT 1,OBJECT ANGLE Y(1) -90

move OBJECT 1,.1

YROTATE OBJECT 1,OBJECT ANGLE Y(1) +90

EndIF

If a$ = "d-RIGHT"

YROTATE OBJECT 1,OBJECT ANGLE Y(1) +90

move OBJECT 1,.1

YROTATE OBJECT 1,OBJECT ANGLE Y(1) -90

EndIF

If a$ = "MoveDOWN"

XROTATE OBJECT 1,OBJECT ANGLE X(1) +90

move OBJECT 1,.1

XROTATE OBJECT 1,OBJECT ANGLE X(1) -90

EndIF

If a$ = "MoveUP"

XROTATE OBJECT 1,OBJECT ANGLE X(1) -90

move OBJECT 1,.1

XROTATE OBJECT 1,OBJECT ANGLE X(1) +90

EndIF

If a$="TurnRIGHT"

Yrotate Object 1,aY#

EndIf

If a$="TurnLEFT"

Yrotate Object 1,aY#

EndIf

If a$="tiltLEFT"

Zrotate Object 1,aZ#

EndIf

If a$="tiltRIGHT"

Zrotate Object 1,aZ#

EndIf

a$ = ""

EndFunction

Download

Please login to download

Comments

No comments yet.

CodeBase - Cube 1.0

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments

Author Name:	Yezpahr
CodeBase Entries:	1