|
1
|
1 '============================================================================'
|
|
|
2 ' '
|
|
|
3 ' '
|
|
|
4 ' M M '
|
|
|
5 ' MM MM I D D '
|
|
|
6 ' M M M M I D D '
|
|
|
7 ' M M M M D D '
|
|
|
8 ' M M M M D D '
|
|
|
9 ' M M M M I DDDDD D DDDDD D SSSSS '
|
|
|
10 ' M M M M I D DD D DD S S '
|
|
|
11 ' M M M I D D D D S '
|
|
|
12 ' M M I D D D D S '
|
|
|
13 ' M M I D D D D SSSS '
|
|
|
14 ' M M I D D D D S '
|
|
|
15 ' M M I D D D D S '
|
|
|
16 ' M M I D DD D DD S S '
|
|
|
17 ' M M I DDDDD D DDDDD D SSSSS '
|
|
|
18 ' '
|
|
|
19 ' '
|
|
|
20 '============================================================================'
|
|
|
21
|
|
|
22
|
|
|
23
|
|
|
24 'Midds'
|
|
|
25
|
|
|
26
|
|
2
|
27 cls
|
|
1
|
28 LOCATE 13, 6
|
|
|
29 COLOR 15
|
|
|
30 PRINT "*** Mord in der Dorfstrasse ***"
|
|
2
|
31 COLOR 7
|
|
1
|
32 'LINE (20, 60)-(300, 140), 2, B
|
|
|
33 LOCATE 24, 2
|
|
|
34 PRINT "(c) Copyright 1999 Elefant Software"
|
|
|
35 do
|
|
|
36 loop until inkey <> ""
|
|
|
37
|
|
|
38
|
|
|
39 name1$ = "John Howell"
|
|
|
40
|
|
|
41
|
|
|
42
|
|
2
|
43 cls
|
|
1
|
44 COLOR 6
|
|
|
45 PRINT "Dies ist ein Kriminalspiel,"
|
|
|
46 PRINT "das die grauen Zellen fordert."
|
|
2
|
47 print
|
|
1
|
48 PRINT
|
|
|
49 PRINT "Druecke 'q' um das Spiel zu beenden."
|
|
|
50 PRINT "Druecke 'i' um zu erfahren, was du alles besitzt."
|
|
|
51 PRINT "Druecke 'b' um die Befehle noch einmal zusehen."
|
|
2
|
52 COLOR 7
|
|
1
|
53 do
|
|
|
54 loop until inkey <> ""
|
|
|
55
|
|
|
56
|
|
|
57 X:
|
|
2
|
58 cls
|
|
1
|
59 PRINT ""
|
|
|
60 LOCATE 13, 6
|
|
|
61 COLOR 6
|
|
|
62 PRINT "So jetzt geht's endlich los!!!"
|
|
2
|
63 COLOR 7
|
|
1
|
64 do
|
|
|
65 loop until inkey <> ""
|
|
|
66
|
|
|
67
|
|
|
68
|
|
|
69
|
|
|
70
|
|
2
|
71 ort_vordemhaus :
|
|
1
|
72 '''''''''' Vor dem Haus '''''''''
|
|
2
|
73 cls
|
|
1
|
74 COLOR 2
|
|
2
|
75 PRINT "Du heisst "; name1$; " und bist"
|
|
|
76 PRINT "Privatdetektiv. Du wurdest von "
|
|
|
77 PRINT "Herr Fisch angerufen um einen Mord"
|
|
|
78 PRINT "aufzuklaeren."
|
|
|
79 PRINT "Natuerlich bist du sofort in deinen"
|
|
|
80 PRINT "Renault 19 gestiegen und losgefahren."
|
|
|
81 PRINT "Jetzt stehst du vor Haus Nummer 6"
|
|
|
82 PRINT "in der Dorfstrasse."
|
|
|
83 PRINT
|
|
1
|
84 COLOR 7
|
|
2
|
85
|
|
|
86 zuege = 0
|
|
1
|
87 do
|
|
2
|
88
|
|
|
89 INPUT "(Vor dem Haus) Was machst du? ", B$
|
|
|
90 B$ = lcase(B$)
|
|
1
|
91
|
|
2
|
92 select case B$
|
|
|
93 case "benutzen klingel"
|
|
|
94 COLOR 2
|
|
|
95 PRINT "Herr Fisch oeffnet die Tuer und du stehst im Flur"
|
|
|
96 PRINT
|
|
|
97 COLOR 7
|
|
|
98 goto ort_flur
|
|
|
99 case "oeffnen tuer"
|
|
|
100 PRINT " Haustueren kann man von aussen ohne Schluessel nicht oeffnen."
|
|
|
101 case "gehen in haus"
|
|
|
102 PRINT " Die Tuer ist zu."
|
|
|
103 case "gehen heim"
|
|
|
104 PRINT " Du Angsthase"
|
|
|
105 case "q"
|
|
|
106 END
|
|
|
107 case "i"
|
|
|
108 GOSUB inventar
|
|
|
109 case "b"
|
|
|
110 GOSUB befehle
|
|
|
111 case else
|
|
|
112 PRINT " Noe!"
|
|
|
113 end select
|
|
1
|
114
|
|
2
|
115 zuege% = zuege% + 1
|
|
|
116 IF zuege% = 5 THEN PRINT " Tipp: benutzen ..."
|
|
|
117 IF zuege% > 8 THEN PRINT " Loesung: benutzen Klingel"
|
|
|
118
|
|
|
119 loop until inkey <> ""
|
|
|
120
|
|
1
|
121
|
|
|
122
|
|
|
123
|
|
|
124
|
|
|
125
|
|
|
126
|
|
|
127
|
|
2
|
128 ort_flur :
|
|
|
129 '''''''' Flur '''''''
|
|
|
130 'IF kerzenst% = 1 GOTO 116
|
|
|
131
|
|
|
132 COLOR 7
|
|
|
133
|
|
|
134 zuege% = 0
|
|
1
|
135 do
|
|
2
|
136 INPUT "(Flur) Was machst du? ", B$
|
|
|
137 B$ = lcase(B$)
|
|
|
138 select case B$
|
|
|
139 case "sprechen mit herr fisch"
|
|
|
140 goto gespraech_herrfisch
|
|
|
141 case "gehen heim"
|
|
|
142 PRINT " Du Angsthase!"
|
|
|
143 case "umschauen", "untersuchen flur"
|
|
|
144 GOTO 117
|
|
|
145 case "gehen in schlafzimmer"
|
|
|
146 goto ort_schlafzimmer
|
|
|
147 case "gehen in arbeitszimmer"
|
|
|
148 GOTO ort_arbeitszimmer
|
|
|
149 case "gehen in esszimmer"
|
|
|
150 GOTO ort_esszimmer
|
|
|
151 case "gehen in kueche"
|
|
|
152 GOTO ort_kueche
|
|
|
153 case "gehen in lagerhalle"
|
|
|
154 if kx% = 1 AND sx% = 1 GOTO 132
|
|
|
155 case "sprechen mit Tina"
|
|
|
156 if tinaistda = 1 then GOTO 118
|
|
|
157 case "q"
|
|
|
158 END
|
|
|
159 case "i"
|
|
|
160 GOSUB inventar
|
|
|
161 case "b"
|
|
|
162 GOSUB befehle
|
|
|
163 case else
|
|
|
164 PRINT " Keine Lust!"
|
|
|
165 PRINT
|
|
|
166 end select
|
|
|
167
|
|
|
168 zuege% = zuege% + 1
|
|
|
169 IF zuege% = 6 THEN PRINT " Tipp: sprechen mit ..."
|
|
1
|
170 loop until inkey <> ""
|
|
|
171
|
|
|
172
|
|
|
173
|
|
|
174
|
|
|
175
|
|
|
176
|
|
2
|
177 gespraech_herrfisch :
|
|
|
178 ''''''''' gespraech mit herr fisch ''''''''''
|
|
|
179
|
|
|
180 color 2
|
|
|
181 print "Du beginnst ein Gespraech mit Herr Fisch."
|
|
|
182 print
|
|
|
183
|
|
1
|
184 do
|
|
2
|
185 COLOR 7
|
|
|
186 PRINT "A: Hallo, ich heisse "; name1$; "."
|
|
|
187 PRINT "B: Wo ist die Leiche?"
|
|
|
188 PRINT "C: Wie heisst der Tote?"
|
|
|
189 if woIstDasSchlafzimmer = 1 then PRINT "D: Wo ist das Schlafzimmer?"
|
|
|
190 PRINT "Z: Bis spaeter."
|
|
|
191 COLOR 1
|
|
|
192 INPUT "Was sagst du zu Herr Fisch? ", s$
|
|
|
193 s$ = lcase(s$)
|
|
|
194 COLOR 7
|
|
|
195 print "Er antwortet:"
|
|
|
196 COLOR 4
|
|
|
197 select case s$
|
|
|
198 case "a"
|
|
|
199 PRINT " Ich heisse Manfred Fisch."
|
|
|
200 case "b"
|
|
|
201 PRINT " Im Schlafzimmer."
|
|
|
202 woIstDasSchlafzimmer = 1
|
|
|
203 case "c"
|
|
|
204 PRINT " Karl Mueller."
|
|
|
205 case "d"
|
|
|
206 if woIstDasSchlafzimmer = 1 THEN PRINT " Die Treppe hinauf dann links."
|
|
|
207 case "z"
|
|
|
208 PRINT " Ich bin jederzeit fuer Sie da, sprechen Sie mich einfach an."
|
|
|
209 print
|
|
|
210 color 2
|
|
|
211 print "Herr Fisch beginnt wieder die Gemaelde an den Waenden zu betrachten"
|
|
|
212 print
|
|
|
213 goto ort_flur
|
|
|
214 case "q"
|
|
|
215 end
|
|
|
216 end select
|
|
|
217 print
|
|
1
|
218 loop until inkey <> ""
|
|
|
219
|
|
|
220
|
|
|
221
|
|
|
222
|
|
|
223
|
|
|
224
|
|
|
225
|
|
|
226
|
|
|
227
|
|
|
228
|
|
|
229
|
|
|
230
|
|
|
231
|
|
2
|
232 ort_schlafzimmer :
|
|
|
233 ''''''' Schlafzimmer '''''''''
|
|
|
234
|
|
|
235 if tinaangerufen = 0 then
|
|
|
236 COLOR 2
|
|
|
237 PRINT "Die Leiche, ein etwa 20 Jahre alter"
|
|
|
238 PRINT "Mann, liegt mit einem Messer im Ruecken"
|
|
|
239 PRINT "auf dem Bett. Ich decke die Leiche"
|
|
|
240 PRINT "als erstes mit einem Tuch ab und rufe"
|
|
|
241 PRINT "mit meinem Handy Tina an. Tina ist"
|
|
|
242 PRINT "Spezialistin fuer Fingerabdruecke."
|
|
|
243 tinaangerufen = 1
|
|
|
244 else
|
|
|
245 color 2
|
|
|
246 print "Du bist im Schlafzimmer"
|
|
|
247 end if
|
|
|
248
|
|
1
|
249 do
|
|
2
|
250 PRINT
|
|
|
251 COLOR 7
|
|
|
252 INPUT "(Schlafzimmer) Was machst du? ", B$
|
|
|
253 B$ = lcase(B$)
|
|
|
254 select case B$
|
|
|
255 case "gehen in flur"
|
|
|
256 goto ort_flur
|
|
|
257
|
|
|
258 case "gehen in arbeitszimmer"
|
|
|
259 goto ort_arbeitszimmer
|
|
|
260
|
|
|
261 case "gehen in esszimmer"
|
|
|
262 goto ort_esszimmer
|
|
|
263
|
|
|
264 case "gehen in kueche"
|
|
|
265 goto ort_kueche
|
|
|
266
|
|
|
267 case "gehen in lagerhalle"
|
|
|
268 if kx% = 1 AND sx% = 1 goto 132
|
|
|
269
|
|
|
270 case "umschauen", "untersuchen schlafzimmer"
|
|
|
271 COLOR 2
|
|
|
272 PRINT "In der Mitte steht das Bett, ueber dem"
|
|
|
273 PRINT "Bett haengt ein Poster, auf der"
|
|
|
274 PRINT "linken Seite befindet sich ein Schrank"
|
|
|
275 PRINT "und an der rechten Wand ist ein Fenster."
|
|
|
276 IF tinaistimschlafzimmer = 1 THEN PRINT "Tina sichert gerade die Fingerabdruecke."
|
|
|
277
|
|
|
278 case "untersuchen schrank"
|
|
|
279 PRINT "Ein alter Aktenschrank."
|
|
|
280
|
|
|
281 case "oeffnen aktenschrank"
|
|
|
282 versuch% = 0
|
|
|
283 COLOR 2
|
|
|
284 PRINT "Hinter den Ordnern ist ein Geheimfach"
|
|
|
285 PRINT "mit einem dreistelligen Zahlenschloss."
|
|
|
286 geheimfachgefunden = 1
|
|
|
287
|
|
|
288 do
|
|
|
289 versuch% = versuch% + 1
|
|
|
290 COLOR 5
|
|
|
291 INPUT "Wie lautet die Kombination?", k$
|
|
|
292 IF k$ = "000" THEN PRINT "War wohl falsch."
|
|
|
293 IF k$ = "007" then
|
|
|
294 PRINT "Bravo, du hast echt gut kombiniert."
|
|
|
295 geheimfachoffen = 1
|
|
|
296 end if
|
|
|
297 IF k$ = "q" goto ort_schlafzimmer
|
|
|
298 PRINT "Komm streng dich ein bisschen an!"
|
|
|
299 IF versuch% = 3 THEN PRINT "Tipp: Karl Mueller war Jean Connery Fan."
|
|
|
300 IF versuch% = 6 THEN PRINT "Tipp: Denk an das Poster."
|
|
|
301 loop until inkey <> ""
|
|
|
302
|
|
|
303 case "untersuchen fenster"
|
|
|
304 PRINT "Wenn man hinaus schaut, sieht man die Strasse."
|
|
|
305
|
|
|
306 case "untersuchen bett"
|
|
|
307 COLOR 2
|
|
|
308 PRINT "Unter dem Bett liegt eine Taschenlampe."
|
|
|
309
|
|
|
310 case "nehmen taschenlampe"
|
|
|
311 PRINT "Du hast die Taschenlampe genommen"
|
|
|
312 tlampe% = 1
|
|
|
313
|
|
|
314 case "untersuchen geheimfach"
|
|
|
315 if geheimfachgefunden = 1 then
|
|
|
316 COLOR 2
|
|
|
317 PRINT "In dem Geheimfach befindet sich ein Schluessel."
|
|
|
318 end if
|
|
|
319
|
|
|
320 case "nehmen schluessel"
|
|
|
321 if geheimfachoffen = 1 then
|
|
|
322 PRINT "Du hast den Schluessel aus dem Geheimfach genommen"
|
|
|
323 schluessel% = 1
|
|
|
324 end if
|
|
|
325
|
|
|
326 case "untersuchen poster"
|
|
|
327 PRINT "Da steht - Sean Connery als James Bond"
|
|
|
328 PRINT "in SAG NIEMALS NIE - drauf."
|
|
|
329
|
|
|
330 case "sprechen mit tina"
|
|
|
331 if tinaistimschlafzimmer = 1 then PRINT "Die stoere ich lieber nicht bei der Arbeit."
|
|
|
332
|
|
|
333 case "q"
|
|
|
334 END
|
|
|
335 case "i"
|
|
|
336 GOSUB inventar
|
|
|
337 case "b"
|
|
|
338 GOSUB befehle
|
|
|
339 case else
|
|
|
340 PRINT "Nein"
|
|
|
341 end select
|
|
1
|
342 loop until inkey <> ""
|
|
2
|
343
|
|
|
344
|
|
|
345
|
|
|
346
|
|
|
347
|
|
|
348
|
|
|
349
|
|
|
350
|
|
|
351
|
|
|
352
|
|
|
353
|
|
|
354
|
|
|
355
|
|
|
356
|
|
|
357
|
|
|
358
|
|
|
359
|
|
|
360
|
|
1
|
361
|
|
|
362
|
|
|
363
|
|
|
364
|
|
|
365
|
|
|
366
|
|
2
|
367 ort_arbeitszimmer :
|
|
|
368 '''''''' Arbeitszimmer '''''''
|
|
1
|
369
|
|
|
370 COLOR 2
|
|
2
|
371 PRINT "Du bist im Arbeitszimmer."
|
|
|
372
|
|
1
|
373 do
|
|
2
|
374 COLOR 7
|
|
|
375 INPUT "(Arbeitszimmer) Was machst du? ", B$
|
|
|
376 B$ = lcase(B$)
|
|
|
377 select case B$
|
|
|
378 case "gehen in Schlafzimmer"
|
|
|
379 goto ort_schlafzimmer
|
|
1
|
380
|
|
2
|
381 case "gehen in Flur"
|
|
|
382 goto ort_flur
|
|
1
|
383
|
|
2
|
384 case "gehen in Esszimmer"
|
|
|
385 goto ort_esszimmer
|
|
1
|
386
|
|
2
|
387 case "gehen in Kueche"
|
|
|
388 goto ort_kueche
|
|
|
389
|
|
|
390 case "gehen in Lagerhalle"
|
|
|
391 if kx% = 1 AND sx% = 1 then goto 132
|
|
1
|
392
|
|
2
|
393 case "umschauen", "untersuchen Arbeitszimmer"
|
|
|
394 COLOR 2
|
|
|
395 PRINT "In der Mitte steht ein Schreibtisch,"
|
|
|
396 PRINT "rechts befindet sich ein Schrank und"
|
|
|
397 PRINT "links ein Buecherregal."
|
|
1
|
398
|
|
2
|
399 case "untersuchen Schreibtisch"
|
|
|
400 PRINT "Da gibt's nichts Besonderes zu sehen."
|
|
1
|
401
|
|
2
|
402 case "untersuchen Buecherregal"
|
|
|
403 COLOR 2
|
|
|
404 IF tinaistimschlafzimmer = 0 then
|
|
|
405 PRINT "Ich sehe nichts Besonderes."
|
|
|
406 else
|
|
|
407 PRINT "Da hat's ja ein Buch mit 123 Reiseerzaehlungen"
|
|
|
408 PRINT "von Karl May, meinem Leiblingsautor. Das sollte"
|
|
|
409 PRINT "ich mir genauer anschauen."
|
|
|
410 end if
|
|
1
|
411
|
|
2
|
412 case "untersuchen Buch"
|
|
|
413 PRINT "Ich kann nur den Buchruecken lesen, wenn es da steht."
|
|
1
|
414
|
|
2
|
415 case "nehmen Buch"
|
|
|
416 COLOR 2
|
|
|
417 PRINT "Das Buch laesst sich nur halb heraus ziehen."
|
|
|
418 PRINT "Ploetzlich schwenkt das ganze Buecherregal zur"
|
|
|
419 PRINT "Seite und dhinter kommt eine Tuer zum Vorschein."
|
|
|
420 PRINT "Sie ist durch ein Schluessel- und ein "
|
|
|
421 PRINT "Zahlenschloss gesichert."
|
|
|
422 PRINT
|
|
|
423 COLOR 6
|
|
|
424 PRINT "Wenn du im Arbeitszimmer z drueckst, kannst du"
|
|
|
425 PRINT "die Zahlenkombination eingeben."
|
|
|
426
|
|
|
427 case "benutzen Schluessel"
|
|
|
428 PRINT "Das Schluesselschloss waere geknackt."
|
|
|
429 sx% = 1
|
|
|
430 COLOR 2
|
|
|
431 IF kx% = 1 GOTO 137
|
|
|
432 PRINT "Jetzt musst du nur noch die Kombination knacken."
|
|
|
433
|
|
|
434 case "gehen in Geheimgang"
|
|
|
435 if kx% = 1 AND sx% = 1 then
|
|
|
436 goto 127
|
|
|
437 end if
|
|
1
|
438
|
|
2
|
439 case "z"
|
|
|
440 do
|
|
|
441 COLOR 5
|
|
|
442 INPUT "Wie lautet die Kombination?", zk$
|
|
|
443 select case zk$
|
|
|
444 case "007"
|
|
|
445 PRINT "So einfach ist es nicht"
|
|
|
446 case "123"
|
|
|
447 COLOR 2
|
|
|
448 PRINT "Die Kombination war richtig."
|
|
|
449 kx% = 1
|
|
|
450 IF sx% = 1 GOTO 137
|
|
|
451 PRINT "Jetzt musst du nur noch das Schluesselschloss oeffnen."
|
|
|
452 case "q"
|
|
|
453 PRINT "Tipp: Das Buecherregal."
|
|
|
454 GOTO ort_arbeitszimmer
|
|
|
455 case else
|
|
|
456 PRINT "Leider falsch. Probier's noch einmal."
|
|
|
457 end select
|
|
|
458 loop until inkey <> ""
|
|
1
|
459
|
|
2
|
460 case "i"
|
|
|
461 GOSUB inventar
|
|
|
462 case "q"
|
|
|
463 END
|
|
|
464 case "b"
|
|
|
465 GOSUB befehle
|
|
|
466 case else
|
|
|
467 PRINT "Heute nicht!"
|
|
|
468 end select
|
|
1
|
469 loop until inkey <> ""
|
|
|
470
|
|
|
471
|
|
|
472
|
|
|
473
|
|
|
474
|
|
|
475
|
|
|
476
|
|
|
477
|
|
|
478
|
|
|
479
|
|
|
480
|
|
|
481
|
|
2
|
482 ort_esszimmer :
|
|
|
483 '''''' Esszimmer ''''''
|
|
|
484
|
|
|
485 COLOR 2
|
|
|
486 print "Du bist im Esszimmer."
|
|
1
|
487 do
|
|
|
488
|
|
2
|
489 COLOR 7
|
|
|
490 print
|
|
|
491 INPUT "(Esszimmer) Was machst du? ", B$
|
|
|
492 B$ = lcase(b$)
|
|
|
493 select case B$
|
|
|
494 case "gehen in schlafzimmer"
|
|
|
495 goto ort_schlafzimmer
|
|
1
|
496
|
|
2
|
497 case "gehen in flur"
|
|
|
498 GOTO ort_flur
|
|
1
|
499
|
|
2
|
500 case "gehen in arbeitszimmer"
|
|
|
501 GOTO ort_arbeitszimmer
|
|
1
|
502
|
|
2
|
503 case "gehen in kueche"
|
|
|
504 GOTO ort_kueche
|
|
1
|
505
|
|
2
|
506 case "gehen in lagerhalle"
|
|
|
507 if kx% = 1 AND sx% = 1 GOTO 132
|
|
|
508
|
|
|
509 case "umschauen", "untersuchen esszimmer"
|
|
|
510 color 2
|
|
|
511 PRINT "In der Mitte steht der Tisch und auf"
|
|
|
512 PRINT "der rechten Seite ist die Tuer zur Kueche."
|
|
|
513
|
|
|
514 case "untersuchen tisch"
|
|
|
515 color 2
|
|
|
516 PRINT "Ein schoener eichener Tisch mit einer"
|
|
|
517 PRINT "gehaekelten Tischdecke."
|
|
|
518 if kerzenst% = 0 then PRINT "In der Mitte des Tisches steht ein silberner Kerzenstaender."
|
|
|
519
|
|
|
520 case "nehmen kerzenstaender"
|
|
|
521 kerzenst% = 1
|
|
|
522 color 2
|
|
|
523 PRINT "Du hast den Kerzenstaender genommen"
|
|
|
524
|
|
|
525 case "q"
|
|
|
526 END
|
|
|
527 case "i"
|
|
|
528 GOSUB inventar
|
|
|
529 case "b"
|
|
|
530 GOSUB befehle
|
|
|
531 end select
|
|
1
|
532 loop until inkey <> ""
|
|
|
533
|
|
|
534
|
|
|
535
|
|
|
536
|
|
|
537
|
|
|
538
|
|
|
539
|
|
|
540
|
|
|
541
|
|
|
542
|
|
|
543
|
|
|
544
|
|
|
545
|
|
|
546
|
|
|
547
|
|
|
548
|
|
2
|
549 ort_kueche :
|
|
|
550 '''''''' Kueche '''''''
|
|
|
551
|
|
|
552 COLOR 2
|
|
|
553 PRINT "Du bist in der Kueche."
|
|
|
554
|
|
1
|
555 do
|
|
2
|
556 color 7
|
|
|
557 INPUT "(Kueche) Was machst du?", B$
|
|
|
558 B$ = lcase(B$)
|
|
|
559 select case B$
|
|
|
560 case "gehen in schlafzimmer"
|
|
|
561 goto ort_schlafzimmer
|
|
|
562
|
|
|
563 case "gehen in flur"
|
|
|
564 goto ort_flur
|
|
|
565
|
|
|
566 case "gehen in arbeitszimmer"
|
|
|
567 goto ort_arbeitszimmer
|
|
|
568
|
|
|
569 case "gehen in esszimmer"
|
|
|
570 goto ort_esszimmer
|
|
|
571
|
|
|
572 case "gehen in lagerhalle"
|
|
|
573 if kx% = 1 AND sx% = 1 then goto 132
|
|
|
574
|
|
|
575 case "umschauen", "untersuchen kueche"
|
|
|
576 PRINT "Links ist die Kochzeile, in der Mitte"
|
|
|
577 PRINT "ein kleiner Tisch mit zwei Stuehlen und"
|
|
|
578 PRINT "rechts der Kuechenschrank."
|
|
|
579
|
|
|
580 case "untersuchen kuechenschrank"
|
|
|
581 PRINT "Es ist nichts Ausergewoehnliches daran"
|
|
|
582 PRINT "zu erkennen, nur eine Schublade in der"
|
|
|
583 PRINT "es bestimmt Interesantes zu entdecken gibt."
|
|
|
584
|
|
|
585 case "oeffnen schublade"
|
|
|
586 PRINT "In der Schublade liegt sich ein Messer."
|
|
|
587
|
|
|
588 case "nehmen messer"
|
|
|
589 PRINT "Du hast das Messer genommen"
|
|
|
590 messer% = 1
|
|
|
591
|
|
|
592 case "q"
|
|
|
593 END
|
|
|
594
|
|
|
595 case "i"
|
|
|
596 GOSUB inventar
|
|
|
597
|
|
|
598 case "b"
|
|
|
599 GOSUB befehle
|
|
|
600
|
|
|
601 case else
|
|
|
602 print "Will ich nicht."
|
|
|
603
|
|
|
604 end select
|
|
1
|
605 loop until inkey <> ""
|
|
2
|
606
|
|
|
607
|
|
|
608
|
|
1
|
609
|
|
|
610
|
|
|
611
|
|
|
612
|
|
|
613
|
|
|
614 117 :
|
|
2
|
615
|
|
|
616 IF tinaangerufen = 1 and tinaistda = 0 then
|
|
|
617 COLOR 2
|
|
|
618 PRINT "Links geht es die Treppe zum Schlafzimmer hinauf,"
|
|
|
619 PRINT "gerade aus geht's ins Esszimmer und rechts ins"
|
|
|
620 PRINT "Arbeitszimmer. Im Flur steht Herr Fisch und ..."
|
|
|
621 print
|
|
|
622 PRINT "... gerade klingelt es an der Tuer. Herr Fisch"
|
|
|
623 PRINT "macht auf und Tina kommt herein."
|
|
|
624 tinaistda = 1
|
|
|
625
|
|
|
626 else
|
|
|
627 COLOR 2
|
|
|
628 PRINT "Links geht es die Treppe zum Schlafzimmer"
|
|
|
629 PRINT "hinauf, gerade aus geht's ins Esszimmer und"
|
|
|
630 PRINT "rechts ins Arbeitszimmer. Im Flur steht"
|
|
|
631 PRINT "Herr Fisch und beantwortet gern deine Fragen."
|
|
|
632 end if
|
|
|
633
|
|
|
634 goto ort_flur
|
|
1
|
635
|
|
|
636
|
|
|
637
|
|
|
638
|
|
|
639
|
|
|
640 118 :
|
|
2
|
641
|
|
1
|
642 COLOR 9
|
|
|
643 PRINT "A: Schoen, dass du so schnell gekommen bist."
|
|
|
644 PRINT "B: Der Tote liegt im Schlafzimmer."
|
|
|
645 PRINT "C: Ende."
|
|
|
646 COLOR 12
|
|
|
647 INPUT "Was sagst du?", s$
|
|
|
648 PRINT
|
|
|
649 COLOR 9
|
|
|
650 IF s$ = "A" THEN PRINT "Ich habe mich sofort auf den Weg gemacht."
|
|
|
651 IF s$ = "B" GOTO 119
|
|
2
|
652 IF s$ = "C" GOTO ort_flur
|
|
1
|
653 do
|
|
|
654 loop until inkey <> ""
|
|
|
655 GOTO 118
|
|
|
656
|
|
|
657
|
|
|
658
|
|
|
659
|
|
|
660
|
|
|
661 119 :
|
|
2
|
662
|
|
1
|
663 COLOR 9
|
|
|
664 PRINT "Okay, aber wo ist das Schlafzimmer?"
|
|
2
|
665 print
|
|
1
|
666
|
|
|
667 COLOR 12
|
|
|
668 PRINT "Welchen Weg beschreibst du ihr?"
|
|
|
669 PRINT
|
|
|
670 PRINT "a: Links die Treppe hinauf."
|
|
|
671 PRINT "b: Rechts die Treppe hinunter."
|
|
|
672 PRINT "c: Die Treppe hinauf, dann links."
|
|
|
673 PRINT
|
|
|
674 INPUT "a, b oder c?", w$
|
|
|
675 PRINT
|
|
|
676 COLOR 2
|
|
|
677 IF w$ = "c" THEN PRINT "Bravo, du hast ein gutes Gedaechtnis!"
|
|
|
678 IF w$ = "c" THEN cheat1 = 1
|
|
|
679 IF w$ = "a" THEN PRINT "Leider falsch.Die richtige Loesung war c."
|
|
|
680 IF w$ = "b" THEN PRINT "Leider falsch.Die richtige Loesung war c."
|
|
2
|
681 tinaistimschlafzimmer = 1
|
|
1
|
682 do
|
|
|
683 loop until inkey <> ""
|
|
2
|
684 GOTO ort_flur
|
|
|
685
|
|
|
686
|
|
|
687
|
|
|
688
|
|
|
689
|
|
|
690
|
|
|
691
|
|
1
|
692
|
|
|
693
|
|
|
694
|
|
|
695
|
|
|
696
|
|
|
697
|
|
|
698
|
|
|
699
|
|
|
700
|
|
2
|
701 137 :
|
|
1
|
702
|
|
|
703 COLOR 2
|
|
2
|
704 PRINT "So, die Tuer ist jetzt offen. Dahinter befindet"
|
|
|
705 PRINT "sich ein Geheimgang."
|
|
|
706 geheimgangfrei = 1
|
|
|
707 GOTO ort_arbeitszimmer
|
|
1
|
708
|
|
|
709
|
|
|
710
|
|
|
711
|
|
|
712
|
|
|
713
|
|
|
714
|
|
|
715
|
|
|
716
|
|
|
717
|
|
|
718
|
|
|
719
|
|
|
720 127 :
|
|
2
|
721
|
|
1
|
722 COLOR 2
|
|
|
723 IF tlampe% = 0 THEN PRINT "Da geh' ich ohne Licht nicht rein."
|
|
|
724 do
|
|
|
725 loop until inkey <> ""
|
|
2
|
726
|
|
|
727 IF tlampe% = 0 GOTO ort_arbeitszimmer
|
|
1
|
728 1000 :
|
|
2
|
729
|
|
1
|
730 COLOR 10
|
|
|
731 PRINT "Geheimgang"
|
|
|
732 do
|
|
|
733 loop until inkey <> ""
|
|
2
|
734
|
|
1
|
735 COLOR 2
|
|
|
736 PRINT "Gut, dass ich eine Taschenlampe dabei habe."
|
|
|
737 PRINT "Oh, es geht steil bergab .... ich muss schon"
|
|
|
738 PRINT "mindestens 5 Meter unter der Erdoberflaeche"
|
|
|
739 PRINT "sein .... Jetzt bin ich schon 10 Minuten"
|
|
|
740 PRINT "unterwegs ..... da vorne kommt eine Tuer"
|
|
|
741 PRINT "genau so gesichert wie die hinter dem Regal"
|
|
|
742 PRINT "gut, dass ich den Schluessel habe und den"
|
|
|
743 PRINT "Code kenne ..... Wo bin ich denn jetzt?"
|
|
|
744 PRINT "Sieht aus, wie der Keller eines Hauses"
|
|
|
745 PRINT "ist aber ganz schoen zerfallen."
|
|
|
746 do
|
|
|
747 loop until inkey <> ""
|
|
|
748 GOTO 130
|
|
|
749
|
|
|
750
|
|
|
751
|
|
|
752
|
|
|
753
|
|
|
754
|
|
|
755 130 :
|
|
|
756 '''''''''' Keller '''''''''''''
|
|
2
|
757
|
|
|
758 COLOR 2
|
|
|
759 PRINT "Du bist im Keller."
|
|
|
760
|
|
1
|
761 do
|
|
2
|
762 COLOR 7
|
|
|
763 INPUT "(Keller) Was machst du? ", B$
|
|
|
764 B$ = lcase(B$)
|
|
|
765 select case B$
|
|
|
766 case "gehen in flur"
|
|
|
767 goto ort_flur
|
|
|
768
|
|
|
769 case "gehen in schlafzimmer"
|
|
|
770 goto ort_schlafzimmer
|
|
|
771
|
|
|
772 case "gehen in arbeitszimmer"
|
|
|
773 goto ort_arbeitszimmer
|
|
|
774
|
|
|
775 case "gehen in esszimmer"
|
|
|
776 goto ort_esszimmer
|
|
|
777
|
|
|
778 case "gehen in kueche"
|
|
|
779 goto ort_kueche
|
|
|
780
|
|
|
781 case "gehen in lagerhalle"
|
|
|
782 if kx% = 1 AND sx% = 1 then goto 132
|
|
|
783
|
|
|
784 case "umschauen", "untersuchen keller"
|
|
|
785 COLOR 2
|
|
|
786 PRINT "Ein zerfallener Keller, alles verstaubt."
|
|
|
787 PRINT "Gerade aus geht eine Treppe nach oben."
|
|
|
788
|
|
|
789 case "benutzen treppe"
|
|
|
790 goto 132
|
|
|
791
|
|
|
792 case "q"
|
|
|
793 END
|
|
|
794
|
|
|
795 case "i"
|
|
|
796 GOSUB inventar
|
|
|
797
|
|
|
798 case "b"
|
|
|
799 GOSUB befehle
|
|
|
800
|
|
|
801 case else
|
|
|
802 PRINT "Jetzt nicht."
|
|
|
803
|
|
|
804 end select
|
|
1
|
805 loop until inkey <> ""
|
|
|
806
|
|
|
807
|
|
|
808
|
|
|
809
|
|
|
810
|
|
|
811
|
|
|
812
|
|
|
813
|
|
|
814
|
|
|
815
|
|
|
816
|
|
|
817 131 :
|
|
2
|
818
|
|
1
|
819 COLOR 2
|
|
|
820 PRINT "In der Lagerhalle ist alles genau so"
|
|
|
821 PRINT "zerfallen, wie im Keller. Ueberall sind Kartons"
|
|
|
822 PRINT "gestapelt. Gerade aus geht eine Tuer ins Freie."
|
|
|
823 do
|
|
|
824 loop until inkey <> ""
|
|
|
825 RETURN
|
|
|
826
|
|
|
827
|
|
|
828
|
|
|
829
|
|
|
830
|
|
|
831
|
|
|
832 132 :
|
|
|
833 '''''''' Lagerhalle '''''''''''
|
|
2
|
834
|
|
|
835 'LOCATE 13, 10
|
|
1
|
836 COLOR 10
|
|
|
837 PRINT "Lagerhalle"
|
|
|
838 do
|
|
|
839 loop until inkey <> ""
|
|
2
|
840
|
|
1
|
841 a132:
|
|
2
|
842
|
|
1
|
843 COLOR 7
|
|
|
844 INPUT "(Lagerhalle) Was machst du? ", B$
|
|
|
845 zuege% = zuege% + 1
|
|
2
|
846 IF B$ = "gehen in Schlafzimmer" goto ort_schlafzimmer
|
|
|
847 IF B$ = "gehen in Arbeitszimmer" GOTO ort_arbeitszimmer
|
|
|
848 IF B$ = "gehen in Esszimmer" GOTO ort_esszimmer
|
|
|
849 IF B$ = "gehen in Kueche" GOTO ort_kueche
|
|
1
|
850 IF B$ = "umschauen" THEN GOSUB 131
|
|
|
851 IF B$ = "untersuchen Lagerhalle" THEN GOSUB 131
|
|
|
852 IF B$ = "oeffnen Tuer" GOTO 133
|
|
|
853 IF B$ = "untersuchen Kartons" THEN GOSUB 134
|
|
|
854 IF B$ = "benutzen Messer" GOTO 136
|
|
|
855 IF B$ = "q" THEN END
|
|
|
856 IF B$ = "i" THEN GOSUB inventar
|
|
|
857 IF B$ = "b" THEN GOSUB befehle
|
|
|
858 PRINT ""
|
|
2
|
859 PRINT "Nee!"
|
|
1
|
860 PRINT
|
|
|
861 do
|
|
|
862 loop until inkey <> ""
|
|
|
863 GOTO a132
|
|
|
864
|
|
|
865
|
|
|
866
|
|
|
867
|
|
|
868
|
|
|
869 133 :
|
|
2
|
870
|
|
1
|
871 COLOR 2
|
|
|
872 PRINT "Die Tuer ist mit einem Zahlenschloss verschlossen,"
|
|
|
873 PRINT "aber man kann die Tuer einen Spalt weit aufdruecken."
|
|
|
874 PRINT "Als ich hinaus schaue sehe ich wie ein Kleinbus"
|
|
|
875 PRINT "auf mich zufaehrt. Ich kann gerade noch zur Seite"
|
|
|
876 PRINT "hechten ohne, dass mich die Scheinwerfer erreichen."
|
|
|
877 PRINT "Jetzt ist schnelles Handeln wichtig!"
|
|
|
878 PRINT
|
|
|
879 do
|
|
|
880 loop until inkey <> ""
|
|
|
881 a133:
|
|
|
882 COLOR 7
|
|
|
883 INPUT "(Lagerhalle) Wo versteckst du dich? In ", v$
|
|
|
884 v% = v% + 1
|
|
|
885 IF v$ = "leerem Karton" GOTO 135
|
|
|
886 IF v$ = "leerer Karton" GOTO 135
|
|
|
887 IF v$ = "leere Kartons" GOTO 135
|
|
|
888 IF v$ = "Kartons" THEN PRINT "Ich kann mich doch nicht in vollen Kartons verstecken."
|
|
|
889 IF v$ = "Geheimgang" THEN PRINT "Dafuer reicht die Zeit nicht."
|
|
|
890 IF v$ = "Keller" THEN PRINT "Dafuer reicht die Zeit nicht."
|
|
|
891 IF v$ = "umschauen" THEN GOSUB 131
|
|
|
892 IF v$ = "untersuchen Lagerhalle" THEN GOSUB 131
|
|
|
893 IF v$ = "untersuchen Kartons" THEN GOSUB 134
|
|
|
894 IF v$ = "q" THEN END
|
|
|
895 IF v% = 9 THEN PRINT "Tipp: l..... K....."
|
|
|
896 IF v% = 5 THEN PRINT "Tipp: Schau dir die Lagerhalle noch einmal genau an."
|
|
|
897 PRINT "Da habe ich zu wenig Zeit dafuer."
|
|
|
898 do
|
|
|
899 loop until inkey <> ""
|
|
|
900 GOTO a133
|
|
|
901
|
|
|
902
|
|
|
903
|
|
|
904
|
|
|
905
|
|
|
906
|
|
|
907 134 :
|
|
2
|
908
|
|
1
|
909 COLOR 2
|
|
|
910 PRINT "Auf der linken Seite sind die vollen Kartons"
|
|
|
911 PRINT "gestapelt und rechts liegen die leeren auf"
|
|
|
912 PRINT "einem Haufen."
|
|
|
913 do
|
|
|
914 loop until inkey <> ""
|
|
|
915 RETURN
|
|
|
916
|
|
|
917
|
|
|
918
|
|
|
919
|
|
|
920
|
|
|
921
|
|
|
922 135 :
|
|
2
|
923
|
|
1
|
924 COLOR 2
|
|
|
925 PRINT "Das ist eine gute Idee. Ich mache mich"
|
|
|
926 PRINT "sofort an die Arbeit. Raschel, raschel"
|
|
|
927 PRINT "... uff ... so ... geich ... jetzt ..."
|
|
|
928 PRINT "Okay ich hab's geschafft. Jetzt kann"
|
|
|
929 PRINT "ich nur nichts mehr sehen. Ich sollte"
|
|
|
930 PRINT "mir ein Loch zum Rausschauen in den"
|
|
|
931 PRINT "Karton reissen. So ... uff, der ist zu"
|
|
|
932 PRINT "stabil, da brauche ich ein Werkzeug dazu."
|
|
|
933 do
|
|
|
934 loop until inkey <> ""
|
|
|
935 GOTO 132
|
|
|
936
|
|
|
937
|
|
|
938
|
|
|
939
|
|
|
940
|
|
|
941
|
|
|
942 136 :
|
|
2
|
943
|
|
1
|
944 COLOR 2
|
|
|
945 IF messer% = 0 THEN
|
|
2
|
946 PRINT "Ich habe kein Messer."
|
|
|
947 PRINT "Ich sitze weiterhin im Dunkeln. Nach einer"
|
|
|
948 PRINT "halben Stunde geht der Typ wieder. Ich"
|
|
|
949 PRINT "begebe mich sofort zurueck ins Haus. So"
|
|
|
950 PRINT "schlecht vorbereited begebe ich mich nicht"
|
|
|
951 PRINT "wieder in Gefahr."
|
|
|
952 PRINT
|
|
|
953 do
|
|
|
954 loop until inkey <> ""
|
|
|
955 GOTO ort_arbeitszimmer
|
|
1
|
956 END IF
|
|
|
957
|
|
|
958 PRINT "Gute Idee, das mit dem Messer. Der Typ"
|
|
|
959 PRINT "faehrt jetzt mit seinem Kleinbus in die Halle."
|
|
|
960 PRINT "Er steigt aus und macht die Hecktueren auf."
|
|
|
961 PRINT "Nun laed er zwei Kartons in das Gefaehrt, er"
|
|
|
962 PRINT "schliesst die Tueren, steigt wieder ein und"
|
|
|
963 PRINT "faehrt hinaus."
|
|
|
964 PRINT "Uff, das haette ich geschafft. Jetzt bloss schnell"
|
|
|
965 PRINT "zurueck ins Haus."
|
|
|
966 do
|
|
|
967 loop until inkey <> ""
|
|
|
968
|
|
|
969
|
|
|
970 PRINT "Was machst du?"
|
|
|
971 PRINT ""
|
|
|
972 PRINT "a: nach Hause gehen"
|
|
|
973 PRINT "b: noch da bleiben"
|
|
|
974 PRINT "c: nochmal in die Lagerhalle gehen"
|
|
|
975 PRINT ""
|
|
|
976 INPUT "Und wie entscheidest du dich?", entscheidung$
|
|
|
977 PRINT
|
|
|
978 IF entscheidung$ = "a" GOTO 140
|
|
2
|
979 IF entscheidung$ = "b" GOTO ort_arbeitszimmer
|
|
1
|
980 IF entscheidung$ = "c" THEN PRINT "Oh nein! Da geh ich nicht wieder hin!"
|
|
|
981
|
|
|
982
|
|
|
983
|
|
|
984
|
|
|
985
|
|
|
986
|
|
|
987
|
|
|
988 140 :
|
|
|
989 ''''''' Zuhause '''''''
|
|
2
|
990
|
|
|
991 COLOR 2
|
|
|
992 PRINT "Home sweet home - endlich wieder Zuhause!"
|
|
1
|
993 do
|
|
|
994 loop until inkey <> ""
|
|
|
995 a140:
|
|
2
|
996
|
|
1
|
997 PRINT "Du willst dir gerade einen Tee machen, als"
|
|
|
998 PRINT "Du einen Schlag an der Tuer hoerst und das"
|
|
|
999 PRINT "Licht aus geht."
|
|
|
1000 PRINT ""
|
|
|
1001 PRINT "Was machst du?"
|
|
|
1002 PRINT "a: die Tuer oeffnen"
|
|
|
1003 PRINT "b: die Polizei anrufen"
|
|
|
1004 PRINT "c: dich unter dem Bett verstecken"
|
|
|
1005 PRINT ""
|
|
|
1006 INPUT "Und?", w$
|
|
|
1007 PRINT
|
|
|
1008 IF w$ = "a" GOTO 141
|
|
|
1009 IF w$ = "b" THEN PRINT "Du willst den Fall doch selbst loesen."
|
|
|
1010 IF w$ = "c" THEN PRINT "Du solltest dir einen anderen Job suchen."
|
|
|
1011 GOTO a140
|
|
|
1012
|
|
|
1013
|
|
|
1014
|
|
|
1015
|
|
|
1016
|
|
|
1017
|
|
|
1018
|
|
|
1019 141 :
|
|
2
|
1020
|
|
1
|
1021 COLOR 2
|
|
|
1022 PRINT
|
|
|
1023 PRINT
|
|
|
1024 PRINT "Du siehst gerade noch ein Auto"
|
|
|
1025 PRINT "wegfahren. "
|
|
|
1026 do
|
|
|
1027 loop until inkey <> ""
|
|
2
|
1028 cls
|
|
1
|
1029 LOCATE 17, 17
|
|
|
1030 COLOR 15
|
|
|
1031 PRINT "KA GR 48"
|
|
2
|
1032 SLEEP 500
|
|
1
|
1033 GOTO 142
|
|
|
1034 142 :
|
|
2
|
1035 cls
|
|
1
|
1036 COLOR 2
|
|
|
1037 PRINT "In deiner Tuer steckt ein Messer mit"
|
|
|
1038 PRINT "einer Botschaft. Du liest sie natuerlich"
|
|
|
1039 PRINT "sofort."
|
|
|
1040 do
|
|
|
1041 loop until inkey <> ""
|
|
2
|
1042
|
|
1
|
1043 COLOR 11
|
|
|
1044 PRINT "Wenn du dich einmischst"
|
|
|
1045 PRINT "dann bist du T O T !!!"
|
|
|
1046 do
|
|
|
1047 loop until inkey <> ""
|
|
2
|
1048
|
|
1
|
1049 COLOR 2
|
|
|
1050 PRINT ""
|
|
|
1051 PRINT ""
|
|
|
1052 PRINT "Diese Botschaft war ernst gemeint."
|
|
|
1053 PRINT "Aber als Privatdetektiv musst du dich"
|
|
|
1054 PRINT "halt ueber solche Morddrohungen hinweg-"
|
|
|
1055 PRINT "setzen. Deshalb rufst du sofort die"
|
|
|
1056 PRINT "Polizei an."
|
|
|
1057 do
|
|
|
1058 loop until inkey <> ""
|
|
2
|
1059
|
|
|
1060
|
|
1
|
1061 143 :
|
|
2
|
1062
|
|
1
|
1063 COLOR 9
|
|
|
1064 PRINT ""
|
|
|
1065 PRINT "Ja, hier Polizeirevier Ettlingen, Dieter"
|
|
|
1066 PRINT "Laenger. Was kann ich fuer Sie tun?"
|
|
|
1067 PRINT
|
|
|
1068 PRINT
|
|
|
1069 COLOR 12
|
|
|
1070 PRINT "a: Ich moechte Anzeige gegen einen Mann"
|
|
|
1071 PRINT " in einem gruenen Auto erstatten."
|
|
|
1072 PRINT
|
|
|
1073 PRINT "b: Ich moechte eine Pizza essen."
|
|
2
|
1074 PRINT
|
|
1
|
1075 PRINT "c: Ich moechte, dass Sie einen Mann"
|
|
|
1076 PRINT " in einem gruenen Auto verhaften."
|
|
|
1077 COLOR 12
|
|
|
1078 INPUT "Was antwortest du? (a,b,c)", a$
|
|
|
1079 IF a$ = "a" THEN GOTO 144
|
|
|
1080 IF a$ = "b" THEN PRINT "Du bist doch ein Spinner!"
|
|
|
1081 IF a$ = "c" THEN GOTO 144
|
|
|
1082 IF a$ = "q" THEN END
|
|
|
1083 do
|
|
|
1084 loop until inkey <> ""
|
|
|
1085 GOTO 143
|
|
|
1086
|
|
|
1087
|
|
|
1088
|
|
|
1089
|
|
|
1090
|
|
|
1091
|
|
|
1092
|
|
|
1093 144 :
|
|
2
|
1094
|
|
1
|
1095 COLOR 9
|
|
|
1096 PRINT ""
|
|
|
1097 PRINT "Wie heisst der Mann denn?"
|
|
|
1098 PRINT
|
|
|
1099 COLOR 12
|
|
|
1100 PRINT "a: Karl von Burlafingen."
|
|
|
1101 PRINT "b: Regideur Eklansch."
|
|
|
1102 PRINT "c: Ich kenne seinen Namen nicht."
|
|
|
1103 PRINT ""
|
|
|
1104 INPUT "Wie heisst er? (a,b,c)", w$
|
|
|
1105 PRINT ""
|
|
|
1106 IF w$ = "a" THEN PRINT "Das kann doch nicht dein Ernst sein."
|
|
|
1107 IF w$ = "b" THEN PRINT "Verarsch mich halt!!"
|
|
|
1108 IF w$ = "c" GOTO 145
|
|
|
1109 do
|
|
|
1110 loop until inkey <> ""
|
|
|
1111 GOTO 144
|
|
|
1112
|
|
|
1113
|
|
|
1114
|
|
|
1115
|
|
|
1116
|
|
|
1117
|
|
|
1118 145 :
|
|
2
|
1119
|
|
|
1120 PRINT
|
|
1
|
1121 COLOR 9
|
|
|
1122 PRINT "Was fuer eine Autonummer hatte er denn?"
|
|
2
|
1123 PRINT
|
|
|
1124 PRINT
|
|
1
|
1125 COLOR 12
|
|
|
1126 PRINT "a: KS ET 26"
|
|
2
|
1127 PRINT
|
|
1
|
1128 PRINT "b: HS AB 37"
|
|
2
|
1129 PRINT
|
|
1
|
1130 PRINT "c: KA GR 48"
|
|
2
|
1131 PRINT
|
|
|
1132 PRINT
|
|
1
|
1133 COLOR 12
|
|
|
1134 INPUT "Welche Autonummer hatte er? (a,b,c)", a$
|
|
2
|
1135 PRINT
|
|
1
|
1136 IF a$ = "a" THEN PRINT "Du solltest dein Gedaechtnis verbessern!"
|
|
|
1137 IF a$ = "b" THEN PRINT "Du solltest dein Gedaechtnis verbessern!"
|
|
|
1138 IF a$ = "c" GOTO 146
|
|
|
1139 do
|
|
|
1140 loop until inkey <> ""
|
|
|
1141 GOTO 145
|
|
|
1142
|
|
|
1143
|
|
|
1144
|
|
|
1145
|
|
|
1146
|
|
|
1147
|
|
|
1148 146 :
|
|
2
|
1149
|
|
1
|
1150 COLOR 2
|
|
|
1151 PRINT ""
|
|
|
1152 PRINT "Der Polizist gab den guten Tip sofort"
|
|
|
1153 PRINT "an seine Kollegen weiter. Er dankte"
|
|
|
1154 PRINT "dir fuer die heisse Spur und du"
|
|
|
1155 PRINT "verabschiedeste dich und giengst nach"
|
|
|
1156 PRINT "Hause."
|
|
|
1157 do
|
|
|
1158 loop until inkey <> ""
|
|
2
|
1159
|
|
1
|
1160 PRINT ""
|
|
|
1161 PRINT "Zwei Tage spaeter kam ein Brief vom"
|
|
|
1162 PRINT "Polizeirevier:"
|
|
|
1163 do
|
|
|
1164 loop until inkey <> ""
|
|
2
|
1165
|
|
1
|
1166 COLOR 15
|
|
|
1167 PRINT "Sehrgeehrter Herr "; name1$; ""
|
|
|
1168 PRINT "dank Ihnen konnten wie eine ganze"
|
|
|
1169 PRINT "Bande Waffenschieber dingfest machen."
|
|
|
1170 PRINT ""
|
|
|
1171 PRINT ""
|
|
|
1172 PRINT ""
|
|
|
1173 PRINT "Ausfuehrlicher Bericht auf der naechsten"
|
|
|
1174 PRINT "Seite."
|
|
|
1175 do
|
|
|
1176 loop until inkey <> ""
|
|
2
|
1177
|
|
1
|
1178 PRINT ""
|
|
|
1179 PRINT "Am Montag konnten wir den gruenen Audi"
|
|
|
1180 PRINT "von Schaefer (so heisst der Bersitzer)"
|
|
|
1181 PRINT "in der Karlsruher Innenstadt ausfindig"
|
|
|
1182 PRINT "machen. Wir folgten ihm bis zu seinem"
|
|
|
1183 PRINT "Hause. Dort umstellten wir es"
|
|
|
1184 PRINT "und stuermten. Beim Verhoer gestand"
|
|
|
1185 PRINT "er alles (Auftraggeber und alle"
|
|
|
1186 PRINT "Mitglieder). Am naechsten Tag konnten"
|
|
|
1187 PRINT "wir den Rest der Bande verhaften."
|
|
|
1188 PRINT "Am naechsten Donnerstag wird Mayr, der"
|
|
|
1189 PRINT "Boss der Truppe, wegen Mord an Karl"
|
|
|
1190 PRINT ""
|
|
|
1191 do
|
|
|
1192 loop until inkey <> ""
|
|
2
|
1193
|
|
1
|
1194 PRINT ""
|
|
|
1195 PRINT "Mueller verurteilt. Auch die Anderen"
|
|
|
1196 PRINT "werden wegen Beihilfe zum Mord vor"
|
|
|
1197 PRINT "Gericht gestellt werden."
|
|
|
1198 PRINT ""
|
|
|
1199 PRINT "Ich muss nochmal meinen Dank an Sie"
|
|
|
1200 PRINT "Aussprechen. Denn nur durch Sie konnten"
|
|
|
1201 PRINT "wir diese gefaehrliche Bande stoppen"
|
|
|
1202 PRINT ""
|
|
|
1203 PRINT ""
|
|
|
1204 PRINT ""
|
|
|
1205 PRINT " Polizeichef Mattias Huber"
|
|
|
1206 do
|
|
|
1207 loop until inkey <> ""
|
|
2
|
1208
|
|
|
1209
|
|
|
1210
|
|
|
1211 cls
|
|
1
|
1212 LOCATE 13, 10
|
|
|
1213 COLOR 13
|
|
|
1214 PRINT "Du hast gewonnen!"
|
|
|
1215 do
|
|
|
1216 loop until inkey <> ""
|
|
|
1217
|
|
|
1218
|
|
|
1219
|
|
|
1220
|
|
|
1221
|
|
|
1222 END
|
|
|
1223
|
|
|
1224
|
|
|
1225
|
|
|
1226
|
|
|
1227
|
|
|
1228
|
|
|
1229
|
|
|
1230
|
|
|
1231
|
|
|
1232
|
|
|
1233
|
|
|
1234 inventar:
|
|
|
1235 COLOR 5
|
|
2
|
1236 PRINT "+-- Inventar -----------+"
|
|
|
1237 PRINT "| |"
|
|
|
1238 PRINT "| Autoschluessel |"
|
|
|
1239 PRINT "| 200 Schilling |"
|
|
|
1240 IF tlampe% = 1 THEN PRINT "| Taschenlampe |"
|
|
|
1241 IF schluessel% = 1 THEN PRINT "| Schluessel |"
|
|
|
1242 IF messer% = 1 THEN PRINT "| Messer |"
|
|
|
1243 IF kerzenst% = 1 THEN PRINT "| Kerzenstaender |"
|
|
|
1244 PRINT "| |"
|
|
|
1245 PRINT "+-----------------------+"
|
|
1
|
1246 RETURN
|
|
|
1247
|
|
|
1248
|
|
|
1249
|
|
|
1250 befehle:
|
|
2
|
1251 COLOR 3
|
|
1
|
1252 PRINT "Moegliche Befehle:"
|
|
|
1253 PRINT ""
|
|
|
1254 PRINT "umschauen"
|
|
|
1255 PRINT "oeffnen <Objekt>"
|
|
|
1256 PRINT "benutzen <Objekt>"
|
|
|
1257 PRINT "untersuchen <Objekt>"
|
|
|
1258 PRINT "sprechen mit <Person>"
|
|
|
1259 PRINT "gehen (in) <Ort>"
|
|
|
1260 PRINT "nehmen <Objekt>"
|
|
|
1261 RETURN
|
|
|
1262
|
