TheGameCreators - CodeBase

Return to the CodeBase listing

Category: Complete Applications

Version: 1.0

Information

Uploaded: 25th Oct 2003 14:43

Modified: 1st Jan 1970 01:00

Author: Mucky Muck Ninja

Summary

A small 2P game. No media included but most of it is just stuff from the media folder.

Full Description

Not much more to say but to have fun!

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

rem =============================

rem           Klang 1.0

rem =============================

rem         by David Evans

rem =============================

Backdrop on

Color Backdrop RGB(100,50,100)

rem Make a simple scene

make matrix 1,10000.0,10000.0,25,25

load bitmap "floor1.bmp",1

get image 1,0,0,256,256

delete bitmap 1

prepare matrix texture 1,1,2,2

randomize matrix 1,5.0

Load image "blue.bmp",2

Load image "red.bmp",3

Load image "black.bmp",4

Load image "tarmac03.JPG",5

rem load sounds

Load sound "Hit.wav",2

Load sound "shoot.wav",1

Load sound "hitbrick.wav",3

Load sound "shoot2.wav",4

autocam off

rem Make Matrix 1,3000,2000,50,50

rem Randomize Matrix 1,10

Rem make klang 1

Make Object Sphere 1,50

texture object 1,2

Rem make klang 2

Make Object Sphere 2,50

texture object 2,3

Rem make bullet 1

Make Object sphere 3,5

texture object 3,4

Hide Object 3

Rem make bullet 2

Make Object sphere 4,5

texture object 4,4

hide Object 4

rem make box

Make Object cube 10,50

texture object 10,5

Position object 10,1500,200,500

Make Object cube 11,50

texture object 11,5

Position object 11,1000,300,300

Make Object cube 12,50

texture object 12,5

Position object 12,800,100,400

Make Object cube 13,50

texture object 13,5

Position object 13,800,150,500

Make Object cube 14,50

texture object 14,5

Position object 14,1000,250,900

Make Object cube 15,50

texture object 15,5

Position object 15,2000,350,2000

Make Object cube 16,50

texture object 16,5

Position object 16,900,450,900

Make Object cube 17,50

texture object 17,5

Position object 17,800,25,800

Make Object cube 18,50

texture object 18,5

Position object 18,rnd(2000),25,rnd(2000)

Make Object cube 19,50

texture object 19,5

Position object 19,rnd(2000),25,rnd(2000)

Make Object cube 20,50

texture object 20,5

Position object 20,rnd(2000),25,rnd(2000)

Rem make collision

Rem klang

Set object collision to spheres 1

Set object collision to spheres 2

Set object collision on 1

Set object collision on 2

rem bullet

Set object collision to spheres 3

Set object collision to spheres 4

Set object collision on 3

Set object collision on 4

rem boxes

Set object collision to boxes 10

Set object collision to boxes 11

Set object collision on 10

Set object collision on 11

Set object collision to boxes 12

Set object collision to boxes 13

Set object collision on 12

Set object collision on 13

Set object collision to boxes 14

Set object collision to boxes 15

Set object collision on 14

Set object collision on 15

Set object collision to boxes 16

Set object collision to boxes 17

Set object collision on 16

Set object collision on 17

Set object collision to boxes 18

Set object collision to boxes 19

Set object collision on 18

Set object collision on 19

Set object collision to boxes 20

Set object collision on 20

rem on

Set Global Collision on

Rem placement

Position object 1,1080,25,500

Position object 2,1000,25,135

Position camera 1000,190,-140

Point camera 1080,25,550

Life2 = 20

life1 = 20

rem game begin

sync on

sync rate 30

autocam off

hide mouse

set cursor 10,10

Print "Red ";life1

set cursor 550,10

Print "Blue ";life2

rem more collisions(bullets)

If object collision(3,2)>0 and life1 > 0

life1 = life1 - 1

Life2 = life2 + 1

hide object 3

Play sound 2

endif

If life1 = 0 then win = 1

If life2 = 0 then win2 = 1

If object collision(4,1)>0 and life2 > 0

life2 = life2 - 1

Life1 = life1 + 1

hide object 4

Play sound 2

endif

If object collision(16,3)>0

Hide object 3

Play sound 3

endif

If object collision(17,3)>0

Hide object 3

Play sound 3

endif

If object collision(18,3)>0

Hide object 3

Play sound 3

endif

If object collision(19,3)>0

Hide object 3

Play sound 3

endif

If object collision(20,3)>0

Hide object 43

Play sound 3

endif

If object collision(10,4)>0

