TheGameCreators - CodeBase

Return to the CodeBase listing

Category: Complete Applications

Version: 1.0

Information

Uploaded: 6th Dec 2005 19:52

Modified: 1st Jan 1970 01:00

Author: XSlinger

Summary

Credit goes to Chris K. Simple 3D Pong.

Full Description

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

rem HIDE THE MOUSE AND LIMIT THE SYNC RATE TO 40

hide mouse:sync rate 40

rem MAKE THE PADDLES, BALL AND FLOOR

make object box 1,1,1,3:color object 1,rgb(255,0,0)

make object box 2,1,1,3:color object 2,rgb(0,255,0)

make object sphere 3,1:color object 3,rgb(0,0,50)

make object box 4,10,0.1,10:position object 4,0,-0.55,0

rem SET THE BALL ANGLE TO 90 DEGREES

balla#=90

rem START THE MAIN LOOP

sync on:do

rem SCORING

if ballx#>6 then player2score#=player2score#+1:ballx#=0:ballz#=0:balla#=270

if ballx#<-6 then player1score#=player1score#+1:ballx#=0:ballz#=0:balla#=90

set cursor 300,50:print player2score#

set cursor 320,50:print "-"

set cursor 340,50:print player1score#

rem BALL MOVEMENT

ballx#=newxvalue(ballx#,balla#,0.3):ballz#=newzvalue(ballz#,balla#,0.3)

rem PLAYER 1 PADDLE MOVEMENT

IF upkey()=1 and player1pos#<3.5 then player1pos#=player1pos#+0.5

IF downkey()=1 and player1pos#>-3.5 then player1pos#=player1pos#-0.5

if upkey()=1 and ballx#>4 and ballx#<4.5 then balla#=balla#+8

if downkey()=1 and ballx#>4 and ballx#<4.5 then balla#=balla#-8

rem PLAYER 2 PADDLE MOVEMENT

IF keystate(17)=1 and player2pos#<3.5 then player2pos#=player2pos#+0.5

IF keystate(31)=1 and player2pos#>-3.5 then player2pos#=player2pos#-0.5

if keystate(17)=1 and ballx#<-4 and ballx#>-4.5 then balla#=balla#+8

if keystate(31)=1 and ballx#<-4 and ballx#>-4.5 then balla#=balla#-8

rem BOUNCING

if ballx#>4 and ballx#<4.5 and ABS(player1pos#-ballz#)<1.5 then balla#=360-balla#

if ballx#<-4 and ballx#>-4.5 and ABS(player2pos#-ballz#)<1.5 then balla#=360-balla#

if ballz#>4 or ballz#<-4 then balla#=180-balla#

rem MAKE SURE balla# IS LESS THAN 360 AND MORE THAN 0

balla#=wrapvalue(balla#)

rem POSITION OBJECTS

position object 1,5,0,player1pos#:position object 2,-5,0,player2pos#

position object 3,ballx#,0,ballz#:yrotate object 3,balla#

position camera 0,10,-10:point camera 0,0,0

sync:loop

Download

Please login to download

Comments

No comments yet.

CodeBase - 3D Pong