Libro: 24 Tested ready-to-run game programs in basic – Anno: 1978 – Porting: Fernando Coello
Vi ricordate di Sub Hunt, un gioco per Commodore 64 che vi abbiamo proposto qualche mese fa? Ebbene, grazie al lavoro di Fernando Coello, nostro lettore, siamo in grado di presentarvi questo gioco anche nella versione Basic per Oric. I porting fatti da Fernando non sono ancora terminati… Ne pubblicheremo altri nelle prossime settimane. 🙂
Il gioco vi mette contro un sottomarino nucleare nemico in agguato nei mari vicini. L’area di conflitto è una griglia di 10 x 10 unità e il nemico può immergersi fino a una profondità di 10 unità. La Figura 1 vi aiuta a visualizzare l’area di gioco. La vostra missione è distruggere il sottomarino. Avete un numero limitato di cariche di profondità. Questo numero cambia da partita a partita, ma ne avrete sempre almeno 16. Per distruggere il sottomarino, è necessario posizionare la carica non solo sulla giusta coordinata, ma anche alla giusta profondità.
Questo listato é stato pubblicato sul libro 24 Tested ready-to-run game programs in basic, scritto da Ken Tracton ed edito da TAB BOOKS nel 1978.
Titolo: Sub Hunt
Piattaforma: Oric
Linguaggio: Basic
Versione originale: Ken Tracton
Pubblicazione: 24 Tested ready-to-run game programs in basic
Anno: 1978
Porting Oric: Fernando Coello
Anno: 2023
Download: N/A
Note: Versione funzionante su tutte le macchine Atari 8bit.
Istruzioni
Questo gioco vi mette contro un sottomarino nucleare nemico in agguato nei mari vicini. L’area di conflitto è una griglia di 10 x 10 unità e il nemico può immergersi fino a una profondità di 10 unità. La vostra missione è distruggere il sottomarino. Avete un numero limitato di cariche di profondità.
Per distruggere il sottomarino dovrete fornire le coordinate dove posizionare la carica, nella forma di x,y e successivamente specificare la profonditá. La carica verrá consumata solo nel caso di profonditá superiore a 0.
Qui di seguito trovate il codice da copiare sul vostro computer Oric.
Il codice é pronto per essere copiato su un emulatore, consigliamo Oricutron.
Per caricare il codice sull’emulatore, una volta copiato il codice sottostante nella clipboard, pulsante destro e quindi Paste from Clipboard.
Buon divertimento!
Attenzione – Ci siamo resi conto che nel listato i caratteri ‘>’ e ‘<‘ potrebbero venir sostituiti dai rispettivi encoding html ‘>’ e ‘<’. Nel caso, sostituite questi valori nel listato prima di copiarlo sull’emulatore.
Listato: Sub Hunt – Atari 8bit – Basic
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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
2 REM the sub hunt is played
3 REM on a 10 x 10 grid with
4 REM the origin on the left
5 REM top corner.
6 REM the x axis reads from
7 REM 1 to 10 going left to
8 REM right, the y axis reads
9 REM from 1 to 10 going
10 REM top to bottom, therefore
11 REM coordinate 10,10 is the right
12 REM lower corner of the grid
13 REM subs are crafty, watch them
14 REM carefully
20 PAPER 0 : INK 2 : CLS : PRINT ""
21 PRINT"*************************************"
22 PRINT"* *"
23 PRINT"* SUB HUNT *"
24 PRINT"* *"
25 PRINT"*************************************"
26 PRINT
27 PRINT" Original version "
28 PRINT" by Ken Tracton in 1978 "
29 PRINT" for the book:24 tested ready-to-run "
30 PRINT" game programs in basic "
31 PRINT: PRINT: PRINT" Oric-1 version"
32 PRINT" by Kempston"
33 PRINT" on january 2023"
34 PRINT" for Retrolips Project"
35 PRINT: PRINT: PRINT
36 PRINT" >>> when ready press a key <<<"
37 GOSUB 1800
38 CLS
190 PRINT:PRINT "Welcome to the game of SUB HUNT"
200 PRINT ""
210 PRINT "The enemy sub may be lurking"
220 PRINT "anywhere within the grid."
230 PRINT "To complicate finding it and"
240 PRINT "destroying it with depth charges,"
250 PRINT "the sub can also dive."
260 PRINT "Depth charges may be dropped"
270 PRINT "anywhere on the grid, but"
280 PRINT "they are not effective unless"
290 PRINT "they have been set for the right"
300 PRINT "depth."
310 PRINT "Since the sub can dive to the sea"
320 PRINT "bottom, so can depth charges be"
330 PRINT "set for this depth, 10 is the sea"
340 PRINT "bottom, while 1 is the surface of"
350 PRINT "the sea."
352 PRINT:PRINT:PRINT
353 PRINT" >>> when ready press a key <<<"
355 GOSUB 1800
358 CLS
360 PRINT:PRINT "The sub's position will be updated"
370 PRINT "after each move, as it waits to see"
380 PRINT "what your move is."
390 PRINT "The sub, being nuclear powered, can"
400 PRINT "stay at any depth, for any period of"
410 PRINT "time."
420 PRINT "To destroy the sub, you must"
430 PRINT "drop the depth charge not only at"
440 PRINT "the right coordinates, but it must"
450 PRINT "be fused for the right depth."
460 PRINT "If not, you have wasted a depth."
470 PRINT "charge."
480 PRINT "You have a disadvantage and an"
490 PRINT "advantage over the sub."
500 PRINT "The disadvantage is you're limited"
510 PRINT "to the number of depth charges"
520 PRINT "you have, since you have been at"
530 PRINT "sea so long."
532 PRINT:PRINT:PRINT" >>> when ready press a key <<<"
535 GOSUB 1800
538 CLS
540 PRINT:PRINT "The advantage is that the sub can move"
550 PRINT "only one square at a time, and also"
560 PRINT "it can move only up or down in depth"
570 PRINT "one coordinate at a time."
580 REM amount of depth charges
590 C1=INT(RND(1)*11)+16
600 PRINT:PRINT:PRINT "Good luck, commander."
610 PRINT : PRINT: PRINT
620 PRINT "You, commander, are at coordinates 1,1"
630 PRINT ""
640 REM set up position for sub
650 A = INT(RND(1) * 10) + 1
660 B = INT(RND(1) * 10) + 1
670 D = INT(RND(1) * 10) + 1
680 REM a is the x axis
690 REM b is the y axis
700 REM d is the depth
710 REM ship's starting coordinates
720 X1 = 1
730 Y1 = 1
740 REM get ship's move
750 PRINT ""
760 PRINT ">> Commander, where do we sail for?"
765 PRINT ">> Provide coordinates as x,y"
770 INPUT X,Y
780 REM test that x,y are not out of bounds
790 IF X >10 OR X < 1 THEN 820
800 IF Y >10 OR Y < 1 THEN 820
810 GOTO 840
820 PRINT "Commander, stay within the grid"
830 GOTO 750
840 X1 = X
850 Y1 = Y
860 PRINT ""
870 PRINT ">> and what setting for depth charges?"
880 PRINT ">> A setting of 0 releases no charges"
885 PRINT ">> You have ";C1;" charges left..."
890 INPUT C
900 IF C = 0 THEN 960
910 IF C > 10 OR C < 1 THEN 930
920 GOTO 1430
930 PRINT "Commander, the sub is in the water"
940 PRINT "neither above the surface, nor below the bottom"
950 GOTO 860
960 PRINT ""
970 PRINT "The sub is at coordinates:"
980 PRINT "x = "; A; "y = "; B
990 PRINT "and at a depth of "; D
1000 REM new sub position
1010 A1 = INT(RND(1) * 2)
1020 B1 = INT(RND(1) * 2)
1030 D1 = INT(RND(1) * 2)
1040 REM check for proper move
1050 REM get negative or positive move
1060 Q1 = INT(RND(1) * 2)
1070 Q2 = INT(RND(1) * 2)
1080 Q3 = INT(RND(1) * 2)
1090 IF Q1 = 1 THEN 1120
1100 Q1 = -1
1110 GOTO 1130
1120 Q1 = 1
1130 IF Q2 = 1 THEN 1160
1140 Q2 = -1
1150 GOTO 1170
1160 Q2 = 1
1170 IF Q3 = 1 THEN 1200
1180 Q3 = -1
1190 GOTO 1210
1200 Q3 = 1
1210 IF A + (A1 * Q1) > 10 OR A + (A1 * Q1) < 1 THEN 1240
1220 A = A + (A1 * Q1)
1230 GOTO 1280
1240 IF A + (A1 * Q1) > 10 THEN 1270
1250 A = 1
1260 GOTO 1280
1270 A = 9
1280 IF B + (B1 * Q2) > 10 OR B + (B1 * Q1) < 1 THEN 1310
1290 B = B + (B1 * Q2)
1300 GOTO 1350
1310 IF B + (B1 * Q2) > 10 THEN 1340
1320 B = 1
1330 GOTO 1350
1340 B = 9
1350 IF D + (D1 * Q3) > 10 OR D + (D1 * Q3) < 1 THEN 1380
1360 D = D + (D1 * Q3)
1370 GOTO 1420
1380 IF D + (D1 * Q3) >10 THEN 1410
1390 D = 1
1400 GOTO 1420
1410 D = 9
1420 GOTO 750
1430 IF X=A AND Y=B AND C=D THEN 1630
1440 PRINT
1450 PRINT "Sorry, commander, we have missed"
1460 C1 = C1 - 1
1490 IF C1 >0 THEN 960
1500 PRINT ""
1510 PRINT "Sorry, commander, no more depth charges"
1520 PRINT "We cannot get him without charges"
1530 PRINT ""
1540 PRINT "To play again type 1, otherwisez 0"
1550 INPUT L
1560 IF L = 1 THEN 1610
1570 PRINT ""
1580 PRINT "The computer knew you were a"
1590 PRINT "landlubber..."
1600 STOP
1610 PRINT ""
1620 GOTO 580
1630 PRINT ""
1640 PRINT "Nelson would be proud of you."
1650 PRINT "you got the devil sub."
1660 PRINT "You still have "; C1; "depth charges"
1670 GOTO 1530
1680 END
1800 REM INKEY
1810 REPEAT
1820 UNTIL KEY$<>""
1890 RETURN
