TheGameCreators - CodeBase - firing bullets code

Return to the CodeBase listing

Category: Games

Version: 1.0

Information

Uploaded: 12th Jul 2006 12:59

Modified: 1st Jan 1970 01:00

Author: slicer 4 ever

Summary

an easy code on how to fire a bullet

Full Description

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

rem ###########################

rem created by slicer 4 ever

rem this was thought up by me

rem ###########################

rem make the matrix

make matrix 1,10000,10000,25,25

update matrix 1

rem hide the mouse

hide mouse

rem make the sync on

sync on

rem make ammo

ammo# = 100

loopammo# = ammo#

rem make bullet array

dim bullet#(ammo#,1)

rem loop and create bullet

for i = 1 to loopammo#

bullet#(i,1)=0

make object sphere i,1

next i

x# = 500

z# = 500

y# =  get ground height(1,x#,z#)+50

rem camera controls

if upkey()=1 then x# = newxvalue(x#,angle#,10) : z# = newzvalue(z#,angle#,10)

if downkey()=1 then x# = newxvalue(x#,angle#,-10) : z# = newzvalue(z#,angle#,-10)

if leftkey()=1 then angle# = wrapvalue(angle#-2)

if rightkey()=1 then angle# = wrapvalue(angle#+2)

rem position camera

position camera x#,y#,z#

yrotate camera angle#

rem now to get to the bullet

rem check if current bullet is inactive(0)

if spacekey()=1 and bullet#(ammo#,1)=0

rem after spacebar go to check if bullet released

bullet#(ammo#,1)=1

endif

if spacekey()=0 and bullet#(ammo#,1)=1

rem go to set up bullet and positionig

bullet#(ammo#,1)=2

ammo# = ammo# - 1

endif

rem loop the bullets

for i = 1 to loopammo#

rem position bullet with camera and rotate it to the same way

rem the camera is positioned

if bullet#(i,1)=2

position object i,x#,y#,z#

yrotate object i,angle#

rem now bullet is ready

bullet#(i,1)=3

endif

rem check if bullet is ready

if bullet#(i,1)=3

rem begin moveing the bullet

move object i,20

endif

next i

rem print how much ammo left

set cursor 0,0

print ammo#

sync

loop

rem hopes this helps people

Download

Please login to download

Comments

No comments yet.

Author Name:	slicer 4 ever
CodeBase Entries:	2

CodeBase - firing bullets code

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments