Jeu du carré: (GT)
Le but de ce jeux est très simple: vous devez remplir un carré de cinq cases sur cinq cases avec des nombres. Pour commencer vous devez placer le nombre 1 dans l'une des 25 cases de ce tableau (de votre choix). Vous devez ensuite vous deplacer dans le tableau sans en sortir selon certaines règles et le remplir entièrement sans revenir sur une case ou vous êtes déjà passé. A chaque mouvement que vous faites le nombre augmente d'un. Vous pouvez vous déplacer à l'intérieur du tableau Horizontalement, verticalement et en diagonale selon le schéma suivant :
Au début du jeu on vous demandera la case à l'intérieur
de laquelle vous voulez commencer. Pour ce faire on vous demandera un nombre
horizontalement (de 1 à 5 ) qui correspond à une colonne de
gauche à droite et un autre nombre verticalement (de 1 à 5
) qui correspond à une ligne de haut en bas.
Pour faire déplacer le nombre on utilise les touches suivantes :
|
7 (diagonale haut gauche) |
8 (haut) |
9 (diagonale haut droite) |
|
4 (gauche) |
6 (droite) |
|
|
1 (diagonale bas gauche) |
2 (bas) |
3 (diagonale bas droite) |
Si vous avez rempli le carré ou si vous ne pouvez plus déplacer votre nombre sans sortir du carré ou repacer sur une case ou vous êtes déjà passé, appuyez sur la touche 5 et vous receverez un avis sur votre performance.
Ce programme ne peut tourner que sur les modèles GT.
La taille: 490 octets
Goto 4
Lbl 3 : ClrText
If C=25
Then "Bravo" : Goto 4
IfEnd
If C<19
Then "Presque" : Goto 4
IfEnd
If C>16
Then "Pas mal" : Goto 4
IfEnd
If C>10
Then "Bof" : Goto 4
IfEnd
"Nul"
Lbl 4 : "Hor" ? ->G
G * 10 + 31 -> E
"Ver" ? -> H
H * 10 -> D
Cls
ViewWindow 10, 136, 0, 10, 72, 0
16 -> A
Lbl 0 : F-Line 48,A,98,A
A = 66 => Goto 1
48 -> B : A + 10 -> A : Goto 0
Lbl 1 : F-Line B,16,B,66
B = 98 => Goto 2
B + 10 -> B : 1 -> C : Goto 1
Lbl 2 : Text D,E,C
Getkey ->F
F = 0 => Goto 2
If F = 72
Then D + 20 -> D : E - 20 -> E
IfEnd
If F = 73
Then E - 30 -> E
IfEnd
If F = 74
Then D - 20 -> D : E - 20 -> E
IfEnd
If F = 64
Then D - 30 -> D
IfEnd
If F = 54
Then D - 20 -> D : E + 20 -> E
IfEnd
If F = 53
Then E + 30 -> E
IfEnd
If F = 52
Then D + 20 -> D : E + 20 -> E
IfEnd
If F = 62
Then D + 30 -> D
IfEnd
If F = 63
Then Goto 3
IfEnd
Text D,E,C
Plot 0,0
C + 1 -> C : 0 -> F
Goto 2