TheGameCreators - CodeBase

Category: 3D

Version: 0.1

Information

Uploaded: 22nd May 2005 08:22

Modified: 1st Jan 1970 01:00

Author: ReneGade RG

Summary

A simple start to my fps which most beginners may find interesting! It is very easy to add stuff to it and complete making, the ai system is simple and so is the collision, simple little taster!

Full Description

A simple start to my fps which most beginners may find interesting! It is very easy to add stuff to it and complete making, the ai system is simple and so is the collision, nothing too complicated, enjoy! Be free to add comments!

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

REM Project: Black Hole

REM Created: 14/02/2005 10:28:15

REM

REM ***** Main Source File ***

sync on

sync rate 30

hide mouse

make matrix 1,10000,10000,11,11

position camera 100,100,100

point camera 1,1,1

x#=1000

prevx#=100

xtest#=100

y#=100

prevy#=100

ytest#=100

z#=1000

prevz#=100

ztest#=100

load music "action.mid",1

loop music 1

load image "hell.bmp",1

load image "red.bmp",2

load image "energy.bmp",3

load image "photon canon.jpg",4

backdrop on

color backdrop rgb(0,0,0)

fog on

fog color rgb(100,0,0)

fog distance 1500

Make object cube 1,2

Fix object pivot 1

Scale object 1,100,100,500

position object 1,0,-7,15

Lock object on 1

texture object 1,4

make object triangle 4,7,1,4,7,1,4,7,1,4

make object sphere 2,2

texture object 2,3

set object to object orientation 2,1

position object 2,x#,y#,z#

hide object 2

m1x#=400

testm1x#=400

m1y#=250

testm1y#=250

m1y#=250

testm1y#=250

m1z#=770

testm1z#=770

m2x#=700

testm2x#=700

m2y#=770

testm2y#=770

m2z#=250

testm2z#=250

m3x#=900

testm3x#=900

m3y#=50

testm3y#=50

m3y#=250

testm3#=250

m3z#=270

testm3z#=270

m4x#=100

testm4x#=100

m4y#=770

testm2y#=770

m4z#=950

testm4z#=950

make object sphere 100,200

make object sphere 200,200

position object 100,m1x#,m1y#,m1z#

position object 200,m2x#,m2y#,m2z#

texture object 100,1

texture object 200,1

make object sphere 300,200

make object sphere 400,200

position object 300,m3x#,m3y#,m3z#

position object 400,m4x#,m4y#,m4z#

texture object 300,1

texture object 400,1

prepare matrix texture 1,1,1,1

fill matrix 1,0,1

make object cube 250,250

position object 250,x#,y#,z#

hide object 250

bulletlife=0

ammo=5

playerdeath=0

firstenemykill=0

secondenemykill=0

thirdenemykill=0

fohenemykill=0

position object 250,x#,y#,z#

cx#=mousex()

cy#=mousey()

if cx#>0 and playerdeath=0 then yrotate camera wrapvalue(cx#)

if cx#<0 and playerdeath=0 then yrotate camera wrapvalue(-cx#)

if cy#>0 and playerdeath=0 then xrotate camera wrapvalue(cy#)

if cy#<0 and playerdeath=0 then xrotate camera wrapvalue(-cy#)

If playerdeath=0 and Upkey()=1

XTest# = Newxvalue(X#,cx#,50)

ZTest# = Newzvalue(Z#,cx#,50)

If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000

X#=XTest#

Z#=ZTest#

Endif

If playerdeath=0 and downkey()=1

XTest# = Newxvalue(X#,cx#,-50)

ZTest# = Newzvalue(Z#,cx#,-50)

If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000

X#=XTest#

Z#=ZTest#

Endif

position object 250,x#,y#,z#

If playerdeath=0 and Leftkey()=1

XTest# = Newxvalue(X#,Wrapvalue(Cx#-90),50)

ZTest# = Newzvalue(Z#,Wrapvalue(Cx#-90),50)

