1 !
3 ! EXELBLITZ
5 ! HEBDOGICIEL 66
7 !
9 GOSUB 319
11 CLS "BCC"
13 Z=20:V=3:TA=0:HA=.4
15 !
17 ! DEFINITION
19 !
21 CALL CHAR(1,"0000F07038F87C3EFF1F")
23 CALL CHAR(2,"0000030F3F7F7F7FFFE3")
25 CALL CHAR(3,"0000C0F0FCFEFEFEFFC7")
27 CALL CHAR(4,"00000F0E1C1F3E7CFFF8")
29 CALL CHAR(5,"07")
31 CALL CHAR(6,"E3E363633F3F07")
33 CALL CHAR(7,"C7C7C6C6FEFCE")
35 CALL CHAR(8,"E0")
37 CALL CHAR(9,"00000000000000000007")
39 CALL CHAR(10,"000000000000000000E0")
41 CALL CHAR(11,"1F1F1EFF3EC7F83870F0")
43 CALL CHAR(12,"F8F878FF7C3E1F1C0E0F")
45 CALL CHAR(13,"C2C2C3C7CFFFFFCFC7C3")
47 CALL CHAR(14,"4343C3E3F3FFFFF3E3C3")
49 CALL CHAR(15,"0006060606060F0F0909")
51 !
53 ! BRUIT
55 !
57 EXP1$="0BA02163031B18008D1E139840073A108100F0901E81080480478F084420020570CE"
59 EXP2$="BD02110840704E118840043CE0010F78C00316B080052C20010948800214A0000528"
61 EXP$=EXP1$&EXP2$
63 BAT1$="0398A4AD0165B50D20A7F206E439D180BC263AA0803C2704906BB90418107B390718"
65 BAT2$="105B190162AB24406C190888B91C0004106B8500624E23409C190888AD1C013197FF"
67 BAT$=BAT1$&BAT2$
69 CAR1$="077C312DD46D6F708213EC60072B58C10C66303211F4A0072D6841823E9316EAB637"
71 CAR2$="BAD18D6E74A2139DE8443BDAD18E7634A319CD6846339AB18C6634A2118D68442D6A"
73 CAR3$="518B5AD4A21AD5A84635AA518D4A54A21295A844294AD1FF"
75 CAR$=CAR1$&CAR2$&CAR3$
77 !
79 ! ECRAN
81 !
83 TA=TA+1:HA=HA+.05:S=4
85 CLS
87 CALL SPEECH("R,"&BAT$)
89 CALL COLOR("0GC")
91 LOCATE (22,1)
93 PRINT " "
95 CALL COLOR("0BC"):LOCATE (1,1)
97 FOR I=1 TO V:PRINT "# ";:NEXT I
99 LOCATE (2,1):PRINT "TABLEAU N.";TA
101 CALL COLOR("1bC"):LOCATE (1,15)
103 FOR I=1 TO S
105 PRINT CHR$(1);CHR$(2);CHR$(3);CHR$(4);" ";
107 NEXT I
109 LOCATE (2,15)
111 FOR I=1 TO S
113 PRINT CHR$(5);CHR$(6);CHR$(7);CHR$(8);" ";
115 NEXT I
117 Y=S*6+9:X=1
119 !
120 ! PREMIER CYCLE
121 !
125 CALL COLOR("1RC")
127 X=X+1
129 Y=Y+SGN(Z-Y-1)
131 LOCATE (X-1,Y-1):PRINT " "
133 LOCATE (X,Y)
135 PRINT " ";CHR$(1);CHR$(2);CHR$(3);CHR$(4);" "
137 LOCATE (X+1,Y+1)
139 PRINT CHR$(5);CHR$(6);CHR$(7);CHR$(8)
141 CALL COLOR("1MC")
143 CALL KEY1(A,B)
145 Z=Z+(A=131 AND Z>1)-(A=129 AND Z<35)
147 LOCATE (21,Z)
149 PRINT " ";CHR$(13);CHR$(14);" "
151 IF A=32 AND B=1 THEN GOSUB 255
153 !
155 ! DEUXIEMME CYCLE
157 !
159 CALL COLOR("1BC")
161 LOCATE (X,Y+1)
163 PRINT CHR$(9);CHR$(2);CHR$(3);CHR$(10)
165 LOCATE (X+1,Y+1)
167 PRINT CHR$(11);CHR$(6);CHR$(7);CHR$(12)
169 CALL KEY1(A,B)
171 Z=Z+(A=131 AND Z>1)-(A=129 AND Z<35)
173 CALL COLOR("1MC"):LOCATE (21,Z)
175 PRINT " ";CHR$(13);CHR$(14);" "
177 IF A=32 AND B=1 THEN GOSUB 255
179 IF RND<HA THEN GOSUB 185
181 IF X=20 THEN GOSUB 205
183 GOTO 119
185 !
187 ! PROJECTILES ENNEMIS
189 !
191 CALL COLOR("0BC")
193 FOR I=X+2 TO 20 STEP 2
195 LOCATE (I,Y+2):PRINT CHR$(1)
197 LOCATE (I,Y+2):PRINT " "
199 NEXT I
201 IF Y=Z OR Y+1=Z THEN 205
203 RETURN
205 CALL SPEECH("A,"&BAT$)
207 CALL SPEECH("L,"&EXP$)
209 CALL COLOR("0RR")
211 LOCATE (22,1)
213 PRINT " "
215 CALL COLOR("0MB")
217 LOCATE (21,Z+1)
219 PRINT CHR$(12);CHR$(12)
221 PAUSE .4
223 CALL COLOR("0GG")
225 LOCATE (22,1)
227 PRINT " "
229 CALL SPEECH("A,"&EXP$)
231 PAUSE 1
233 V=V-1:IF V<>0 THEN GOTO 85
235 CALL COLOR("0RbHLF")
237 LOCATE (11,16):PRINT "PPEERRDDUU"
239 LOCATE (12,16):PRINT "PPEERRDDUU"
241 LOCATE (1,1):PRINT " "
243 CALL COLOR("0MC")
245 LOCATE (14,12)
247 PRINT "VOULEZ-VOUS REJOUER ?"
249 K$=KEY$
251 IF K$="O" THEN GOTO 11
253 END
255 !
257 ! PROJECTILES DEFENSEUR
259 !
261 CALL COLOR("1BC")
263 FOR I=20 TO X+2 STEP -2
265 LOCATE (I,Z+1):PRINT CHR$(15)
267 LOCATE (I,Z+1):PRINT " "
269 NEXT I
271 IF Z<Y+1 OR Z>Y+2 THEN RETURN
273 CALL SPEECH("L,"&EXP$)
275 FOR I=1 TO 5
277 CALL COLOR("0RR")
279 LOCATE (X,Y+1):PRINT " "
281 LOCATE (X+1,Y+1):PRINT " "
283 CALL COLOR("0YY")
285 LOCATE (X,Y+1):PRINT " "
287 LOCATE (X+1,Y+1):PRINT " "
289 CALL COLOR("0CC")
291 LOCATE (X,Y+1):PRINT " "
293 LOCATE (X+1,Y+1):PRINT " "
295 NEXT I
297 PAUSE .3
299 S=S-1
301 IF S=0 THEN GOTO 305
303 GOTO 85
305 CALL SPEECH("A,"&BAT$)
307 FOR A=1 TO 2
309 CALL SPEECH("L,"&CAR$)
311 PAUSE 2
313 NEXT A
315 PAUSE 1
317 GOTO 83
319 !
321 ! REGLES DE JEU
323 !
325 CLS "BYY"
327 DIM A$(17)
329 A$(2)=" PAR JOCELYN DONZE"
331 A$(4)="DEFENSEUR D'UNE STATION SPATIALE,VOUS"
333 A$(6)="ETES ASSAILLI PAR DES HORDES"
335 A$(8)="D'ENVAHISSEURS,CEUX CI DEVENANT DE"
337 A$(10)="PLUS EN PLUS AGRESSIFS..."
339 A$(12)="SAUREZ VOUS DEFENDRE LA TERRE,TERRIEN ?"
341 A$(15)=" TOUCHES:"
343 A$(16)=" DEPLACEMENT:CURSEUR: <- ET ->"
345 A$(17)=" FEU:BARRE D'ESPACEMENT"
347 CALL COLOR("0RHLF")
349 LOCATE (1,11):PRINT "EEXXEELLBBLLIITTZZ"
351 LOCATE (2,11):PRINT "EEXXEELLBBLLIITTZZ"
353 CALL COLOR("0RY")
355 LOCATE (4,1)
357 PRINT "VOULEZ-VOUS LES REGLES ?"
359 K$=KEY$
361 IF K$="N" THEN RETURN
363 FOR I=1 TO 17
365 FOR J=1 TO LEN(A$(I))
367 CALL COLOR("0RR")
369 LOCATE (I+2,J):PRINT " "
371 CALL COLOR("0BY")
373 LOCATE (I+2,J):PRINT SEG$(A$(I),J,1)
375 NEXT J
377 NEXT I
380 CALL COLOR("0MF"):LOCATE (22,12)
381 PRINT "APPUYER POUR JOUER"
383 B$=KEY$
385 RANDOMIZE
387 RETURN
Ce listing est uniquement proposé pour un usage privé.
Sans accord écrit préalable, vous n'êtes pas autorisé à le distribuer, le transmettre ou le rediffuser.