@Comando300-
Heres a pong code I found on the code snippets forum. It works in DBC or DBP.
BOX 1,1,10,50
GET image 1, 1,1,10,50
CLS
CIRCLE 5,5,5
GET image 2, 0,0,15,15
CLS
DIM player_x(2)
DIM player_y(2)
player_x(1) = 30
player_x(2) = 600
player_y(1) = 240
player_y(2) = 240
DIM player_score(2)
ball_x = 320
ball_y = 240
ball_speed = 7
ballx_dir = 0
bally_dir = 0
random_direction_x = RND(1)
random_direction_y = RND(1)
ballx_dir = random_direction_x
bally_dir = random_direction_y
SET TEXT OPAQUE
TEXT 1,1, "Player One Score: "
TEXT 500,1, "Player Two Score: "
DO
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
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
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
SPRITE 1, player_x(1), player_y(1), 1
SPRITE 2, player_x(2), player_y(2), 1
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
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
Hope that helps.
