Attaque d'extraterrestres: (GT)
Il s'agit de la première version d'un jeu classique d'attaque d'extraterrestres. La deuxième est sur le point d'être achevée et bénéficiera d'améliorations notables. Ce programme, plus long ne devrait être disponible que par la FX-Interface.
Ce programme ne fonctionne que sur les modèles GT couleur. Pour les faire tourner sur les modèles GT monochrome, enlevez du contenu du programme les instuctions écrites en jaune.
La taille: 1179 octets (pour les GT couleurs)
La taille: 1166 octets (pour les GT monochromes)
Cls : ViewWindow 10, 136, 0, 10 ,72, 0
0 -> I ~ J : 0 -> E : 73 -> A
Plot 10 , 20
Plot 136 , 20 : Line
Plot 25 , 19
Plot 49 , 19
Plot 73 , 19
Plot 97 , 19
Plot 121 , 19
Plot 73 , 21
Plot 73 , 25 : Line
Lbl 0 : Getkey -> B
If E = 0
Then Int (5 Ran#) -> F
Isz J : J = 99 => Goto 1
Isz E : F = 0 => 25 -> G
F = 1 => 49 -> G
F = 2 => 73 -> G
F = 3 => 97 -> G
F = 4 => 121 -> G
Isz L : 70 -> H
IfEnd
F-Line G - 2 , H , G + 2 , H
Text - (H - 9) + 62 , G - 15 ," "
( Il y a 3 espaces entre les guillemets )
Plot 0 , 0
H = 25 => 0 -> E
H - 5 -> H
If H = 20
Then Green Text 15,14, "Votre base a été détruite"
Green Text 25,5, "Le dernier espoir de la Terre"
Green Text 35,39, "s'est envolé"
Stop : IfEnd : IfEnd
B = 0 => Goto 0
If C = 1
Then 0 -> C
Text 43,D, " "
Text 37,D, " "
Text 31,D, " "
Text 25,D, " "
Text 19,D, " "
Text 13,D, " "
Text 7,D, " "
Text 1,D, " "
Plot 0 , 0
IfEnd
B = 0 => Goto 0
If B = 31
Then If A = G
Then Text - (H - 9) + 62 , G - 15 , " O"
Text - (H - 9) + 62 , G - 15 , " "
( Il y a 3 espaces entre les guillemets )
Plot 0 , 0
0 -> E : IfEnd : IfEnd
If B = 27
Then If A = 97
Then 121 -> A
Text 47,87, " "
IfEnd
If A = 73
Then 97 -> A
Text 47,63," "
IfEnd
If A = 49
Then 73 -> A
Text 47,15," "
IfEnd
If A = 25
Then 49 -> A
Text 47,15," "
IfEnd
If B = 38
Then If A = 49
Then 25 -> A
Text 47,39," "
IfEnd
If A = 73
Then 49 -> A
Text 47,63," "
IfEnd
If A = 97
Then 73 -> A
Text 47,87," "
IfEnd
If A = 121
Then 97 -> A
Text 47,111," "
IfEnd : IfEnd
F-Line A , 21 , A , 25
Goto 0
Lbl 1: Green Text 1,1, "Vous"
Green Text 1,20, "avez"
Green Text 1,39, "réussi"
Green Text 1,67, "à les repousser"
Green Text 11,5, "Cette attaque manqué des"
Green Text 21,1, "extraterrestres nous laisse le"
Green Text 31,1, "temps"
Green Text 31,26, "de"
Green Text 31,37,"nous réorganiser et de"
Green Text 41,4,"préparer une contre offensive"