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 TI99/4A. 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: TI99/4A
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: Serve il TI Extended Basic, il TI Basic genera errori.
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 TI99/4A oppure su un emulatore, noi suggeriamo Classic99.
Di seguito le istruzioni per caricare il listato sull’emulatore Classic99:
– Copiare il listato di cui sotto
– Avviare l’emulatore
– Da Cartridge -> Apps, selezionare Extended Basic
– Premere un tasto qualsiasi
– Dopodiché premere 2 per avviare il TI Extended Basic
– Dal comando Edit, selezionare Paste (Ctrl+F1) per incollare il listato
– Digitare RUN per eseguire il codice
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 – TI99/4A – TI Extended 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
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
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 call clear
22 call screen(2)
24 for n=1 to 12
26 call color(n,8,1)
28 next n
30 print"****************************"
32 print"* *"
33 print"* sub hunt *"
34 print"* *"
35 print"****************************"
36 print
37 print" original version "
38 print" by ken tracton on 1978 "
40 print" for the book:24 tested "
50 print" ready-to-run game programs in basic"
51 print" TI-99/4A version"
52 print" by Kempston"
53 print" on january 2023"
54 print" for retrolips project"
60 print
61 print
62 print
63 print
70 print">> when ready press space <<"
80 rem call key(0,k,s)
85 rem if k<>32 then 80
87 call wait(32)
90 call clear
190 print " welcome to the game of sub hunt"
200 print ""
210 print "the enemy sub is lurking"
220 print "anywhere within the grid."
230 print "to complicate finding it"
240 print "and destroying it with depth charges,"
250 print "the sub can also dive."
260 print "depth charges may be"
270 print "dropped anywhere on the"
280 print "grid, but they are not"
290 print "effective unless they have"
300 print "been set for the right depth."
310 print "since the sub can dive to"
320 print "the sea bottom, so can depth"
330 print "charges be set for this depth."
350 print ""
351 print ""
352 print">> when ready press space <<"
353 call wait(32)
354 call clear
358 print "10 is the sea bottom"
359 print "1 is the sea's surface."
360 print "the sub's position will be"
370 print "updated after each move,"
380 print "as it waits to see what"
382 print "your move is."
390 print "being nuclear powered,"
400 print "it can stay at any depth,"
410 print "for any period of time."
420 print "to destroy the sub, you must"
430 print "drop the depth charge at the"
440 print "right coordinates and must"
450 print "be fused for the right depth"
460 print "if not, you have wasted a depth charge."
470 print
471 print
472 print
473 print ">> when ready press space <<"
474 call wait(32)
476 call clear
480 print "you have a disadvantage and"
490 print "an advantage over the sub."
500 print "the disadvantage is you're"
510 print "limited to the number of"
520 print "depth charges you have,"
530 print "since you have been at sea"
531 print "so long."
533 print
534 print
540 print "the advantage is that the"
550 print "sub can move only one square"
560 print "at a time, and also it moves"
565 print "only up or down in depth"
570 print "one coordinate at a time."
571 print
572 print
573 print "good luck, commander."
574 print
575 print
576 print
582 print ">> when ready press space <<"
584 call wait(32)
585 call clear
590 rem amount of depth charges
595 c1=int(rnd*11)+16
600
610 print ""
620 print "you, commander, are at coordinates 1,1"
630 print ""
640 rem set up position for sub
650 a = int(rnd * 10) + 1
660 b = int(rnd * 10) + 1
670 d = int(rnd * 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 al = int(rnd * 2)
1020 b1 = int(rnd * 2)
1030 d1 = int(rnd * 2)
1040 rem check for proper move
1050 rem get negative or positive move
1060 q1 = int(rnd * 2)
1070 q2 = int(rnd * 2)
1080 q3 = int(rnd * 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 + (al * q1) < 1 then 1240
1220 a = a + (a1 * q1)
1230 goto 1280
1240 if a + (al * 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, otherwise 0"
1550 input l
1560 if l = 1 then 1610
1570 print ""
1580 print "the computer knew you"
1590 print "were a landlubber..."
1600 stop
1610 print ""
1620 goto 580
1630 print ""
1640 print "nelson would be proud"
1650 print "of you"
1650 print "you got the devil sub."
1660 print "you still have"; c1; "depth charges"
1670 goto 1530
1680 end
1800 sub wait(taste)
1810 call key(0,k,s)
1820 if k<>taste then 1810
1830 subend
