TheGameCreators - CodeBase - Turning Jet Effect Full

Category: 3D Effects

Version: l.0

Information

Uploaded: 30th Mar 2012 22:10

Modified: 31st Mar 2012 16:10

Author: thecartm

Summary

Object will turn at a natural pace and slows down automatically. Wierd glitch with pressing both buttons is fixed.Not easily alterable. Now turns the camera to sides, too.

Full Description

So I am making a dogfighting game as one of my first games. I was working on the turning jet, my first part, when I have decided to help the community if it's even just a little. So I have made this. If a button is pressed, it controlls the turning variable and a variable on how long it was turned. I have decided to fix it.

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

autocam off

turnx = 0

turnspeed = 0

turnspeedb = 0

slowing = 0

slowingb = 0

make object box 1,300,10,100

make mesh from object 1,1

delete object 1

make object box 2,70,50,140

position camera 0,50,-500

add limb 2,1,1

position object 2,0,0,0

turnx = OBJECT ANGLE X(2)

` ---------------LEFT BUTTON--------------------

IF LEFTKEY() = 1

if turnspeed > 0

turnspeed = turnspeed - 3

slowing = 1

ENDIF

IF turnspeed < 1

slowing = 0

IF turnspeed >= -3

roll object left 2,1

turnspeed = turnspeed - 1

roll camera left 1

ENDIF

IF turnspeed < -3

IF turnspeed >= -9

roll object left 2,2

turnspeed = turnspeed - 2

roll camera left 2

ENDIF

IF turnspeed < -9

IF turnspeed >= -21

roll object left 2,3

turnspeed = turnspeed - 3

roll camera left 3

ENDIF

IF turnspeed < -21

IF turnspeed >= -33

roll object left 2,4

turnspeed = turnspeed - 4

roll camera left 4

ENDIF

IF turnspeed < -33

IF turnspeed >= -99

roll object left 2,5

roll camera left 5

ENDIF

` ---------------RIGHT KEY-----------------

IF RIGHTKEY() = 1

if turnspeed < 0

turnspeed = turnspeed + 3

slowing = 1

ENDIF

IF turnspeed > -1

IF turnspeed <= 3

roll object right 2,1

turnspeed = turnspeed + 1

roll camera right 1

ENDIF

IF turnspeed > 3

IF turnspeed <= 9

roll object right 2,2

turnspeed = turnspeed + 2

roll camera right 2

ENDIF

IF turnspeed > 9

IF turnspeed <= 21

roll object right 2,3

turnspeed = turnspeed + 3

roll camera right 3

ENDIF

IF turnspeed > 21

IF turnspeed <= 33

roll object right 2,4

turnspeed = turnspeed + 4

roll camera right 4

ENDIF

IF turnspeed > 33

IF turnspeed <= 99

roll object right 2,5

roll camera right 5

ENDIF

` -------------NO KEY---------------

if RIGHTKEY() + LEFTKEY() = 0 OR rightkey() + leftkey() = 2

IF turnspeed > 0

IF turnspeed <= 3

roll object right 2,1

turnspeed = turnspeed - 1

roll camera right 1

ENDIF

IF turnspeed > 3

IF turnspeed <= 9

roll object right 2,2

turnspeed = turnspeed - 2

roll camera right 2

ENDIF

IF turnspeed > 9

IF turnspeed <= 21

roll object right 2,3

turnspeed = turnspeed - 3

roll camera right 3

ENDIF

IF turnspeed > 21

IF turnspeed <= 33

roll object right 2,4

turnspeed = turnspeed - 4

roll camera right 4

ENDIF

IF turnspeed > 33

IF turnspeed <= 99

roll object right 2,5

turnspeed = turnspeed - 5

roll camera right 5

ENDIF

IF turnspeed < 0

IF turnspeed >= -3

roll object left 2,1

turnspeed = turnspeed + 1

roll camera left 1

ENDIF

IF turnspeed < -3

IF turnspeed >= -9

roll object left 2,2

turnspeed = turnspeed + 2

roll camera left 2

ENDIF

IF turnspeed < -9

IF turnspeed >= -21

roll object left 2,3

turnspeed = turnspeed + 3

roll camera left 3

ENDIF

IF turnspeed < -21

IF turnspeed >= -33

roll object left 2,4

turnspeed = turnspeed + 4

roll camera left 4

ENDIF

IF turnspeed < -33

IF turnspeed >= -99

roll object left 2,5

turnspeed = turnspeed + 5

roll camera left 5

ENDIF

else

if slowing = 1

IF turnspeed > 0

IF turnspeed <= 3

roll object right 2,1

turnspeed = turnspeed - 1

ENDIF

IF turnspeed > 3

IF turnspeed <= 9

roll object right 2,2

turnspeed = turnspeed - 2

ENDIF

IF turnspeed > 9

IF turnspeed <= 21

roll object right 2,3

turnspeed = turnspeed - 3

ENDIF

IF turnspeed > 21

IF turnspeed <= 33

roll object right 2,4

turnspeed = turnspeed - 4

ENDIF

IF turnspeed > 33

IF turnspeed <= 99

roll object right 2,5

turnspeed = turnspeed - 5

ENDIF

IF turnspeed < 0

IF turnspeed >= -3

roll object left 2,1

turnspeed = turnspeed + 1

ENDIF

IF turnspeed < -3

IF turnspeed >= -9

roll object left 2,2

turnspeed = turnspeed + 2

ENDIF

IF turnspeed < -9

IF turnspeed >= -21

roll object left 2,3

turnspeed = turnspeed + 3

ENDIF

IF turnspeed < -21

IF turnspeed >= -33

roll object left 2,4

turnspeed = turnspeed + 4

ENDIF

IF turnspeed < -33

IF turnspeed >= -99

roll object left 2,5

turnspeed = turnspeed + 5

ENDIF

slowing = 0

` Whew, glad I'm done with that part.

