Falling Balls
Posted: Sat Feb 10, 2024 9:17 pm
"Falling Balls" is another interesting strategy game.
First published in "Hebdogiciel", the type-in was done by XavSnap.
My version is essentially the same but with french text replaced with Google
english. I did add a SEED mod so that you can replay the same game again to
get a higher score.
There is a major bug in the program, these lines ...
1050 FOR C=Q(Z) TO Q(Z)+A STEP 1*(Q(Z)+A>Q(Z))-1*(Q(Z)+A<Q(Z))
1060 PRINT AT B(Z),C;A$(Z)
1070 NEXT C
which shifts the bars right, besides being overly complicated, don't work.
An example of the bug can be seen in the 1st screenshot.
Here's my replacement ...
1050 FOR C=1 TO A
1054 LET A$(Z)=A$(Z,20)+A$(Z,1 TO 19)
1060 PRINT AT B(Z),8;A$(Z)
1070 NEXT C
There are 3 versions ...
Billes.p The original french version
Balls.p My version
Balls-UDG.p Same as Balls with CHR$128 graphics
Enjoy;
Greg
First published in "Hebdogiciel", the type-in was done by XavSnap.
My version is essentially the same but with french text replaced with Google
english. I did add a SEED mod so that you can replay the same game again to
get a higher score.
There is a major bug in the program, these lines ...
1050 FOR C=Q(Z) TO Q(Z)+A STEP 1*(Q(Z)+A>Q(Z))-1*(Q(Z)+A<Q(Z))
1060 PRINT AT B(Z),C;A$(Z)
1070 NEXT C
which shifts the bars right, besides being overly complicated, don't work.
An example of the bug can be seen in the 1st screenshot.
Here's my replacement ...
1050 FOR C=1 TO A
1054 LET A$(Z)=A$(Z,20)+A$(Z,1 TO 19)
1060 PRINT AT B(Z),8;A$(Z)
1070 NEXT C
There are 3 versions ...
Billes.p The original french version
Balls.p My version
Balls-UDG.p Same as Balls with CHR$128 graphics
Enjoy;
Greg