generic fps contols - GameCreators Forum

Author

Message

mm0zct

21

Years of Service

User Offline

Joined: 18th Nov 2003

Location: scotland-uk

Posted: 5th Mar 2004 00:45 Edited at: 5th Mar 2004 01:16

Link

i have made a generic control system for fps games, this relies entirely on there being a collision system which i why i used a bsp map: (it includes mouse look, forward, backward, strafe left/righ and "real" gravity and jump functions)

sync on : sync rate 0 :
set text font "arial" : set text size 16
set text to bold : set text transparent

rem Loading prompt
sync : center text screen width()/2,screen height()/2,"LOADING" : sync
rem Set camera
set camera range 0.1,5000
position camera 2,3,2
rotate camera 0,45,0
rem Load BSP world
load bsp "","test.bsp"
set bsp camera 0
set bsp camera collision 1,0,0.75,0
set bsp collision threshhold 1,0.001

rem for if the pc doesn't suport this
set bsp multitexturing off

set text size 16
rem Main loop
sync
global newy#
global oldy#
global hitground
global jump
global accel#=0
newy#=camera position y()
oldy#=camera position y()
hitground=0
jump=0
do

if upkey()=1 then move_camera_forwards(0.03)

if downkey()=1 then move_camera_backwards(0.03)

if leftkey()=1
strafe_camera_left()
endif
if rightkey()=1
strafe_camera_right()
endif
pitch#=pitch#+mousemovey()
if pitch#>70 then pitch#=69
if pitch#<-70 then pitch#=-69
xrotate camera pitch#
turn#=turn#+mousemovex()
yrotate camera turn#

if spacekey()=1 and jump=0 and hitground=1

jump=1
endif
if jump>=1 and jump<=60
position camera camera position x(),camera position y()+0.25,camera position z()
endif
if jump >=1 then jump=jump+1
if jump>60 then jump=0

rem Show Framerate
  fps$="DBPro Fps: "+str$(screen fps())
   text screen width()-20-text width(fps$),screen height()-40,fps$
   newy#=camera position y()
   gravity()

sync
 oldy#=camera position y()
if newy#-oldy#<0.02 and newy#-oldy#>-0.02 then hitground=1
if newy#-oldy#>=0.02 or newy#-oldy#<=-0.2 then hitground=0
set cursor 0,0
print hitground
print jump
print accel#
print (newy#-oldy#)
   loop

function strafe_camera_left()

yrotate camera (camera angle y(0)+90)
xcam#=camera angle x(0)
xrotate camera (185)
move camera 0.03
xrotate camera xcam#
yrotate camera (camera angle y(0)-90)
endfunction

function strafe_camera_right()

yrotate camera (camera angle y(0)-90)
xcam#=camera angle x(0)
xrotate camera (185)
move camera 0.03
xrotate camera xcam#
yrotate camera (camera angle y(0)+90)
endfunction

function move_camera_forwards(move_speed#)
xcam#=camera angle x()
xrotate camera (185)
move camera 0, -(move_speed#)
xrotate camera 0,xcam#
endfunction

function move_camera_backwards(move_speed#)
xcam#=camera angle x()
xrotate camera (175)
move camera 0,move_speed#
xrotate camera xcam#
endfunction

function gravity()
if hitground=0 then accel#=accel#+0.01
if hitground=1 then accel#=0
position camera camera position x(), camera position y()-(0.03+accel#), camera position z()
endfunction

+ Code Snippet

sync on : sync rate 0 :
set text font "arial" : set text size 16
set text to bold : set text transparent

rem Loading prompt
sync : center text screen width()/2,screen height()/2,"LOADING" : sync
rem Set camera
set camera range 0.1,5000
position camera 2,3,2
rotate camera 0,45,0
rem Load BSP world
load bsp "","test.bsp"
set bsp camera 0
set bsp camera collision 1,0,0.75,0
set bsp collision threshhold 1,0.001

rem for if the pc doesn't suport this
set bsp multitexturing off

set text size 16
rem Main loop
sync
global newy#
global oldy#
global hitground
global jump
global accel#=0
newy#=camera position y()
oldy#=camera position y()
hitground=0
jump=0
do


if upkey()=1 then move_camera_forwards(0.03)

if downkey()=1 then move_camera_backwards(0.03)

if leftkey()=1
strafe_camera_left()
endif
if rightkey()=1
strafe_camera_right()
endif
pitch#=pitch#+mousemovey()
if pitch#>70 then pitch#=69
if pitch#<-70 then pitch#=-69
xrotate camera pitch#
turn#=turn#+mousemovex()
yrotate camera turn#




if spacekey()=1 and jump=0 and hitground=1

jump=1
endif
if jump>=1 and jump<=60
position camera camera position x(),camera position y()+0.25,camera position z()
endif
if jump >=1 then jump=jump+1
if jump>60 then jump=0

 rem Show Framerate
  fps$="DBPro Fps: "+str$(screen fps())
   text screen width()-20-text width(fps$),screen height()-40,fps$
   newy#=camera position y()
   gravity()

   sync
 oldy#=camera position y()
if newy#-oldy#<0.02 and newy#-oldy#>-0.02 then hitground=1
if newy#-oldy#>=0.02 or newy#-oldy#<=-0.2 then hitground=0
set cursor 0,0
print hitground
print jump
print accel#
print (newy#-oldy#)
   loop




function strafe_camera_left()

yrotate camera (camera angle y(0)+90)
xcam#=camera angle x(0)
xrotate camera (185)
move camera 0.03
xrotate camera xcam#
yrotate camera (camera angle y(0)-90)
endfunction

function strafe_camera_right()

yrotate camera (camera angle y(0)-90)
xcam#=camera angle x(0)
xrotate camera (185)
move camera 0.03
xrotate camera xcam#
yrotate camera (camera angle y(0)+90)
endfunction

function move_camera_forwards(move_speed#)
xcam#=camera angle x()
xrotate camera (185)
move camera 0, -(move_speed#)
xrotate camera 0,xcam#
endfunction

function move_camera_backwards(move_speed#)
xcam#=camera angle x()
xrotate camera (175)
move camera 0,move_speed#
xrotate camera xcam#
endfunction


function gravity()
if hitground=0 then accel#=accel#+0.01
if hitground=1 then accel#=0
position camera camera position x(), camera position y()-(0.03+accel#), camera position z()
endfunction

the camera tilts upwards slightly on all of the movements forwards, backwards, strafe left/righ to allow it to go up stairs or slopes, the gravity pulls the camera back to the ground in the same loop.

i will post fully remed code later if not in a few minutes

http://www.larinar.tk
AMD athlon thoroughbred 2200, 512Mb ram, 40Gb HD, ati saphire radeon 9600 atlantis w/128mb ddr ram, good creative-labs soundcard, cd-rw + dvd drives.

Back to top

Profile PM Email

mm0zct

21

Years of Service

User Offline

Joined: 18th Nov 2003

Location: scotland-uk

Posted: 5th Mar 2004 01:21 Edited at: 5th Mar 2004 01:35

Link

to control looking up and down (linited to 69o in both dirctions:

+ Code Snippet

pitch#=pitch#+mousemovey()
if pitch#>70 then pitch#=69
if pitch#<-70 then pitch#=-69
xrotate camera pitch#

to control turning:

+ Code Snippet

turn#=turn#+mousemovex()
yrotate camera turn#

to move forwards (aims cmera up slightly from horizontal to allow for going up stairs/slopes then repositions to origional):

+ Code Snippet


rem in loop
if upkey()=1 then move_camera_forwards(0.03)


rem after loop
function move_camera_forwards(move_speed#)
xcam#=camera angle x()
xrotate camera (185)
move camera 0, -(move_speed#)
xrotate camera 0,xcam#
endfunction

to move camera backwards (same idea as forwards):

+ Code Snippet

rem in loop
if downkey()=1 then move_camera_backwards(0.03)


rem after loop
function move_camera_backwards(move_speed#)
xcam#=camera angle x()
xrotate camera (175)
move camera 0,move_speed#
xrotate camera xcam#
endfunction

to strafe left (also similar to forwards/backwards):

+ Code Snippet

rem in loop
if leftkey()=1 then strafe_camera_left(0.03)


rem after loop
function strafe_camera_left(strafeleftpeed#)

yrotate camera (camera angle y(0)+90)
xcam#=camera angle x(0)
xrotate camera (185)
move camera strafeleftspeed#
xrotate camera xcam#
yrotate camera (camera angle y(0)-90)
endfunction

to strafe right (also same idea as aove):

+ Code Snippet

rem in loop
if rightkey()=1 then strafe_camera_right(0.03)




rem after loop

function strafe_camera_right(straferightspeed#)

yrotate camera (camera angle y(0)-90)
xcam#=camera angle x(0)
xrotate camera (185)
move camera straferightspeed#
xrotate camera xcam#
yrotate camera (camera angle y(0)+90)
endfunction

gravity: (this is a bit trickier)

+ Code Snippet

rem this must go at end of loop as so:
   oldy#=camera position y()
   gravity()
   sync
rem if you want it elsewhere in your loop or are using collision
rem other than bsp then run collision here
 newy#=camera position y()
if oldy#-newy#<0.02 and oldy#-newy#>-0.02 then hitground=1
if oldy#-newy#>=0.02 or oldy#-newy#<=-0.2 then hitground=0
   loop


rem after loop
function gravity()
if hitground=0 then accel#=accel#+0.01
if hitground=1 then accel#=0
position camera camera position x(), camera position y()-(0.03+accel#), camera position z()
endfunction

http://www.larinar.tk
AMD athlon thoroughbred 2200, 512Mb ram, 40Gb HD, ati saphire radeon 9600 atlantis w/128mb ddr ram, good creative-labs soundcard, cd-rw + dvd drives.

Back to top

Profile PM Email

mm0zct

21

Years of Service

User Offline

Joined: 18th Nov 2003

Location: scotland-uk

Posted: 5th Mar 2004 01:36

Link

i will rem it all tomorrow, please if you are a mod then can you fix the typo in the title of this thread

http://www.larinar.tk
AMD athlon thoroughbred 2200, 512Mb ram, 40Gb HD, ati saphire radeon 9600 atlantis w/128mb ddr ram, good creative-labs soundcard, cd-rw + dvd drives.

Back to top

Profile PM Email

CdPirate

20

Years of Service

User Offline

Joined: 16th Mar 2004

Location:

Posted: 17th Mar 2004 14:57

Link

Hey,

Is this for DBclassic or DBPro?

Thanks,
Kurt.

Pentium4 3.06Ghz 512MB ddr ram 120 GB hard drive...

And Winblows XP.

Back to top

Profile PM

Sorry your browser is not supported!

Code Snippets / generic fps contols