TheGameCreators - CodeBase - Camera Control Function

Return to the CodeBase listing

Category: Input / Output

Version: 1.0

Information

Uploaded: 30th Oct 2003 09:32

Modified: 1st Jan 1970 01:00

Author: Codger

Summary

Control Camera Using Keyboard

Full Description

Control Camera Using the following Keys UpArrow = Forward, DownArrow = Backward Left and right arrows turn Pageup = Up PageDown = Down Home = Tilt Camera Down End = Tilt Camera Up Shift key reduce speed

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

ink RGB(0,0,0),RGB(255,0,0)

color backdrop RGB(0,0,120)

set ambient light 50

sync on

sync rate 60

make object plain 1, 100,100

color object 1, RGB(0,128,0)

IF SCANCODE() then PositionCamera()

sync

loop

Function PositionCamera()

remstart

used to control camera

Insert before a sync as follows

IF SCANCODE() then PositionCamera()

UpArrow = Forward, DownArrow = Backward

Left and right arrows turn

Pageup = Up

PageDown = Down

Home = Tilt Camera Down

End = Tilt Camera Up

Shift key reduce speed

remend

IF CONTROLKEY()THEN MyChange = 20 Else MyChange = 5

IF SHIFTKEY() THEN MyChange = 1 Else MyChange = 5

IF UPKEY()

TEMPXANG = CAMERA ANGLE X(0)

XROTATE CAMERA 0, 0

MOVE CAMERA 0, 2 * MyChange

XROTATE CAMERA 0, TEMPXANG

ENDIF

IF DOWNKEY()

TEMPXANG = CAMERA ANGLE X(0)

XROTATE CAMERA 0, 0

MOVE CAMERA 0, -2 * MyChange

XROTATE CAMERA 0, TEMPXANG

ENDIF

IF LEFTKEY() then yrotate camera 0, camera angle y (0) -1

IF RIGHTKEY() then yrotate camera 0, camera angle y (0) +1

IF KEYSTATE (207) THEN xrotate camera 0, camera angle x (0) -.5

IF KEYSTATE (199) THEN xrotate camera 0, camera angle x (0) +.5

IF KEYSTATE (201) THEN POSITION CAMERA 0,Camera position x(0),Camera position y(0)+MyChange, Camera position z(0)

IF KEYSTATE (209) THEN POSITION CAMERA 0,Camera position x(0),Camera position y(0)-MyChange, Camera position z(0)

CodeBase - Camera Control Function

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments

Author Name:	Codger
CodeBase Entries:	5