TheGameCreators - CodeBase - Ping Pong Enhanced

Return to the CodeBase listing

Category: Basic 2D

Version: 0.5

Information

Uploaded: 19th Mar 2004 20:40

Modified: 1st Jan 1970 01:00

Author: Tim Ballisto

Summary

This is an enhanced version of Ping Pong by Will. I added a few things.

Full Description

IMPORTANT! This was written by Will, not me. I added: AI (Novice, Intermediate, Expert) Game modes (Timed, First to #Goals, Practice) Faster ball movement (Otherwise the AI is flawless.) Different display (Score display works differently.)

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

REM CREATOR: Transworld Games

REM CREATED: March 2004

REM MADE IN: DarkBASIC Classic (DarkEDIT v1.56)

REM NAME: Ping-Pong Alpha

remstart

3 grades of AI added by Tim Ballisto

Increased ball speed added by Tim Ballisto

2 Modes added by Tim Ballisto

Interface edited by Tim Ballisto

Tim Ballisto's Website      http://freewebs.com/ballistosoft

remend

print "Select mode.  (Time=1  First to=2  Practice=3)"

if inkey$()="1" then mode=1:exit

if inkey$()="2" then mode=2:exit

if inkey$()="3" then mode=3:exit

loop

if mode=1 then wait (1000):input "How many minutes? ";mig

if mode=2 then wait (1000):input "First to how many goals wins? ";gt

print "Players  (1,2) "

wait (1000)

if inkey$()="1" then pls=1:exit

if inkey$()="2" then pls=2:exit

loop

if pls=1

print "Select AI level. (1,2,3) "

wait (1000)

if inkey$()="1" then AI=screen width()/2:exit

if inkey$()="2" then AI=screen width()/3:exit

if inkey$()="3" then AI=screen width()/4:exit

loop

endif

REM SETTINGS/OTHER

settings_other:

hide mouse

REM SYNC & FONT SETTINGS

sync on : sync rate 40 : hide mouse : enable escapekey

set text font "Tahoma" : set text size 12

REM MAIN-GAME:

main_game:

REM CREATE PADDLES

ink rgb(255,100,0),0

BOX 1,1,20,80

REM GRAB THE BOX & PLACE INTO AN IMAGE SLOT

GET image 1, 1,1,10,50

CLS

REM CREATE BALL

CIRCLE 5,5,5

REM SELECT BALL & PLACE INTO AN IMAGE SLOT

GET image 2, 0,0,15,15

CLS

REM CREATE ARRAYS

DIM player_x(2)

DIM player_y(2)

player_x(1) = 30

player_x(2) = 600

player_y(1) = 240

player_y(2) = 240

REM CREATE ARRAYS FOR P1 & P2

DIM player_score(2)

REM PLACE BALL INTO MIDDLE OF SCREEN

ball_x = 320

ball_y = 240

REM SET BALL SPEED

ball_speed = 9

REM DIRECTION VARIABLES

ballx_dir = 0

bally_dir = 0

REM RANDOM NUMBER

random_direction_x = RND(1)

random_direction_y = RND(1)

ballx_dir = random_direction_x

bally_dir = random_direction_y

REM GAME-START

SET TEXT OPAQUE

ink rgb(255,100,0),0

set cursor 1,1

print "Player One Score: ";iscore

ink rgb(255,100,0),0

set cursor 500,1

print "Player Two Score: ";qscore

ink rgb(255,100,0),0

stt=timer()

cls

SET TEXT OPAQUE

ink rgb(255,100,0),0

set cursor 1,1

print "Player One Score: ";iscore

ink rgb(255,100,0),0

set cursor 500,1

print "Player Two Score: ";qscore

center text screen width()/2,0,fml$

crt=timer()

REM CONTROLS

IF keystate(17) = 1 then player_y(1) = player_y(1) - 10

IF keystate(31) = 1 then player_y(1) = player_y(1) + 10

if pls=2

IF upkey()=1 then player_y(2)=player_y(2)-10

IF downkey()=1 then player_y(2)=player_y(2)+10

endif

`AI HAS BEEN ADDED!!!!!

if pls=1

IF ball_y<player_y(2) and ball_x>AI then player_y(2) = player_y(2) - 10

IF ball_y>player_y(2) and ball_x>AI then player_y(2) = player_y(2) + 10

endif

`SCORE CHECK

if mode=1

mlte=((mig)*60)-(crt-stt)/1000

if mlte<1

if player_score(1)>player_score(2) then cls:print "PLAYER 1 WINS!!!":suspend for key:end

if player_score(2)>player_score(1) then cls:print "PLAYER 2 WINS!!!":suspend for key:end

if player_score(1)=player_score(2) then cls:print "AND IT'S A TIE!!!":suspend for key:end

endif

ml$=str$(((mig)*60)-(crt-stt)/1000)

fml$="Seconds left: "+ml$

endif

if mode=2 and player_score(1)=gt then cls:print "PLAYER 1 WINS!!!":suspend for key:end

if mode=2 and player_score(2)=gt then cls:print "PLAYER 2 WINS!!!":suspend for key:end

REM BALL DIRECTIONS

IF ballx_dir = 0 then DEC ball_x, ball_speed

IF ballx_dir = 1 then INC ball_x, ball_speed

IF bally_dir = 0 then DEC ball_y, ball_speed

IF bally_dir = 1 then INC ball_y, ball_speed

IF ball_x < 1 then player_score(2) = player_score(2) + 1:qscore=qscore+1:throw_ball = 1:DELETE sprite 3

IF ball_x > 635 then player_score(1) = player_score(1) + 1:iscore=iscore+1:throw_ball = 1: DELETE sprite 3

IF ball_y < 1 then bally_dir = 1

IF ball_y > 475 then bally_dir = 0

REM PADDLE POSITIONS

FOR check_y_pos = 1 to 2

IF player_y(check_y_pos) < 1 then player_y(check_y_pos) = 1

IF player_y(check_y_pos) > 430 then player_y(check_y_pos) = 430

NEXT check_y_pos

SPRITE 3, ball_x, ball_y, 2

REM MORE SPRITE

SPRITE 1, player_x(1), player_y(1), 1

SPRITE 2, player_x(2), player_y(2), 1

REM COLLISION

FOR check_collision = 1 to 2

IF SPRITE HIT(check_collision, 3) = 1

IF check_collision = 1 then ballx_dir = 1

IF check_collision = 2 then ballx_dir = 0

ENDIF

NEXT check_collision

REM THROW BALL

IF throw_ball = 1

SLEEP 1000

ball_x = 320

ball_y = 240

ballx_dir = RND(1)

bally_dir = RND(1)

throw_ball = 0

ENDIF

SYNC

LOOP

Download

Please login to download

Comments

No comments yet.

Author Name:	Tim Ballisto
CodeBase Entries:	6

CodeBase - Ping Pong Enhanced

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments