TheGameCreators - CodeBase - Frist Person Shooter basic By Taylor Barrett

Return to the CodeBase listing

Category: 3D

Version: 1.0

Information

Uploaded: 7th Feb 2004 10:02

Modified: 1st Jan 1970 01:00

Author: look i am a newb

Summary

sets up a FPS with muti bullits in dark basic

Full Description

sets up a FPS with muti bullits in dark basic. working on a zoom. removed from this one becouse it was only 70% working

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

Rem Setup sync

Sync On

Sync Rate 30

Backdrop on

Set camera range 1,5000

Autocam off

Fog on

Fog distance 4000

Fog color RGB(128,128,128)

Color Backdrop RGB(28,28,28)

Rem make matrix

Make matrix 1,10000,10000,20,20

Rem make sure u have a texture

Load image "grass09.bmp",1

Prepare matrix texture 1,1,1,1

Fill matrix 1,0,1

rem make a gun type object

Make object cylinder 1,2

XRotate Object 1,90

Fix object pivot 1

Scale object 1,100,100,500

position object 1,0,-7,15

Lock object on 1

Rem what colour bullits are dark gray right now

For t = 2 To 22

Make Object Sphere t,5

Color Object t,Rgb(125,125,124)

Hide Object t

Next t

Dim Bullet(22,1)

bulletnum = 2

rem matrix

randomize matrix 1,125

X#=5000

Z#=5000

Rem Main loop

oldcAY# = cAY#

oldcAX# = cAX#

cAY# = WrapValue(cAY#+MousemoveX()*0.2)

cAX# = WrapValue(cAX#+MousemoveY()*0.2)

caZ# = Camera angle Z()

Rem  Control input for camera

If Upkey()=1

XTest# = Newxvalue(X#,cAY#,10)

ZTest# = Newzvalue(Z#,cAY#,10)

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

X#=XTest#

Z#=ZTest#

Endif

If Downkey()=1

XTest# = Newxvalue(X#,Wrapvalue(cAY#-180),10)

ZTest# = Newzvalue(Z#,Wrapvalue(cAY#-180),10)

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

X#=XTest#

Z#=ZTest#

Endif

If Leftkey()=1

XTest# = Newxvalue(X#,Wrapvalue(cAY#-90),10)

ZTest# = Newzvalue(Z#,Wrapvalue(cAY#-90),10)

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

X#=XTest#

Z#=ZTest#

Endif

If Rightkey()=1

XTest# = Newxvalue(X#,Wrapvalue(cAY#+90),10)

ZTest# = Newzvalue(Z#,Wrapvalue(cAY#+90),10)

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

X#=XTest#

Z#=ZTest#

Endif

Rem this sets up the bulletlife value ( Bullet(bulletnum,1) = 40 )

Rem moves the object to its starting point

if Mouseclick()=1 and Bullet(bulletnum,1) < 10

Position object bulletnum,X#,Y#-30,Z#

Set object to camera orientation bulletnum

Bullet(bulletnum,1) = 40

Show object bulletnum

Endif

For t = 2 To 22

If Object Visible(t) = 1

Bullet(t,1) = Bullet(t,1) - 1

Move object t,30

If Bullet(t,1) <= 0 then Hide object t

Endif

Next t

Rem This just increases the bullet number for the Mouseclick If function above

Rem It will only move onto the next bulletnum if the previous bullet has been fired,

Rem that is, if bulletlife is greater than 0

Rem It also just uses the same bullets over and again, but using the last line,

If Bullet(bulletnum,1) > 0

Inc bulletnum

If bulletnum > 4 Then bulletnum = 2

Endif

Rem Rotate camera

if cAX#>270

if cAX#-270 > 90 then cAX#=270

else

if cAX# > 90 and cAX#-270<270 then cAX#=90

endif

YRotate camera CurveAngle(cAY#,oldcAY#,24)

XRotate camera CurveAngle(cAX#,oldcAX#,24)

Rem Position Camera

Y# = Get ground height(1,X#,Z#)

Position Camera X#,Y#+90,Z#

Rem Position Listener

Position Listener X#,Y#+90,Z#

Rotate Listener 0,cAY#,0

text 10,30, "FristPersonShooter"

text 10,50, "Walk Around v1.01 "

text 10,70, "FPS = "+str$(screen fps())

text 10,90 "created by Taylor Barrrett"

Rem Refresh Screen

Loop

Download

Please login to download

Comments

No comments yet.

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

CodeBase - Frist Person Shooter basic By Taylor Barrett

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments