Le deuligne de RetroPoke #08 MON BEAU SAPIN

*******************
MON BEAU SAPIN
*******************

Mon beau sapiiiinn roiiii des forêêêêts…
Le sapin est un élément traditionnel aux fêtes de Noël, c’est fun, c’est beau, ça met de l'ambiance… et les enfants adorent participer à la décoration !

Ce jeu de réflexion reprend les mêmes bases que le jeu des TOURS DU HANOI.
Il faut déplacer le sapin de la base [1] vers la base [3]. Il est composé de 8 éléments et seul, l'élément le plus haut peut-être déplacé que sur un autre élément plus grand.

1 - Pour déplacer un élément, sélectionnez la base de départ en tapant [1], [2] ou [3]. Une petite flèche indiquera que la base est bien sélectionnée.

2 -Ensuite, tapez [1], [2] ou [3] pour désigner la base de destination. Si rien ne se passe, c'est que le déplacement est impossible et il vous faudra de nouveau sélectionner la base de départ.

Le jeu prendra fin une fois que le sapin sera entièrement reconstruit sur la base [3]

Listing :

1 DEF FNp$(x)=SPACE$(8-x)+STRING$(x*2-1,&E1+x):MODE 2:FOR a=1 TO 8:a(a,1)=9-a:LOCATE 8,a+7:PRINT FNp$(a):NEXT:a(0,1)=8:PRINT"TAPEZ",1,,2,,3:WHILE a(8,3)=0:z=1:WHILE z:s=0:WHILE s<1 OR s>3 OR a(0,s)=0:s=VAL(INKEY$):WEND:x=a(0,s):d=0:WHILE d=s OR d<1 OR d>3
5 LOCATE s*26-11,17:PRINT CHR$(240)CHR$(8)" "CHR$(8):d=VAL(INKEY$):WEND::y=a(0,d):z=y>0 AND a(x,s)>a(y,d):WEND:LOCATE s*26-18,16-x:PRINT SPACE$(17):LOCATE d*26-18,15-y:PRINT FNp$(a(x,s)):a(0,d)=y+1:a(y+1,d)=a(x,s):a(0,s)=x-1:p=p+1:PRINT CHR$(30),,,p:WEND

Téléchargement : DEUULIGNE 08 MON BEAU SAPIN

0 commentaire

Envoyer un commentaire Annuler la réponse

Vous devez vous connecter pour publier un commentaire.

Evènements

Live en cours Jeu 29 Oct · 12h Sortie de ùCPM #8 Autre
Aujourd'hui Lun 9 Nov · 20h30 Geekorex Twitch
À venir Ven 13 Nov · 22h Xyphoe YouTube
À venir Ven 17 Sep 2027 · 9h → dim 19 Sep 2027 · 18h Amstrad Connection 86120 Saint-Léger-de-Montbrillais