TheGameCreators - CodeBase - R.T.S camera move

Return to the CodeBase listing

Category: Functions

Version: 1.6

Information

Uploaded: 6th Apr 2006 11:44

Modified: 1st Jan 1970 01:00

Author: sindore

Summary

move the camera real time statergy stile

Full Description

this is some thig i looked at from the code arkive, and added more to it and tweeked it a bit.

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

`Basic Setup Procedure.

Set Display Mode 1024,768,32 : Sync on : Sync Rate 60

Autocam Off

` These are the camera angles used in official RTS games!

XRotate Camera 45

YRotate Camera 45

`Terrain (I recommend using advanced terrain here, matrices hammer the Frame Rate!)

Make Matrix 1, 200,200,20,20

Randomize Matrix 1,5 ` Create some Randomized Terrrain

`Position Camera and Matrix

Position Camera 50,50,50 : Position Matrix 1,50,0,50

`******************************************MAIN LOOP*****************************************

`Allow User to scroll the camera across the landscape. The speed of the movement is Multiplied

`By the Speed Value (I've used 0.5 as a default).

UserInput(1)

`Display the Polygon Count and Frame Rate.

Text 0,20,"DBPro FPS: "+STR$(Screen FPS())

Text 0,40,"Polygon Count: "+STR$(Statistic(1))

`User Information

Center Text Screen Width()/2,0,"Move the Mouse To An Edge Of The Screen To Move The Camera!"

Sync

Loop

`******************************************FUNCTIONS*****************************************

Function UserInput(Speed)

`remstart

if (mousex() >= 1015)

`Move Camera 0.5*Speed

objx1#=0.5*Speed

else

objx1#=0.0*Speed

Endif

if (mousex() <= 7)

`Move Camera  0.5*Speed

objx2#=0.5*Speed

else

objx2#=0.0*Speed

Endif

if (mousey() <= 7)

`Move Camera Up 0.5*Speed

move camera 0.5*Speed

Endif

if (mousey() >= 758)

`Move Camera Down 0.5*Speed

move camera -0.5*Speed

Endif

`remend

Position camera camera position x()-objx2#+objx1#,camera position y()+mousez()/400,camera position z()

CodeBase - R.T.S camera move

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments

Author Name:	sindore
CodeBase Entries:	3