JEU -> Réflexion               

1 joueur

Cursor keys to arrange the numbers into order
Q to quit the game

Edité par : Melbourne House, Beam Software

Programme "Fifteen Puzzle" paru sous forme de listing en pages 121 à 126 du livre "Amstrad Games Book CPC 464-664"
Programme "Puzzle de 15" paru sous forme de listing en pages 157 à 163 du livre "El libro gigante de los juegos para Amstrad"
Auteurs : Kevin BERGIN, Andrew LACEY

* L'algorithme de mélange des tuiles du programme "Fifteen Puzzle" peut générer une configuration insoluble.
AVANT :

1130 FOR T=1 TO 30
1140 R1=CINT(RND(1)*15+1)
1150 R2=CINT(RND(1)*15+1)
1160 O1=POSITION(R1)
1170 O2=POSITION(R2)
1180 POSITION(R1)=O2
1190 POSITION(R2)=O1
1200 NEXT T

APRES :

1130 RANDOMIZE TIME:PosX%=4:PosY%=4:FOR T=1 TO 30
1140 FinalPosX%=INT(RND*4)+1:FinalPosY%=INT(RND*4)+1:IF FinalPosX%=PosX% OR FinalPosY%=PosY% THEN 1140
1150 WHILE PosX% < FinalPosX%:GOSUB 1160:WEND:WHILE PosX% > FinalPosX%:GOSUB 1170:WEND:WHILE PosY% < FinalPosY%:GOSUB 1180:WEND:WHILE PosY% > FinalPosY%:GOSUB 1190:WEND:GOTO 1200
1160 IF PosX%<4 THEN PosI%=PosX%+(PosY%-1)*4:POSITION(PosI%)=POSITION(PosI%+1):POSITION(PosI%+1)=16:PosX%=PosX%+1:RETURN ELSE RETURN
1170 IF PosX%>1 THEN PosI%=PosX%+(PosY%-1)*4:POSITION(PosI%)=POSITION(PosI%-1):POSITION(PosI%-1)=16:PosX%=PosX%-1:RETURN ELSE RETURN
1180 IF PosY%<4 THEN PosI%=PosX%+(PosY%-1)*4:POSITION(PosI%)=POSITION(PosI%+4):POSITION(PosI%+4)=16:PosY%=PosY%+1:RETURN ELSE RETURN
1190 IF PosY%>1 THEN PosI%=PosX%+(PosY%-1)*4:POSITION(PosI%)=POSITION(PosI%-4):POSITION(PosI%-4)=16:PosY%=PosY%-1:RETURN ELSE RETURN
1200 NEXT T

* L'algorithme de mélange des tuiles du programme "Puzzle de 15" peut générer une configuration insoluble.
AVANT :

1050 FOR T=1 TO 30
1060 R1=CINT(RND(1)*15+1)
1070 R2=CINT(RND(1)*15+1)
1080 O1=POSICION(R1)
1090 O2=POSICION(R2)
1100 POSICION(R1)=O2
1110 POSICION(R2)=O1
1120 NEXT T

APRES :

1050 RANDOMIZE TIME:PosX%=4:PosY%=4:FOR T=1 TO 30
1060 FinalPosX%=INT(RND*4)+1:FinalPosY%=INT(RND*4)+1:IF FinalPosX%=PosX% OR FinalPosY%=PosY% THEN 1060
1070 WHILE PosX% < FinalPosX%:GOSUB 1080:WEND:WHILE PosX% > FinalPosX%:GOSUB 1090:WEND:WHILE PosY% < FinalPosY%:GOSUB 1100:WEND:WHILE PosY% > FinalPosY%:GOSUB 1110:WEND:GOTO 1120
1080 IF PosX%<4 THEN PosI%=PosX%+(PosY%-1)*4:POSICION(PosI%)=POSICION(PosI%+1):POSICION(PosI%+1)=16:PosX%=PosX%+1:RETURN ELSE RETURN
1090 IF PosX%>1 THEN PosI%=PosX%+(PosY%-1)*4:POSICION(PosI%)=POSICION(PosI%-1):POSICION(PosI%-1)=16:PosX%=PosX%-1:RETURN ELSE RETURN
1100 IF PosY%<4 THEN PosI%=PosX%+(PosY%-1)*4:POSICION(PosI%)=POSICION(PosI%+4):POSICION(PosI%+4)=16:PosY%=PosY%+1:RETURN ELSE RETURN
1110 IF PosY%>1 THEN PosI%=PosX%+(PosY%-1)*4:POSICION(PosI%)=POSICION(PosI%-4):POSICION(PosI%-4)=16:PosY%=PosY%-1:RETURN ELSE RETURN
1120 NEXT T