TheGameCreators - CodeBase

Return to the CodeBase listing

Category: 2D

Version: 1.0

Information

Uploaded: 16th Oct 2003 14:20

Modified: 1st Jan 1970 01:00

Author: Anonymous Coder

Summary

Sorry - I know everyone has probably made this before but i had to have a go as im new to DarkBasic

Full Description

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

hide mouse

sync rate 0

sync on

`you can use either the set shapes or the images you want

`just comment below as desired

`draw ball

ink rgb(255,0,0),0

box 0,0,8,11

get image 1,0,0,8,11

cls 0

`OR

`load image "ball.bmp",1

`draw paddle

ink rgb(0,200,255),0

box 0,0,8,40

get image 2,0,0,8,40

cls 0

`OR

`load image "paddle.bmp",2

`Load Sounds - just uncomment them out if ya have some sounds

`load sound "player1.wav",1

`load sound "player2.wav",2

`load sound "win.wav",3

speedx=4

speedy=4

ballx=8

bally=216

player1x=0

player1y=200

player2x=630

player2y=200

score1=0

score2=0

spacekey=0

`1 denotes that player serves - is player wins point they get serve

serve1=1

serve2=0

cls 0

paste image 1,ballx,bally

paste image 2,player1x,player1y

paste image 2,player2x,player2y

`  text 30,30,str$(scancode())

`	write scores on screen

set text font "Arial"

set text size 14

text 10,0,"Player One: " + str$(score1)

text 560,0,"Player Two : " + str$(score2)

`make the ball move

if spacekey=1 then inc ballx,speedx : inc bally,speedy

`Controls for moving the paddles - using

`keystate allows multiple key presses

if keystate(30)=1 and spacekey=1 then dec player1y,2 : if player1y<10 then player1y=10

if keystate(44)=1 and spacekey=1 then inc player1y,2 : if player1y>440 then player1y=440

if keystate(40)=1 and spacekey=1 then dec player2y,2 : if player2y<10 then player2y=10

if keystate(53)=1 and spacekey=1 then inc player2y,2 : if player2y>440 then player2y=440

`serve button

if keystate(57)=1 and spacekey=0 then inc ballx,speedx : inc bally,speedy*-1 : spacekey=1

`Check for rebounds off walls

if bally>470 then speedy=speedy*-1

if bally<8 then speedy=speedy*-1

`Check to see if player lets goal in

if ballx>630 then inc score1,1 : serve1=1 : serve2=0 : gosub resetgame

if ballx<0 then inc score2,1 : serve1=0 : serve2=1 : gosub resetgame

`Check for collision between paddles and balls

`The paddle has 5 areas that shoot the ball at different angles

if ballx<8

if bally>=player1y-4 and bally<=player1y+5

speedx=4 : speedy=-5

`play sound 1

lasthit=1

endif

if bally>player1y+5 and bally<=player1y+18

speedx=6 : speedy=-4

`play sound 1

lasthit=1

endif

if bally>player1y+18 and bally<=player1y+22

speedx=7 : speedy=0

`play sound 1

lasthit=1

endif

if bally>player1y+22 and bally<=player1y+35

speedx=6 : speedy=4

`play sound 1

lasthit=1

endif

if bally>player1y+35 and bally<=player1y+40

speedx=4 : speedy=5

`play sound 1

lasthit=1

endif

if ballx>622

if bally>=player2y-4 and bally<=player2y+5

speedx=-4 : speedy=-5

`play sound 2

lasthit=2

endif

if bally>player2y+5 and bally<=player2y+18

speedx=-6 : speedy=-4

`play sound 2

lasthit=2

endif

if bally>player2y+18 and bally<=player2y+22

speedx=-7 : speedy=0

`play sound 2

lasthit=2

endif

if bally>player2y+22 and bally<=player2y+35

speedx=-6 : speedy=4

`play sound 2

lasthit=2

endif

if bally>player2y+35 and bally<=player2y+40

speedx=-4 : speedy=5

`play sound 2

lasthit=2

endif

sync

loop

`reset sub

resetgame:

spacekey=0

if serve1=1

speedx=5

speedy=4

ballx=8

bally=216

player1x=0

player1y=200

player2x=630

player2y=200

else

speedx=-5

speedy=4

ballx=622

bally=216

player1x=0

player1y=200

player2x=630

player2y=200

endif

return

Download

Please login to download

Comments

No comments yet.

CodeBase - PONG

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments

Author Name:	Anonymous Coder
CodeBase Entries:	1