JEU -> Casse-Briques               

1 joueur

AMSBREAK est un casse-brique comportant 50 niveaux. Le passage au niveau suivant se produit lorsque la balle tombe dans un trou.

Joystick Gauche/Droite pour déplacer la raquette
Bouton tir du joystick pour lancer la balle

Paru sous forme de listing en pages 54 à 56 du magazine Compute Mit Issue 10/87
Auteur : Carsten LORENZ

* Bugs
a) Le message "Subscript out of range in 2410" apparaît au moment de l'affichage de la zone de jeu du niveau 31
AVANT :

1230 yb=2:xb=2:swx=1:swy=-1:y1=0:y2=0:z=0:k=0:lev=0:DIM feld(12,22),sum(30)

APRES :

1230 yb=2:xb=2:swx=1:swy=-1:y1=0:y2=0:z=0:k=0:lev=0:DIM feld(12,22),sum(50)

b) Lorsque le joueur termine les 50 niveaux, le high score apparaissant sur l'écran de fin n'est pas mis à jour
Ajouter la ligne

3635 WHILE INKEY$<>"":WEND:IF score>hscore THEN hscore=score:hscore$=STR$(hscore)

c) Lorsque le joueur termine les 50 niveaux du jeu et recommence une nouvelle partie alors le score n'est pas remis à 0 et les données manipulées par les routines en assembleur ne sont pas réinitialisées
AVANT :

3650 LOCATE 2,24:A$="PRESS FIRE TO PLAY":GOSUB 2020:CALL &BB18:ERASE FELD,SUM:GOTO 1230

APRES :

3650 LOCATE 2,24:A$="PRESS FIRE TO PLAY":GOSUB 2020:CALL &BB18:ERASE FELD,SUM:GOSUB 2770:score=0:GOTO 1230

d) Lorsque le joueur termine un niveau, le score apparaissant à l'écran n'est pas mis à jour avec les points de bonus du niveau
AVANT :

1950 f=feld(xb-2,yb-2):IF yb<25 THEN IF f<>0 THEN SOUND 1,2000,3,15,,,15:ascore=ascore+f:score=score+f:GOSUB 1930:swy=-swy:IF feld(xb-2,yb-2)=1 THEN score=score-ascore+sum(lev):ascore=sum(lev)ELSE feld(xb-2,yb-2)=0

APRES :

1950 f=feld(xb-2,yb-2):IF yb<25 THEN IF f<>0 THEN SOUND 1,2000,3,15,,,15:ascore=ascore+f:score=score+f:GOSUB 1930:swy=-swy:IF feld(xb-2,yb-2)=1 THEN score=score-ascore+sum(lev):GOSUB 1930:ascore=sum(lev)ELSE feld(xb-2,yb-2)=0