Hide object 4

Play Sound 3

endif

If object collision(11,4)>0

Hide object 4

Play sound 3

endif

If object collision(12,4)>0

Hide object 4

Play sound 3

endif

If object collision(13,4)>0

Hide object 4

Play sound 3

endif

If object collision(14,4)>0

Hide object 4

Play sound 3

endif

If object collision(15,4)>0

Hide object 4

Play sound 3

endif

If win=1

cls

Set Cursor 250,200

Print "Player 1 wins!"

Set Cursor 250,220

Print "Player 1 wins!"

Set Cursor 250,240

Print "Player 1 wins!"

Set Cursor 250,260

Print "Player 1 wins!"

Set Cursor 250,280

Print "Player 1 wins!"

Set Cursor 250,300

Print "Player 1 wins!"

endif

If mouseclick()=1

win=0

life1=20

endif

If win2=1

cls

Set Cursor 250,200

Print "Player 2 wins!"

Set Cursor 250,220

Print "Player 2 wins!"

Set Cursor 250,240

Print "Player 2 wins!"

Set Cursor 250,260

Print "Player 2 wins!"

Set Cursor 250,280

Print "Player 2 wins!"

Set Cursor 250,300

Print "Player 2 wins!"

endif

If mouseclick()=1

win2=0

life2=20

endif

Rem Store the klangs' Y angle in aY#

aY# = Object angle Y(1)

X# = Object position x(1)

Z# = Object position z(1)

Y# = Object position y(1)

a2Y# = Object angle Y(2)

X2# = Object position x(2)

Z2# = Object position z(2)

Y2# = Object position y(2)

Rem klang 1 input

If keystate(80)=1 and bulletlife1=0 then position object 1,x#,y#+4,z#

If keystate(81)=1 and bulletlife1=0 then position object 1,x#,y#-4,z#

If keystate(83)=1 and bulletlife1=0 then aY# = Wrapvalue(aY#+5)

If downkey()=1 then position object 1,x#,y#,z#-4

If Rightkey()=1 then position object 1,x#+4,y#,z#

If Upkey()=1 then position object 1,x#,y#,z#+4

If Leftkey()=1  then position object 1,x#-4,y#,z#

if keystate(82)=1 and bulletlife1=0 then aY# = Wrapvalue(aY#-5)

If keystate(156)=1 and BulletLife1=0

Position Object 3,X#,Y#,z#+28

Set Object to camera orientation 2

BulletLife1 =25

Show Object 3

play sound 1

endif

Rem Box stuff

If BoxLife > 0

Dec BoxLife

Yrotate Object 3,aY#

If BoxLife = 0 then Hide Object 5

endif

Rem bullet stuff

If BulletLife1 > 0

Dec Bulletlife1

Yrotate object 3,aY#

move object 3,50

If BulletLife1 = 0 then Hide object 3

endif

Rem Bullet stuff

If BulletLife2 > 0

Dec BulletLife2

Yrotate object 4,a2Y#

move object 4,50

If BulletLife2 = 0 then hide object 4

endif

Rem klang 2 input

If keystate(48)=1 and bulletlife2=0 then position object 2,x2#,y2#+4,z2#

If keystate(49)=1 and bulletlife2=0 then position object 2,x2#,y2#-4,z2#

If keystate(31)=1 then position object 2,x2#,y2#,z2#-4

If keystate(30)=1 then position object 2,x2#-4,y2#,z2#

If keystate(32)=1 then position object 2,x2#+4,y2#,z2#

If keystate(17)=1 then position object 2,x2#,y2#,z2#+4

If keystate(46)=1 and bulletlife2=0 then a2Y# = Wrapvalue(a2Y#-5)

If keystate(47)=1 and bulletlife2=0 then a2Y# = Wrapvalue(a2Y#+5)

If keystate(33)=1 and BulletLife2=0

Position Object 4,X2#,Y2#,Z2#+28

Set Object to camera orientation 2

BulletLife2 =25

Show Object 4

play sound 4

endif

rem cheats!!!

If keystate(27)=1 then life1 = life1 + 10

If keystate(26)=1 then life2 = life2 + 10

Rem rotate klang 1

Yrotate object 1,aY#

rem rotate klang 2

Yrotate object 2,a2Y#

rem rotate bullet

Yrotate object 3,bY#

Yrotate object 4,b2Y#

loop

Download

Please login to download

Comments

No comments yet.

CodeBase - Klang

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments

Author Name:	Mucky Muck Ninja
CodeBase Entries:	1