` Now comes tilting up and so...

` ---------------UP BUTTON--------------------

IF UPKEY() = 1

if turnspeedb < 0

turnspeed = turnspeed + 3

slowingb = 1

ENDIF

IF turnspeedb > 1

slowing = 0

ENDIF

IF turnspeedb <= 3

pitch object up 2,1

turnspeedb = turnspeedb + 1

ENDIF

IF turnspeedb > 3

IF turnspeedb <= 9

pitch object up 2,2

turnspeedb = turnspeedb + 2

ENDIF

IF turnspeedb > 9

IF turnspeedb <= 21

pitch object up 2,3

turnspeedb = turnspeedb + 3

ENDIF

IF turnspeedb > 21

IF turnspeedb <= 33

pitch object up 2,4

turnspeedb = turnspeedb + 4

ENDIF

IF turnspeedb > 33

IF turnspeedb <= 99

pitch object up 2,5

ENDIF

` ---------------DOWN KEY-----------------

IF DOWNKEY() = 1

if turnspeedb > 0

turnspeedb = turnspeedb - 3

slowingb = 1

ENDIF

IF turnspeedb < 1

IF turnspeedb >= -3

pitch object down 2,1

turnspeedb = turnspeedb - 1

ENDIF

IF turnspeedb < -3

IF turnspeedb >= -9

pitch object down 2,2

turnspeedb = turnspeedb - 2

ENDIF

IF turnspeedb <= -9

pitch object down 2,3

ENDIF

` -------------NO KEY---------------

if UPKEY() + DOWNKEY() = 0 OR upkey() + downkey() = 2

IF turnspeedb > 0

IF turnspeedb <= 3

pitch object up 2,1

turnspeedb = turnspeedb - 1

ENDIF

IF turnspeedb > 3

IF turnspeedb <= 9

pitch object up 2,2

turnspeedb = turnspeedb - 2

ENDIF

IF turnspeedb > 9

IF turnspeedb <= 21

pitch object up 2,3

turnspeedb = turnspeedb - 3

ENDIF

IF turnspeedb > 21

IF turnspeedb <= 33

pitch object up 2,4

turnspeedb = turnspeedb - 4

ENDIF

IF turnspeedb > 33

IF turnspeedb <= 99

pitch object up 2,5

turnspeedb = turnspeedb - 5

ENDIF

IF turnspeedb < 0

IF turnspeedb >= -3

pitch object down 2,1

turnspeedb = turnspeedb + 1

ENDIF

IF turnspeedb < -3

IF turnspeedb >= -9

pitch object down 2,2

turnspeedb = turnspeedb + 2

ENDIF

IF turnspeedb < -9

IF turnspeedb >= -21

pitch object down 2,3

turnspeedb = turnspeedb + 3

ENDIF

IF turnspeedb < -21

IF turnspeedb >= -33

pitch object down 2,4

turnspeedb = turnspeedb + 4

ENDIF

IF turnspeedb < -33

IF turnspeedb >= -99

pitch object down 2,5

turnspeedb = turnspeedb + 5

ENDIF

else

if slowing = 1

IF turnspeedb > 0

IF turnspeedb <= 3

pitch object up 2,1

turnspeedb = turnspeedb - 1

ENDIF

IF turnspeedb > 3

IF turnspeedb <= 9

pitch object up 2,2

turnspeedb = turnspeedb - 2

ENDIF

IF turnspeedb > 9

IF turnspeedb <= 21

pitch object up 2,3

turnspeedb = turnspeedb - 3

ENDIF

IF turnspeedb > 21

IF turnspeedb <= 33

pitch object up 2,4

turnspeedb = turnspeedb - 4

ENDIF

IF turnspeedb > 33

IF turnspeedb <= 99

pitch object up 2,5

turnspeedb = turnspeedb - 5

ENDIF

IF turnspeedb < 0

IF turnspeedb >= -3

pitch object down 2,1

turnspeedb = turnspeedb + 1

ENDIF

IF turnspeedb < -3

IF turnspeedb >= -9

pitch object down 2,2

turnspeedb = turnspeedb + 2

ENDIF

IF turnspeed < -9

IF turnspeed >= -21

roll object left 2,3

turnspeedb = turnspeedb + 3

ENDIF

IF turnspeedb < -21

IF turnspeedb >= -33

roll object left 2,4

turnspeedb = turnspeedb + 4

ENDIF

IF turnspeedb < -33

IF turnspeedb >= -99

roll object left 2,5

turnspeed = turnspeed + 5

ENDIF

slowing = 0

slowingb = 0

` -----------CAMERA THING-----------

rem SET CAMERA TO FOLLOW 0,0,0,180,-400,150,1,1

wait 0.1

LOOP

Download

Please login to download

Comments

No comments yet.

Author Name:	thecartm
CodeBase Entries:	2

CodeBase - Turning Jet Effect Full

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments