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