JEU -> Réflexion               

1 joueur

Dans ce jeu de réflexion, trois trous noirs sont enfermés dans une boîte quadrillée. Vous devez déterminer leur position en dirigeant des faisceaux laser vers la boîte et en observant leur déviation/absorption à partir des règles suivantes :
- toute lumière laser envoyée sur un trou noir est absorbée
- toute lumière laser envoyée à proximité d'un trou noir (dans une des cases qui entourent le trou noir) est déviée de 90 degrés.

Déterminez la position des trous noirs en sélectionnant l'option "Tir" du menu (Touche "T"). Le programme vous invite à choisir l'origine du tir en utilisant les touches fléchées et à activer le rayon laser en appuyant sur la touche "T". Une lettre de l'alphabet est affichée en majuscule. Elle marque l'origine du tir. Si le rayon laser n'est pas absorbé, la même lettre apparaît en minuscule sur l'une des sorties de la boîte.

Utilisez l'option "Placement" du menu (Touche "P") pour mettre une marque à l'emplacement d'un trou noir et l'option "Effacement" du menu (Touche "E") pour effacer une marque.

Lorsque les trois trous noirs ont été découverts, le programme affiche le nombre d'erreurs commises.

Paru sous forme de listing dans le classeur "Comment exploiter toutes les ressources et augmenter les performances de votre Amstrad CPC 464/664/6128", Tome 4, Partie 9, Chapitre 3.9, aux Editions WEKA

a) La localisation des trous noirs dans la boîte quadrillée, bien que calculée avec la fonction RND, est toujours la même si un reboot de la machine est effectué entre chaque session de jeu.
Ajouter la ligne :

1035 RANDOMIZE TIME

b) Le message "Subscript out of range in 3780" ou "Improper argument in 3780" apparaît si un numéro de ligne hors de la plage 1 à 4 ou un numéro de colonne hors de la plage 1 à 9 est saisi au moment de l'ajout d'une marque :
AVANT :

3740 LOCATE co*2+9,li*2+7

APRES :

3740 IF (li<1) OR (li>4) OR (co<1) OR (co>9) THEN 3805 ELSE IF r(li,co)=1 THEN 3805 ELSE LOCATE co*2+9,li*2+7

Ajouter la ligne :

3805 LOCATE 1,4:PRINT CHR$(18);CHR$(7);"Placement non autorise !";:FOR wt=0 TO 2000:NEXT:LOCATE 1,4:PRINT CHR$(18);:tn=tn-1:RETURN

c) Le message "Subscript out of range in 3950" ou "Improper argument in 3950" apparaît si un numéro de ligne hors de la plage 1 à 4 ou un numéro de colonne hors de la plage 1 à 9 est saisi au moment de la suppression d'une marque :
AVANT :

3910 LOCATE co*2+9,li*2+7

APRES :

3910 IF (li<1) OR (li>4) OR (co<1) OR (co>9) THEN 3975 ELSE IF r(li,co)=0 THEN 3975 ELSE LOCATE co*2+9,li*2+7

Ajouter la ligne :

3975 LOCATE 1,4:PRINT CHR$(18);CHR$(7);"Effacement non autorise !";:FOR wt=0 TO 2000:NEXT:LOCATE 1,4:PRINT CHR$(18);:er=er-1:RETURN