TheGameCreators - CodeBase - [DBPro] Arcade style car 'physics' controlling code

Category: Math / Physics

Version: 1.0

Information

Uploaded: 14th Apr 2004 01:20

Modified: 14th Apr 2004 01:23

Author: Dennuz666 v2

Summary

Sorry for the weird subject. But this isn't really any physics at al. It is just a car controlling code for an arcade racer. Very simple but i think it's effective and good enough to be in my game.

Full Description

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

REM -- REVS Test

Set display mode 1024, 768, 32

sync on : sync rate 30

rem -- CREATE TERRAIN

make matrix 1,5000,5000,50,50

rem -- CREATE PLAYER

make object box 10,40,20,60

set object wireframe 10,1

rem -- TILT Object

make object cone 1,5

glue object to limb 10,1,0

spd# = 0          : rem -- Global speed value

spd_max# = 24     : rem -- Max speed, 240 km/h

spd_acc# = 0.1    : rem -- acceleration

bank# = 0         : rem -- Car bank value

bank_max# = 3     : rem -- Max value the car turns

bank_inc# = 3     : rem -- SUSPENSION - 1 HARD - 10 LOSE

skida# = 0        : rem -- DRIFTING

rem -- CAMERA

set camera to follow x#,y#,z#,a#,90,90,10,0

point camera x#,y#,z#

rem -- SPEED UP

if upkey() = 1

if spd# < spd_max#

inc spd#,spd_acc#

endif

rem -- SPEED DOWN

if upkey() = 0

if spd# > 0

dec spd#,(spd_acc#/2)

endif

if spd# < 0

spd# = 0

endif

rem -- BRAKE

if downkey() = 1

if spd# > 0

dec spd#,(spd_acc#*2)

endif

if spd# < 0

spd# = 0

endif

skid = 1

endif

rem -- TURN LEFT

if leftkey() = 1

if bank# > (0-bank_max#)

bank# = curvevalue((0-bank_max#),bank#,10)

endif

if upkey() = 0

skid = 1

else

skid = 0

endif

rem -- TURN RIGHT

if rightkey() = 1

if bank# < bank_max#

bank# = curvevalue(bank_max#,bank#,20)

endif

if upkey() = 0

skid = 1

else

skid = 0

endif

rem -- BRING CAR BODY BACK IN POSITION

if leftkey() = 0 AND rightkey() = 0

bank# = curvevalue(0,bank#,10)

skida# = curvevalue(0,skida#,10)

endif

rem -- SKID CAR

if skid = 1

if leftkey() = 1 then skida# = curvevalue(0-(spd#*2),skida#,30)

if rightkey() = 1 then skida# = curvevalue((spd#*2),skida#,30)

dec spd#,(spd_acc#/2)

print "SKIDDING!!!"

else

skida# = curvevalue(0,skida#,10)

endif

rem -- UPDATE VALUES

x#=newxvalue(x#,a#,spd#) : z#=newzvalue(z#,a#,spd#)

a# = wrapvalue(a#+bank#)

rem -- UPDATE CAR POSITION AND ANGLES

position object 1,x#,y#,z#

yrotate object 1,a#

zrotate object 10,(bank#*bank_inc#*(spd#/20))

yrotate object 10,skida#

rem -- PRINT SOME THINGIES

set cursor 0,0

print "Speed: "+str$(spd#*10)+" Km/h"

print "Banking: "+str$(bank#)

sync

loop

Download

Please login to download

Comments

No comments yet.

Author Name:	Dennuz666 v2
CodeBase Entries:	1

CodeBase - [DBPro] Arcade style car 'physics' controlling code

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments