Comment taper des listings pour Hector 1 ?

Tout sur le pou français

Modérateur : Politburo

Avatar de l’utilisateur
Olivier
Fonctionne à 300 bauds
Fonctionne à 300 bauds
Messages : 96
Inscription : 10 oct. 2002 09:46
Localisation : France (Bordeaux)
Contact :

Re: Comment taper des listings pour Hector 1 ?

Message par Olivier » 23 juin 2020 22:54

Wow !!
Magnifique ! T'es un génie :-)

Je commençais à chercher suite à ton dernier message... :-)
Je vais pouvoir taper des nouveaux programmes pour Interact/Hector !

HLL
Fonctionne à 300 bauds
Fonctionne à 300 bauds
Messages : 231
Inscription : 19 janv. 2017 21:58

Re: Comment taper des listings pour Hector 1 ?

Message par HLL » 23 juin 2020 23:08

C'est à toi de jouer !
Si tu as des listings qui passent mal, fait le moi savoir en postant le texte sur ce fil.
Bon courage.
:D

Avatar de l’utilisateur
Olivier
Fonctionne à 300 bauds
Fonctionne à 300 bauds
Messages : 96
Inscription : 10 oct. 2002 09:46
Localisation : France (Bordeaux)
Contact :

Re: Comment taper des listings pour Hector 1 ?

Message par Olivier » 24 juin 2020 17:53

Bon ben ça à l'air de bien fonctionner !
La nuit dernière j'ai tapé un programme trouvé sur une Newsletter Interact de 1980, intitulé Chase.
C'est inspiré d'un concept bien connu de jeu en Basic qu'on trouvait dans les premiers livres du genre ou le magazines américains.
Mais l'adaptation pour Interact est bien sympa.
D'ailleurs il existe une version commerciale sortie en 1982 encore mieux qui s'appelle Megavolts, toujours sur le même principe.

Voilà ce que donne Chase à l'écran :

Image

Image

Image

Et le listing :

Code : Tout sélectionner

5 COLOR0,7,4,1
10 CLS:GOSUB400
15 CLS:D$=CHR$(1)
20 FORX=5TO105STEP5:OUTPUTD$,X,75,3:OUTPUTD$,X,10,3
25 IFX=50THENOUTPUTD$,50,75,0:OUTPUTCHR$(12),50,75,1:OUTPUTD$,50,10,0
28 NEXT
30 FORY=70TO15STEP-5:OUTPUTD$,5,Y,3:OUTPUTD$,105,Y,3:NEXT
40 FORX=1TO20
50 B=RND(1):B=INT(B*18)+1:B=B*5:B=B+10
60 C=RND(1):C=INT(C*12)+1:C=C*5:C=C+10
70 OUTPUTD$,B,C,3:NEXT
80 OUTPUTD$,20,60,0:OUTPUTD$,90,60,0:OUTPUTD$,20,25,0:OUTPUTD$,90,25,0
85 W$=CHR$(6):OUTPUTD$,50,45,0:OUTPUTW$,50,45,2
90 OUTPUTW$,20,60,2:OUTPUTW$,90,60,2:OUTPUTW$,20,25,2:OUTPUTW$,90,25,2
95 FORE=1TO5:C(E)=2:NEXT
100 Q$=CHR$(12):X=50:Y=75
105 A1=20:A2=90:A3=20:A4=90:A5=50:B1=60:B2=60:B3=25:B4=25:B5=45
110 IFJOY(0)=0THEN110
115 OUTPUTQ$,X,Y,0:TONE100,10
120 IFJOY(0)=1THENX=X-5
121 IFJOY(0)=2THENX=X+5
122 IFJOY(0)=4THENY=Y+5
123 IFJOY(0)=8THENY=Y-5
125 IFJOY(0)=5THENX=X-5:Y=Y+5
126 IFJOY(0)=6THENX=X+5:Y=Y+5
127 IFJOY(0)=9THENX=X-5:Y=Y-5
128 IFJOY(0)=10THENX=X+5:Y=Y-5
129 IFX<5THENX=5
130 IFY>75THENY=75
132 IFY<5THENY=5
133 OUTPUTQ$,X,Y,1
134 IFPOINT(X,Y)=3THEN330
135 IFY<11ANDX=50THEN380
136 P=1
140 IFC(1)=0THEN170
142 OUTPUTW$,A1,B1,0
144 IFX<A1THENA1=A1-5
146 IFX>A1THENA1=A1+5
148 IFY<B1THENB1=B1-5
150 IFY>B1THENB1=B1+5
152 OUTPUTW$,A1,B1,2
154 IFPOINT(A1,B1)=3THENC(1)=0:GOSUB300
156 IFA1=XANDB1=YTHEN330
158 IFA1=A2ANDB1=B2THENC(1)=0:C(2)=0:GOSUB300
160 IFA1=A3ANDB1=B3THENC(1)=0:C(3)=0:GOSUB300
162 IFA1=A4ANDB1=B4THENC(1)=0:C(4)=0:GOSUB300
164 IFA1=A5ANDB1=B5THENC(1)=0:C(5)=0:GOSUB300
170 IFC(2)=0THEN200
172 OUTPUTW$,A2,B2,0
174 IFX<A2THENA2=A2-5
176 IFX>A2THENA2=A2+5
178 IFY<B2THENB2=B2-5
180 IFY>B2THENB2=B2+5
182 OUTPUTW$,A2,B2,2
184 P=2
186 IFPOINT(A2,B2)=3THENC(2)=0:GOSUB300
188 IFA2=XANDB2=YTHEN330
190 IFA2=A1ANDB2=B1THENC(2)=0:C(1)=0:GOSUB300
192 IFA2=A3ANDB2=B3THENC(2)=0:C(3)=0:GOSUB300
194 IFA2=A4ANDB2=B4THENC(2)=0:C(4)=0:GOSUB300
196 IFA2=A5ANDB2=85THENC(2)=0:C(5)=0:GOSUB300
200 IFC(3)=0THEN230
202 OUTPUTW$,A3,B3,0
204 IFX<A3THENA3=A3-5
206 IFX>A3THENA3=A3+5
208 IFY<B3THENB3=B3-5
210 IFY>B3THENB3=B3+5
212 OUTPUTW$,A3,B3,2
213 P=3
214 IFPOINT(A3,B3)=3THENC(3)=0:GOSUB300
216 IFA3=XANDB3=YTHEN330
218 IFA3=A1ANDB3=B1THENC(3)=0:C(1)=0:GOSUB300
220 IFA3=A2ANDB3=B2THENC(3)=0:C(2)=0:GOSUB300
222 IFA3=A4ANDB3=B4THENC(3)=0:C(4)=0:GOSUB300
224 IFA3=A5ANDB3=B5THENC(3)=0:C(5)=0:GOSUB300
230 IFC(4)=0THEN260
232 OUTPUTW$,A4,B4,0
234 IFX<A4THENA4=A4-5
236 IFX>A4THENA4=A4+5
238 IFY<B4THENB4=B4-5
240 IFY>B4THENB4=B4+5
242 OUTPUTW$,A4,B4,2
243 P=4
244 IFPOINT(A4,B4)=3THENC(4)=0:GOSUB300
246 IFA4=XANDB4=YTHEN330
248 IFA4=A1ANDB4=B1THENC(4)=0:C(1)=0:GOSUB300
250 IFA4=A2ANDB4=B2THENC(4)=0:C(2)=0:GOSUB300
252 IFA4=A3ANDB4=B3THENC(4)=0:C(3)=0:GOSUB300
254 IFA4=A5ANDB4=B5THENC(4)=0:C(5)=0:GOSUB300
260 IFC(5)=0THEN110
262 OUTPUTW$,A5,B5,0
264 IFX<A5THENA5=A5-5
266 IFX>A5THENA5=A5+5
268 IFY<B5THENB5=B5-5
270 IFY>B5THENB5=B5+5
272 OUTPUTW$,A5,B5,2
273 P=5
274 IFPOINT(A5,B5)=3THENC(5)=0:GOSUB300
276 IFA5=XANDB5=YTHEN330
278 IFA5=A1ANDB5=B1THENC(5)=0:C(1)=0:GOSUB300
280 IFA5=A2ANDB5=B2THENC(5)=0:C(2)=0:GOSUB300
282 IFA5=A3ANDB5=B3THENC(5)=0:C(3)=0:GOSUB300
284 IFA5=A4ANDB5=B4THENC(5)=0:C(4)=0:GOSUB300
290 GOTO110
300 SOUND3,32:FORE=1TO200:NEXT:SOUND1,8770:FORE=1TO5
302 IFP=1THENOUTPUT"*",A1,B1,1:OUTPUT"*",A1,B1,3:OUTPUT"*",A1,B1,0
305 IFP=2THENOUTPUT"*",A2,B2,1:OUTPUT"*",A2,B2,3:OUTPUT"*",A2,B2,0
308 IFP=3THENOUTPUT"*",A3,B3,1:OUTPUT"*",A3,B3,3:OUTPUT"*",A3,B3,0
311 IFP=4THENOUTPUT"*",A4,B4,1:OUTPUT"*",A4,B4,3:OUTPUT"*",A4,B4,0
313 IFP=5THENOUTPUT"*",A5,B5,1:OUTPUT"*",A5,B5,3:OUTPUT"*",A5,B5,0
315 NEXT:SOUND7,4096
317 S=S+20
320 OUTPUTD$,A,P,0:RETURN
330 SOUND3,48:FORE=1TO300:NEXT:SOUND1,8770:FORE=1TO5
335 OUTPUT"*",X,Y,1:OUTPUT"*",X,Y,2:OUTPUT"*",X,Y,3:OUTPUT"*",X,Y,0
345 NEXT:SOUND7,4096
348 FORE=10TO100STEP5:OUTPUTD$,E,45,0:NEXT
350 OUTPUTD$,X,Y,0:OUTPUT"GOT THE HUMANOID",10,45,1
355 S=S-50:M=M+1
360 OUTPUTQ$,X,Y,0:IFY<11ANDX=50THENOUTPUTQ$,X,Y-1,1
365 FORE=10TO35STEP5:OUTPUTD$,E,15,0:NEXT
366 OUTPUTS,10,15,1:OUTPUTD$,95,15,0:OUTPUTM,90,15,1
368 IFM=5THENFORE=1TO80:TONEE,10:NEXT:GOTO391
370 FORE=1TO11:PRINT:NEXT:GOTO20
380 FORE=10TO100STEP5:OUTPUTD$,E,45,0:NEXT
385 FORE=80TO1STEP-1:TONEE,10:NEXT
390 OUTPUT"HUMANOID ESCAPED",10,45,1:S=S+100:GOTO360
391 C1S:OUTPUT"YOU HAVE BEEN",10,45,1:OUTPUT"DESTR0YED",16,39,1"
392 OUTPUTS,40,25,3
393 OUTPUT"HIGH SCORE : 7130",10,60,2
394 A$=INSTR$(1):C1EAR:GOTO15
395 END
400 PRINT"YOU ARE WITHIN":PRINT"THE WALLS OF A":PRINT"HIGH SECURITY ":PRINT"PRISON.";
402 FORE=1TO400:NEXTE
404 PRINT"YOU MUST ESCAPE FROM THE":PRINT"HEAT SENSITIVE":PRINT"ROBOTS."
405 FORE=1TO600:NEXT
406 PRINT"YOU MUST ALSO":PRINT"AVOID THE HIGH":PRINT"VOLTAGE WALLS.":FORE=1TO500:NEXT
408 PRINT"THE OBJECT IS TO":PRINT"GET TO THE OTHER":PRINT"END OF THE":PRINT"PRISON."
409 FORE=1TO500:NEXT
410 PRINT"YOU MAY ONLY BE":PRINT"CAUGHT 5 TIMES":FORE=1TO200:NEXT
412 PRINT"GOOD LUCK!":FORE=1TO600:NEXT
420 RETURN

HLL
Fonctionne à 300 bauds
Fonctionne à 300 bauds
Messages : 231
Inscription : 19 janv. 2017 21:58

Re: Comment taper des listings pour Hector 1 ?

Message par HLL » 25 juin 2020 08:49

Bravo, Olivier !

Voilà un nouveau gisement logiciel qui va enrichir la collection…
J'avoue que la saisie sur émulateur était pénible, et les copier/coller parfois laborieux.

Répondre

Revenir vers « Victor & Hector »