++++++++++++++++++++++++++++++++++++++++++++++++++++
+   Skript, Teil 6  zum QBasic-Kurs I              + 
+   Von Robert Jessenberger                        +
++++++++++++++++++++++++++++++++++++++++++++++++++++


Beispiel für ein Textadventure
------------------------------

SCREEN 9
PRINT "Detlef auf den Weg zur Schule."
PRINT "Es ist ein wunderschöner Tag und es stehen keine "
PRINT "Klassenarbeiten an."
PRINT "Er geht also vor sich hin und freut sich des Tages."
PRINT "Da, erblickt er am Ende der Straße nicht Gustav,"
PRINT "den stadtbekannten Ganoven?"
PRINT
PRINT "Was soll er tun?"
PRINT
PRINT "A - Ist egal, mir tut er schon nichts."
PRINT "B - Verdammt, der klaut mir bestimmt das Milchgeld."
PRINT "    Ich drehe lieber um."
PRINT
INPUT "Entscheidung a oder b:", ent$
PRINT
IF ent$ = "a" THEN PRINT "Detlef geht also weiter."
IF ent$ = "b" THEN
                  PRINT "Voller Panik rennt Detlef nach Hause."
                  PRINT "'Liebe Mami, hilf mir vor dem bösen Gustav',"
                  PRINT "denkt er mit Schrecken."
                  PRINT "An der Straßenecke, auf die Detlef zueilt,"
                  PRINT "steht leider der Schuldirektor Mutzelmeier"
                  PRINT "und der weiß genau, wo Detlef hinwill."
                  PRINT "Und daß war das traurige Ende von diesem Schüler."
                  PRINT "E N D E"
                  END
              END IF
PRINT "Ganz langsam und betont unauffällig schlendert"
PRINT "er auf Gustav zu."
PRINT "Dieser hat ihn schön bemerkt und und er weiß, daß"
PRINT "leicht verdientes Taschengeld auf ihn zuwandert."
PRINT "So erhebt er sich langsam."
PRINT
PRINT "Wie soll Gustav reagieren?"
PRINT
PRINT "A  -Hey Gustav, ich habe gehört, deine Freundin geht fremd."
PRINT "B  - Hallo Gustav, guter FREUND, wie geht's?"
PRINT "     SCHÖN, daß ich dich treffe...(Schleim,Schleim)."
PRINT
INPUT "Entscheidung a oder b:", ent$
PRINT
IF ent$ = "a" THEN
                  PRINT "Mit dieser Reaktion hat er nicht  gerechnet."
                  PRINT "Während er nach Worten sucht, fängt Detlef an zu laufen."
                  PRINT "Jetzt hat er einen Vorsprung und Gustav schafft es nicht,"
                  PRINT "ihn einzuholen."
                  END IF
IF ent$ = "b" THEN
                  PRINT "Gustav beginnt zu grinsen, bevor er sich daran macht,"
                  PRINT "unseren Detlef nach und nach auszunehmen."
                  PRINT "Zum Schluß klaut er ihm sogar die Unterhose."
                  PRINT "Detlef versinkt vor Scham im Erdboden."
                  PRINT "E N D E"
                  END
              END IF