midds
view Midds_reco.bas @ 2:53d9408c7cdb
lots of refactoring in reco-version
| author | meillo@marmaro.de |
|---|---|
| date | Mon, 03 Sep 2007 20:51:10 +0200 |
| parents | 130ab9a4fd83 |
| children | e98ade2107de |
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 '''''''
130 'IF kerzenst% = 1 GOTO 116
132 COLOR 7
134 zuege% = 0
135 do
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
168 zuege% = zuege% + 1
169 IF zuege% = 6 THEN PRINT " Tipp: sprechen mit ..."
170 loop until inkey <> ""
177 gespraech_herrfisch :
178 ''''''''' gespraech mit herr fisch ''''''''''
180 color 2
181 print "Du beginnst ein Gespraech mit Herr Fisch."
182 print
184 do
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
218 loop until inkey <> ""
232 ort_schlafzimmer :
233 ''''''' Schlafzimmer '''''''''
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
249 do
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
258 case "gehen in arbeitszimmer"
259 goto ort_arbeitszimmer
261 case "gehen in esszimmer"
262 goto ort_esszimmer
264 case "gehen in kueche"
265 goto ort_kueche
267 case "gehen in lagerhalle"
268 if kx% = 1 AND sx% = 1 goto 132
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."
278 case "untersuchen schrank"
279 PRINT "Ein alter Aktenschrank."
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
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 <> ""
303 case "untersuchen fenster"
304 PRINT "Wenn man hinaus schaut, sieht man die Strasse."
306 case "untersuchen bett"
307 COLOR 2
308 PRINT "Unter dem Bett liegt eine Taschenlampe."
310 case "nehmen taschenlampe"
311 PRINT "Du hast die Taschenlampe genommen"
312 tlampe% = 1
314 case "untersuchen geheimfach"
315 if geheimfachgefunden = 1 then
316 COLOR 2
317 PRINT "In dem Geheimfach befindet sich ein Schluessel."
318 end if
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
326 case "untersuchen poster"
327 PRINT "Da steht - Sean Connery als James Bond"
328 PRINT "in SAG NIEMALS NIE - drauf."
330 case "sprechen mit tina"
331 if tinaistimschlafzimmer = 1 then PRINT "Die stoere ich lieber nicht bei der Arbeit."
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
342 loop until inkey <> ""
367 ort_arbeitszimmer :
368 '''''''' Arbeitszimmer '''''''
370 COLOR 2
371 PRINT "Du bist im Arbeitszimmer."
373 do
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
381 case "gehen in Flur"
382 goto ort_flur
384 case "gehen in Esszimmer"
385 goto ort_esszimmer
387 case "gehen in Kueche"
388 goto ort_kueche
390 case "gehen in Lagerhalle"
391 if kx% = 1 AND sx% = 1 then goto 132
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."
399 case "untersuchen Schreibtisch"
400 PRINT "Da gibt's nichts Besonderes zu sehen."
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
412 case "untersuchen Buch"
413 PRINT "Ich kann nur den Buchruecken lesen, wenn es da steht."
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."
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."
434 case "gehen in Geheimgang"
435 if kx% = 1 AND sx% = 1 then
436 goto 127
437 end if
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 <> ""
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
469 loop until inkey <> ""
482 ort_esszimmer :
483 '''''' Esszimmer ''''''
485 COLOR 2
486 print "Du bist im Esszimmer."
487 do
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
497 case "gehen in flur"
498 GOTO ort_flur
500 case "gehen in arbeitszimmer"
501 GOTO ort_arbeitszimmer
503 case "gehen in kueche"
504 GOTO ort_kueche
506 case "gehen in lagerhalle"
507 if kx% = 1 AND sx% = 1 GOTO 132
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."
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."
520 case "nehmen kerzenstaender"
521 kerzenst% = 1
522 color 2
523 PRINT "Du hast den Kerzenstaender genommen"
525 case "q"
526 END
527 case "i"
528 GOSUB inventar
529 case "b"
530 GOSUB befehle
531 end select
532 loop until inkey <> ""
549 ort_kueche :
550 '''''''' Kueche '''''''
552 COLOR 2
553 PRINT "Du bist in der Kueche."
555 do
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
563 case "gehen in flur"
564 goto ort_flur
566 case "gehen in arbeitszimmer"
567 goto ort_arbeitszimmer
569 case "gehen in esszimmer"
570 goto ort_esszimmer
572 case "gehen in lagerhalle"
573 if kx% = 1 AND sx% = 1 then goto 132
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."
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."
585 case "oeffnen schublade"
586 PRINT "In der Schublade liegt sich ein Messer."
588 case "nehmen messer"
589 PRINT "Du hast das Messer genommen"
590 messer% = 1
592 case "q"
593 END
595 case "i"
596 GOSUB inventar
598 case "b"
599 GOSUB befehle
601 case else
602 print "Will ich nicht."
604 end select
605 loop until inkey <> ""
614 117 :
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
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
634 goto ort_flur
640 118 :
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
652 IF s$ = "C" GOTO ort_flur
653 do
654 loop until inkey <> ""
655 GOTO 118
661 119 :
663 COLOR 9
664 PRINT "Okay, aber wo ist das Schlafzimmer?"
665 print
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."
681 tinaistimschlafzimmer = 1
682 do
683 loop until inkey <> ""
684 GOTO ort_flur
701 137 :
703 COLOR 2
704 PRINT "So, die Tuer ist jetzt offen. Dahinter befindet"
705 PRINT "sich ein Geheimgang."
706 geheimgangfrei = 1
707 GOTO ort_arbeitszimmer
720 127 :
722 COLOR 2
723 IF tlampe% = 0 THEN PRINT "Da geh' ich ohne Licht nicht rein."
724 do
725 loop until inkey <> ""
727 IF tlampe% = 0 GOTO ort_arbeitszimmer
728 1000 :
730 COLOR 10
731 PRINT "Geheimgang"
732 do
733 loop until inkey <> ""
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
755 130 :
756 '''''''''' Keller '''''''''''''
758 COLOR 2
759 PRINT "Du bist im Keller."
761 do
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
769 case "gehen in schlafzimmer"
770 goto ort_schlafzimmer
772 case "gehen in arbeitszimmer"
773 goto ort_arbeitszimmer
775 case "gehen in esszimmer"
776 goto ort_esszimmer
778 case "gehen in kueche"
779 goto ort_kueche
781 case "gehen in lagerhalle"
782 if kx% = 1 AND sx% = 1 then goto 132
784 case "umschauen", "untersuchen keller"
785 COLOR 2
786 PRINT "Ein zerfallener Keller, alles verstaubt."
787 PRINT "Gerade aus geht eine Treppe nach oben."
789 case "benutzen treppe"
790 goto 132
792 case "q"
793 END
795 case "i"
796 GOSUB inventar
798 case "b"
799 GOSUB befehle
801 case else
802 PRINT "Jetzt nicht."
804 end select
805 loop until inkey <> ""
817 131 :
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
832 132 :
833 '''''''' Lagerhalle '''''''''''
835 'LOCATE 13, 10
836 COLOR 10
837 PRINT "Lagerhalle"
838 do
839 loop until inkey <> ""
841 a132:
843 COLOR 7
844 INPUT "(Lagerhalle) Was machst du? ", B$
845 zuege% = zuege% + 1
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
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 ""
859 PRINT "Nee!"
860 PRINT
861 do
862 loop until inkey <> ""
863 GOTO a132
869 133 :
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
907 134 :
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
922 135 :
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
942 136 :
944 COLOR 2
945 IF messer% = 0 THEN
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
956 END IF
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 <> ""
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
979 IF entscheidung$ = "b" GOTO ort_arbeitszimmer
980 IF entscheidung$ = "c" THEN PRINT "Oh nein! Da geh ich nicht wieder hin!"
988 140 :
989 ''''''' Zuhause '''''''
991 COLOR 2
992 PRINT "Home sweet home - endlich wieder Zuhause!"
993 do
994 loop until inkey <> ""
995 a140:
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
1019 141 :
1021 COLOR 2
1022 PRINT
1023 PRINT
1024 PRINT "Du siehst gerade noch ein Auto"
1025 PRINT "wegfahren. "
1026 do
1027 loop until inkey <> ""
1028 cls
1029 LOCATE 17, 17
1030 COLOR 15
1031 PRINT "KA GR 48"
1032 SLEEP 500
1033 GOTO 142
1034 142 :
1035 cls
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 <> ""
1043 COLOR 11
1044 PRINT "Wenn du dich einmischst"
1045 PRINT "dann bist du T O T !!!"
1046 do
1047 loop until inkey <> ""
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 <> ""
1061 143 :
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."
1074 PRINT
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
1093 144 :
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
1118 145 :
1120 PRINT
1121 COLOR 9
1122 PRINT "Was fuer eine Autonummer hatte er denn?"
1123 PRINT
1124 PRINT
1125 COLOR 12
1126 PRINT "a: KS ET 26"
1127 PRINT
1128 PRINT "b: HS AB 37"
1129 PRINT
1130 PRINT "c: KA GR 48"
1131 PRINT
1132 PRINT
1133 COLOR 12
1134 INPUT "Welche Autonummer hatte er? (a,b,c)", a$
1135 PRINT
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
1148 146 :
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 <> ""
1160 PRINT ""
1161 PRINT "Zwei Tage spaeter kam ein Brief vom"
1162 PRINT "Polizeirevier:"
1163 do
1164 loop until inkey <> ""
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 <> ""
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 <> ""
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 <> ""
1211 cls
1212 LOCATE 13, 10
1213 COLOR 13
1214 PRINT "Du hast gewonnen!"
1215 do
1216 loop until inkey <> ""
1222 END
1234 inventar:
1235 COLOR 5
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 "+-----------------------+"
1246 RETURN
1250 befehle:
1251 COLOR 3
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