TheGameCreators - CodeBase - 3-D Pong w/ no Media and COM AI

Return to the CodeBase listing

Category: Complete Applications

Version: 1.0

Information

Uploaded: 19th Mar 2005 09:37

Modified: 19th Mar 2005 09:39

Author: Flaming Ghost

Summary

This is another 3-D pong that I made, it has no media, and a COM AI.

Full Description

While working on expanding my horizons in DB, I made a 3-D pong. Here's some helpful parts of Pong. A bouncing ball, walls, a paddle, and a COM AI.

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

Sync On

Autocam Off

`Make The Side Walls

Make Object Cube 10,50

Position Object 10,-100,-10,45

Make Object Cube 11,50

Position Object 11,-100,-10,95

Make Object Cube 12,50

Position Object 12,-100,-10,145

Make Object Cube 13,50

Position Object 13,-100,-10,195

Make Object Cube 14,50

Position Object 14,-100,-10,245

Make Object Cube 15,50

Position Object 15,-100,-10,295

Make Object Cube 20,50

Position Object 20,100,-10,45

Make Object Cube 21,50

Position Object 21,100,-10,95

Make Object Cube 22,50

Position Object 22,100,-10,145

Make Object Cube 23,50

Position Object 23,100,-10,195

Make Object Cube 24,50

Position Object 24,100,-10,245

Make Object Cube 25,50

Position Object 25,100,-10,295

`Make the Paddles

Make Object Cube 1,20

position object 1,0,-10,20

make object collision box 1,-10,-11,-11,11,10,10,0

Make Object Cube 2,20

Position Object 2,-85,-10,270

make object collision box 2,-10,-11,-11,11,10,10,0

`Make Ball

Make Object Sphere 3,10

Position Object 3,0,-10,10

make object collision box 3,-5,-5,-5,5,5,5,0

position camera 0,30,-80

`Start the Movement

h_speed#=Rnd(3)+.2

z_speed#=3

set object collision on 3

side#=0

COMside#=-10

z#=50

`Main Game Loop

position camera 0,30,-80

`Move Paddles and Ball

inc x#,h_speed#

inc z#,z_speed#

position object 3,x#,-10,z#

position object 1,side#,-10,20

position object 2,COMside#,-10,295

`Bouncing Math

if object collision(3,1)>0

z_speed#=3

if speed#=3 or speed#=-3

h_speed#=h_speed#+speed#

endif

if object collision(3,2)>0

z_speed#=-3

if speed#=3 or speed#=-3

h_speed#=h_speed#+speed#

endif

if x#<-60 or x#>60

h_speed#=h_speed#*-1

endif

`Scoring

if z#<-5

sleep 200

z_speed#=3

z#=40

x#=0

h_speed#=Rnd(3)+.2

endif

if z#>300

sleep 200

z_speed#=-3

z#=210

x#=0

h_speed#=Rnd(3)+.2

endif

`Paddle Movement

if rightkey()=1

side#=side#+3

speed#=3

else

speed#=0

endif

if leftkey()=1

side#=side#-3

speed#=-3

else

speed#=0

endif

if side#<-55 then side#=-55

if side#>55 then side#=55

if COMside#<-55 then COMside#=-55

if COMside#>55 then COMside#=55

`COM AI

if COMside#<x#

if z#>120

COMside#=COMside#+3.3

endif

if COMside#>x#

if z#>120

COMside#=COMside#-3.3

endif

`End Main Game

sync

loop

Download

Please login to download

Comments

No comments yet.

Author Name:	Flaming Ghost
CodeBase Entries:	6

CodeBase - 3-D Pong w/ no Media and COM AI

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments