TheGameCreators - CodeBase

Category: Basic 2D

Version: 0.1

Information

Uploaded: 2nd Mar 2004 15:53

Modified: 1st Jan 1970 01:00

Author: Represent

Summary

A basic 2 player ping-pong game. Rigth now I am using it for the main 2 player engine for my pong game. Maybe another day i will post it with AI. Enjoy!

Full Description

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

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 = 7

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

TEXT 1,1, "Player One Score: "

ink rgb(255,100,0),0

TEXT 500,1, "Player Two Score: "

ink rgb(255,100,0),0

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 upkey() = 1 then player_y(2) = player_y(2) - 10

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

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:TEXT 500,1, "Player One Score: " + STR$(player_score(2)):throw_ball = 1:DELETE sprite 3

IF ball_x > 635 then player_score(1) = player_score(1) + 1:TEXT 1,1, "Player One Score: " + STR$(player_score(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.

CodeBase - Ping-Pong

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments

Author Name:	Represent
CodeBase Entries:	2