Aria-Aria – ZX Spectrum – Basic

Rivista: PC Personal Computer Club – Anno: 1983, Novembre – Numero 6 – Trascrizione: Francesco Fiorentini

Continuano i listati ripresi dalla rivista PC Personal Computer Club, questa volta si tratta del numero 7: https://www.retromagazine.net/pc-personal-computer-club-anno-i-numero-7

Semplicissimo programmino in Basic dove impersonate un aereo che viene rincorso da un missile aria-aria. Dovete cercare di mettere piu’ strada possibile tra voi ed il missile, altrimenti correrete il rischio di essere abbattuti.

La base del gioco e’ carina, ma purtroppo implementata in modo molto frettoloso. Il giocatore puo’ spostarsi nelle tre coordinate senza nessun limite di movimento, avendo quindi la possibilita’ di vanificare la rincorsa del missile in qualsiasi momento. Per ovviare al problema potremmo aggiungere un limite ai movimenti, ad esempio fissando uno spostamento massimo per turno o rendendo il raggio d’azione del giocatore via via più ristretto man mano che il missile si avvicina.

Attenzione – rispetto alla versione originale il programma e’ stato leggermente modificato per funzionare su uno ZX Spectrum.

Titolo: PCMON
Piattaforma: ZX Spectrum
Linguaggio: Basic
Versione originale: N/A
Pubblicazione: PC Personal Computer Club
Numero: 7
Anno: 1983, Novembre
Trascrizione: Francesco Fiorentini
Anno: 2026
Download: N/A
Note: Il programma e’ stato corretto perche’ conteneva errori.

Istruzioni…
N/A

Qui di seguito trovate il codice da copiare sul vostro ZX Spectrum oppure su un emulatore, noi suggeriamo Basinc.

Attenzione – Ci siamo resi conto che nel listato i caratteri ‘>’ e ‘<‘ potrebbero venir sostituiti dai rispettivi encoding html ‘&gt’ e ‘&lt’. Nel caso, sostituite questi valori nel listato prima di copiarlo sull’emulatore.

Listato: Aria-Aria – ZX Spectrum – Basic

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
10 REM 'ARIA-ARIA' BY P.C. CLUB - 1983

20 LET XM=110: LET YM=100: LET ZM=0

22 LET DX=0: LET DY=0: LET DZ=0

25 LET XJ=0: LET YJ=0: LET ZJ=0: LET D=0

30 CLS

40 PRINT "POSIZIONE DI PARTENZA:": PRINT

45 PRINT "X=";DX; " Y=";DY; " Z=";DZ: PRINT

50 PRINT "SPOSTAMENTI DEL GIOCATORE :": PRINT

60 PRINT "X +/- 0, 3, 4, 5 ...?": PRINT

70 INPUT DX: PRINT

80 LET XJ = XJ + DX

90 PRINT "Y +/- 0, 3, 4, 5 ...?": PRINT

100 INPUT DY: PRINT

110 LET YJ = YJ + DY

120 PRINT "Z +/- 0, 3, 4, 5 ...?": PRINT

130 INPUT DZ: PRINT

140 LET ZJ = ZJ + DZ

145 LET D=(XJ-XM)*(XJ-XM)+(YJ-YM)*(YJ-YM)+(ZJ-ZM)*(ZJ-ZM)

150 LET D=SQR(D)

160 REM D = DISTANZA MISSILE-GIOCATORE

170 REM XM,YM,ZM = COORDINATE MISSILE

180 REM QUESTA E' LA MOSSA DEL MISSILE

190 LET XM=INT(XM+((XJ-XM)/SQR(D))+.5)

200 LET YM=INT(YM+((YJ-YM)/SQR(D))+.5)

210 LET ZM=INT(ZM+((ZJ-ZM)/SQR(D))+.5)

220 PRINT "NUOVE COORDINATE ": PRINT

225 PRINT "(M=MISSILE, J=GIOCAT.)"

230 PRINT "XM="; XM,"XJ=";XJ: PRINT

240 PRINT "YM=";YM,"YJ=";YJ: PRINT

250 PRINT "ZM=";ZM,"ZJ=";ZJ: PRINT

260 IF D<2 THEN PRINT "BOOM!!! COLPITO E AFFONDATO...": GOTO 310

270 IF D<15 THEN PRINT "MEGLIO LANCIARSI: TI VEDO MALE...": GOTO 290

280 IF D<25 THEN PRINT "ALLARME ROSSO: TI HANNO VISTO..."

290 LET D=INT(D): PRINT "LA DISTANZA E'"; D: PRINT

300 INPUT "PREMERE UN TASTO"; A$: GOTO50

310 PRINT "SEI MORTO... PECCATO!"