# HG changeset patch # User meillo@marmaro.de # Date 1188845470 -7200 # Node ID 53d9408c7cdb5d6239177582080ced21fcaa1fe3 # Parent 130ab9a4fd8394d68c57ae64363fa138cce5564d lots of refactoring in reco-version diff -r 130ab9a4fd83 -r 53d9408c7cdb Midds_reco.bas --- a/Midds_reco.bas Mon Sep 03 14:19:39 2007 +0200 +++ b/Midds_reco.bas Mon Sep 03 20:51:10 2007 +0200 @@ -24,13 +24,13 @@ 'Midds' -CLS +cls LOCATE 13, 6 COLOR 15 PRINT "*** Mord in der Dorfstrasse ***" +COLOR 7 'LINE (20, 60)-(300, 140), 2, B LOCATE 24, 2 -COLOR 7 PRINT "(c) Copyright 1999 Elefant Software" do loop until inkey <> "" @@ -40,714 +40,616 @@ -CLS +cls COLOR 6 PRINT "Dies ist ein Kriminalspiel," PRINT "das die grauen Zellen fordert." +print +PRINT +PRINT "Druecke 'q' um das Spiel zu beenden." +PRINT "Druecke 'i' um zu erfahren, was du alles besitzt." +PRINT "Druecke 'b' um die Befehle noch einmal zusehen." +COLOR 7 do loop until inkey <> "" - -CLS -GOSUB befehle -do -loop until inkey <> "" - - - -CLS -COLOR 6 -PRINT -PRINT "Druecke 'q' um das Spiel zu beenden." -PRINT -PRINT "Druecke 'i' um zu erfahren, was du alles besitzt." -PRINT -PRINT "Druecke 'b' um die Befehle noch einmal zusehen." -do -loop until inkey <> "" - - X: -CLS +cls PRINT "" LOCATE 13, 6 COLOR 6 PRINT "So jetzt geht's endlich los!!!" -do -loop until inkey <> "" -CLS -GOTO 1 - - - - - -1 : -'''''''''' Vor dem Haus ''''''''' -zuege = 0 -a1: -CLS -PRINT "" -COLOR 2 -PRINT "Du heisst "; name1$; " und bist" -PRINT "Privatdetektiv. Du wurdest von " -PRINT "Herr Fisch angerufen um einen Mord" -PRINT "aufzuklaeren." -PRINT "Natuerlich bist du sofort in deinen" -PRINT "Renault 19 gestiegen und losgefahren." -PRINT "Jetzt stehst du vor Haus Nummer 6" -PRINT "in der Dorfstrasse." -PRINT COLOR 7 -INPUT "(Vor dem Haus) Was machst du? ", B$ -zuege% = zuege% + 1 -IF B$ = "benutzen Klingel" GOTO 2 -IF B$ = "oeffnen Tuer" THEN PRINT "Du kannst doch nicht einfach fremde Haeuser betreten." -IF B$ = "oeffnen Tuer" THEN SLEEP -IF B$ = "oeffnen Tuer" GOTO a1 -IF B$ = "gehen in Haus" THEN PRINT "Du kannst doch nicht einfach fremde Haeuser betreten." -IF B$ = "gehen in Haus" THEN SLEEP -IF B$ = "gehen in Haus" GOTO a1 -IF B$ = "gehen Heim" THEN PRINT "Du Angsthase" -IF B$ = "gehen Heim" GOTO a1 -IF B$ = "q" THEN END -IF B$ = "i" THEN GOSUB inventar -IF B$ = "b" THEN GOSUB befehle -PRINT "" -PRINT "Noe!" -PRINT "" -IF zuege% = 5 THEN GOTO a -IF zuege% = 9 THEN GOTO B -IF zuege% = 9 THEN GOTO 2 -do -loop until inkey <> "" -GOTO a1 - -a: -COLOR 4 -PRINT " Tipp: benutzen ..." -SLEEP -GOTO a1 - -B: -COLOR 4 -PRINT " Loesung: benutzen Klingel" -SLEEP -CLS -GOTO 2 - - - - - - - -2 : -CLS -COLOR 2 -PRINT "Herr Fisch oeffnet die Tuer und du stehst im Flur" -PRINT "" do loop until inkey <> "" -CLS -LOCATE 13, 10 -COLOR 10 -PRINT "Flur" + + + + +ort_vordemhaus : +'''''''''' Vor dem Haus ''''''''' +cls +COLOR 2 + PRINT "Du heisst "; name1$; " und bist" + PRINT "Privatdetektiv. Du wurdest von " + PRINT "Herr Fisch angerufen um einen Mord" + PRINT "aufzuklaeren." + PRINT "Natuerlich bist du sofort in deinen" + PRINT "Renault 19 gestiegen und losgefahren." + PRINT "Jetzt stehst du vor Haus Nummer 6" + PRINT "in der Dorfstrasse." + PRINT +COLOR 7 + +zuege = 0 do -loop until inkey <> "" -zuege% = 0 -GOTO 3 + INPUT "(Vor dem Haus) Was machst du? ", B$ + B$ = lcase(B$) + select case B$ + case "benutzen klingel" + COLOR 2 + PRINT "Herr Fisch oeffnet die Tuer und du stehst im Flur" + PRINT + COLOR 7 + goto ort_flur + case "oeffnen tuer" + PRINT " Haustueren kann man von aussen ohne Schluessel nicht oeffnen." + case "gehen in haus" + PRINT " Die Tuer ist zu." + case "gehen heim" + PRINT " Du Angsthase" + case "q" + END + case "i" + GOSUB inventar + case "b" + GOSUB befehle + case else + PRINT " Noe!" + end select + zuege% = zuege% + 1 + IF zuege% = 5 THEN PRINT " Tipp: benutzen ..." + IF zuege% > 8 THEN PRINT " Loesung: benutzen Klingel" -3 : -'''''''' Flur ''''''' -CLS -IF kerzenst% = 1 GOTO 116 -COLOR 2 -PRINT "Herr Fisch oeffnet die Tuer und du stehst im Flur" -PRINT -COLOR 7 -INPUT "(Flur) Was machst du? ", B$ -zuege% = zuege% + 1 -IF B$ = "sprechen mit Herr Fisch" GOTO 4 -IF B$ = "gehen Heim" THEN PRINT "Du Angsthase!" -IF B$ = "umschauen" GOTO 117 -IF B$ = "untersuchen Flur" GOTO 117 -IF B$ = "gehen in Schlafzimmer" GOTO 114 -IF B$ = "gehen in Arbeitszimmer" GOTO 105 -IF B$ = "gehen in Esszimmer" GOTO 106 -IF B$ = "gehen in Kueche" GOTO 109 -IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132 -IF B$ = "q" THEN END -IF B$ = "i" THEN GOSUB inventar -IF B$ = "b" THEN GOSUB befehle -PRINT "" -PRINT "Keine Lust!" -PRINT "" -IF zuege% = 6 THEN GOTO c -do -loop until inkey <> "" -GOTO 3 - -c: -COLOR 4 -PRINT "Tipp: sprechen mit ..." -do -loop until inkey <> "" -CLS -GOTO 3 - - - - -4 : -CLS -COLOR 9 -PRINT "A: Ich heisse "; name1$; "." -PRINT "B: Wo ist die Leiche?" -PRINT "C: Wie heisst der Tote?" -PRINT "D: Ende." -PRINT "" -COLOR 12 -INPUT "Was sagst du?", s$ -PRINT -COLOR 9 -IF s$ = "A" THEN PRINT "Ich heisse Manfred Fisch." -IF s$ = "B" THEN PRINT "Im Schlafzimmer." -IF s$ = "B" THEN SLEEP -IF s$ = "B" GOTO 5 -IF s$ = "C" THEN PRINT "Karl Mueller." -IF s$ = "D" THEN END -do -loop until inkey <> "" -GOTO 4 - - - - - -5 : -CLS -COLOR 9 -PRINT -PRINT "A: Ich heisse "; name1$; "" -PRINT "B: Wo ist die Leiche?" -PRINT "C: Wie heisst der Tote?" -PRINT "D: Wo ist das Schlafzimmer?" -PRINT "E: Ende" -PRINT "" -PRINT "" -COLOR 12 -INPUT "Was sagst du?", s$ -PRINT -COLOR 9 -IF s$ = "A" THEN PRINT "Ich heisse Manfred Fisch." -IF s$ = "B" THEN PRINT "Im Schlafzimmer." -IF s$ = "C" THEN PRINT "Karl Mueller." -IF s$ = "D" THEN PRINT "Die Treppe hinauf dann links." -IF s$ = "E" THEN GOTO 6 -do -loop until inkey <> "" -GOTO 5 - - - - - -6 : -''''''' Flur '''''''' -CLS -zuege% = 0 -LOCATE 13, 10 -COLOR 10 -PRINT "Flur" -do -loop until inkey <> "" -a6: -CLS -COLOR 7 -PRINT -IF kerzenst% = 1 GOTO 116 -PRINT -INPUT "(Flur) Was machst du? ", B$ -zuege% = zuege% + 1 -IF B$ = "sprechen mit Herr Fisch" GOTO 5 -IF B$ = "gehen in Schlafzimmer" GOTO 7 -IF B$ = "gehen in Arbeitszimmer" GOTO 105 -IF B$ = "gehen in Esszimmer" GOTO 106 -IF B$ = "gehen in Kueche" GOTO 109 -IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132 -IF B$ = "gehen Heim " THEN PRINT "Du Hasenfuss!" -IF B$ = "gehen Heim " GOTO a6 -IF B$ = "q" THEN END -IF B$ = "i" THEN GOSUB inventar -IF B$ = "b" THEN GOSUB befehle -PRINT "" -PRINT "Nee!" -IF zuege = 5 GOTO d -GOTO a6 - - -d: -COLOR 4 -PRINT "gehen in ..." -do -loop until inkey <> "" -GOTO a6 - - - - - - - -7 : -CLS -COLOR 2 -PRINT "Die Leiche, ein etwa 20 Jahre alter" -PRINT "Mann, liegt mit einem Messer im Ruecken" -PRINT "auf dem Bett. Ich decke die Leiche" -PRINT "als erstes mit einem Tuch ab und rufe" -PRINT "mit meinem Handy Tina an. Tina ist" -PRINT "Spezialistin fuer Fingerabdruecke." -do -loop until inkey <> "" -GOTO 8 - - - - - - -8 : -''''''' Schlafzimmer ''''''''' -CLS -PRINT -COLOR 7 -INPUT "(Schlafzimmer) Was machst du? ", B$ -IF B$ = "gehen in Flur" GOTO 103 -IF B$ = "gehen in Arbeitszimmer" GOTO 105 -IF B$ = "gehen in Esszimmer" GOTO 106 -IF B$ = "gehen in Kueche" GOTO 109 -IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132 -IF B$ = "umschauen" GOTO 9 -IF B$ = "untersuchen Schlafzimmer" GOTO 9 -IF B$ = "untersuchen Schrank" THEN PRINT "Ein alter Aktenschrank." -IF B$ = "oeffnen Aktenschrank" GOTO 101 -IF B$ = "untersuchen Fenster" THEN PRINT "Wenn man hinaus schaut," -IF B$ = "untersuchen Fenster" THEN PRINT "sieht man die Strasse." -IF B$ = "untersuchen Bett" GOTO 100 -IF B$ = "nehmen Taschenlampe" GOTO e -IF B$ = "untersuchen Poster" THEN PRINT "Da steht - Sean Connery als James Bond" -IF B$ = "untersuchen Poster" THEN PRINT "in SAG NIEMALS NIE - drauf." -IF B$ = "sprechen mit Tina" THEN PRINT "Die stoere ich lieber nicht bei der Arbeit." -IF B$ = "q" THEN END -IF B$ = "i" THEN GOSUB inventar -IF B$ = "b" THEN GOSUB befehle -PRINT -PRINT "Nein" -PRINT -do -loop until inkey <> "" -GOTO 8 - - - - -e: -CLS -LOCATE 11, 22 -PRINT "Du hast die Taschenlampe genommen" -tlampe% = 1 -do -loop until inkey <> "" -CLS -GOTO 8 - - - - - -9 : -CLS -COLOR 2 -PRINT "In der Mitte steht das Bett, ueber dem" -PRINT "Bett haengt ein Poster, auf der" -PRINT "linken Seite befindet sich ein Schrank" -PRINT "und an der rechten Wand ist ein Fenster." -IF vvx% = 1 THEN PRINT "Tina sichert gerade" -IF vvx% = 1 THEN PRINT "die Fingerabdruecke." -do -loop until inkey <> "" -GOTO 8 - - - - - -100 : -CLS -COLOR 2 -PRINT "Unter dem Bett liegt eine Taschenlampe." -do -loop until inkey <> "" -GOTO 8 - - - - - -101 : -CLS -versuch% = 0 -COLOR 2 -PRINT "Hinter den Ordnern ist ein Geheimfach" -PRINT "mit einem dreistelligen Zahlenschloss." -do -loop until inkey <> "" -a101: -CLS -versuch% = versuch% + 1 -COLOR 5 -INPUT "Wie lautet die Kombination?", k$ -IF k$ = "000" THEN PRINT "War wohl falsch." -IF k$ = "007" GOTO 102 -IF k$ = "q" THEN END -PRINT "Komm streng dich ein bischen an!" -IF versuch% = 3 THEN PRINT "Tipp: Karl Mueller war Jean Connery Fan." -IF versuch% = 6 THEN PRINT "Tipp: Denk an das Poster." -do -loop until inkey <> "" -GOTO a101 - - - - -102 : -CLS -COLOR 2 -PRINT "Bravo, du hast echt gut kombiniert." -PRINT "In dem Geheimfach befindet sich ein Schluessel." -do loop until inkey <> "" -F: -CLS -PRINT "Du hast den Schluessel genommen" -schluessel% = 1 + + + + +ort_flur : +'''''''' Flur ''''''' +'IF kerzenst% = 1 GOTO 116 + +COLOR 7 + +zuege% = 0 do + INPUT "(Flur) Was machst du? ", B$ + B$ = lcase(B$) + select case B$ + case "sprechen mit herr fisch" + goto gespraech_herrfisch + case "gehen heim" + PRINT " Du Angsthase!" + case "umschauen", "untersuchen flur" + GOTO 117 + case "gehen in schlafzimmer" + goto ort_schlafzimmer + case "gehen in arbeitszimmer" + GOTO ort_arbeitszimmer + case "gehen in esszimmer" + GOTO ort_esszimmer + case "gehen in kueche" + GOTO ort_kueche + case "gehen in lagerhalle" + if kx% = 1 AND sx% = 1 GOTO 132 + case "sprechen mit Tina" + if tinaistda = 1 then GOTO 118 + case "q" + END + case "i" + GOSUB inventar + case "b" + GOSUB befehle + case else + PRINT " Keine Lust!" + PRINT + end select + + zuege% = zuege% + 1 + IF zuege% = 6 THEN PRINT " Tipp: sprechen mit ..." loop until inkey <> "" -CLS -GOTO 114 -103 : -CLS -LOCATE 13, 10 -COLOR 10 -PRINT "Flur" + +gespraech_herrfisch : +''''''''' gespraech mit herr fisch '''''''''' + +color 2 +print "Du beginnst ein Gespraech mit Herr Fisch." +print + do + COLOR 7 + PRINT "A: Hallo, ich heisse "; name1$; "." + PRINT "B: Wo ist die Leiche?" + PRINT "C: Wie heisst der Tote?" + if woIstDasSchlafzimmer = 1 then PRINT "D: Wo ist das Schlafzimmer?" + PRINT "Z: Bis spaeter." + COLOR 1 + INPUT "Was sagst du zu Herr Fisch? ", s$ + s$ = lcase(s$) + COLOR 7 + print "Er antwortet:" + COLOR 4 + select case s$ + case "a" + PRINT " Ich heisse Manfred Fisch." + case "b" + PRINT " Im Schlafzimmer." + woIstDasSchlafzimmer = 1 + case "c" + PRINT " Karl Mueller." + case "d" + if woIstDasSchlafzimmer = 1 THEN PRINT " Die Treppe hinauf dann links." + case "z" + PRINT " Ich bin jederzeit fuer Sie da, sprechen Sie mich einfach an." + print + color 2 + print "Herr Fisch beginnt wieder die Gemaelde an den Waenden zu betrachten" + print + goto ort_flur + case "q" + end + end select + print loop until inkey <> "" -GOTO 104 -104 : -CLS + + + + + + + + +ort_schlafzimmer : +''''''' Schlafzimmer ''''''''' + +if tinaangerufen = 0 then + COLOR 2 + PRINT "Die Leiche, ein etwa 20 Jahre alter" + PRINT "Mann, liegt mit einem Messer im Ruecken" + PRINT "auf dem Bett. Ich decke die Leiche" + PRINT "als erstes mit einem Tuch ab und rufe" + PRINT "mit meinem Handy Tina an. Tina ist" + PRINT "Spezialistin fuer Fingerabdruecke." + tinaangerufen = 1 +else + color 2 + print "Du bist im Schlafzimmer" +end if + +do + PRINT + COLOR 7 + INPUT "(Schlafzimmer) Was machst du? ", B$ + B$ = lcase(B$) + select case B$ + case "gehen in flur" + goto ort_flur + + case "gehen in arbeitszimmer" + goto ort_arbeitszimmer + + case "gehen in esszimmer" + goto ort_esszimmer + + case "gehen in kueche" + goto ort_kueche + + case "gehen in lagerhalle" + if kx% = 1 AND sx% = 1 goto 132 + + case "umschauen", "untersuchen schlafzimmer" + COLOR 2 + PRINT "In der Mitte steht das Bett, ueber dem" + PRINT "Bett haengt ein Poster, auf der" + PRINT "linken Seite befindet sich ein Schrank" + PRINT "und an der rechten Wand ist ein Fenster." + IF tinaistimschlafzimmer = 1 THEN PRINT "Tina sichert gerade die Fingerabdruecke." + + case "untersuchen schrank" + PRINT "Ein alter Aktenschrank." + + case "oeffnen aktenschrank" + versuch% = 0 + COLOR 2 + PRINT "Hinter den Ordnern ist ein Geheimfach" + PRINT "mit einem dreistelligen Zahlenschloss." + geheimfachgefunden = 1 + + do + versuch% = versuch% + 1 + COLOR 5 + INPUT "Wie lautet die Kombination?", k$ + IF k$ = "000" THEN PRINT "War wohl falsch." + IF k$ = "007" then + PRINT "Bravo, du hast echt gut kombiniert." + geheimfachoffen = 1 + end if + IF k$ = "q" goto ort_schlafzimmer + PRINT "Komm streng dich ein bisschen an!" + IF versuch% = 3 THEN PRINT "Tipp: Karl Mueller war Jean Connery Fan." + IF versuch% = 6 THEN PRINT "Tipp: Denk an das Poster." + loop until inkey <> "" + + case "untersuchen fenster" + PRINT "Wenn man hinaus schaut, sieht man die Strasse." + + case "untersuchen bett" + COLOR 2 + PRINT "Unter dem Bett liegt eine Taschenlampe." + + case "nehmen taschenlampe" + PRINT "Du hast die Taschenlampe genommen" + tlampe% = 1 + + case "untersuchen geheimfach" + if geheimfachgefunden = 1 then + COLOR 2 + PRINT "In dem Geheimfach befindet sich ein Schluessel." + end if + + case "nehmen schluessel" + if geheimfachoffen = 1 then + PRINT "Du hast den Schluessel aus dem Geheimfach genommen" + schluessel% = 1 + end if + + case "untersuchen poster" + PRINT "Da steht - Sean Connery als James Bond" + PRINT "in SAG NIEMALS NIE - drauf." + + case "sprechen mit tina" + if tinaistimschlafzimmer = 1 then PRINT "Die stoere ich lieber nicht bei der Arbeit." + + case "q" + END + case "i" + GOSUB inventar + case "b" + GOSUB befehle + case else + PRINT "Nein" + end select +loop until inkey <> "" + + + + + + + + + + + + + + + + + + + + + + + + +ort_arbeitszimmer : +'''''''' Arbeitszimmer ''''''' + COLOR 2 -PRINT "Links geht es die Treppe zum Schlafzimmer" -PRINT "hinauf, gerade aus geht's ins Esszimmer" -PRINT " und rechts ins Arbeitszimmer." +PRINT "Du bist im Arbeitszimmer." + do + COLOR 7 + INPUT "(Arbeitszimmer) Was machst du? ", B$ + B$ = lcase(B$) + select case B$ + case "gehen in Schlafzimmer" + goto ort_schlafzimmer + + case "gehen in Flur" + goto ort_flur + + case "gehen in Esszimmer" + goto ort_esszimmer + + case "gehen in Kueche" + goto ort_kueche + + case "gehen in Lagerhalle" + if kx% = 1 AND sx% = 1 then goto 132 + + case "umschauen", "untersuchen Arbeitszimmer" + COLOR 2 + PRINT "In der Mitte steht ein Schreibtisch," + PRINT "rechts befindet sich ein Schrank und" + PRINT "links ein Buecherregal." + + case "untersuchen Schreibtisch" + PRINT "Da gibt's nichts Besonderes zu sehen." + + case "untersuchen Buecherregal" + COLOR 2 + IF tinaistimschlafzimmer = 0 then + PRINT "Ich sehe nichts Besonderes." + else + PRINT "Da hat's ja ein Buch mit 123 Reiseerzaehlungen" + PRINT "von Karl May, meinem Leiblingsautor. Das sollte" + PRINT "ich mir genauer anschauen." + end if + + case "untersuchen Buch" + PRINT "Ich kann nur den Buchruecken lesen, wenn es da steht." + + case "nehmen Buch" + COLOR 2 + PRINT "Das Buch laesst sich nur halb heraus ziehen." + PRINT "Ploetzlich schwenkt das ganze Buecherregal zur" + PRINT "Seite und dhinter kommt eine Tuer zum Vorschein." + PRINT "Sie ist durch ein Schluessel- und ein " + PRINT "Zahlenschloss gesichert." + PRINT + COLOR 6 + PRINT "Wenn du im Arbeitszimmer z drueckst, kannst du" + PRINT "die Zahlenkombination eingeben." + + case "benutzen Schluessel" + PRINT "Das Schluesselschloss waere geknackt." + sx% = 1 + COLOR 2 + IF kx% = 1 GOTO 137 + PRINT "Jetzt musst du nur noch die Kombination knacken." + + case "gehen in Geheimgang" + if kx% = 1 AND sx% = 1 then + goto 127 + end if + + case "z" + do + COLOR 5 + INPUT "Wie lautet die Kombination?", zk$ + select case zk$ + case "007" + PRINT "So einfach ist es nicht" + case "123" + COLOR 2 + PRINT "Die Kombination war richtig." + kx% = 1 + IF sx% = 1 GOTO 137 + PRINT "Jetzt musst du nur noch das Schluesselschloss oeffnen." + case "q" + PRINT "Tipp: Das Buecherregal." + GOTO ort_arbeitszimmer + case else + PRINT "Leider falsch. Probier's noch einmal." + end select + loop until inkey <> "" + + case "i" + GOSUB inventar + case "q" + END + case "b" + GOSUB befehle + case else + PRINT "Heute nicht!" + end select loop until inkey <> "" -GOTO a6 -105 : -'''''''' Arbeitszimmer ''''''' -CLS -LOCATE 13, 10 -COLOR 10 -PRINT "Arbeitszimmer" + + + + + + + +ort_esszimmer : +'''''' Esszimmer '''''' + +COLOR 2 +print "Du bist im Esszimmer." do + +COLOR 7 +print +INPUT "(Esszimmer) Was machst du? ", B$ +B$ = lcase(b$) +select case B$ + case "gehen in schlafzimmer" + goto ort_schlafzimmer + + case "gehen in flur" + GOTO ort_flur + + case "gehen in arbeitszimmer" + GOTO ort_arbeitszimmer + + case "gehen in kueche" + GOTO ort_kueche + + case "gehen in lagerhalle" + if kx% = 1 AND sx% = 1 GOTO 132 + + case "umschauen", "untersuchen esszimmer" + color 2 + PRINT "In der Mitte steht der Tisch und auf" + PRINT "der rechten Seite ist die Tuer zur Kueche." + + case "untersuchen tisch" + color 2 + PRINT "Ein schoener eichener Tisch mit einer" + PRINT "gehaekelten Tischdecke." + if kerzenst% = 0 then PRINT "In der Mitte des Tisches steht ein silberner Kerzenstaender." + + case "nehmen kerzenstaender" + kerzenst% = 1 + color 2 + PRINT "Du hast den Kerzenstaender genommen" + + case "q" + END + case "i" + GOSUB inventar + case "b" + GOSUB befehle +end select loop until inkey <> "" -a105: -CLS -COLOR 7 -INPUT "(Arbeitszimmer) Was machst du? ", B$ -IF B$ = "gehen in Schlafzimmer" GOTO 114 -IF B$ = "gehen in Flur" GOTO 103 -IF B$ = "gehen in Esszimmer" GOTO 106 -IF B$ = "gehen in Kueche" GOTO 109 -IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132 -IF B$ = "umschauen" GOTO 107 -IF B$ = "untersuchen Arbeitszimmer" GOTO 107 -IF B$ = "untersuchen Schreibtisch" THEN PRINT "Da gibt's nichts Besonderes zu sehen." -IF B$ = "untersuchen Buecherregal" GOTO 122 -IF B$ = "untersuchen Buch" THEN PRINT "Ich kann nur den Buchruecken lesen, wenn es da steht." -IF B$ = "nehmen Buch" GOTO 124 -IF B$ = "benutzen Schluessel" THEN PRINT "Das Schluesselschloss waere geknackt." -IF B$ = "benutzen Schluessel" THEN sx% = 1 -IF B$ = "benutzen Schluessel" GOTO 138 -IF B$ = "gehen in Geheimgang" AND kx% = 1 AND sx% = 1 GOTO 127 -IF B$ = "z" GOTO 125 -IF B$ = "i" THEN GOSUB inventar -IF B$ = "q" THEN END -IF B$ = "b" THEN GOSUB befehle + + + + + + + + + + + + + + + + +ort_kueche : +'''''''' Kueche ''''''' + +COLOR 2 +PRINT "Du bist in der Kueche." + do + color 7 + INPUT "(Kueche) Was machst du?", B$ + B$ = lcase(B$) + select case B$ + case "gehen in schlafzimmer" + goto ort_schlafzimmer + + case "gehen in flur" + goto ort_flur + + case "gehen in arbeitszimmer" + goto ort_arbeitszimmer + + case "gehen in esszimmer" + goto ort_esszimmer + + case "gehen in lagerhalle" + if kx% = 1 AND sx% = 1 then goto 132 + + case "umschauen", "untersuchen kueche" + PRINT "Links ist die Kochzeile, in der Mitte" + PRINT "ein kleiner Tisch mit zwei Stuehlen und" + PRINT "rechts der Kuechenschrank." + + case "untersuchen kuechenschrank" + PRINT "Es ist nichts Ausergewoehnliches daran" + PRINT "zu erkennen, nur eine Schublade in der" + PRINT "es bestimmt Interesantes zu entdecken gibt." + + case "oeffnen schublade" + PRINT "In der Schublade liegt sich ein Messer." + + case "nehmen messer" + PRINT "Du hast das Messer genommen" + messer% = 1 + + case "q" + END + + case "i" + GOSUB inventar + + case "b" + GOSUB befehle + + case else + print "Will ich nicht." + + end select loop until inkey <> "" -PRINT "Heute nicht!" -GOTO a105 -107 : -CLS -COLOR 2 -PRINT "In der Mitte steht ein Schreibtisch," -PRINT "rechts befindet sich ein Schrank und" -PRINT "links ein Buecherregal." -do -loop until inkey <> "" -GOTO 105 - - - - - -106 : -'''''' Esszimmer '''''' -CLS -LOCATE 13, 10 -COLOR 10 -PRINT "Esszimmer" -do -loop until inkey <> "" -a106: -CLS -COLOR 7 -INPUT "(Esszimmer) Was machst du?", B$ -IF B$ = "gehen in Schlafzimmer" GOTO 114 -IF B$ = "gehen in Flur" GOTO 103 -IF B$ = "gehen in Arbeitszimmer" GOTO 105 -IF B$ = "gehen in Kueche" GOTO 109 -IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132 -IF B$ = "umschauen" GOTO 108 -IF B$ = "untersuchen Esszimmer" GOTO 108 -IF B$ = "untersuchen Tisch" GOTO 110 -IF B$ = "nehmen Kerzenstaender" GOTO 115 -IF B$ = "q" THEN END -IF B$ = "i" THEN GOSUB inventar -IF B$ = "b" THEN GOSUB befehle -do -loop until inkey <> "" -GOTO a106 - - - - - - -108 : -CLS -PRINT "In der Mitte steht der Tisch und auf" -PRINT "der rechten Seite ist die Tuer zur Kueche." -do -loop until inkey <> "" -GOTO 106 - - - - - -110 : -CLS -PRINT "Ein schoener eichener Tisch mit einer" -PRINT "gehaekelten Tischdecke und einem" -PRINT "Kerzenstaender in der Mitte." -do -loop until inkey <> "" -GOTO a106 - - - - - -109 : -'''''''' Kueche ''''''' -CLS -LOCATE 13, 10 -COLOR 10 -PRINT "Kueche" -do -loop until inkey <> "" -a109: -CLS -INPUT "(Kueche) Was machst du?", B$ -IF B$ = "gehen in Schlafzimmer" GOTO 114 -IF B$ = "gehen in Flur" GOTO 103 -IF B$ = "gehen in Arbeitszimmer" GOTO 105 -IF B$ = "gehen in Esszimmer" GOTO 106 -IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132 -IF B$ = "umschauen" GOTO 111 -IF B$ = "untersuchen Kueche" GOTO 111 -IF B$ = "untersuchen Kuechenschrank" GOTO 112 -IF B$ = "oeffnen Schublade" THEN PRINT "In der Schublade liegt sich ein Messer." -IF B$ = "nehmen Messer" GOTO 113 -IF B$ = "q" THEN END -IF B$ = "i" THEN GOSUB inventar -IF B$ = "b" THEN GOSUB befehle -do -loop until inkey <> "" -GOTO a109 - - - - - -111 : -CLS -PRINT "Links ist die Kochzeile, in der Mitte" -PRINT "ein kleiner Tisch mit zwei Stuehlen und" -PRINT "rechts der Kuechenschrank." -do -loop until inkey <> "" -GOTO a109 - - - - - -112 : -CLS -PRINT "Es ist nichts Ausergewoehnliches daran" -PRINT "zu erkennen, nur eine Schublade in der" -PRINT "es bestimmt Interesantes zu entdecken gibt." -do -loop until inkey <> "" -GOTO a109 - - - - - -113 : -CLS -PRINT "Du hast das Messer genommen" -do -loop until inkey <> "" -CLS -messer% = 1 -GOTO a109 - - - - -114 : -CLS -LOCATE 13, 10 -COLOR 10 -PRINT "Schlafzimmer" -do -loop until inkey <> "" -GOTO 8 - - - - - -115 : -CLS -PRINT "Du hast den Kerzenstaender genommen" -do -loop until inkey <> "" -CLS -kerzenst% = 1 -GOTO a106 - - - - - - -116 : -''''''''' Flur ''''''' -CLS -COLOR 7 -INPUT "(Flur) Was machst du? ", B$ -zuege% = zuege% + 1 -IF B$ = "gehen in Schlafzimmer" GOTO 114 -IF B$ = "gehen in Arbeitszimmer" GOTO 105 -IF B$ = "gehen in Esszimmer" GOTO 106 -IF B$ = "gehen in Kueche" GOTO 109 -IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132 -IF B$ = "sprechen mit Herr Fisch" GOTO 5 -IF B$ = "gehen Heim" THEN PRINT "Du Angsthase!" -IF B$ = "umschauen" GOTO 117 -IF B$ = "untersuchen Flur" GOTO 117 -IF B$ = "sprechen mit Tina" GOTO 118 -IF B$ = "q" THEN END -IF B$ = "i" THEN GOSUB inventar -IF B$ = "b" THEN GOSUB befehle -PRINT "" -PRINT "Keine Lust!" -PRINT "" -do -loop until inkey <> "" -GOTO 116 - - 117 : -CLS -IF kerzenst% = 0 GOTO 121 -PRINT "Links geht es die Treppe zum Schlafzimmer hinauf," -PRINT "gerade aus geht's ins Esszimmer und rechts ins" -PRINT "Arbeitszimmer. Im Flur steht Herr Fisch und ..." -PRINT "gerade klingelt es an der Tuer. Herr Fisch macht" -PRINT "auf und Tina kommt herein." -vvv% = 1 -do -loop until inkey <> "" -GOTO 116 + +IF tinaangerufen = 1 and tinaistda = 0 then + COLOR 2 + PRINT "Links geht es die Treppe zum Schlafzimmer hinauf," + PRINT "gerade aus geht's ins Esszimmer und rechts ins" + PRINT "Arbeitszimmer. Im Flur steht Herr Fisch und ..." + print + PRINT "... gerade klingelt es an der Tuer. Herr Fisch" + PRINT "macht auf und Tina kommt herein." + tinaistda = 1 + +else + COLOR 2 + PRINT "Links geht es die Treppe zum Schlafzimmer" + PRINT "hinauf, gerade aus geht's ins Esszimmer und" + PRINT "rechts ins Arbeitszimmer. Im Flur steht" + PRINT "Herr Fisch und beantwortet gern deine Fragen." +end if + +goto ort_flur 118 : -CLS + COLOR 9 PRINT "A: Schoen, dass du so schnell gekommen bist." PRINT "B: Der Tote liegt im Schlafzimmer." PRINT "C: Ende." -LOCATE 8, 1 COLOR 12 INPUT "Was sagst du?", s$ PRINT COLOR 9 IF s$ = "A" THEN PRINT "Ich habe mich sofort auf den Weg gemacht." IF s$ = "B" GOTO 119 -IF s$ = "C" GOTO 116 +IF s$ = "C" GOTO ort_flur do loop until inkey <> "" GOTO 118 @@ -757,19 +659,11 @@ 119 : -CLS + COLOR 9 PRINT "Okay, aber wo ist das Schlafzimmer?" -do -loop until inkey <> "" -GOTO 120 +print - - - - -120 : -CLS COLOR 12 PRINT "Welchen Weg beschreibst du ihr?" PRINT @@ -784,136 +678,39 @@ IF w$ = "c" THEN cheat1 = 1 IF w$ = "a" THEN PRINT "Leider falsch.Die richtige Loesung war c." IF w$ = "b" THEN PRINT "Leider falsch.Die richtige Loesung war c." -vvx% = 1 +tinaistimschlafzimmer = 1 do loop until inkey <> "" -GOTO 116 +GOTO ort_flur -121 : -CLS -COLOR 2 -PRINT "Links geht es die Treppe zum Schlafzimmer" -PRINT "hinauf, gerade aus geht's ins Esszimmer und" -PRINT "rechts ins Arbeitszimmer. Im Flur steht" -PRINT "Herr Fisch und beantwortet gern alle deine Fragen." -do -loop until inkey <> "" -GOTO 116 -122 : -CLS -COLOR 2 -IF vvx% = 1 GOTO 123 -PRINT "Ich sehe nichts Besonderes." -do -loop until inkey <> "" -GOTO 105 - - - - - -123 : -CLS -COLOR 2 -PRINT "Da hat's ja ein Buch mit 123 Reiseerzaehlungen" -PRINT "von Karl May, meinem Leiblingsautor. Das sollte" -PRINT "ich mir genauer anschauen." -do -loop until inkey <> "" -GOTO 105 - - - - - -124 : -CLS -COLOR 2 -PRINT "Das Buch laesst sich nur halb heraus ziehen." -PRINT "Ploetzlich schwenkt das ganze Buecherregal zur" -PRINT "Seite und dhinter kommt eine Tuer zum Vorschein." -PRINT "Sie ist durch ein Schluessel- und ein " -PRINT "Zahlenschloss gesichert." -PRINT -COLOR 6 -PRINT "Wenn du im Arbeitszimmer z drueckst, kannst du" -PRINT "die Zahlenkombination eingeben." -do -loop until inkey <> "" -GOTO 105 - - - - - -125 : -zkx% = 0 -a125: -CLS -zkx% = zkx% + 1 -COLOR 5 -INPUT "Wie lautet die Kombination?", zk$ -IF zk$ = "007" THEN PRINT "So einfach ist es nicht" -IF zk$ = "123" GOTO 126 -IF zk$ = "q" GOTO 105 -PRINT "Leider falsch. Probier's noch einmal." -IF zkx% = 5 THEN PRINT "Tipp: Das Buecherregal." -do -loop until inkey <> "" -GOTO a125 - - - - - - -126 : -CLS -COLOR 2 -PRINT "Die Kombination war richtig." -kx% = 1 -IF sx% = 1 GOTO 137 -PRINT "Jetzt musst du nur noch das Schluesselschloss oeffnen." -do -loop until inkey <> "" -GOTO 105 137 : -CLS + COLOR 2 PRINT "So, die Tuer ist jetzt offen. Dahinter befindet" PRINT "sich ein Geheimgang." -do -loop until inkey <> "" -GOTO 105 +geheimgangfrei = 1 +GOTO ort_arbeitszimmer -138 : -CLS -COLOR 2 -IF kx% = 1 GOTO 137 -PRINT "Jetzt musst du nur noch die Kombination knacken." -do -loop until inkey <> "" -GOTO 105 @@ -921,20 +718,20 @@ 127 : -CLS + COLOR 2 IF tlampe% = 0 THEN PRINT "Da geh' ich ohne Licht nicht rein." do loop until inkey <> "" -IF tlampe% = 0 GOTO 105 + +IF tlampe% = 0 GOTO ort_arbeitszimmer 1000 : -CLS -LOCATE 13, 10 + COLOR 10 PRINT "Geheimgang" do loop until inkey <> "" -CLS + COLOR 2 PRINT "Gut, dass ich eine Taschenlampe dabei habe." PRINT "Oh, es geht steil bergab .... ich muss schon" @@ -957,59 +754,68 @@ 130 : '''''''''' Keller ''''''''''''' -CLS -LOCATE 13, 10 -COLOR 10 -PRINT "Keller" + +COLOR 2 +PRINT "Du bist im Keller." + do + COLOR 7 + INPUT "(Keller) Was machst du? ", B$ + B$ = lcase(B$) + select case B$ + case "gehen in flur" + goto ort_flur + + case "gehen in schlafzimmer" + goto ort_schlafzimmer + + case "gehen in arbeitszimmer" + goto ort_arbeitszimmer + + case "gehen in esszimmer" + goto ort_esszimmer + + case "gehen in kueche" + goto ort_kueche + + case "gehen in lagerhalle" + if kx% = 1 AND sx% = 1 then goto 132 + + case "umschauen", "untersuchen keller" + COLOR 2 + PRINT "Ein zerfallener Keller, alles verstaubt." + PRINT "Gerade aus geht eine Treppe nach oben." + + case "benutzen treppe" + goto 132 + + case "q" + END + + case "i" + GOSUB inventar + + case "b" + GOSUB befehle + + case else + PRINT "Jetzt nicht." + + end select loop until inkey <> "" -a130: -CLS -COLOR 7 -INPUT "(Keller) Was machst du? ", B$ -zuege% = zuege% + 1 -IF B$ = "gehen in Flur" GOTO 103 -IF B$ = "gehen in Schlafzimmer" GOTO 114 -IF B$ = "gehen in Arbeitszimmer" GOTO 105 -IF B$ = "gehen in Esszimmer" GOTO 106 -IF B$ = "gehen in Kueche" GOTO 109 -IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132 -IF B$ = "sprechen mit Herr Fisch" GOTO 5 -IF B$ = "umschauen" GOTO 128 -IF B$ = "untersuchen Keller" GOTO 128 -IF B$ = "benutzen Treppe" GOTO 132 -IF B$ = "q" THEN END -IF B$ = "i" THEN GOSUB inventar -IF B$ = "b" THEN GOSUB befehle -PRINT "" -PRINT "Jetzt nicht." -PRINT -do -loop until inkey <> "" -GOTO a130 -128 : -CLS -COLOR 2 -PRINT "Ein zerfallener Keller, alles verstaubt." -PRINT "Gerade aus geht eine Treppe nach oben." -PRINT -PRINT "" -do -loop until inkey <> "" -GOTO 130 131 : -CLS + COLOR 2 PRINT "In der Lagerhalle ist alles genau so" PRINT "zerfallen, wie im Keller. Ueberall sind Kartons" @@ -1025,22 +831,22 @@ 132 : '''''''' Lagerhalle ''''''''''' -CLS -LOCATE 13, 10 + +'LOCATE 13, 10 COLOR 10 PRINT "Lagerhalle" do loop until inkey <> "" -CLS + a132: -CLS + COLOR 7 INPUT "(Lagerhalle) Was machst du? ", B$ zuege% = zuege% + 1 -IF B$ = "gehen in Schlafzimmer" GOTO 114 -IF B$ = "gehen in Arbeitszimmer" GOTO 105 -IF B$ = "gehen in Esszimmer" GOTO 106 -IF B$ = "gehen in Kueche" GOTO 109 +IF B$ = "gehen in Schlafzimmer" goto ort_schlafzimmer +IF B$ = "gehen in Arbeitszimmer" GOTO ort_arbeitszimmer +IF B$ = "gehen in Esszimmer" GOTO ort_esszimmer +IF B$ = "gehen in Kueche" GOTO ort_kueche IF B$ = "umschauen" THEN GOSUB 131 IF B$ = "untersuchen Lagerhalle" THEN GOSUB 131 IF B$ = "oeffnen Tuer" GOTO 133 @@ -1050,7 +856,7 @@ IF B$ = "i" THEN GOSUB inventar IF B$ = "b" THEN GOSUB befehle PRINT "" -PRINT "Noe!" +PRINT "Nee!" PRINT do loop until inkey <> "" @@ -1061,7 +867,7 @@ 133 : -CLS + COLOR 2 PRINT "Die Tuer ist mit einem Zahlenschloss verschlossen," PRINT "aber man kann die Tuer einen Spalt weit aufdruecken." @@ -1099,7 +905,7 @@ 134 : -CLS + COLOR 2 PRINT "Auf der linken Seite sind die vollen Kartons" PRINT "gestapelt und rechts liegen die leeren auf" @@ -1114,7 +920,7 @@ 135 : -CLS + COLOR 2 PRINT "Das ist eine gute Idee. Ich mache mich" PRINT "sofort an die Arbeit. Raschel, raschel" @@ -1134,19 +940,19 @@ 136 : -CLS + COLOR 2 IF messer% = 0 THEN -PRINT "Ich habe kein Messer." -PRINT "Ich sitze weiterhin im Dunkeln. Nach einer" -PRINT "halben Stunde geht der Typ wieder. Ich" -PRINT "begebe mich sofort zurueck ins Haus. So" -PRINT "schlecht vorbereited begebe ich mich nicht" -PRINT "wieder in Gefahr." -PRINT -do -loop until inkey <> "" -GOTO 105 + PRINT "Ich habe kein Messer." + PRINT "Ich sitze weiterhin im Dunkeln. Nach einer" + PRINT "halben Stunde geht der Typ wieder. Ich" + PRINT "begebe mich sofort zurueck ins Haus. So" + PRINT "schlecht vorbereited begebe ich mich nicht" + PRINT "wieder in Gefahr." + PRINT + do + loop until inkey <> "" + GOTO ort_arbeitszimmer END IF PRINT "Gute Idee, das mit dem Messer. Der Typ" @@ -1159,17 +965,8 @@ PRINT "zurueck ins Haus." do loop until inkey <> "" -GOTO 139 - - - - - - -139 : -CLS PRINT "Was machst du?" PRINT "" PRINT "a: nach Hause gehen" @@ -1179,7 +976,7 @@ INPUT "Und wie entscheidest du dich?", entscheidung$ PRINT IF entscheidung$ = "a" GOTO 140 -IF entscheidung$ = "b" GOTO 105 +IF entscheidung$ = "b" GOTO ort_arbeitszimmer IF entscheidung$ = "c" THEN PRINT "Oh nein! Da geh ich nicht wieder hin!" @@ -1190,14 +987,13 @@ 140 : ''''''' Zuhause ''''''' -CLS -LOCATE 13, 10 -COLOR 10 -PRINT "Zuhause" + +COLOR 2 +PRINT "Home sweet home - endlich wieder Zuhause!" do loop until inkey <> "" a140: -CLS + PRINT "Du willst dir gerade einen Tee machen, als" PRINT "Du einen Schlag an der Tuer hoerst und das" PRINT "Licht aus geht." @@ -1221,7 +1017,7 @@ 141 : -CLS + COLOR 2 PRINT PRINT @@ -1229,29 +1025,27 @@ PRINT "wegfahren. " do loop until inkey <> "" -CLS +cls LOCATE 17, 17 COLOR 15 PRINT "KA GR 48" -SLEEP 1 +SLEEP 500 GOTO 142 142 : -CLS +cls COLOR 2 PRINT "In deiner Tuer steckt ein Messer mit" PRINT "einer Botschaft. Du liest sie natuerlich" PRINT "sofort." do loop until inkey <> "" -CLS + COLOR 11 -LOCATE 10, 10 PRINT "Wenn du dich einmischst" -LOCATE 15, 10 PRINT "dann bist du T O T !!!" do loop until inkey <> "" -CLS + COLOR 2 PRINT "" PRINT "" @@ -1262,9 +1056,10 @@ PRINT "Polizei an." do loop until inkey <> "" -GOTO 143 + + 143 : -CLS + COLOR 9 PRINT "" PRINT "Ja, hier Polizeirevier Ettlingen, Dieter" @@ -1276,11 +1071,9 @@ PRINT " in einem gruenen Auto erstatten." PRINT PRINT "b: Ich moechte eine Pizza essen." -PRINT "" +PRINT PRINT "c: Ich moechte, dass Sie einen Mann" -PRINT "" PRINT " in einem gruenen Auto verhaften." -LOCATE 20, 1 COLOR 12 INPUT "Was antwortest du? (a,b,c)", a$ IF a$ = "a" THEN GOTO 144 @@ -1298,7 +1091,7 @@ 144 : -CLS + COLOR 9 PRINT "" PRINT "Wie heisst der Mann denn?" @@ -1323,23 +1116,23 @@ 145 : -CLS -PRINT "" + +PRINT COLOR 9 PRINT "Was fuer eine Autonummer hatte er denn?" -PRINT "" -PRINT "" +PRINT +PRINT COLOR 12 PRINT "a: KS ET 26" -PRINT "" +PRINT PRINT "b: HS AB 37" -PRINT "" +PRINT PRINT "c: KA GR 48" -PRINT "" -PRINT "" +PRINT +PRINT COLOR 12 INPUT "Welche Autonummer hatte er? (a,b,c)", a$ -PRINT "" +PRINT IF a$ = "a" THEN PRINT "Du solltest dein Gedaechtnis verbessern!" IF a$ = "b" THEN PRINT "Du solltest dein Gedaechtnis verbessern!" IF a$ = "c" GOTO 146 @@ -1353,7 +1146,7 @@ 146 : -CLS + COLOR 2 PRINT "" PRINT "Der Polizist gab den guten Tip sofort" @@ -1363,14 +1156,13 @@ PRINT "Hause." do loop until inkey <> "" -CLS + PRINT "" PRINT "Zwei Tage spaeter kam ein Brief vom" PRINT "Polizeirevier:" do loop until inkey <> "" -CLS -LOCATE 4, 1 + COLOR 15 PRINT "Sehrgeehrter Herr "; name1$; "" PRINT "dank Ihnen konnten wie eine ganze" @@ -1382,7 +1174,7 @@ PRINT "Seite." do loop until inkey <> "" -CLS + PRINT "" PRINT "Am Montag konnten wir den gruenen Audi" PRINT "von Schaefer (so heisst der Bersitzer)" @@ -1398,7 +1190,7 @@ PRINT "" do loop until inkey <> "" -CLS + PRINT "" PRINT "Mueller verurteilt. Auch die Anderen" PRINT "werden wegen Beihilfe zum Mord vor" @@ -1413,13 +1205,15 @@ PRINT " Polizeichef Mattias Huber" do loop until inkey <> "" -CLS + + + +cls LOCATE 13, 10 COLOR 13 PRINT "Du hast gewonnen!" do loop until inkey <> "" -COLOR 15 @@ -1438,25 +1232,25 @@ inventar: -CLS -PRINT -PRINT COLOR 5 -PRINT "Hausschluessel" -PRINT "200 Schilling" -IF tlampe% = 1 THEN PRINT "Taschenlampe" -IF schluessel% = 1 THEN PRINT "Schluessel" -IF messer% = 1 THEN PRINT "Messer" -IF kerzenst% = 1 THEN PRINT "Kerzenstaender" +PRINT "+-- Inventar -----------+" +PRINT "| |" +PRINT "| Autoschluessel |" +PRINT "| 200 Schilling |" +IF tlampe% = 1 THEN PRINT "| Taschenlampe |" +IF schluessel% = 1 THEN PRINT "| Schluessel |" +IF messer% = 1 THEN PRINT "| Messer |" +IF kerzenst% = 1 THEN PRINT "| Kerzenstaender |" +PRINT "| |" +PRINT "+-----------------------+" RETURN befehle: -PRINT "" +COLOR 3 PRINT "Moegliche Befehle:" PRINT "" -COLOR 3 PRINT "umschauen" PRINT "oeffnen " PRINT "benutzen "