TheGameCreators - CodeBase - Jet Fighter-Created by Billy Barrett

Return to the CodeBase listing

Category: 3D

Version: 1.0

Information

Uploaded: 31st Jan 2004 10:12

Modified: 31st Jan 2004 10:13

Author: look i am a newb

Summary

A jet fighter that moves faster when you press up and slower when you press down.

Full Description

A jet fighter that moves faster when you press up and slower when you press down. <br /> make sure you have a fighter obj and a floor image

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

Sync On

Sync Rate 30

hide mouse

Backdrop on

Set camera range 1,5000

Fog on

Fog distance 4000

Fog color RGB(128,128,128)

Color Backdrop RGB(128,128,128)

rem make sure u have a texture

make matrix 1,10000.0,10000.0,25,25

load bitmap "floor.bmp",1

get image 1,0,0,256,256

delete bitmap 1

prepare matrix texture 1,1,2,2

randomize matrix 1,50.0

set matrix height 1,12,12,300.0

update matrix 1

rem change it to your obj

load object "f16.x",1

color backdrop 0

rem Create fog (if supported)

fog on

rem Cast dark ambience with a touch of green

set ambient light 25

color ambient light rgb(128,255,64)

rem Rotate and fix data so character faces right way

xrotate object 1,90

yrotate object 1,180

zrotate object 1,180

fix object pivot 1

rem Activate manual sync

sync on

rem Begin loop

rem Update character

y#=150

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

yrotate object 1,a#

rem Control camera with arrow keys

if upkey()=0 then x#=newxvalue(x#,a#,10) : z#=newzvalue(z#,a#,10)

if upkey()=1 then x#=newxvalue(x#,a#,20) : z#=newzvalue(z#,a#,20)

if downkey()=1 then x#=newxvalue(x#,a#,-4) : z#=newzvalue(z#,a#,-4)

if leftkey()=1 then a#=wrapvalue(a#-3.0)

if rightkey()=1 then a#=wrapvalue(a#+3.0)

rem Position camera to the back of the character

cx#=newxvalue(x#,wrapvalue(a#+180),200)

cz#=newzvalue(z#,wrapvalue(a#+180),200)

cy#=200

position camera cx#,cy#,cz#

rem Point camera at object

point camera x#,y#,z#

rem Syncronise

sync

rem End loop

loop

rem End the program

end

Download

Please login to download

Comments

No comments yet.

Author Name:	look i am a newb
CodeBase Entries:	2

CodeBase - Jet Fighter-Created by Billy Barrett