midds
view Midds_reco.bas @ 1:130ab9a4fd83
begin of the recoding of the old Midds
| author | meillo@marmaro.de |
|---|---|
| date | Mon, 03 Sep 2007 14:19:39 +0200 |
| parents | |
| children | 53d9408c7cdb |
line source
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 '============================================================================'
24 'Midds'
27 CLS
28 LOCATE 13, 6
29 COLOR 15
30 PRINT "*** Mord in der Dorfstrasse ***"
31 'LINE (20, 60)-(300, 140), 2, B
32 LOCATE 24, 2
33 COLOR 7
34 PRINT "(c) Copyright 1999 Elefant Software"
35 do
36 loop until inkey <> ""
39 name1$ = "John Howell"
43 CLS
44 COLOR 6
45 PRINT "Dies ist ein Kriminalspiel,"
46 PRINT "das die grauen Zellen fordert."
47 do
48 loop until inkey <> ""
52 CLS
53 GOSUB befehle
54 do
55 loop until inkey <> ""
59 CLS
60 COLOR 6
61 PRINT
62 PRINT "Druecke 'q' um das Spiel zu beenden."
63 PRINT
64 PRINT "Druecke 'i' um zu erfahren, was du alles besitzt."
65 PRINT
66 PRINT "Druecke 'b' um die Befehle noch einmal zusehen."
67 do
68 loop until inkey <> ""
71 X:
72 CLS
73 PRINT ""
74 LOCATE 13, 6
75 COLOR 6
76 PRINT "So jetzt geht's endlich los!!!"
77 do
78 loop until inkey <> ""
79 CLS
80 GOTO 1
86 1 :
87 '''''''''' Vor dem Haus '''''''''
88 zuege = 0
89 a1:
90 CLS
91 PRINT ""
92 COLOR 2
93 PRINT "Du heisst "; name1$; " und bist"
94 PRINT "Privatdetektiv. Du wurdest von "
95 PRINT "Herr Fisch angerufen um einen Mord"
96 PRINT "aufzuklaeren."
97 PRINT "Natuerlich bist du sofort in deinen"
98 PRINT "Renault 19 gestiegen und losgefahren."
99 PRINT "Jetzt stehst du vor Haus Nummer 6"
100 PRINT "in der Dorfstrasse."
101 PRINT
102 COLOR 7
103 INPUT "(Vor dem Haus) Was machst du? ", B$
104 zuege% = zuege% + 1
105 IF B$ = "benutzen Klingel" GOTO 2
106 IF B$ = "oeffnen Tuer" THEN PRINT "Du kannst doch nicht einfach fremde Haeuser betreten."
107 IF B$ = "oeffnen Tuer" THEN SLEEP
108 IF B$ = "oeffnen Tuer" GOTO a1
109 IF B$ = "gehen in Haus" THEN PRINT "Du kannst doch nicht einfach fremde Haeuser betreten."
110 IF B$ = "gehen in Haus" THEN SLEEP
111 IF B$ = "gehen in Haus" GOTO a1
112 IF B$ = "gehen Heim" THEN PRINT "Du Angsthase"
113 IF B$ = "gehen Heim" GOTO a1
114 IF B$ = "q" THEN END
115 IF B$ = "i" THEN GOSUB inventar
116 IF B$ = "b" THEN GOSUB befehle
117 PRINT ""
118 PRINT "Noe!"
119 PRINT ""
120 IF zuege% = 5 THEN GOTO a
121 IF zuege% = 9 THEN GOTO B
122 IF zuege% = 9 THEN GOTO 2
123 do
124 loop until inkey <> ""
125 GOTO a1
127 a:
128 COLOR 4
129 PRINT " Tipp: benutzen ..."
130 SLEEP
131 GOTO a1
133 B:
134 COLOR 4
135 PRINT " Loesung: benutzen Klingel"
136 SLEEP
137 CLS
138 GOTO 2
146 2 :
147 CLS
148 COLOR 2
149 PRINT "Herr Fisch oeffnet die Tuer und du stehst im Flur"
150 PRINT ""
151 do
152 loop until inkey <> ""
154 CLS
155 LOCATE 13, 10
156 COLOR 10
157 PRINT "Flur"
158 do
159 loop until inkey <> ""
160 zuege% = 0
161 GOTO 3
166 3 :
167 '''''''' Flur '''''''
168 CLS
169 IF kerzenst% = 1 GOTO 116
170 COLOR 2
171 PRINT "Herr Fisch oeffnet die Tuer und du stehst im Flur"
172 PRINT
173 COLOR 7
174 INPUT "(Flur) Was machst du? ", B$
175 zuege% = zuege% + 1
176 IF B$ = "sprechen mit Herr Fisch" GOTO 4
177 IF B$ = "gehen Heim" THEN PRINT "Du Angsthase!"
178 IF B$ = "umschauen" GOTO 117
179 IF B$ = "untersuchen Flur" GOTO 117
180 IF B$ = "gehen in Schlafzimmer" GOTO 114
181 IF B$ = "gehen in Arbeitszimmer" GOTO 105
182 IF B$ = "gehen in Esszimmer" GOTO 106
183 IF B$ = "gehen in Kueche" GOTO 109
184 IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132
185 IF B$ = "q" THEN END
186 IF B$ = "i" THEN GOSUB inventar
187 IF B$ = "b" THEN GOSUB befehle
188 PRINT ""
189 PRINT "Keine Lust!"
190 PRINT ""
191 IF zuege% = 6 THEN GOTO c
192 do
193 loop until inkey <> ""
194 GOTO 3
196 c:
197 COLOR 4
198 PRINT "Tipp: sprechen mit ..."
199 do
200 loop until inkey <> ""
201 CLS
202 GOTO 3
207 4 :
208 CLS
209 COLOR 9
210 PRINT "A: Ich heisse "; name1$; "."
211 PRINT "B: Wo ist die Leiche?"
212 PRINT "C: Wie heisst der Tote?"
213 PRINT "D: Ende."
214 PRINT ""
215 COLOR 12
216 INPUT "Was sagst du?", s$
217 PRINT
218 COLOR 9
219 IF s$ = "A" THEN PRINT "Ich heisse Manfred Fisch."
220 IF s$ = "B" THEN PRINT "Im Schlafzimmer."
221 IF s$ = "B" THEN SLEEP
222 IF s$ = "B" GOTO 5
223 IF s$ = "C" THEN PRINT "Karl Mueller."
224 IF s$ = "D" THEN END
225 do
226 loop until inkey <> ""
227 GOTO 4
233 5 :
234 CLS
235 COLOR 9
236 PRINT
237 PRINT "A: Ich heisse "; name1$; ""
238 PRINT "B: Wo ist die Leiche?"
239 PRINT "C: Wie heisst der Tote?"
240 PRINT "D: Wo ist das Schlafzimmer?"
241 PRINT "E: Ende"
242 PRINT ""
243 PRINT ""
244 COLOR 12
245 INPUT "Was sagst du?", s$
246 PRINT
247 COLOR 9
248 IF s$ = "A" THEN PRINT "Ich heisse Manfred Fisch."
249 IF s$ = "B" THEN PRINT "Im Schlafzimmer."
250 IF s$ = "C" THEN PRINT "Karl Mueller."
251 IF s$ = "D" THEN PRINT "Die Treppe hinauf dann links."
252 IF s$ = "E" THEN GOTO 6
253 do
254 loop until inkey <> ""
255 GOTO 5
261 6 :
262 ''''''' Flur ''''''''
263 CLS
264 zuege% = 0
265 LOCATE 13, 10
266 COLOR 10
267 PRINT "Flur"
268 do
269 loop until inkey <> ""
270 a6:
271 CLS
272 COLOR 7
273 PRINT
274 IF kerzenst% = 1 GOTO 116
275 PRINT
276 INPUT "(Flur) Was machst du? ", B$
277 zuege% = zuege% + 1
278 IF B$ = "sprechen mit Herr Fisch" GOTO 5
279 IF B$ = "gehen in Schlafzimmer" GOTO 7
280 IF B$ = "gehen in Arbeitszimmer" GOTO 105
281 IF B$ = "gehen in Esszimmer" GOTO 106
282 IF B$ = "gehen in Kueche" GOTO 109
283 IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132
284 IF B$ = "gehen Heim " THEN PRINT "Du Hasenfuss!"
285 IF B$ = "gehen Heim " GOTO a6
286 IF B$ = "q" THEN END
287 IF B$ = "i" THEN GOSUB inventar
288 IF B$ = "b" THEN GOSUB befehle
289 PRINT ""
290 PRINT "Nee!"
291 IF zuege = 5 GOTO d
292 GOTO a6
295 d:
296 COLOR 4
297 PRINT "gehen in ..."
298 do
299 loop until inkey <> ""
300 GOTO a6
308 7 :
309 CLS
310 COLOR 2
311 PRINT "Die Leiche, ein etwa 20 Jahre alter"
312 PRINT "Mann, liegt mit einem Messer im Ruecken"
313 PRINT "auf dem Bett. Ich decke die Leiche"
314 PRINT "als erstes mit einem Tuch ab und rufe"
315 PRINT "mit meinem Handy Tina an. Tina ist"
316 PRINT "Spezialistin fuer Fingerabdruecke."
317 do
318 loop until inkey <> ""
319 GOTO 8
326 8 :
327 ''''''' Schlafzimmer '''''''''
328 CLS
329 PRINT
330 COLOR 7
331 INPUT "(Schlafzimmer) Was machst du? ", B$
332 IF B$ = "gehen in Flur" GOTO 103
333 IF B$ = "gehen in Arbeitszimmer" GOTO 105
334 IF B$ = "gehen in Esszimmer" GOTO 106
335 IF B$ = "gehen in Kueche" GOTO 109
336 IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132
337 IF B$ = "umschauen" GOTO 9
338 IF B$ = "untersuchen Schlafzimmer" GOTO 9
339 IF B$ = "untersuchen Schrank" THEN PRINT "Ein alter Aktenschrank."
340 IF B$ = "oeffnen Aktenschrank" GOTO 101
341 IF B$ = "untersuchen Fenster" THEN PRINT "Wenn man hinaus schaut,"
342 IF B$ = "untersuchen Fenster" THEN PRINT "sieht man die Strasse."
343 IF B$ = "untersuchen Bett" GOTO 100
344 IF B$ = "nehmen Taschenlampe" GOTO e
345 IF B$ = "untersuchen Poster" THEN PRINT "Da steht - Sean Connery als James Bond"
346 IF B$ = "untersuchen Poster" THEN PRINT "in SAG NIEMALS NIE - drauf."
347 IF B$ = "sprechen mit Tina" THEN PRINT "Die stoere ich lieber nicht bei der Arbeit."
348 IF B$ = "q" THEN END
349 IF B$ = "i" THEN GOSUB inventar
350 IF B$ = "b" THEN GOSUB befehle
351 PRINT
352 PRINT "Nein"
353 PRINT
354 do
355 loop until inkey <> ""
356 GOTO 8
361 e:
362 CLS
363 LOCATE 11, 22
364 PRINT "Du hast die Taschenlampe genommen"
365 tlampe% = 1
366 do
367 loop until inkey <> ""
368 CLS
369 GOTO 8
375 9 :
376 CLS
377 COLOR 2
378 PRINT "In der Mitte steht das Bett, ueber dem"
379 PRINT "Bett haengt ein Poster, auf der"
380 PRINT "linken Seite befindet sich ein Schrank"
381 PRINT "und an der rechten Wand ist ein Fenster."
382 IF vvx% = 1 THEN PRINT "Tina sichert gerade"
383 IF vvx% = 1 THEN PRINT "die Fingerabdruecke."
384 do
385 loop until inkey <> ""
386 GOTO 8
392 100 :
393 CLS
394 COLOR 2
395 PRINT "Unter dem Bett liegt eine Taschenlampe."
396 do
397 loop until inkey <> ""
398 GOTO 8
404 101 :
405 CLS
406 versuch% = 0
407 COLOR 2
408 PRINT "Hinter den Ordnern ist ein Geheimfach"
409 PRINT "mit einem dreistelligen Zahlenschloss."
410 do
411 loop until inkey <> ""
412 a101:
413 CLS
414 versuch% = versuch% + 1
415 COLOR 5
416 INPUT "Wie lautet die Kombination?", k$
417 IF k$ = "000" THEN PRINT "War wohl falsch."
418 IF k$ = "007" GOTO 102
419 IF k$ = "q" THEN END
420 PRINT "Komm streng dich ein bischen an!"
421 IF versuch% = 3 THEN PRINT "Tipp: Karl Mueller war Jean Connery Fan."
422 IF versuch% = 6 THEN PRINT "Tipp: Denk an das Poster."
423 do
424 loop until inkey <> ""
425 GOTO a101
430 102 :
431 CLS
432 COLOR 2
433 PRINT "Bravo, du hast echt gut kombiniert."
434 PRINT "In dem Geheimfach befindet sich ein Schluessel."
435 do
436 loop until inkey <> ""
441 F:
442 CLS
443 PRINT "Du hast den Schluessel genommen"
444 schluessel% = 1
445 do
446 loop until inkey <> ""
447 CLS
448 GOTO 114
454 103 :
455 CLS
456 LOCATE 13, 10
457 COLOR 10
458 PRINT "Flur"
459 do
460 loop until inkey <> ""
461 GOTO 104
467 104 :
468 CLS
469 COLOR 2
470 PRINT "Links geht es die Treppe zum Schlafzimmer"
471 PRINT "hinauf, gerade aus geht's ins Esszimmer"
472 PRINT " und rechts ins Arbeitszimmer."
473 do
474 loop until inkey <> ""
475 GOTO a6
481 105 :
482 '''''''' Arbeitszimmer '''''''
483 CLS
484 LOCATE 13, 10
485 COLOR 10
486 PRINT "Arbeitszimmer"
487 do
488 loop until inkey <> ""
489 a105:
490 CLS
491 COLOR 7
492 INPUT "(Arbeitszimmer) Was machst du? ", B$
493 IF B$ = "gehen in Schlafzimmer" GOTO 114
494 IF B$ = "gehen in Flur" GOTO 103
495 IF B$ = "gehen in Esszimmer" GOTO 106
496 IF B$ = "gehen in Kueche" GOTO 109
497 IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132
498 IF B$ = "umschauen" GOTO 107
499 IF B$ = "untersuchen Arbeitszimmer" GOTO 107
500 IF B$ = "untersuchen Schreibtisch" THEN PRINT "Da gibt's nichts Besonderes zu sehen."
501 IF B$ = "untersuchen Buecherregal" GOTO 122
502 IF B$ = "untersuchen Buch" THEN PRINT "Ich kann nur den Buchruecken lesen, wenn es da steht."
503 IF B$ = "nehmen Buch" GOTO 124
504 IF B$ = "benutzen Schluessel" THEN PRINT "Das Schluesselschloss waere geknackt."
505 IF B$ = "benutzen Schluessel" THEN sx% = 1
506 IF B$ = "benutzen Schluessel" GOTO 138
507 IF B$ = "gehen in Geheimgang" AND kx% = 1 AND sx% = 1 GOTO 127
508 IF B$ = "z" GOTO 125
509 IF B$ = "i" THEN GOSUB inventar
510 IF B$ = "q" THEN END
511 IF B$ = "b" THEN GOSUB befehle
512 do
513 loop until inkey <> ""
514 PRINT "Heute nicht!"
515 GOTO a105
521 107 :
522 CLS
523 COLOR 2
524 PRINT "In der Mitte steht ein Schreibtisch,"
525 PRINT "rechts befindet sich ein Schrank und"
526 PRINT "links ein Buecherregal."
527 do
528 loop until inkey <> ""
529 GOTO 105
535 106 :
536 '''''' Esszimmer ''''''
537 CLS
538 LOCATE 13, 10
539 COLOR 10
540 PRINT "Esszimmer"
541 do
542 loop until inkey <> ""
543 a106:
544 CLS
545 COLOR 7
546 INPUT "(Esszimmer) Was machst du?", B$
547 IF B$ = "gehen in Schlafzimmer" GOTO 114
548 IF B$ = "gehen in Flur" GOTO 103
549 IF B$ = "gehen in Arbeitszimmer" GOTO 105
550 IF B$ = "gehen in Kueche" GOTO 109
551 IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132
552 IF B$ = "umschauen" GOTO 108
553 IF B$ = "untersuchen Esszimmer" GOTO 108
554 IF B$ = "untersuchen Tisch" GOTO 110
555 IF B$ = "nehmen Kerzenstaender" GOTO 115
556 IF B$ = "q" THEN END
557 IF B$ = "i" THEN GOSUB inventar
558 IF B$ = "b" THEN GOSUB befehle
559 do
560 loop until inkey <> ""
561 GOTO a106
568 108 :
569 CLS
570 PRINT "In der Mitte steht der Tisch und auf"
571 PRINT "der rechten Seite ist die Tuer zur Kueche."
572 do
573 loop until inkey <> ""
574 GOTO 106
580 110 :
581 CLS
582 PRINT "Ein schoener eichener Tisch mit einer"
583 PRINT "gehaekelten Tischdecke und einem"
584 PRINT "Kerzenstaender in der Mitte."
585 do
586 loop until inkey <> ""
587 GOTO a106
593 109 :
594 '''''''' Kueche '''''''
595 CLS
596 LOCATE 13, 10
597 COLOR 10
598 PRINT "Kueche"
599 do
600 loop until inkey <> ""
601 a109:
602 CLS
603 INPUT "(Kueche) Was machst du?", B$
604 IF B$ = "gehen in Schlafzimmer" GOTO 114
605 IF B$ = "gehen in Flur" GOTO 103
606 IF B$ = "gehen in Arbeitszimmer" GOTO 105
607 IF B$ = "gehen in Esszimmer" GOTO 106
608 IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132
609 IF B$ = "umschauen" GOTO 111
610 IF B$ = "untersuchen Kueche" GOTO 111
611 IF B$ = "untersuchen Kuechenschrank" GOTO 112
612 IF B$ = "oeffnen Schublade" THEN PRINT "In der Schublade liegt sich ein Messer."
613 IF B$ = "nehmen Messer" GOTO 113
614 IF B$ = "q" THEN END
615 IF B$ = "i" THEN GOSUB inventar
616 IF B$ = "b" THEN GOSUB befehle
617 do
618 loop until inkey <> ""
619 GOTO a109
625 111 :
626 CLS
627 PRINT "Links ist die Kochzeile, in der Mitte"
628 PRINT "ein kleiner Tisch mit zwei Stuehlen und"
629 PRINT "rechts der Kuechenschrank."
630 do
631 loop until inkey <> ""
632 GOTO a109
638 112 :
639 CLS
640 PRINT "Es ist nichts Ausergewoehnliches daran"
641 PRINT "zu erkennen, nur eine Schublade in der"
642 PRINT "es bestimmt Interesantes zu entdecken gibt."
643 do
644 loop until inkey <> ""
645 GOTO a109
651 113 :
652 CLS
653 PRINT "Du hast das Messer genommen"
654 do
655 loop until inkey <> ""
656 CLS
657 messer% = 1
658 GOTO a109
663 114 :
664 CLS
665 LOCATE 13, 10
666 COLOR 10
667 PRINT "Schlafzimmer"
668 do
669 loop until inkey <> ""
670 GOTO 8
676 115 :
677 CLS
678 PRINT "Du hast den Kerzenstaender genommen"
679 do
680 loop until inkey <> ""
681 CLS
682 kerzenst% = 1
683 GOTO a106
690 116 :
691 ''''''''' Flur '''''''
692 CLS
693 COLOR 7
694 INPUT "(Flur) Was machst du? ", B$
695 zuege% = zuege% + 1
696 IF B$ = "gehen in Schlafzimmer" GOTO 114
697 IF B$ = "gehen in Arbeitszimmer" GOTO 105
698 IF B$ = "gehen in Esszimmer" GOTO 106
699 IF B$ = "gehen in Kueche" GOTO 109
700 IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132
701 IF B$ = "sprechen mit Herr Fisch" GOTO 5
702 IF B$ = "gehen Heim" THEN PRINT "Du Angsthase!"
703 IF B$ = "umschauen" GOTO 117
704 IF B$ = "untersuchen Flur" GOTO 117
705 IF B$ = "sprechen mit Tina" GOTO 118
706 IF B$ = "q" THEN END
707 IF B$ = "i" THEN GOSUB inventar
708 IF B$ = "b" THEN GOSUB befehle
709 PRINT ""
710 PRINT "Keine Lust!"
711 PRINT ""
712 do
713 loop until inkey <> ""
714 GOTO 116
720 117 :
721 CLS
722 IF kerzenst% = 0 GOTO 121
723 PRINT "Links geht es die Treppe zum Schlafzimmer hinauf,"
724 PRINT "gerade aus geht's ins Esszimmer und rechts ins"
725 PRINT "Arbeitszimmer. Im Flur steht Herr Fisch und ..."
726 PRINT "gerade klingelt es an der Tuer. Herr Fisch macht"
727 PRINT "auf und Tina kommt herein."
728 vvv% = 1
729 do
730 loop until inkey <> ""
731 GOTO 116
737 118 :
738 CLS
739 COLOR 9
740 PRINT "A: Schoen, dass du so schnell gekommen bist."
741 PRINT "B: Der Tote liegt im Schlafzimmer."
742 PRINT "C: Ende."
743 LOCATE 8, 1
744 COLOR 12
745 INPUT "Was sagst du?", s$
746 PRINT
747 COLOR 9
748 IF s$ = "A" THEN PRINT "Ich habe mich sofort auf den Weg gemacht."
749 IF s$ = "B" GOTO 119
750 IF s$ = "C" GOTO 116
751 do
752 loop until inkey <> ""
753 GOTO 118
759 119 :
760 CLS
761 COLOR 9
762 PRINT "Okay, aber wo ist das Schlafzimmer?"
763 do
764 loop until inkey <> ""
765 GOTO 120
771 120 :
772 CLS
773 COLOR 12
774 PRINT "Welchen Weg beschreibst du ihr?"
775 PRINT
776 PRINT "a: Links die Treppe hinauf."
777 PRINT "b: Rechts die Treppe hinunter."
778 PRINT "c: Die Treppe hinauf, dann links."
779 PRINT
780 INPUT "a, b oder c?", w$
781 PRINT
782 COLOR 2
783 IF w$ = "c" THEN PRINT "Bravo, du hast ein gutes Gedaechtnis!"
784 IF w$ = "c" THEN cheat1 = 1
785 IF w$ = "a" THEN PRINT "Leider falsch.Die richtige Loesung war c."
786 IF w$ = "b" THEN PRINT "Leider falsch.Die richtige Loesung war c."
787 vvx% = 1
788 do
789 loop until inkey <> ""
790 GOTO 116
797 121 :
798 CLS
799 COLOR 2
800 PRINT "Links geht es die Treppe zum Schlafzimmer"
801 PRINT "hinauf, gerade aus geht's ins Esszimmer und"
802 PRINT "rechts ins Arbeitszimmer. Im Flur steht"
803 PRINT "Herr Fisch und beantwortet gern alle deine Fragen."
804 do
805 loop until inkey <> ""
806 GOTO 116
812 122 :
813 CLS
814 COLOR 2
815 IF vvx% = 1 GOTO 123
816 PRINT "Ich sehe nichts Besonderes."
817 do
818 loop until inkey <> ""
819 GOTO 105
825 123 :
826 CLS
827 COLOR 2
828 PRINT "Da hat's ja ein Buch mit 123 Reiseerzaehlungen"
829 PRINT "von Karl May, meinem Leiblingsautor. Das sollte"
830 PRINT "ich mir genauer anschauen."
831 do
832 loop until inkey <> ""
833 GOTO 105
839 124 :
840 CLS
841 COLOR 2
842 PRINT "Das Buch laesst sich nur halb heraus ziehen."
843 PRINT "Ploetzlich schwenkt das ganze Buecherregal zur"
844 PRINT "Seite und dhinter kommt eine Tuer zum Vorschein."
845 PRINT "Sie ist durch ein Schluessel- und ein "
846 PRINT "Zahlenschloss gesichert."
847 PRINT
848 COLOR 6
849 PRINT "Wenn du im Arbeitszimmer z drueckst, kannst du"
850 PRINT "die Zahlenkombination eingeben."
851 do
852 loop until inkey <> ""
853 GOTO 105
859 125 :
860 zkx% = 0
861 a125:
862 CLS
863 zkx% = zkx% + 1
864 COLOR 5
865 INPUT "Wie lautet die Kombination?", zk$
866 IF zk$ = "007" THEN PRINT "So einfach ist es nicht"
867 IF zk$ = "123" GOTO 126
868 IF zk$ = "q" GOTO 105
869 PRINT "Leider falsch. Probier's noch einmal."
870 IF zkx% = 5 THEN PRINT "Tipp: Das Buecherregal."
871 do
872 loop until inkey <> ""
873 GOTO a125
880 126 :
881 CLS
882 COLOR 2
883 PRINT "Die Kombination war richtig."
884 kx% = 1
885 IF sx% = 1 GOTO 137
886 PRINT "Jetzt musst du nur noch das Schluesselschloss oeffnen."
887 do
888 loop until inkey <> ""
889 GOTO 105
895 137 :
896 CLS
897 COLOR 2
898 PRINT "So, die Tuer ist jetzt offen. Dahinter befindet"
899 PRINT "sich ein Geheimgang."
900 do
901 loop until inkey <> ""
902 GOTO 105
909 138 :
910 CLS
911 COLOR 2
912 IF kx% = 1 GOTO 137
913 PRINT "Jetzt musst du nur noch die Kombination knacken."
914 do
915 loop until inkey <> ""
916 GOTO 105
923 127 :
924 CLS
925 COLOR 2
926 IF tlampe% = 0 THEN PRINT "Da geh' ich ohne Licht nicht rein."
927 do
928 loop until inkey <> ""
929 IF tlampe% = 0 GOTO 105
930 1000 :
931 CLS
932 LOCATE 13, 10
933 COLOR 10
934 PRINT "Geheimgang"
935 do
936 loop until inkey <> ""
937 CLS
938 COLOR 2
939 PRINT "Gut, dass ich eine Taschenlampe dabei habe."
940 PRINT "Oh, es geht steil bergab .... ich muss schon"
941 PRINT "mindestens 5 Meter unter der Erdoberflaeche"
942 PRINT "sein .... Jetzt bin ich schon 10 Minuten"
943 PRINT "unterwegs ..... da vorne kommt eine Tuer"
944 PRINT "genau so gesichert wie die hinter dem Regal"
945 PRINT "gut, dass ich den Schluessel habe und den"
946 PRINT "Code kenne ..... Wo bin ich denn jetzt?"
947 PRINT "Sieht aus, wie der Keller eines Hauses"
948 PRINT "ist aber ganz schoen zerfallen."
949 do
950 loop until inkey <> ""
951 GOTO 130
958 130 :
959 '''''''''' Keller '''''''''''''
960 CLS
961 LOCATE 13, 10
962 COLOR 10
963 PRINT "Keller"
964 do
965 loop until inkey <> ""
966 a130:
967 CLS
968 COLOR 7
969 INPUT "(Keller) Was machst du? ", B$
970 zuege% = zuege% + 1
971 IF B$ = "gehen in Flur" GOTO 103
972 IF B$ = "gehen in Schlafzimmer" GOTO 114
973 IF B$ = "gehen in Arbeitszimmer" GOTO 105
974 IF B$ = "gehen in Esszimmer" GOTO 106
975 IF B$ = "gehen in Kueche" GOTO 109
976 IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132
977 IF B$ = "sprechen mit Herr Fisch" GOTO 5
978 IF B$ = "umschauen" GOTO 128
979 IF B$ = "untersuchen Keller" GOTO 128
980 IF B$ = "benutzen Treppe" GOTO 132
981 IF B$ = "q" THEN END
982 IF B$ = "i" THEN GOSUB inventar
983 IF B$ = "b" THEN GOSUB befehle
984 PRINT ""
985 PRINT "Jetzt nicht."
986 PRINT
987 do
988 loop until inkey <> ""
989 GOTO a130
996 128 :
997 CLS
998 COLOR 2
999 PRINT "Ein zerfallener Keller, alles verstaubt."
1000 PRINT "Gerade aus geht eine Treppe nach oben."
1001 PRINT
1002 PRINT ""
1003 do
1004 loop until inkey <> ""
1005 GOTO 130
1011 131 :
1012 CLS
1013 COLOR 2
1014 PRINT "In der Lagerhalle ist alles genau so"
1015 PRINT "zerfallen, wie im Keller. Ueberall sind Kartons"
1016 PRINT "gestapelt. Gerade aus geht eine Tuer ins Freie."
1017 do
1018 loop until inkey <> ""
1019 RETURN
1026 132 :
1027 '''''''' Lagerhalle '''''''''''
1028 CLS
1029 LOCATE 13, 10
1030 COLOR 10
1031 PRINT "Lagerhalle"
1032 do
1033 loop until inkey <> ""
1034 CLS
1035 a132:
1036 CLS
1037 COLOR 7
1038 INPUT "(Lagerhalle) Was machst du? ", B$
1039 zuege% = zuege% + 1
1040 IF B$ = "gehen in Schlafzimmer" GOTO 114
1041 IF B$ = "gehen in Arbeitszimmer" GOTO 105
1042 IF B$ = "gehen in Esszimmer" GOTO 106
1043 IF B$ = "gehen in Kueche" GOTO 109
1044 IF B$ = "umschauen" THEN GOSUB 131
1045 IF B$ = "untersuchen Lagerhalle" THEN GOSUB 131
1046 IF B$ = "oeffnen Tuer" GOTO 133
1047 IF B$ = "untersuchen Kartons" THEN GOSUB 134
1048 IF B$ = "benutzen Messer" GOTO 136
1049 IF B$ = "q" THEN END
1050 IF B$ = "i" THEN GOSUB inventar
1051 IF B$ = "b" THEN GOSUB befehle
1052 PRINT ""
1053 PRINT "Noe!"
1054 PRINT
1055 do
1056 loop until inkey <> ""
1057 GOTO a132
1063 133 :
1064 CLS
1065 COLOR 2
1066 PRINT "Die Tuer ist mit einem Zahlenschloss verschlossen,"
1067 PRINT "aber man kann die Tuer einen Spalt weit aufdruecken."
1068 PRINT "Als ich hinaus schaue sehe ich wie ein Kleinbus"
1069 PRINT "auf mich zufaehrt. Ich kann gerade noch zur Seite"
1070 PRINT "hechten ohne, dass mich die Scheinwerfer erreichen."
1071 PRINT "Jetzt ist schnelles Handeln wichtig!"
1072 PRINT
1073 do
1074 loop until inkey <> ""
1075 a133:
1076 COLOR 7
1077 INPUT "(Lagerhalle) Wo versteckst du dich? In ", v$
1078 v% = v% + 1
1079 IF v$ = "leerem Karton" GOTO 135
1080 IF v$ = "leerer Karton" GOTO 135
1081 IF v$ = "leere Kartons" GOTO 135
1082 IF v$ = "Kartons" THEN PRINT "Ich kann mich doch nicht in vollen Kartons verstecken."
1083 IF v$ = "Geheimgang" THEN PRINT "Dafuer reicht die Zeit nicht."
1084 IF v$ = "Keller" THEN PRINT "Dafuer reicht die Zeit nicht."
1085 IF v$ = "umschauen" THEN GOSUB 131
1086 IF v$ = "untersuchen Lagerhalle" THEN GOSUB 131
1087 IF v$ = "untersuchen Kartons" THEN GOSUB 134
1088 IF v$ = "q" THEN END
1089 IF v% = 9 THEN PRINT "Tipp: l..... K....."
1090 IF v% = 5 THEN PRINT "Tipp: Schau dir die Lagerhalle noch einmal genau an."
1091 PRINT "Da habe ich zu wenig Zeit dafuer."
1092 do
1093 loop until inkey <> ""
1094 GOTO a133
1101 134 :
1102 CLS
1103 COLOR 2
1104 PRINT "Auf der linken Seite sind die vollen Kartons"
1105 PRINT "gestapelt und rechts liegen die leeren auf"
1106 PRINT "einem Haufen."
1107 do
1108 loop until inkey <> ""
1109 RETURN
1116 135 :
1117 CLS
1118 COLOR 2
1119 PRINT "Das ist eine gute Idee. Ich mache mich"
1120 PRINT "sofort an die Arbeit. Raschel, raschel"
1121 PRINT "... uff ... so ... geich ... jetzt ..."
1122 PRINT "Okay ich hab's geschafft. Jetzt kann"
1123 PRINT "ich nur nichts mehr sehen. Ich sollte"
1124 PRINT "mir ein Loch zum Rausschauen in den"
1125 PRINT "Karton reissen. So ... uff, der ist zu"
1126 PRINT "stabil, da brauche ich ein Werkzeug dazu."
1127 do
1128 loop until inkey <> ""
1129 GOTO 132
1136 136 :
1137 CLS
1138 COLOR 2
1139 IF messer% = 0 THEN
1140 PRINT "Ich habe kein Messer."
1141 PRINT "Ich sitze weiterhin im Dunkeln. Nach einer"
1142 PRINT "halben Stunde geht der Typ wieder. Ich"
1143 PRINT "begebe mich sofort zurueck ins Haus. So"
1144 PRINT "schlecht vorbereited begebe ich mich nicht"
1145 PRINT "wieder in Gefahr."
1146 PRINT
1147 do
1148 loop until inkey <> ""
1149 GOTO 105
1150 END IF
1152 PRINT "Gute Idee, das mit dem Messer. Der Typ"
1153 PRINT "faehrt jetzt mit seinem Kleinbus in die Halle."
1154 PRINT "Er steigt aus und macht die Hecktueren auf."
1155 PRINT "Nun laed er zwei Kartons in das Gefaehrt, er"
1156 PRINT "schliesst die Tueren, steigt wieder ein und"
1157 PRINT "faehrt hinaus."
1158 PRINT "Uff, das haette ich geschafft. Jetzt bloss schnell"
1159 PRINT "zurueck ins Haus."
1160 do
1161 loop until inkey <> ""
1162 GOTO 139
1171 139 :
1172 CLS
1173 PRINT "Was machst du?"
1174 PRINT ""
1175 PRINT "a: nach Hause gehen"
1176 PRINT "b: noch da bleiben"
1177 PRINT "c: nochmal in die Lagerhalle gehen"
1178 PRINT ""
1179 INPUT "Und wie entscheidest du dich?", entscheidung$
1180 PRINT
1181 IF entscheidung$ = "a" GOTO 140
1182 IF entscheidung$ = "b" GOTO 105
1183 IF entscheidung$ = "c" THEN PRINT "Oh nein! Da geh ich nicht wieder hin!"
1191 140 :
1192 ''''''' Zuhause '''''''
1193 CLS
1194 LOCATE 13, 10
1195 COLOR 10
1196 PRINT "Zuhause"
1197 do
1198 loop until inkey <> ""
1199 a140:
1200 CLS
1201 PRINT "Du willst dir gerade einen Tee machen, als"
1202 PRINT "Du einen Schlag an der Tuer hoerst und das"
1203 PRINT "Licht aus geht."
1204 PRINT ""
1205 PRINT "Was machst du?"
1206 PRINT "a: die Tuer oeffnen"
1207 PRINT "b: die Polizei anrufen"
1208 PRINT "c: dich unter dem Bett verstecken"
1209 PRINT ""
1210 INPUT "Und?", w$
1211 PRINT
1212 IF w$ = "a" GOTO 141
1213 IF w$ = "b" THEN PRINT "Du willst den Fall doch selbst loesen."
1214 IF w$ = "c" THEN PRINT "Du solltest dir einen anderen Job suchen."
1215 GOTO a140
1223 141 :
1224 CLS
1225 COLOR 2
1226 PRINT
1227 PRINT
1228 PRINT "Du siehst gerade noch ein Auto"
1229 PRINT "wegfahren. "
1230 do
1231 loop until inkey <> ""
1232 CLS
1233 LOCATE 17, 17
1234 COLOR 15
1235 PRINT "KA GR 48"
1236 SLEEP 1
1237 GOTO 142
1238 142 :
1239 CLS
1240 COLOR 2
1241 PRINT "In deiner Tuer steckt ein Messer mit"
1242 PRINT "einer Botschaft. Du liest sie natuerlich"
1243 PRINT "sofort."
1244 do
1245 loop until inkey <> ""
1246 CLS
1247 COLOR 11
1248 LOCATE 10, 10
1249 PRINT "Wenn du dich einmischst"
1250 LOCATE 15, 10
1251 PRINT "dann bist du T O T !!!"
1252 do
1253 loop until inkey <> ""
1254 CLS
1255 COLOR 2
1256 PRINT ""
1257 PRINT ""
1258 PRINT "Diese Botschaft war ernst gemeint."
1259 PRINT "Aber als Privatdetektiv musst du dich"
1260 PRINT "halt ueber solche Morddrohungen hinweg-"
1261 PRINT "setzen. Deshalb rufst du sofort die"
1262 PRINT "Polizei an."
1263 do
1264 loop until inkey <> ""
1265 GOTO 143
1266 143 :
1267 CLS
1268 COLOR 9
1269 PRINT ""
1270 PRINT "Ja, hier Polizeirevier Ettlingen, Dieter"
1271 PRINT "Laenger. Was kann ich fuer Sie tun?"
1272 PRINT
1273 PRINT
1274 COLOR 12
1275 PRINT "a: Ich moechte Anzeige gegen einen Mann"
1276 PRINT " in einem gruenen Auto erstatten."
1277 PRINT
1278 PRINT "b: Ich moechte eine Pizza essen."
1279 PRINT ""
1280 PRINT "c: Ich moechte, dass Sie einen Mann"
1281 PRINT ""
1282 PRINT " in einem gruenen Auto verhaften."
1283 LOCATE 20, 1
1284 COLOR 12
1285 INPUT "Was antwortest du? (a,b,c)", a$
1286 IF a$ = "a" THEN GOTO 144
1287 IF a$ = "b" THEN PRINT "Du bist doch ein Spinner!"
1288 IF a$ = "c" THEN GOTO 144
1289 IF a$ = "q" THEN END
1290 do
1291 loop until inkey <> ""
1292 GOTO 143
1300 144 :
1301 CLS
1302 COLOR 9
1303 PRINT ""
1304 PRINT "Wie heisst der Mann denn?"
1305 PRINT
1306 COLOR 12
1307 PRINT "a: Karl von Burlafingen."
1308 PRINT "b: Regideur Eklansch."
1309 PRINT "c: Ich kenne seinen Namen nicht."
1310 PRINT ""
1311 INPUT "Wie heisst er? (a,b,c)", w$
1312 PRINT ""
1313 IF w$ = "a" THEN PRINT "Das kann doch nicht dein Ernst sein."
1314 IF w$ = "b" THEN PRINT "Verarsch mich halt!!"
1315 IF w$ = "c" GOTO 145
1316 do
1317 loop until inkey <> ""
1318 GOTO 144
1325 145 :
1326 CLS
1327 PRINT ""
1328 COLOR 9
1329 PRINT "Was fuer eine Autonummer hatte er denn?"
1330 PRINT ""
1331 PRINT ""
1332 COLOR 12
1333 PRINT "a: KS ET 26"
1334 PRINT ""
1335 PRINT "b: HS AB 37"
1336 PRINT ""
1337 PRINT "c: KA GR 48"
1338 PRINT ""
1339 PRINT ""
1340 COLOR 12
1341 INPUT "Welche Autonummer hatte er? (a,b,c)", a$
1342 PRINT ""
1343 IF a$ = "a" THEN PRINT "Du solltest dein Gedaechtnis verbessern!"
1344 IF a$ = "b" THEN PRINT "Du solltest dein Gedaechtnis verbessern!"
1345 IF a$ = "c" GOTO 146
1346 do
1347 loop until inkey <> ""
1348 GOTO 145
1355 146 :
1356 CLS
1357 COLOR 2
1358 PRINT ""
1359 PRINT "Der Polizist gab den guten Tip sofort"
1360 PRINT "an seine Kollegen weiter. Er dankte"
1361 PRINT "dir fuer die heisse Spur und du"
1362 PRINT "verabschiedeste dich und giengst nach"
1363 PRINT "Hause."
1364 do
1365 loop until inkey <> ""
1366 CLS
1367 PRINT ""
1368 PRINT "Zwei Tage spaeter kam ein Brief vom"
1369 PRINT "Polizeirevier:"
1370 do
1371 loop until inkey <> ""
1372 CLS
1373 LOCATE 4, 1
1374 COLOR 15
1375 PRINT "Sehrgeehrter Herr "; name1$; ""
1376 PRINT "dank Ihnen konnten wie eine ganze"
1377 PRINT "Bande Waffenschieber dingfest machen."
1378 PRINT ""
1379 PRINT ""
1380 PRINT ""
1381 PRINT "Ausfuehrlicher Bericht auf der naechsten"
1382 PRINT "Seite."
1383 do
1384 loop until inkey <> ""
1385 CLS
1386 PRINT ""
1387 PRINT "Am Montag konnten wir den gruenen Audi"
1388 PRINT "von Schaefer (so heisst der Bersitzer)"
1389 PRINT "in der Karlsruher Innenstadt ausfindig"
1390 PRINT "machen. Wir folgten ihm bis zu seinem"
1391 PRINT "Hause. Dort umstellten wir es"
1392 PRINT "und stuermten. Beim Verhoer gestand"
1393 PRINT "er alles (Auftraggeber und alle"
1394 PRINT "Mitglieder). Am naechsten Tag konnten"
1395 PRINT "wir den Rest der Bande verhaften."
1396 PRINT "Am naechsten Donnerstag wird Mayr, der"
1397 PRINT "Boss der Truppe, wegen Mord an Karl"
1398 PRINT ""
1399 do
1400 loop until inkey <> ""
1401 CLS
1402 PRINT ""
1403 PRINT "Mueller verurteilt. Auch die Anderen"
1404 PRINT "werden wegen Beihilfe zum Mord vor"
1405 PRINT "Gericht gestellt werden."
1406 PRINT ""
1407 PRINT "Ich muss nochmal meinen Dank an Sie"
1408 PRINT "Aussprechen. Denn nur durch Sie konnten"
1409 PRINT "wir diese gefaehrliche Bande stoppen"
1410 PRINT ""
1411 PRINT ""
1412 PRINT ""
1413 PRINT " Polizeichef Mattias Huber"
1414 do
1415 loop until inkey <> ""
1416 CLS
1417 LOCATE 13, 10
1418 COLOR 13
1419 PRINT "Du hast gewonnen!"
1420 do
1421 loop until inkey <> ""
1422 COLOR 15
1428 END
1440 inventar:
1441 CLS
1442 PRINT
1443 PRINT
1444 COLOR 5
1445 PRINT "Hausschluessel"
1446 PRINT "200 Schilling"
1447 IF tlampe% = 1 THEN PRINT "Taschenlampe"
1448 IF schluessel% = 1 THEN PRINT "Schluessel"
1449 IF messer% = 1 THEN PRINT "Messer"
1450 IF kerzenst% = 1 THEN PRINT "Kerzenstaender"
1451 RETURN
1455 befehle:
1456 PRINT ""
1457 PRINT "Moegliche Befehle:"
1458 PRINT ""
1459 COLOR 3
1460 PRINT "umschauen"
1461 PRINT "oeffnen <Objekt>"
1462 PRINT "benutzen <Objekt>"
1463 PRINT "untersuchen <Objekt>"
1464 PRINT "sprechen mit <Person>"
1465 PRINT "gehen (in) <Ort>"
1466 PRINT "nehmen <Objekt>"
1467 RETURN