 Description | SOLI-PONG by Haegar of Synergy 2023
Commodore Basic 3.5 - Commodore C16/C116/plus4
The Game
--------------------------------------------------------------------------------------------
Soli-Pong is a small 10 line game in basic for 1 Players. You control your racket with the key a = up and z = down.
Try to keep the pong in the field with the racket as long as possible. If you fail, you lose a life. You have 5 lives in total.
Good luck
Variables
--------------
P = Y position racket
X = X position Pong
Y = Y position Pong
V = previous X position Pong
W = previous Y position Pong
A = X drirection Pong
B = Y drirection Pong
C = collision query
K = lives
R = field construction
T$ = query buttons
TI$ = Timer
By lines
-----------------------
0 P=4:SCNCLR:Y=2:A=1:B=1:W=0:COLOR0,1:COLOR4,1:VOL6:TI$="000000":K=5
Clear Screen, Set Frame and Background Color, Set Var., set volume
1 PRINT"× SOLI-PONG BY HAEGARÁ‘":PRINT"UDHDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDI
Print Headline and Top field
2 R=R+1:PRINT"B H":IFR<19THENGOTO2
Print flied
3 PRINT"JFHFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFK":X=INT(RND(1)*10)+5:Y=INT(RND(1)*10)+5
Print Botton field, random x and y Start Position of Pong
4 X=X+A:Y=Y+B:IFX>35THENA=-1:ELSEIFY>20THENB=-1:ELSEIFX<2THENA=1:K=K-1:ELSEIFY<4THENB=1
Note old position, Change of direction at the end of the field
5 IFK=0THENEND:ELSEC=PEEK(3072+X+(Y*40)):IFC=72THENA=1:SOUND1,300,20
No lives = End, Collision with racket, if yes then lives+1, change of direction and make sound
6 CHAR1,V,W," ":CHAR1,X,Y,"Q":V=X:W=Y:GETT$:IFT$="Z"GOTO8:ELSEIFT$="A"GOTO9
clear old position of pong, print new position of pong, Keyboard query for racket movement
7 CHAR,2,23,"Ø":PRINT"LIVES",K,"TIME",TI$:IFP<3THENP=3:ELSEIFP>20THENP=18:ELSEGOTO4
print points and time, check racket at the top or at the buttom
8 CHAR,2,P," ":P=P+1:CHAR,2,P,"H":CHAR1,2,P+1,"H":GOTO7
move racket down
9 CHAR,2,P+1," ":P=P-1:CHAR,2,P,"H":CHAR,2,P+1,"H":GOTO7
move racket up |
|
