TheGameCreators - CodeBase

Category: 3D

Version: 1.0

Information

Uploaded: 26th Dec 2011 20:44

Modified: 1st Jan 1970 01:00

Author: freepcdoc

Summary

This is my version of pong, it has a simple control for the computer player. It also has a speed up for the ball. It also has a bitmap for the background which is made in the game, so there is no media needed.

Full Description

This is my version of pong, it has one bitmap which is made within the game. The computer player is simple control. The speed of the ball increases with each bounce off player or computer. Hope you like it, it's my first game

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

rem

autocam off

set display mode 800,600,32

gosub makebmp

start:

gosub set_field

gosub make_ball

gosub make_player_1

gosub make_player_2

pitch camera down 0,.0001

automatic object collision 14,7,0

make object box 5,2000,2000,10:move object 5,100

scale object 5,150,150,100

texture object 5,1

om=5.5:pm1=7:pm2=7:p1s=0:p2s=0:ipm=0

move camera 0,-1350

tm=0

main:

gosub setup_scores

gosub ball_collision

gosub control_player_1

gosub control_player_2

gosub mbmp

if spacekey()=1 then set cursor 300,400:print object position x(14)

set cursor 400,1:print om

if object collision(14,15) or object collision(14,16) then om=om+1:ipm=ipm+1

if ipm=4 then pm1=pm1+1:pm2=pm2+1:ipm=0

goto main

if controlkey()=1 then p1s=p1s+1

set_field:

ink 16777215,0

cls 0

rem make top

make object box 10,2000,10,5:move object up 10,830:scale object 10,200,100,100:hide object 10

rem make left wall

make object box 11,10,2000,5:move object left 11,1100:scale object 11,100,200,100:hide object 11

rem make right wall

make object box 12,10,2000,5:move object right 12,1100:scale object 12,100,200,100:hide object 12

rem make bottom

make object box 13,2000,10,5:move object down 13,830:scale object 13,200,100,100:hide object 13

return

make_ball:

make object sphere 14,30

bd=rnd(2)

if bd=0 then omss=0

if bd=1 then omss=1

omtb=1

rb:

return

ball_collision:

if omtb=0 then move object up 14,om

if omtb=1 then move object down 14,om

if omss=0 then move object left 14,om

if omss=1 then move object right 14,om

if object collision(14,10) then omtb=1

if object collision(14,13) then omtb=0

if object collision(14,11) then p2s=p2s+1:omss=1:gosub rb:om=5

if object collision(14,12) then p1s=p1s+1:omss=0:gosub rb:om=5

if object collision(14,15) then omss=1

if object collision(14,16) then omss=0

if object collision(14,11) and object position x(14)> object position x(15)+5 then gosub rb

return

make_player_1:

rem make primary player

make object box 15,30,120,5:move object left 15,1000

return

control_player_1:

if upkey()=1 then move object up 15,pm1

if downkey()=1 then move object down 15,pm1

if object collision(15,10) then move object down 15,pm1

if object collision(15,13) then move object up 15,pm1

return

make_player_2:

make object box 16,30,120,5:move object right 16,1000

return

control_player_2:

if object position y(14)> object position y(16) then move object up 16,pm2

if object position y(14)< object position y(16) then move object down 16,pm2

return

setup_scores:

ink 16777215,225

set text size 24

set cursor 10,1:print " Player 1 :":set cursor 120,1:print p1s

set cursor 610,1:print "Player 2 :":set cursor 720,1:print p2s

set cursor 400,1:print om

if p1s=3 then goto pl1w

if p2s=3 then goto pl2w

return

pl1w:

set text size 40

set cursor 300,200:print "GAME OVER"

set cursor 295,250:print "Player 1 Wins"

set text size 24:set cursor 270,300:print "To play again press any key"

if inkey$()<>"" then delete object 5:delete object 10:delete object 11:delete object 12:delete object 13:delete object 14:delete object 15:delete object 16:move camera 0,1350:goto start

goto pl1w

ab:

if object collision(14,15) then om=om+1

if object collision(14,16) then om=om+1

return

pl2w:

set text size 40

set cursor 300,200:print "GAME OVER"

set cursor 295,250:print "Player 2 Wins"

set text size 24:set cursor 270,300:print "To play again press any key"

if inkey$()<>"" then delete object 5:delete object 10:delete object 11:delete object 12:delete object 13:delete object 14:delete object 15:delete object 16:move camera 0,1350:goto start

goto pl2w

rb:

rem reposition ball

position object 14,0,550,0

omtb=1

bd=rnd(1)

if bd=0 then omss=0

if bd=1 then omss=1

return

mbmp:

bmpm=rnd(5)

if bmpm=0 then scroll object texture 5,0.0,-0.01

if bmpm=1 then scroll object texture 5,0.0,0.01

if bmpm=2 then scroll object texture 5,-.01,0.0

if bmpm=3 then scroll object texture 5,0.01,0.0

if bmpm=4 then scroll object texture 5,0.01,0.01

if bmpm=5 then scroll object texture 5,-0.01,-0.01

return

makebmp:

ink 16777215,0

cls 0

for t=1 to 100

bm1=rnd(200)

bm2=rnd(200)

bm4=rnd(20)

circle bm1,bm2,bm4

next t

get image 1,0,0,200,200

return

Download

Please login to download

Comments

No comments yet.

CodeBase - My Pong

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments

Author Name:	freepcdoc
CodeBase Entries:	1