If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000

X#=XTest#

Z#=ZTest#

Endif

If playerdeath=0 and Rightkey()=1

XTest# = Newxvalue(X#,Wrapvalue(Cx#+90),50)

ZTest# = Newzvalue(Z#,Wrapvalue(Cx#+90),50)

If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000

X#=XTest#

Z#=ZTest#

Endif

set cursor 20,20 : print ammo

set cursor 100,100 : print x# : print y# : print z#

position camera x#,y#,z#

if firstenemykill=0 then point object 100,x#,y#,z# : move object 100,20

if secondenemykill=0 then point object 200,x#,y#,z# : move object 200,20

if thirdenemykill=0 then point object 300,x#,y#,z# : move object 300,20

if fohenemykill=0 then point object 400,x#,y#,z# : move object 400,20

if firstenemykill=0 and playerdeath=0 then if object collision(250,100)>0 then fog distance 0 : delete music 1 : load music "sadness.mid",1 : loop music 1 : playerdeath=1

if secondenemykill=0 and playerdeath=0 then if object collision(250,200)>0 then fog distance 0 : delete music 1 : load music "sadness.mid",1 : loop music 1 : playerdeath=1

if thirdenemykill=0 and playerdeath=0 then if object collision(250,300)>0 then fog distance 0 : delete music 1 : load music "sadness.mid",1 : loop music 1 : playerdeath=1

if fohenemykill=0 and playerdeath=0 then if object collision(250,400)>0 then fog distance 0 : delete music 1 : load music "sadness.mid",1 : loop music 1 : playerdeath=1

if firstenemykill=1 then move object 100,20

if secondenemykill=1 then move object 200,20

if thirdenemykill=1 then move object 300,20

if fohenemykill=1 then move object 400,20

if Mouseclick()=1 and BulletLife=0 and ammo>0 and playerdeath=0

ammo=ammo-1

Position object 2,X#,Y#-5,Z#

Set object to camera orientation 2

BulletLife =25

show object 2

Endif

If BulletLife > 0

Dec BulletLife

Move object 2,20

bX#=Object position X(2)

bY#=Object position Y(2)

bZ#=Object position Z(2)

set cursor 10,10

if firstenemykill=0 then if object collision(2,100)>0 then firstenemykill=1 : texture object 100,2 : xrotate object 100,90 : move object 100,70

if secondenemykill=0 then if object collision(2,200)>0 then secondenemykill=1 : texture object 200,2 : xrotate object 200,90 : move object 200,70

if thirdenemykill=0 then if object collision(2,300)>0 then thirdenemykill=1 : texture object 300,2 : xrotate object 300,90 : move object 300,70

if fohenemykill=0 then if object collision(2,400)>0 then fohenemykill=1 : texture object 400,2 : xrotate object 400,90 : move object 400,70

if firstenemykill=0 then if object collision(2,100)>0 then firstenemykill=1 : texture object 100,2 : xrotate object 100,90 : move object 100,70

if secondenemykill=0 then if object collision(2,200)>0 then secondenemykill=1 : texture object 200,2 : xrotate object 200,90 : move object 200,70

if thirdenemykill=0 then if object collision(2,300)>0 then thirdenemykill=1 : texture object 300,2 : xrotate object 300,90 : move object 300,70

if fohenemykill=0 then if object collision(2,400)>0 then fohenemykill=1 : texture object 400,2 : xrotate object 400,90 : move object 400,70

endif

if BulletLife = 0

Hide object 2

endif

if BulletLife < 0 then Hide object 2 : bulletlife=0

if ammo<0 then ammo=0

if shiftkey()=1 then ammo=5

Rem Refresh Screen

sync

loop

Download

Please login to download

Comments

Resourceful

Posted: 9th Jul 2016 23:37

It would have been nice if the Media had been with it

CodeBase - Black Hole

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments

Author Name:	ReneGade RG
CodeBase Entries:	1