Select All
' *************** Super Pong Tourney 2k1 ************** ' ************* Copyright 2001 Aaron Duke ************* ' ***--------------- Establishing ------------------*** CLS SCREEN 12 ballSpeed = 25 paddleSpeed = 22 r = 15 col2 = 500 col3 = 510 row2 = 150 paddleLength = 100 ' ***---------------- Main Program -----------------*** DO ' *** Rather than slowing down the game with *** ' *** Black squares to refresh certain parts *** ' *** I printed the score several times before *** ' *** and after CLS to make it easier to see *** LOCATE 1,1: PRINT "Score: "; score CLS LOCATE 1,1: PRINT "Score: "; score ' *** Drawing the circle *** CIRCLE (col,row),r,14 PAINT (col,row),14,14 ' *** Moving the circle *** col = col + move1 row = row + move2 ' *** Bouncing the circle *** SELECT CASE col CASE IS > 610 col = 0 score = score - 1 CASE IS < 50 move1 = ballSpeed END SELECT SELECT CASE row CASE IS > 430 move2 = -ballSpeed CASE IS < 50 move2 = ballSpeed END SELECT ' *** Moving the paddle *** SELECT CASE INKEY$ CASE IS = CHR$(0) + "P" row2 = row2 + paddleSpeed CASE IS = CHR$(0) + "H" row2 = row2 - paddleSpeed END SELECT ' *** Wrapping the paddle around *** IF row2 > 479 THEN row2 = 0 ELSEIF row3 < 0 THEN row2 = 379 END IF ' *** Length of paddle *** row3 = row2 + paddleLength ' *** Drawing the paddle *** LINE (col2, row2)-(col3, row3),3,bf ' *** Bouncing off the paddle *** IF row >= row2 AND row <= row3 AND col >= col2 AND col <= (col3 + 15) THEN move1 = -ballspeed score = score + 1 END IF LOOP WHILE INKEY$ <> CHR$(13)