TheGameCreators - CodeBase

Return to the CodeBase listing

Category: 3D

Version: 2.1

Information

Uploaded: 15th Mar 2004 17:50

Modified: 16th Mar 2004 07:19

Author: Tim Ballisto

Summary

An upgrade of FPS base 1.0.

Full Description

This Version has one enemy(virus), health packs(corruption),ammo boxes(charges). It counts health, ammo, shield(positive health),and kills. It uses a sliding collision system for the edge of the level, so you could use that in another program if you can figure it out. Move with ASDW or arrow keys, aim with mouse, shoot with leftclick, jump with rightclick. Still no media required.

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

remstart

Aim with mouse.

Shoot with left mousekey.

Jump with right mousekey.

Move with A,S,D,W keys.

Alternatively move with arrow keys.

remend

cx#=2000

cz#=2000

autocam off

gun=1

screenface=2

bullet=3

self=4

ammunition=5

ammo=1000

forward=6

enemy=7

ebullet=8

health=9

hide mouse

set camera range 1,5000

make object box health,50,150,50

position object health,rnd(4000),75,rnd(4000)

make object sphere enemy,100

color object enemy,rgb(0,255,0)

position object enemy,rnd(4000),100,rnd(4000)

make object cylinder forward,1

scale object forward,100,100,25000

hide object forward

make object sphere 4,50

position object 4,200,100,200

make matrix 1,4000,4000,60,60

make object cylinder 1,2

color object gun,rgb(100,100,100)

hide object gun

xrotate object gun,90

fix object pivot gun

scale object gun,100,100,500

position object gun,0,-7,15

lock object on gun

make object sphere 3,5

hide object bullet

color object bullet,rgb(255,0,0)

make object sphere 8,5

hide object ebullet

color object ebullet,rgb(255,0,0)

hide object ebullet

hide object self

set camera range 1,5000

sync on

sync rate 100

show object gun

make object box ammunition,50,150,50

color object ammunition,rgb(200,200,200)

position object ammunition,rnd(4000),75,rnd(4000)

color object health,rgb(200,100,100)

if corr>99

for c=0 to 255 step 20

cls rgb(c,0,0)

if fog available()=1 then fog distance (c*5) : fog color (c*256*256)

sync

next c

corr=0

ammo=1000

kills=0

endif

ncpx#=object position x(self)

ncpy#=object position y(self)

ncpz#=object position z(self)

ehitu=object collision(self,0)

set object to object orientation enemy,self

move object enemy,-10

if dstoe<3000 and eshot=0

position object ebullet,object position x(enemy),object position y(enemy),object position z(enemy)

set object to object orientation enemy,self

rotate object ebullet,object angle x(enemy),object angle y(enemy),object angle z(enemy)

show object ebullet

eshot=1

endif

if eshot=1

move object ebullet,-50

if ehitu=ebullet

corr=corr+20

hide object ebullet

eshot=0

endif

if dstoeb>3000

hide object ebullet

eshot=0

endif

if ehitu=ammunition

position object ammunition,rnd(4000),75,rnd(4000)

ammo=ammo+50

endif

if ehitu=health

position object health,rnd(4000),75,rnd(4000)

corr=corr-5

endif

camx#=camera position x()

camy#=camera position y()

camz#=camera position z()

dstoe=sqrt((object position x(enemy)-camx#)^2+(object position y(enemy)-camy#)^2+(object position z(enemy)-camz#)^2)

dstoeb=sqrt((object position x(enemy)-object position x(ebullet))^2+(object position y(enemy)-object position y(ebullet))^2+(object position z(enemy)-object position z(ebullet))^2)

set cursor 0,0

if ammo<100 then ink rgb(150,0,0),1

print "Charges: ";ammo

if ammo<100 then ink rgb(255,255,255),1

if corr>90

ink rgb(150,0,0),1

endif

if corr>=0

print "Corruption: ";corr;"%"

endif

if corr<0

print "Encryption: ";abs(corr)/5;"Mb"

endif

if corr>90 then ink rgb(255,255,255),1

print "Viruses Deleted: ";kills

set cursor 0,200

print "Aim with mouse."

print "Shoot with left mouseclick."

print "Jump with right mouseclick."

print "Use ASDW or arrowkeys to move."

ncxa#=camera angle x()

ncya#=camera angle y()

nibopx#=object position x(self)

nibopy#=object position y(self)

nibopz#=object position z(self)

position camera object position x(self),object position y(self),object position z(self)

rotate camera object angle x(self),object angle y(self),object angle z(self)

wvtx=object angle x(self)

wvty=object angle y(self)

wvtz=object angle z(self)

wcax=wrapvalue(wvtx)

wcay=wrapvalue(wvty)

wcaz=wrapvalue(wvtz)

rotate camera wrapvalue(cxa#),cya#,0

rotate object self,0,camera angle y(),0

position camera object position x(self),object position y(self),object position z(self)

if keystate(17)=1 or upkey()=1

x#=newxvalue(x#,cya#,16.0) : z#=newzvalue(z#,cya#,16.0)

endif

if keystate(31)=1 or downkey()=1

x#=newxvalue(x#,cya#,-16.0) : z#=newzvalue(z#,cya#,-16.0)

endif

if keystate(30)=1 or leftkey()=1

x#=newxvalue(x#,wrapvalue(cya#-90.0),20.0)

z#=newzvalue(z#,wrapvalue(cya#-90.0),20.0)

endif

if keystate(32)=1 or rightkey()=1

x#=newxvalue(x#,wrapvalue(cya#+90.0),20.0)

z#=newzvalue(z#,wrapvalue(cya#+90.0),20.0)

endif

if jumpb=1

height#=height#-.7

endif

if mouseclick()=2 and ajump=1

jumpb=1

height#=15

endif

if height#<-13 then height#=-13

if object position y(self)>100 then ajump=0 else ajump=1

position object self,object position x(self),object position y(self)+height#,object position z(self)

if object position y(self)<100

jumpb=0

height#=0

endif

if shot=1

if object collision(forward,enemy)=1

kills=kills+1

position object enemy,rnd(4000),100,rnd(4000)

endif

if mouseclick()=1 and dst=0 and ammo>0

ammo=ammo-1

shot=1

bdst=1

dst=1

show object bullet

position object bullet,camera position x(),camera position y(),camera position z()

rotate object bullet,camera angle x(),camera angle y(),camera angle z()

rotate object forward,object angle x(bullet),object angle y(bullet),object angle z(bullet)

position object forward,object position x(bullet),object position y(bullet),object position z(bullet)

endif

if object position x(bullet)<0 or object position x(bullet)>4000 or object position z(bullet)>4000 or object position z(bullet)<0 or object position y(bullet)<0 or object position y(bullet)>1000

hide object bullet

dst=0

shot=0

endif

if shot=1

position object forward,object position x(bullet),object position y(bullet),object position z(bullet)

dst=dst+1

bdst=bdst+1

move object bullet,250

dst=dst+1

endif

cya#=wrapvalue(cya#+(mousemovex()/3.0))

cxa#=cxa#+(mousemovey()/3.0)

if cxa#<-45.0 then cxa#=-45.0

if cxa#>45.0 then cxa#=45.0

cx#=newxvalue(x#,cya#,sin(cxa#))

cz#=newzvalue(z#,cya#,sin(cxa#))

if cz#<0

cz#=ncpz#

z#=ncpz#

endif

if cz#>4000

cz#=ncpz#

z#=ncpz#

endif

if cx#<0

cx#=ncpx#

x#=ncpx#

endif

if cx#>4000

cx#=ncpx#

x#=ncpx#

endif

position object self,cx#,object position y(self)+height#,cz#

sync

loop

Download

Please login to download

Comments

No comments yet.

CodeBase - FPS base

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments

Author Name:	Tim Ballisto
CodeBase Entries:	6