JEU -> Réflexion               

1 joueur

Paru sous forme de listing dans le magazine Amstar & Cpc n° 37 Septembre 1989.
Programmation : Stephane De CANEVA

Il y a plusieurs bugs dans les listings.

* Le programme peut terminer sous BASIC 1.0 avec l'erreur "Memory full in 90". Ce bug peut être corrigé en modifiant la ligne 10 :
AVANT :

10 IF PEEK(&A000)<>1 THEN MEMORY &5800-1:LOAD"KRISTAX1":LOAD"KRISTAX2":POKE &A000,1

APRES :

10 IF PEEK(&A000)<>1 THEN OPENOUT"D":MEMORY &5800-1:CLOSEOUT:LOAD"KRISTAX1":LOAD"KRISTAX2":POKE &A000,1

* Lorsque le message de félicitations est affiché, le programme n'attend pas qu'une touche soit appuyée et le jeu recommence tout de suite. Ce bug peut être corrigé en modifiant la ligne 160 et en ajoutant une nouvelle ligne 165 :
AVANT :

160 IF NIV=13 THEN PAPER #1,5:CLS#1:A=1:B=48:A$="FELICITATION":GOSUB 870:B=64:A$="VOUS AVEZ RETROUVE":GOSUB 870:B=80:A$="TOUS LES KRISTAXS":GOSUB 870:B=96:A$="SAUVE LE MONDE":GOSUB 870:B=112:A$="ET DETRUIT LES MUTANTS":GOSUB 870:CALL &BB06:NIV=1

APRES :

160 IF NIV=13 THEN PAPER #1,5:CLS#1:A=1:B=48:A$="FELICITATION":GOSUB 870:B=64:A$="VOUS AVEZ RETROUVE":GOSUB 870:B=80:A$="TOUS LES KRISTAXS":GOSUB 870:B=96:A$="SAUVE LE MONDE":GOSUB 870:B=112:A$="ET DETRUIT LES MUTANTS":GOSUB 870:WHILE INKEY$<>"":WEND
165 IF NIV=13 THEN CALL &BB06:NIV=1

* Le jeu affiche un high score de 50.000, mais le programme ne l'enregistre pas dans une variable, et de toute façon, il est presque impossible de le battre à moins qu'on ne joue tous les niveaux plusieurs fois.

* Si une ligne n'est pas saisie correctement dans le listing 2, le programme affiche une erreur, mais le numéro de la ligne qui est affiché est faux ! Il peut être corrigé en modifiant la ligne 20 :
AVANT :

20 FOR A=&5800 TO &5800+&999 STEP 16:SOM=0:FOR B=0 TO 15:READ A$:POKE A+B,VAL("&"+A$):SOM=SOM+VAL("&"+A$):NEXT:LIG=LIG+10:PRINT LIG:READ A$:IF SOM<>VAL("&"+A$) THEN PRINT"ERREUR EN LIGNE";LIG:END ELSE NEXT

APRES :

20 FOR A=&5800 TO &5800+&999 STEP 16:SOM=0:FOR B=0 TO 15:READ A$:POKE A+B,VAL("&"+A$):SOM=SOM+VAL("&"+A$):NEXT:PRINT LIG:READ A$:IF SOM<>VAL("&"+A$) THEN PRINT"ERREUR EN LIGNE";LIG:END ELSE LIG=LIG+10:NEXT

* La même erreur se produit dans le listing 3. Il peut être corrigé en modifiant la ligne 20 :
AVANT :

20 FOR A=&9023 TO &9023+&71 STEP 16:SOM=0:FOR B=0 TO 15:READ A$:POKE A+B,VAL("&"+A$):SOM=SOM+VAL("&"+A$):NEXT:LIG=LIG+10:PRINT LIG:READ A$:IF SOM<>VAL("&"+A$) THEN PRINT"ERREUR EN LIGNE";LIG:END ELSE NEXT

APRES :

20 FOR A=&9023 TO &9023+&71 STEP 16:SOM=0:FOR B=0 TO 15:READ A$:POKE A+B,VAL("&"+A$):SOM=SOM+VAL("&"+A$):NEXT:PRINT LIG:READ A$:IF SOM<>VAL("&"+A$) THEN PRINT"ERREUR EN LIGNE";LIG:END ELSE LIG=LIG+10:NEXT