midds

view Midds_reco.bas @ 3:e98ade2107de

more refactoring
author meillo@marmaro.de
date Tue, 04 Sep 2007 23:59:39 +0200
parents 53d9408c7cdb
children 105a509f30d9
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 COLOR 7
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 <> ""
39 name1$ = "John Howell"
43 cls
44 COLOR 6
45 PRINT "Dies ist ein Kriminalspiel,"
46 PRINT "das die grauen Zellen fordert."
47 print
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."
52 COLOR 7
53 do
54 loop until inkey <> ""
57 X:
58 cls
59 PRINT ""
60 LOCATE 13, 6
61 COLOR 6
62 PRINT "So jetzt geht's endlich los!!!"
63 COLOR 7
64 do
65 loop until inkey <> ""
71 ort_vordemhaus :
72 '''''''''' Vor dem Haus '''''''''
73 cls
74 COLOR 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
84 COLOR 7
86 zuege = 0
87 do
89 INPUT "(Vor dem Haus) Was machst du? ", B$
90 B$ = lcase(B$)
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
115 zuege% = zuege% + 1
116 IF zuege% = 5 THEN PRINT " Tipp: benutzen ..."
117 IF zuege% > 8 THEN PRINT " Loesung: benutzen Klingel"
119 loop until inkey <> ""
128 ort_flur :
129 '''''''' Flur '''''''
131 COLOR 7
133 zuege% = 0
134 do
135 INPUT "(Flur) Was machst du? ", B$
136 B$ = lcase(B$)
137 select case B$
138 case "sprechen mit herr fisch"
139 goto gespraech_herrfisch
141 case "gehen heim"
142 PRINT " Du Angsthase!"
144 case "umschauen", "untersuchen flur"
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
162 case "gehen in schlafzimmer"
163 goto ort_schlafzimmer
165 case "gehen in arbeitszimmer"
166 GOTO ort_arbeitszimmer
168 case "gehen in esszimmer"
169 GOTO ort_esszimmer
171 case "gehen in kueche"
172 GOTO ort_kueche
174 case "gehen in lagerhalle"
175 if kx% = 1 AND sx% = 1 GOTO 132
177 case "sprechen mit Tina"
178 if tinaistda = 1 then GOTO 118
180 case "q"
181 END
183 case "i"
184 GOSUB inventar
186 case "b"
187 GOSUB befehle
189 case else
190 PRINT " Keine Lust!"
191 PRINT
193 end select
195 zuege% = zuege% + 1
196 IF zuege% = 6 THEN PRINT " Tipp: sprechen mit ..."
197 loop until inkey <> ""
204 gespraech_herrfisch :
205 ''''''''' gespraech mit herr fisch ''''''''''
207 color 2
208 print "Du beginnst ein Gespraech mit Herr Fisch."
209 print
211 do
212 COLOR 7
213 PRINT "A: Hallo, ich heisse "; name1$; "."
214 PRINT "B: Wo ist die Leiche?"
215 PRINT "C: Wie heisst der Tote?"
216 if woIstDasSchlafzimmer = 1 then PRINT "D: Wo ist das Schlafzimmer?"
217 PRINT "Z: Bis spaeter."
218 COLOR 1
219 INPUT "Was sagst du zu Herr Fisch? ", s$
220 s$ = lcase(s$)
221 COLOR 7
222 print "Er antwortet:"
223 COLOR 4
224 select case s$
225 case "a"
226 PRINT " Ich heisse Manfred Fisch."
227 case "b"
228 PRINT " Im Schlafzimmer."
229 woIstDasSchlafzimmer = 1
230 case "c"
231 PRINT " Karl Mueller."
232 case "d"
233 if woIstDasSchlafzimmer = 1 THEN PRINT " Die Treppe hinauf dann links."
234 case "z"
235 PRINT " Ich bin jederzeit fuer Sie da, sprechen Sie mich einfach an."
236 print
237 color 2
238 print "Herr Fisch beginnt wieder die Gemaelde an den Waenden zu betrachten"
239 print
240 goto ort_flur
241 case "q"
242 end
243 end select
244 print
245 loop until inkey <> ""
259 ort_schlafzimmer :
260 ''''''' Schlafzimmer '''''''''
262 if tinaangerufen = 0 then
263 COLOR 2
264 PRINT "Die Leiche, ein etwa 20 Jahre alter"
265 PRINT "Mann, liegt mit einem Messer im Ruecken"
266 PRINT "auf dem Bett. Ich decke die Leiche"
267 PRINT "als erstes mit einem Tuch ab und rufe"
268 PRINT "mit meinem Handy Tina an. Tina ist"
269 PRINT "Spezialistin fuer Fingerabdruecke."
270 tinaangerufen = 1
271 else
272 color 2
273 print "Du bist im Schlafzimmer"
274 end if
276 do
277 PRINT
278 COLOR 7
279 INPUT "(Schlafzimmer) Was machst du? ", B$
280 B$ = lcase(B$)
281 select case B$
282 case "gehen in flur"
283 goto ort_flur
285 case "gehen in arbeitszimmer"
286 goto ort_arbeitszimmer
288 case "gehen in esszimmer"
289 goto ort_esszimmer
291 case "gehen in kueche"
292 goto ort_kueche
294 case "gehen in lagerhalle"
295 if kx% = 1 AND sx% = 1 goto 132
297 case "umschauen", "untersuchen schlafzimmer"
298 COLOR 2
299 PRINT "In der Mitte steht das Bett, ueber dem"
300 PRINT "Bett haengt ein Poster, auf der"
301 PRINT "linken Seite befindet sich ein Schrank"
302 PRINT "und an der rechten Wand ist ein Fenster."
303 IF tinaistimschlafzimmer = 1 THEN PRINT "Tina sichert gerade die Fingerabdruecke."
305 case "untersuchen schrank"
306 PRINT "Ein alter Aktenschrank."
308 case "oeffnen aktenschrank"
309 versuch% = 0
310 COLOR 2
311 PRINT "Hinter den Ordnern ist ein Geheimfach"
312 PRINT "mit einem dreistelligen Zahlenschloss."
313 geheimfachgefunden = 1
315 do
316 versuch% = versuch% + 1
317 COLOR 5
318 INPUT "Wie lautet die Kombination?", k$
319 IF k$ = "000" THEN PRINT "War wohl falsch."
320 IF k$ = "007" then
321 PRINT "Bravo, du hast echt gut kombiniert."
322 geheimfachoffen = 1
323 end if
324 IF k$ = "q" goto ort_schlafzimmer
325 PRINT "Komm streng dich ein bisschen an!"
326 IF versuch% = 3 THEN PRINT "Tipp: Karl Mueller war Jean Connery Fan."
327 IF versuch% = 6 THEN PRINT "Tipp: Denk an das Poster."
328 loop until inkey <> ""
330 case "untersuchen fenster"
331 PRINT "Wenn man hinaus schaut, sieht man die Strasse."
333 case "untersuchen bett"
334 COLOR 2
335 PRINT "Unter dem Bett liegt eine Taschenlampe."
337 case "nehmen taschenlampe"
338 PRINT "Du hast die Taschenlampe genommen"
339 tlampe% = 1
341 case "untersuchen geheimfach"
342 if geheimfachgefunden = 1 then
343 COLOR 2
344 PRINT "In dem Geheimfach befindet sich ein Schluessel."
345 end if
347 case "nehmen schluessel"
348 if geheimfachoffen = 1 then
349 PRINT "Du hast den Schluessel aus dem Geheimfach genommen"
350 schluessel% = 1
351 end if
353 case "untersuchen poster"
354 PRINT "Da steht - Sean Connery als James Bond"
355 PRINT "in SAG NIEMALS NIE - drauf."
357 case "sprechen mit tina"
358 if tinaistimschlafzimmer = 1 then PRINT "Die stoere ich lieber nicht bei der Arbeit."
360 case "q"
361 END
362 case "i"
363 GOSUB inventar
364 case "b"
365 GOSUB befehle
366 case else
367 PRINT "Nein"
368 end select
369 loop until inkey <> ""
394 ort_arbeitszimmer :
395 '''''''' Arbeitszimmer '''''''
397 COLOR 2
398 PRINT "Du bist im Arbeitszimmer."
400 do
401 COLOR 7
402 INPUT "(Arbeitszimmer) Was machst du? ", B$
403 B$ = lcase(B$)
404 select case B$
405 case "gehen in Schlafzimmer"
406 goto ort_schlafzimmer
408 case "gehen in Flur"
409 goto ort_flur
411 case "gehen in Esszimmer"
412 goto ort_esszimmer
414 case "gehen in Kueche"
415 goto ort_kueche
417 case "gehen in Lagerhalle"
418 if kx% = 1 AND sx% = 1 then goto 132
420 case "umschauen", "untersuchen Arbeitszimmer"
421 COLOR 2
422 PRINT "In der Mitte steht ein Schreibtisch,"
423 PRINT "rechts befindet sich ein Schrank und"
424 PRINT "links ein Buecherregal."
426 case "untersuchen Schreibtisch"
427 PRINT "Da gibt's nichts Besonderes zu sehen."
429 case "untersuchen Buecherregal"
430 COLOR 2
431 IF tinaistimschlafzimmer = 0 then
432 PRINT "Ich sehe nichts Besonderes."
433 else
434 PRINT "Da hat's ja ein Buch mit 123 Reiseerzaehlungen"
435 PRINT "von Karl May, meinem Leiblingsautor. Das sollte"
436 PRINT "ich mir genauer anschauen."
437 end if
439 case "untersuchen Buch"
440 PRINT "Ich kann nur den Buchruecken lesen, wenn es da steht."
442 case "nehmen Buch"
443 COLOR 2
444 PRINT "Das Buch laesst sich nur halb heraus ziehen."
445 PRINT "Ploetzlich schwenkt das ganze Buecherregal zur"
446 PRINT "Seite und dhinter kommt eine Tuer zum Vorschein."
447 PRINT "Sie ist durch ein Schluessel- und ein "
448 PRINT "Zahlenschloss gesichert."
449 PRINT
450 COLOR 6
451 PRINT "Wenn du im Arbeitszimmer z drueckst, kannst du"
452 PRINT "die Zahlenkombination eingeben."
454 case "benutzen Schluessel"
455 PRINT "Das Schluesselschloss waere geknackt."
456 sx% = 1
457 COLOR 2
458 IF kx% = 1 GOTO 137
459 PRINT "Jetzt musst du nur noch die Kombination knacken."
461 case "gehen in Geheimgang"
462 if kx% = 1 AND sx% = 1 then
463 COLOR 2
464 IF tlampe% = 0 THEN PRINT "Da geh' ich ohne Licht nicht rein."
465 do
466 loop until inkey <> ""
468 IF tlampe% = 0 GOTO ort_arbeitszimmer
470 COLOR 10
471 PRINT "Geheimgang"
472 do
473 loop until inkey <> ""
475 COLOR 2
476 PRINT "Gut, dass ich eine Taschenlampe dabei habe."
477 PRINT "Oh, es geht steil bergab .... ich muss schon"
478 PRINT "mindestens 5 Meter unter der Erdoberflaeche"
479 PRINT "sein .... Jetzt bin ich schon 10 Minuten"
480 PRINT "unterwegs ..... da vorne kommt eine Tuer"
481 PRINT "genau so gesichert wie die hinter dem Regal"
482 PRINT "gut, dass ich den Schluessel habe und den"
483 PRINT "Code kenne ..... Wo bin ich denn jetzt?"
484 PRINT "Sieht aus, wie der Keller eines Hauses"
485 PRINT "ist aber ganz schoen zerfallen."
486 do
487 loop until inkey <> ""
488 GOTO ort_keller
489 end if
491 case "z"
492 do
493 COLOR 5
494 INPUT "Wie lautet die Kombination?", zk$
495 select case zk$
496 case "007"
497 PRINT "So einfach ist es nicht"
498 case "123"
499 COLOR 2
500 PRINT "Die Kombination war richtig."
501 kx% = 1
502 IF sx% = 1 GOTO 137
503 PRINT "Jetzt musst du nur noch das Schluesselschloss oeffnen."
504 case "q"
505 PRINT "Tipp: Das Buecherregal."
506 GOTO ort_arbeitszimmer
507 case else
508 PRINT "Leider falsch. Probier's noch einmal."
509 end select
510 loop until inkey <> ""
512 case "i"
513 GOSUB inventar
514 case "q"
515 END
516 case "b"
517 GOSUB befehle
518 case else
519 PRINT "Heute nicht!"
520 end select
521 loop until inkey <> ""
534 ort_esszimmer :
535 '''''' Esszimmer ''''''
537 COLOR 2
538 print "Du bist im Esszimmer."
539 do
541 COLOR 7
542 print
543 INPUT "(Esszimmer) Was machst du? ", B$
544 B$ = lcase(b$)
545 select case B$
546 case "gehen in schlafzimmer"
547 goto ort_schlafzimmer
549 case "gehen in flur"
550 GOTO ort_flur
552 case "gehen in arbeitszimmer"
553 GOTO ort_arbeitszimmer
555 case "gehen in kueche"
556 GOTO ort_kueche
558 case "gehen in lagerhalle"
559 if kx% = 1 AND sx% = 1 GOTO 132
561 case "umschauen", "untersuchen esszimmer"
562 color 2
563 PRINT "In der Mitte steht der Tisch und auf"
564 PRINT "der rechten Seite ist die Tuer zur Kueche."
566 case "untersuchen tisch"
567 color 2
568 PRINT "Ein schoener eichener Tisch mit einer"
569 PRINT "gehaekelten Tischdecke."
570 if kerzenst% = 0 then PRINT "In der Mitte des Tisches steht ein silberner Kerzenstaender."
572 case "nehmen kerzenstaender"
573 kerzenst% = 1
574 color 2
575 PRINT "Du hast den Kerzenstaender genommen"
577 case "q"
578 END
579 case "i"
580 GOSUB inventar
581 case "b"
582 GOSUB befehle
583 end select
584 loop until inkey <> ""
601 ort_kueche :
602 '''''''' Kueche '''''''
604 COLOR 2
605 PRINT "Du bist in der Kueche."
607 do
608 color 7
609 INPUT "(Kueche) Was machst du?", B$
610 B$ = lcase(B$)
611 select case B$
612 case "gehen in schlafzimmer"
613 goto ort_schlafzimmer
615 case "gehen in flur"
616 goto ort_flur
618 case "gehen in arbeitszimmer"
619 goto ort_arbeitszimmer
621 case "gehen in esszimmer"
622 goto ort_esszimmer
624 case "gehen in lagerhalle"
625 if kx% = 1 AND sx% = 1 then goto 132
627 case "umschauen", "untersuchen kueche"
628 PRINT "Links ist die Kochzeile, in der Mitte"
629 PRINT "ein kleiner Tisch mit zwei Stuehlen und"
630 PRINT "rechts der Kuechenschrank."
632 case "untersuchen kuechenschrank"
633 PRINT "Es ist nichts Ausergewoehnliches daran"
634 PRINT "zu erkennen, nur eine Schublade in der"
635 PRINT "es bestimmt Interesantes zu entdecken gibt."
637 case "oeffnen schublade"
638 PRINT "In der Schublade liegt sich ein Messer."
640 case "nehmen messer"
641 PRINT "Du hast das Messer genommen"
642 messer% = 1
644 case "q"
645 END
647 case "i"
648 GOSUB inventar
650 case "b"
651 GOSUB befehle
653 case else
654 print "Will ich nicht."
656 end select
657 loop until inkey <> ""
669 118 :
671 COLOR 9
672 PRINT "A: Schoen, dass du so schnell gekommen bist."
673 PRINT "B: Der Tote liegt im Schlafzimmer."
674 PRINT "C: Ende."
675 COLOR 12
676 INPUT "Was sagst du?", s$
677 PRINT
678 COLOR 9
679 IF s$ = "A" THEN PRINT "Ich habe mich sofort auf den Weg gemacht."
680 IF s$ = "B" then
681 COLOR 9
682 PRINT "Okay, aber wo ist das Schlafzimmer?"
683 print
685 COLOR 12
686 PRINT "Welchen Weg beschreibst du ihr?"
687 PRINT
688 PRINT "a: Links die Treppe hinauf."
689 PRINT "b: Rechts die Treppe hinunter."
690 PRINT "c: Die Treppe hinauf, dann links."
691 PRINT
692 INPUT "a, b oder c?", w$
693 PRINT
694 COLOR 2
695 IF w$ = "c" THEN PRINT "Bravo, du hast ein gutes Gedaechtnis!"
696 IF w$ = "c" THEN cheat1 = 1
697 IF w$ = "a" THEN PRINT "Leider falsch.Die richtige Loesung war c."
698 IF w$ = "b" THEN PRINT "Leider falsch.Die richtige Loesung war c."
699 tinaistimschlafzimmer = 1
700 do
701 loop until inkey <> ""
702 GOTO ort_flur
703 end if
704 IF s$ = "C" GOTO ort_flur
705 do
706 loop until inkey <> ""
707 GOTO 118
719 137 :
721 COLOR 2
722 PRINT "So, die Tuer ist jetzt offen. Dahinter befindet"
723 PRINT "sich ein Geheimgang."
724 geheimgangfrei = 1
725 GOTO ort_arbeitszimmer
744 ort_keller :
745 '''''''''' Keller '''''''''''''
747 COLOR 2
748 PRINT "Du bist im Keller."
750 do
751 COLOR 7
752 INPUT "(Keller) Was machst du? ", B$
753 B$ = lcase(B$)
754 select case B$
755 case "gehen in flur"
756 goto ort_flur
758 case "gehen in schlafzimmer"
759 goto ort_schlafzimmer
761 case "gehen in arbeitszimmer"
762 goto ort_arbeitszimmer
764 case "gehen in esszimmer"
765 goto ort_esszimmer
767 case "gehen in kueche"
768 goto ort_kueche
770 case "gehen in lagerhalle"
771 if kx% = 1 AND sx% = 1 then goto 132
773 case "umschauen", "untersuchen keller"
774 COLOR 2
775 PRINT "Ein zerfallener Keller, alles verstaubt."
776 PRINT "Gerade aus geht eine Treppe nach oben."
778 case "benutzen treppe"
779 goto 132
781 case "q"
782 END
784 case "i"
785 GOSUB inventar
787 case "b"
788 GOSUB befehle
790 case else
791 PRINT "Jetzt nicht."
793 end select
794 loop until inkey <> ""
812 132 :
813 '''''''' Lagerhalle '''''''''''
815 COLOR 2
816 PRINT "Du bist in der Lagerhalle."
817 print
820 do
821 COLOR 7
822 INPUT "(Lagerhalle) Was machst du? ", B$
823 B$ = lcase(B$)
824 select case B$
825 case "gehen in Schlafzimmer"
826 goto ort_schlafzimmer
828 case "gehen in Arbeitszimmer"
829 goto ort_arbeitszimmer
831 case "gehen in Esszimmer"
832 goto ort_esszimmer
834 case "gehen in Kueche"
835 goto ort_kueche
837 case "umschauen", "untersuchen Lagerhalle"
838 COLOR 2
839 PRINT "In der Lagerhalle ist alles genau so"
840 PRINT "zerfallen, wie im Keller. Ueberall sind Kartons"
841 PRINT "gestapelt. Gerade aus geht eine Tuer ins Freie."
842 print
844 case "oeffnen Tuer"
845 goto 133
847 case "untersuchen Kartons"
848 GOSUB 134
850 case "benutzen Messer"
851 goto 136
853 case "q"
854 END
856 case "i"
857 GOSUB inventar
859 case "b"
860 GOSUB befehle
862 case else
863 PRINT "Nee!"
865 end select
866 loop until inkey <> ""
872 133 :
874 COLOR 2
875 PRINT "Die Tuer ist mit einem Zahlenschloss verschlossen,"
876 PRINT "aber man kann die Tuer einen Spalt weit aufdruecken."
877 PRINT "Als ich hinaus schaue sehe ich wie ein Kleinbus"
878 PRINT "auf mich zufaehrt. Ich kann gerade noch zur Seite"
879 PRINT "hechten ohne, dass mich die Scheinwerfer erreichen."
880 PRINT "Jetzt ist schnelles Handeln wichtig!"
881 PRINT
882 v% = 0
883 do
884 COLOR 7
885 INPUT "(Lagerhalle) Wo versteckst du dich? In ", v$
886 v$ = lcase(v$)
887 select case v$
888 case "leerem karton", "leerer karton", "leere kartons"
889 COLOR 2
890 PRINT "Das ist eine gute Idee. Ich mache mich"
891 PRINT "sofort an die Arbeit. Raschel, raschel"
892 PRINT "... uff ... so ... geich ... jetzt ..."
893 PRINT "Okay ich hab's geschafft. Jetzt kann"
894 PRINT "ich nur nichts mehr sehen. Ich sollte"
895 PRINT "mir ein Loch zum Rausschauen in den"
896 PRINT "Karton reissen. So ... uff, der ist zu"
897 PRINT "stabil, da brauche ich ein Werkzeug dazu."
898 print
899 GOTO 132
901 case "kartons"
902 PRINT "Ich kann mich doch nicht in vollen Kartons verstecken."
904 case "geheimgang"
905 PRINT "Dafuer reicht die Zeit nicht."
907 case "keller"
908 PRINT "Dafuer reicht die Zeit nicht."
910 case "umschauen", "untersuchen lagerhalle"
911 COLOR 2
912 PRINT "In der Lagerhalle ist alles genau so"
913 PRINT "zerfallen, wie im Keller. Ueberall sind Kartons"
914 PRINT "gestapelt. Gerade aus geht eine Tuer ins Freie."
915 print
917 case "untersuchen kartons"
918 GOSUB 134
920 case "q"
921 END
923 case else
924 PRINT "Da habe ich zu wenig Zeit dafuer."
926 end select
928 v% = v% + 1
929 IF v% = 5 THEN PRINT "Tipp: Schau dir die Lagerhalle noch einmal genau an."
930 IF v% > 8 THEN PRINT "Tipp: l..... K....."
931 loop until inkey <> ""
938 134 :
940 COLOR 2
941 PRINT "Auf der linken Seite sind die vollen Kartons"
942 PRINT "gestapelt und rechts liegen die leeren auf"
943 PRINT "einem Haufen."
944 do
945 loop until inkey <> ""
946 RETURN
959 136 :
961 COLOR 2
962 IF messer% = 0 THEN
963 PRINT "Ich habe kein Messer."
964 PRINT "Ich sitze weiterhin im Dunkeln. Nach einer"
965 PRINT "halben Stunde geht der Typ wieder. Ich"
966 PRINT "begebe mich sofort zurueck ins Haus. So"
967 PRINT "schlecht vorbereited begebe ich mich nicht"
968 PRINT "wieder in Gefahr."
969 PRINT
970 do
971 loop until inkey <> ""
972 GOTO ort_arbeitszimmer
973 END IF
975 PRINT "Gute Idee, das mit dem Messer. Der Typ"
976 PRINT "faehrt jetzt mit seinem Kleinbus in die Halle."
977 PRINT "Er steigt aus und macht die Hecktueren auf."
978 PRINT "Nun laed er zwei Kartons in das Gefaehrt, er"
979 PRINT "schliesst die Tueren, steigt wieder ein und"
980 PRINT "faehrt hinaus."
981 PRINT "Uff, das haette ich geschafft. Jetzt bloss schnell"
982 PRINT "zurueck ins Haus."
983 do
984 loop until inkey <> ""
987 PRINT "Was machst du?"
988 PRINT ""
989 PRINT "a: nach Hause gehen"
990 PRINT "b: noch da bleiben"
991 PRINT "c: nochmal in die Lagerhalle gehen"
992 PRINT ""
993 INPUT "Und wie entscheidest du dich?", entscheidung$
994 PRINT
995 IF entscheidung$ = "a" GOTO 140
996 IF entscheidung$ = "b" GOTO ort_arbeitszimmer
997 IF entscheidung$ = "c" THEN PRINT "Oh nein! Da geh ich nicht wieder hin!"
1005 140 :
1006 ''''''' Zuhause '''''''
1008 COLOR 2
1009 PRINT "Home sweet home - endlich wieder Zuhause!"
1010 do
1011 loop until inkey <> ""
1012 a140:
1014 PRINT "Du willst dir gerade einen Tee machen, als"
1015 PRINT "Du einen Schlag an der Tuer hoerst und das"
1016 PRINT "Licht aus geht."
1017 PRINT ""
1018 PRINT "Was machst du?"
1019 PRINT "a: die Tuer oeffnen"
1020 PRINT "b: die Polizei anrufen"
1021 PRINT "c: dich unter dem Bett verstecken"
1022 PRINT ""
1023 INPUT "Und?", w$
1024 PRINT
1025 IF w$ = "a" GOTO 141
1026 IF w$ = "b" THEN PRINT "Du willst den Fall doch selbst loesen."
1027 IF w$ = "c" THEN PRINT "Du solltest dir einen anderen Job suchen."
1028 GOTO a140
1036 141 :
1038 COLOR 2
1039 PRINT
1040 PRINT
1041 PRINT "Du siehst gerade noch ein Auto"
1042 PRINT "wegfahren. "
1043 do
1044 loop until inkey <> ""
1045 cls
1046 LOCATE 17, 17
1047 COLOR 15
1048 PRINT "KA GR 48"
1049 SLEEP 500
1050 GOTO 142
1051 142 :
1052 cls
1053 COLOR 2
1054 PRINT "In deiner Tuer steckt ein Messer mit"
1055 PRINT "einer Botschaft. Du liest sie natuerlich"
1056 PRINT "sofort."
1057 do
1058 loop until inkey <> ""
1060 COLOR 11
1061 PRINT "Wenn du dich einmischst"
1062 PRINT "dann bist du T O T !!!"
1063 do
1064 loop until inkey <> ""
1066 COLOR 2
1067 PRINT ""
1068 PRINT ""
1069 PRINT "Diese Botschaft war ernst gemeint."
1070 PRINT "Aber als Privatdetektiv musst du dich"
1071 PRINT "halt ueber solche Morddrohungen hinweg-"
1072 PRINT "setzen. Deshalb rufst du sofort die"
1073 PRINT "Polizei an."
1074 do
1075 loop until inkey <> ""
1079 do
1080 COLOR 9
1081 PRINT ""
1082 PRINT "Ja, hier Polizeirevier Ettlingen, Dieter"
1083 PRINT "Laenger. Was kann ich fuer Sie tun?"
1084 PRINT
1085 PRINT
1086 COLOR 12
1087 PRINT "a: Ich moechte Anzeige gegen einen Mann"
1088 PRINT " in einem gruenen Auto erstatten."
1089 PRINT
1090 PRINT "b: Ich moechte eine Pizza essen."
1091 PRINT
1092 PRINT "c: Ich moechte, dass Sie einen Mann"
1093 PRINT " in einem gruenen Auto verhaften."
1094 COLOR 12
1095 INPUT "Was antwortest du? (a,b,c)", a$
1096 IF a$ = "a" THEN GOTO 144
1097 IF a$ = "b" THEN PRINT "Du bist doch ein Spinner!"
1098 IF a$ = "c" THEN GOTO 144
1099 IF a$ = "q" THEN END
1100 loop until inkey <> ""
1108 144 :
1110 do
1111 COLOR 9
1112 PRINT ""
1113 PRINT "Wie heisst der Mann denn?"
1114 PRINT
1115 COLOR 12
1116 PRINT "a: Karl von Burlafingen."
1117 PRINT "b: Regideur Eklansch."
1118 PRINT "c: Ich kenne seinen Namen nicht."
1119 PRINT ""
1120 INPUT "Wie heisst er? (a,b,c)", w$
1121 PRINT ""
1122 IF w$ = "a" THEN PRINT "Das kann doch nicht dein Ernst sein."
1123 IF w$ = "b" THEN PRINT "Verarsch mich halt!!"
1124 IF w$ = "c" GOTO 145
1125 loop until inkey <> ""
1132 145 :
1134 do
1135 PRINT
1136 COLOR 9
1137 PRINT "Was fuer eine Autonummer hatte er denn?"
1138 PRINT
1139 PRINT
1140 COLOR 12
1141 PRINT "a: KS ET 26"
1142 PRINT
1143 PRINT "b: HS AB 37"
1144 PRINT
1145 PRINT "c: KA GR 48"
1146 PRINT
1147 PRINT
1148 COLOR 12
1149 INPUT "Welche Autonummer hatte er? (a,b,c)", a$
1150 PRINT
1151 IF a$ = "a" THEN PRINT "Du solltest dein Gedaechtnis verbessern!"
1152 IF a$ = "b" THEN PRINT "Du solltest dein Gedaechtnis verbessern!"
1153 IF a$ = "c" GOTO 146
1154 loop until inkey <> ""
1161 146 :
1163 COLOR 2
1164 PRINT ""
1165 PRINT "Der Polizist gab den guten Tip sofort"
1166 PRINT "an seine Kollegen weiter. Er dankte"
1167 PRINT "dir fuer die heisse Spur und du"
1168 PRINT "verabschiedeste dich und giengst nach"
1169 PRINT "Hause."
1170 do
1171 loop until inkey <> ""
1173 PRINT ""
1174 PRINT "Zwei Tage spaeter kam ein Brief vom"
1175 PRINT "Polizeirevier:"
1176 do
1177 loop until inkey <> ""
1179 COLOR 15
1180 PRINT "Sehrgeehrter Herr "; name1$; ""
1181 PRINT "dank Ihnen konnten wie eine ganze"
1182 PRINT "Bande Waffenschieber dingfest machen."
1183 PRINT ""
1184 PRINT ""
1185 PRINT ""
1186 PRINT "Ausfuehrlicher Bericht auf der naechsten"
1187 PRINT "Seite."
1188 do
1189 loop until inkey <> ""
1191 PRINT ""
1192 PRINT "Am Montag konnten wir den gruenen Audi"
1193 PRINT "von Schaefer (so heisst der Bersitzer)"
1194 PRINT "in der Karlsruher Innenstadt ausfindig"
1195 PRINT "machen. Wir folgten ihm bis zu seinem"
1196 PRINT "Hause. Dort umstellten wir es"
1197 PRINT "und stuermten. Beim Verhoer gestand"
1198 PRINT "er alles (Auftraggeber und alle"
1199 PRINT "Mitglieder). Am naechsten Tag konnten"
1200 PRINT "wir den Rest der Bande verhaften."
1201 PRINT "Am naechsten Donnerstag wird Mayr, der"
1202 PRINT "Boss der Truppe, wegen Mord an Karl"
1203 PRINT ""
1204 do
1205 loop until inkey <> ""
1207 PRINT ""
1208 PRINT "Mueller verurteilt. Auch die Anderen"
1209 PRINT "werden wegen Beihilfe zum Mord vor"
1210 PRINT "Gericht gestellt werden."
1211 PRINT ""
1212 PRINT "Ich muss nochmal meinen Dank an Sie"
1213 PRINT "Aussprechen. Denn nur durch Sie konnten"
1214 PRINT "wir diese gefaehrliche Bande stoppen"
1215 PRINT ""
1216 PRINT ""
1217 PRINT ""
1218 PRINT " Polizeichef Mattias Huber"
1219 do
1220 loop until inkey <> ""
1224 cls
1225 LOCATE 13, 10
1226 COLOR 13
1227 PRINT "Du hast gewonnen!"
1228 do
1229 loop until inkey <> ""
1235 END
1247 inventar:
1248 COLOR 5
1249 PRINT "+-- Inventar -----------+"
1250 PRINT "| |"
1251 PRINT "| Autoschluessel |"
1252 PRINT "| 200 Schilling |"
1253 IF tlampe% = 1 THEN PRINT "| Taschenlampe |"
1254 IF schluessel% = 1 THEN PRINT "| Schluessel |"
1255 IF messer% = 1 THEN PRINT "| Messer |"
1256 IF kerzenst% = 1 THEN PRINT "| Kerzenstaender |"
1257 PRINT "| |"
1258 PRINT "+-----------------------+"
1259 color 7
1260 RETURN
1264 befehle:
1265 COLOR 3
1266 PRINT "Moegliche Befehle:"
1267 PRINT ""
1268 PRINT "umschauen"
1269 PRINT "oeffnen <Objekt>"
1270 PRINT "benutzen <Objekt>"
1271 PRINT "untersuchen <Objekt>"
1272 PRINT "sprechen mit <Person>"
1273 PRINT "gehen (in) <Ort>"
1274 PRINT "nehmen <Objekt>"
1275 color 7
1276 RETURN