11693
GAME -> Actiontypeins
© Tilt (1987)
 
 
 
Mur
cpc
 
 

Last Update : Tuesday 24 October 2017 at 19 h 33
 
screenshot
CTM644 Colour Monitor
screenshot
GT65 Green Monitor
 

Keywords

INFOS

- CATEGORIES -
GAME -> Action               
- NUMBER OF PLAYERS -
1 player
- STAFF -

Paru sous forme de listing dans le magazine Tilt HS 3 (Mars 1987)
Auteur : ?

- BUGS -

Le jeu est buggé d'origine : Subscript out of range in 620
screenshot


Voici une solution imparfaite qui fait fonctionner le listing (l'ajout des scores ne fonctionne pas toujours et parfois la balle passe a travers la raquette) :
AVANT :
250 DIM A(40,23)

440 XB=5:YB=23
450 XI=XB:YI=YB

600 IF A(XB+1,YB)=1 THEN XI=XI-1:IND=1
610 IF A(XB-1,YB)=1 THEN XI=XI+1:IND=1
620 IF A(XB,YB+1)=1 THEN YI=YI-1:IND=1
630 IF A(XB,YB-1)=1 THEN YI=YI+1:IND=1
640 COL=0:GOSUB 900
650 IF IND=1 THEN XB=XI:YB=YI
660 IF IND=0 THEN XB=XB+1:YB=YB-1
670 COL=2:GOSUB 900

690 IF YB=23 THEN IF XB=XR THEN 720
700 IF XB>23 THEN 760

960 PRINT STRING$(2,CHR$(10))

APRES :
250 DIM A(40,24)

440 XB=5:YB=22
450 XI=1:YI=-1

600 IF A(XB+1,YB)=1 THEN XI=-1:IND=1
610 IF A(XB-1,YB)=1 THEN XI=1:IND=1
620 IF A(XB,YB+1)=1 THEN YI=-1:IND=1
630 IF A(XB,YB-1)=1 THEN YI=1:IND=1
640 COL=0:GOSUB 980
650 XB=XB+XI
660 YB=YB+YI
670 COL=2:GOSUB 980

690 IF YB+YI=23 THEN IF (XB+XI=XR OR XB+XI=XR+1) THEN 720
700 IF YB+YI>23 THEN 760

960 PRINT STRING$(2,CHR$(143))


 

Goto Top
CPC-POWER/CPCSOFTS, programming by Kukulcan © 2007-2019 all rights reserved.
Reproduction forbidden without any express authorization. All the game titles used belong to their respective owners.