TheGameCreators - CodeBase

Return to the CodeBase listing

Category: 3D

Version: 1.0

Information

Uploaded: 29th Feb 2004 12:41

Modified: 29th Feb 2004 13:47

Author: Tim Ballisto

Summary

A small FPS engine to base games off of.

Full Description

This sets up the base of a fps. move with arrow keys, aim and fire with the mouse, and jump with control. Feel free to use it as a core for any game.

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

`by Tim Ballisto

autocam off

hide mouse

`make objects and matrix

make object sphere 4,50

position object 4,0,100,0

make matrix 1,4000,4000,30,30

Make object cylinder 1,2

xrotate object 1,90

fix object pivot 1

scale object 1,100,100,500

position object 1,0,-7,15

lock object on 1

make object sphere 2,3

hide object 2

hide object 4

`set camera and sync

set camera range 1,3000

sync on

sync rate 100

`begin game loop

`position camera at location and rotation of object 4

position camera object position x(4),object position y(4),object position z(4)

rotate camera object angle x(4),object angle y(4),object angle z(4)

`define camera variables

wvtx=object angle x(4)

wvty=object angle y(4)

wvtz=object angle z(4)

wcax=wrapvalue(wvtx)

wcay=wrapvalue(wvty)

wcaz=wrapvalue(wvtz)

`controls

`aiming

cya#=wrapvalue(cya#+(mousemovex()/3.0))

cxa#=cxa#+(mousemovey()/3.0)

if cxa#<-45.0 then cxa#=-45.0

if cxa#>45.0 then cxa#=45.0

cx#=newxvalue(x#,cya#,sin(cxa#)*10)

cz#=newzvalue(z#,cya#,sin(cxa#)*10)

rotate camera wrapvalue(cxa#),cya#,0

rotate object 4,0,camera angle y(),0

position camera object position x(4),object position y(4),object position z(4)

`walking

if upkey()=1 then move object 4,8

if downkey()=1 then move object 4,-8

`jumping

if controlkey()=1 and ajump=1

jumpb=1

height=30

endif

if jumpb=1

height=height-1

position object 4,object position x(4),object position y(4)+height,object position z(4)

endif

if object position y(4)>100 then ajump=0 else ajump=1

if object position y(4)<100

position object 4,object position x(4),100,object position z(4)

jump=0

height=0

endif

`shooting

if mouseclick()>0 and dst=0

shot=1

bdst=1

show object 2

position object 2,object position x(4),object position y(4)-1,object position z(4)

rotate object 2,camera angle x(),camera angle y(),camera angle z()

endif

if object position x(2)<0 or object position x(2)>4000 or object position z(2)>4000 or object position z(2)<0 or object position y(2)<0 or object position y(2)>1000

hide object 2

dst=0

shot=0

endif

if shot=1

dst=dst+1

bdst=bdst+1

endif

if shot=1

move object 2,100

dst=dst+1

endif

`sync

sync

`end game loop

loop

Download

Please login to download

Comments

No comments yet.

CodeBase - FPS base

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments

Author Name:	Tim Ballisto
CodeBase Entries:	6