TheGameCreators - CodeBase - Basic RTS Interface

Return to the CodeBase listing

Category: Complete Applications

Version: 1.0

Information

Uploaded: 27th Jun 2005 04:54

Modified: 1st Jan 1970 01:00

Author: Syncaidius

Summary

A piece of code showing how to create that professional camera that is used in RTS games.

Full Description

To be able to use this code properly, you will have to download the attached DLL Plugin File. The instructions on how to use the DLL are included.<br /> <br /> This code shows you how to create a Professional RTS camera. It isn't as hard as it may sound, in fact, its pretty easy to make an RTS camera!

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)

if (mousex() >= 1015)

Move Camera Right 0.5*Speed

Endif

if (mousex() <= 7)

Move Camera Left 0.5*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

Position camera camera position x(),camera position y()+mousez()/400,camera position z()

CodeBase - Basic RTS Interface

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments

Author Name:	Syncaidius
CodeBase Entries:	4