'Die Reise zum Mond
'Stark gek�rzte Version f�r The Real Adok's Way to QBASIC

COLOR 14, 1
CLS

'Vorspann
PRINT "Die Reise zum Mond - Das Gerhard-betriebene Raumschiff"
PRINT "Copyright (C) 1995-1996 by Adok Soft"
PRINT
PRINT "Stark gek�rzte Version f�r The Real Adok's Way to QBASIC"
a$ = INPUT$(1)
CLS
PRINT "Clausi, Stefan, Philipp, Franzi, Gerhard, Marius, Zahra und Nele ";
PRINT "wollen gemeinsam auf den Mond fliegen! ";
PRINT "Clausi, das Genie, baute kurzerhand ein"
PRINT "Raumschiff namens Astrein Shuttle und ernannte sich zum Kommandanten."
PRINT "Das besondere am Astrein Shuttle ist sicherlich nicht seine Geschwin-"
PRINT "digkeit, die mit einigen Megametern pro Sekunde nicht sehr schnell ";
PRINT "ist,"
PRINT "sondern der Antrieb. ";
PRINT "Er funktioniert so: Gerhard h�ngt sich an das Raumschiff"
PRINT "an und l��t sich von Zahra f�ttern. ";
PRINT "Je mehr er (fr)i�t, desto mehr - pardon -"
PRINT "Abgase l��t er. Und diese Abgase treiben das Raumschiff an!"
a$ = INPUT$(1)
CLS
PRINT "Nochmals f�r alle: Die Besatzung besteht aus"
PRINT
PRINT "Clausi.......... Kommandant"
PRINT "Franzi.......... 1. Offizier"
PRINT "Philipp......... 2. Offizier"
PRINT "Stefan.......... 3. Offizier"
PRINT "Marius.......... Oberbiologe und Klowart"
PRINT "Nele............ Navigatorin"
PRINT "Gerhard......... Treibstofferzeuger"
PRINT "Zahra........... Krankenschwester"
a$ = INPUT$(1)
CLS
PRINT "Du �bernimmst die Rolle von Clausi, dem Kommandanten. ";
PRINT "Du und deine Besatzung"
PRINT "sind schon sehr lange (seit einer Minute!) im Weltraum mit dem ";
PRINT "Schiff unter - "
PRINT "wegs. ";
PRINT "Deine Aufgabe ist es, dich und deine Besatzung sicher zum Mond zu ";
PRINT "bringen. "
PRINT "Einfach? ";
PRINT "Ja, so klingt es. ";
PRINT "Ist es aber nicht..."
a$ = INPUT$(1)

'Das Spiel beginnt!
HaupthalleStart:
 CLS
 PRINT "Du bist nun in der Haupthalle des Astrein-Shuttles. Von hier aus kannst du"
 PRINT "alle R�ume des Raumschiffs erreichen und das Raumschiff sogar verlassen."
 PRINT "Bevor du letzteres tust, rate ich dir, die notwendige"
 PRINT "Ausr�stung zu holen..."
 GOSUB Eingabe
 CLS
 SELECT CASE eingab$
  CASE "1"
   PRINT "Es ist niemand da, mit dem du sprechen k�nntest!"
  CASE "2"
HheRetry1:
   PRINT "Was willst du betrachten?"
   PRINT "  (1) Die T�ren"
   PRINT "  (2) Den Raum"
   PRINT "  (3) Die Luft"
   PRINT "  (4) Das Schild"
   e1$ = INPUT$(1)
   CLS
   SELECT CASE e1$
    CASE "1"
     PRINT "Es sind f�nf gro�e T�ren, die durch ein Laserfeld geschlossen ";
     PRINT "sind. Ber�hrt"
     PRINT "man das Laserfeld, so wird es automatisch deaktiviert."
    CASE "2"
     PRINT "Ein gro�er, leerer Raum, der Haupthalle genannt wird. An den ";
     PRINT "W�nden kleben"
     PRINT "alte Butterbrote, und die f�nf T�ren werden durch ein Laserfeld ";
     PRINT "geschlossen. "
     PRINT "Wenn man diesen Raum mit einem bestimmten Klassenraum des ";
     PRINT "Goethe-Gymnasiums vergleicht, so ist eine gewisse �hnlichkeit ";
     PRINT "erkennbar. "
    CASE "3"
     PRINT "Das Sehorgan behauptet, sie w�re ein transparentes Nichts. Das ";
     PRINT "Geruchs- und"
     PRINT "das Atmungsorgan wissen es allerdings besser."
    CASE "4"
     PRINT "Auf ihm steht 'EXIT'. Offensichtlich f�hrt es zum Ausgang ";
     PRINT "dieses Raumschiffs."
     PRINT "Das solltest du, der Erbauer dieses Raumschiffs, eigentlich am ";
     PRINT "besten wissen!"
    CASE ELSE
     GOTO HheRetry1
   END SELECT
  CASE "3"
HheRetry2:
   PRINT "Was willst du nehmen?"
   PRINT "  (1) Laserfeld"
   PRINT "  (2) Butterbrot"
   e1$ = INPUT$(1)
   CLS
   SELECT CASE e1$
    CASE "1"
     PRINT "Bist du lebensm�de oder was!? Wenn du so weitermachst, wirst du ";
     PRINT "das Spiel nie"
     PRINT "schaffen!"
    CASE "2"
     PRINT "Igitt! Dieses grausame, an der Wand klebende, mit Butter ";
     PRINT "verzierte Brot ist"
     PRINT "ekelerregend! La� es lieber kleben!"
    CASE ELSE
     GOTO HheRetry2
   END SELECT
  CASE "4"
HheRetry3:
   PRINT "Wohin willst du gehen?"
   PRINT "  (1) T�r 1"
   PRINT "  (2) T�r 2"
   PRINT "  (3) T�r 3"
   PRINT "  (4) T�r 4"
   PRINT "  (5) T�r 5"
   e1$ = INPUT$(1)
   CLS
   SELECT CASE e1$
    CASE "1", "2", "4"
     PRINT "Diesen Raum kannst du nur in der ungek�rzten Fassung betreten!"
    CASE "3"
     GOTO KommandoraumStart
    CASE "5"
     GOTO OffizierszimmerStart
    CASE ELSE
     GOTO HheRetry3
   END SELECT
 CASE ELSE
  GOTO HaupthalleStart
 END SELECT
 a$ = INPUT$(1)
 GOTO HaupthalleStart

KommandoraumStart:
 CLS
 PRINT "Dies ist der Kommandoraum des Astrein Shuttles.  Vor dir ist ein ";
 PRINT "riesiges "
 PRINT "Steuerpult, neben dem Nele sitzt, die vergeblich versucht, es zu ";
 PRINT "bedienen. "
 PRINT "Dahinter befindet sich in diesem Raum ein riesiges Fenster."
 GOSUB Eingabe
 CLS
 SELECT CASE eingab$
  CASE "1"
KreRetry1:
   PRINT "Mit wem willst du sprechen?"
   PRINT "  (1) Nele"
   PRINT "  (2) Autopilot"
   e1$ = INPUT$(1)
   CLS
   SELECT CASE e1$
    CASE "1"
     SELECT CASE MitNeleGeredet
      CASE 1
       PRINT "Nele:   'Konntest du den Autopiloten aktivieren?'"
       PRINT "Clausi: 'Ich bin gerade dabei!'"
      CASE 0
       PRINT "Clausi: 'Gibt es Probleme?"
       PRINT "Nele:   'Ja, gewaltige! Wir sind vom Kurs abgekommen, und ich kann den"
       PRINT "         Autopiloten nicht mehr aktivieren!'"
       PRINT "Clausi: 'Dann siehe doch in der Bedienungsanleitung nach!'"
       PRINT "Nele:   'Ich habe sie verloren.'"
       PRINT "Clausi: 'Wunderbar! Letzten Endes mu� ich doch immer alles machen. La� es"
       PRINT "         mich probieren!'"
       MitNeleGeredet = 1
     END SELECT
    CASE "2"
     PRINT "Clausi: 'Bitte, Herr Autopilot, fliegen Sie uns zum Mond!'"
     PRINT
     PRINT "............................"
     PRINT
     PRINT "Keine Antwort. Tja, so leicht geht es nicht!"
    CASE ELSE
     GOTO KreRetry1
   END SELECT
  CASE "2"
KreRetry2:
   PRINT "Was willst du betrachten?"
   PRINT "  (1) Nele"
   PRINT "  (2) Steuerpult"
   PRINT "  (3) Fenster"
   PRINT "  (4) Teppich"
   e1$ = INPUT$(1)
   CLS
   SELECT CASE e1$
    CASE "1"
     PRINT "Nele, die Navigatorin des Astrein-Shuttles, sitzt gem�tlich auf ";
     PRINT "ihrem Sessel, "
     PRINT "h�rt sich mit ihrem Discman eine neue CD an und versucht ";
     PRINT "herauszufinden, wie"
     PRINT "man den Autopiloten des Astrein-Shuttles aktiviert."
    CASE "2"
     IF MitNeleGeredet = 1 AND Joystick = 5 THEN
      PRINT "Du gibst den Code, den dir Franzi gesagt hat, ein."
      PRINT "Pl�tzlich ruft Nele: 'Hurra! Du hast es geschafft! Du hast den ";
      PRINT "Autopiloten "
      PRINT "aktiviert!'"
      a$ = INPUT$(1)
      CLS
      PRINT "Das war die gek�rzte Version von 'Die Reise zum Mond' f�r"
      PRINT "The Real Adok's Way to QBASIC. See you in the Full Version!"
      END
     ELSE
      PRINT "Das Steuerpult des Astrein-Shuttles besteht aus unz�hligen ";
      PRINT "Kn�pfen, Hebeln,"
      PRINT "Schaltern, Joysticks und Joypads. Sogar ein Computer mit ";
      PRINT "vielen Spielen"
      PRINT "ist eingebaut! Wozu, glaubt ihr, sollte man die Joysticks und ";
      PRINT "Joypads sonst"
      PRINT "brauchen, au�er zur Unterhaltung der Besatzungsmitglieder?"
     END IF
    CASE "3"
     PRINT "Ein riesiges Fenster, das den Blick zu dem, was sich au�erhalb ";
     PRINT "des Shuttles"
     PRINT "befindet, gew�hrt! He, Moment mal! Da drau�en sind auch Zahra ";
     PRINT "und Gerhard!"
    CASE "4"
     PRINT "DEN TEPPICH ANSCHAUEN? Wie geht das, wenn hier gar kein ";
     PRINT "Teppich ist?"
    CASE ELSE
     GOTO KreRetry2
   END SELECT
  CASE "3"
KreRetry3:
   PRINT "Was willst du nehmen?"
   PRINT "  (1) Teppich"
   PRINT "  (2) Steuerpult"
   PRINT "  (3) Joystick"
   e1$ = INPUT$(1)
   CLS
   SELECT CASE e1$
    CASE "1"
     PRINT "DEN TEPPICH NEHMEN? Wie geht das, wenn hier gar kein Teppich ist?"
    CASE "2"
     PRINT "Ein bi�chen zu schwer, was? Ja, ein bi�chen viel zu schwer!"
    CASE "3"
     IF Joystick < 2 THEN
      PRINT "Du rei�t einen der vielen Joysticks aus dem Steuerpult heraus ";
      PRINT "und steckst ihn"
      PRINT "in die Tasche. Vielleicht kannst du ihn einmal brauchen?"
      Joystick = 2
     ELSE
      PRINT "Du hast schon einen!"
     END IF
    CASE ELSE
     GOTO KreRetry3
   END SELECT
  CASE "4"
KreRetry4:
   PRINT "Wohin willst du gehen?"
   PRINT "  (1) T�r"
   e1$ = INPUT$(1)
   CLS
   IF e1$ <> "1" THEN
    GOTO KreRetry4
   END IF
   GOTO HaupthalleStart
 CASE ELSE
  GOTO KommandoraumStart
 END SELECT
 a$ = INPUT$(1)
 GOTO KommandoraumStart

OffizierszimmerStart:
 CLS
 PRINT "Du befindest dich im Offizierskasino. Hier befinden sich die drei ";
 PRINT "Offiziere "
 PRINT "Franzi, Philipp und Stefan. Sie spielen gerade ein Schachspiel auf ";
 PRINT "ihrem "
 PRINT "Computer. (K�nnen sie �berhaupt Schach spielen!?)"
 GOSUB Eingabe
 CLS
 SELECT CASE eingab$
  CASE "1"
OzeRetry1:
   PRINT "Mit wem willst du sprechen?"
   PRINT "  (1) Stefan"
   PRINT "  (2) Franzi"
   PRINT "  (3) Philipp"
   e1$ = INPUT$(1)
   CLS
   SELECT CASE e1$
    CASE "1"
     PRINT "Stefan: 'Hmmm, soll ich meinen K�nig opfern, um die Dame zu ";
     PRINT "retten?'"
    CASE "2"
     IF Joystick = 0 THEN
      PRINT "Franzi:  'Stefan, Philipp, seid nicht so gemein! La�t mich ";
      PRINT "auch mitspielen!'"
      PRINT "Philipp: 'Dann br�uchten wir aber noch einen dritten Joystick, ";
      PRINT "und den haben"
      PRINT "          wir nicht!'"
     END IF
     IF Joystick = 5 THEN
      PRINT "Franzi: 'Bitte, gib mir die T�te!'"
      PRINT "Clausi: 'Die T�te gebe ich dir nicht!'"
      PRINT "Franzi: 'Wie ich schon sagte: Der Code hei�t oben, rechts, ";
      PRINT "unten, links, oben"
      PRINT "         oder umgekehrt!'"
     END IF
     IF Joystick > 2 AND Joystick < 5 AND MitNeleGeredet <> 1 THEN
      PRINT "Franzi: 'Vielen Dank f�r den Joystick, Clausi!'"
      PRINT "Clausi: 'Gern geschehen!'"
     END IF
     IF Joystick = 4 AND MitNeleGeredet = 1 THEN
      PRINT "Clausi: 'Hey, Fratzi, wie w�re es mit dieser original ";
      PRINT "philippinischen "
      PRINT "         Plastikt�te? Sie ist von Philipps Bett ";
      PRINT "hinuntergefallen!'"
      PRINT "Franzi: 'Wirklich? Ein Gegenstand ist immer f�r ein Ger�cht ";
      PRINT "gut! Gib her!'"
      PRINT "Clausi: 'Zuerst sagst du mir den Code!'"
      PRINT "Franzi: 'Na gut. Oben, rechts, unten, links, oben ... oder ";
      PRINT "umgekehrt?'"
      PRINT "Clausi: 'Du bist ja eine sch�ne Hilfe! Daf�r bekommst du die ";
      PRINT "T�te nicht!'"
      Joystick = 5
     END IF
     IF Joystick > 2 AND Joystick < 5 AND MitNeleGeredet = 1 THEN
      PRINT "Clausi: 'Hey, Fratzi, wei�t du, wie man den Autopiloten ";
      PRINT "aktiviert?'"
      PRINT "Franzi: 'Nein! Aber ich habe die Bedienungsanleitung!'"
      PRINT "Clausi: 'Gib sie her!'"
      PRINT "Franzi: 'Hm... eigentlich sollte ich sie dir geben, denn du ";
      PRINT "bist erstens mein"
      PRINT "         Kommandant und zweitens hattest du mir den Joystick ";
      PRINT "vorhin gegeben."
      PRINT "         Trotzdem: Ich gebe dir die Anleitung nur, wenn du mir ";
      PRINT "noch ein"
      PRINT "         Geschenk machst! Mache mich zum Kommandanten!'"
      PRINT "Clausi: 'Das mache ich nicht!'"
      PRINT "Franzi: 'Dann mache etwas anderes!'"
      Joystick = 4
     END IF
     IF Joystick = 2 THEN
      PRINT "Franzi:  'Komm, Philipp, la� mich endlich mitspielen!'"
      PRINT "Philipp: 'Wie oft soll ich es dir noch sagen: Dazu brauchen ";
      PRINT "wir einen dritten"
      PRINT "          Joystick!'"
      PRINT "Clausi:  'Wie diesen hier, den ich in meiner Hand halte?'"
      PRINT "Philipp: 'Ja, genau einen wie den! Gib ihn her!'"
      PRINT "Clausi:  'Hier.'"
      PRINT "Franzi:  'Danke, Clausi! Du bist mein bester Freund!'"
      Joystick = 3
     END IF
    CASE "3"
     PRINT "Philipp: 'Schach ist ein wahrhaft lustiges Spiel! Wenn ich es ";
     PRINT "blo� spielen"
     PRINT "          k�nnte...'"
    CASE ELSE
     GOTO OzeRetry1
   END SELECT
  CASE "2"
OzeRetry2: 
   PRINT "Was willst du betrachten?"
   PRINT "  (1) Schachcomputer"
   PRINT "  (2) Franzi"
   PRINT "  (3) Philipp"
   PRINT "  (4) Stefan"
   e1$ = INPUT$(1)
   CLS
   SELECT CASE e1$
    CASE "1"
     PRINT "Ein riesengro�er Computer, mit dem man nur Schach spielen ";
     PRINT "kann, daf�r aber"
     PRINT "zu dritt!"
    CASE "2"
     PRINT "Dieser Junge nennt sich Franzi und ist erster Offizier. Seine ";
     PRINT "Spitznamen sind"
     PRINT "Fratzi, Intrigator und FBI. Letzteres bedeutet 'Flotter ";
     PRINT "blonder Insulaner'."
     PRINT "Naja, Marius, der diesen Spitznamen erfunden hatte, meinte mit ";
     PRINT "dem 'I' etwas"
     PRINT "anderes, aber wir wollen ja nicht frech sein."
    CASE "3"
     PRINT "Dieser Junge nennt sich Philipp und ist zweiter Offizier. Er ";
     PRINT "haut auf die"
     PRINT "Drums wie die anderen auf ihre lieben Mitsch�ler."
    CASE "4"
     PRINT "Dieser Junge nennt sich Stefan und ist dritter Offizier. Wie ";
     PRINT "man es auch an"
     PRINT "einer zweiten Stelle in diesem Spiel erfahren kann, nennt sich ";
     PRINT "dieses Genie"
     PRINT "auch Stex Mel. Eine seiner ber�hmtesten, vielzitierten ";
     PRINT "Aussagen:      'Philosophie"
     PRINT "ist nichts anderes als eine Mischung aus Poesie und Dichtung.'"
    CASE ELSE
     GOTO OzeRetry2
   END SELECT
  CASE "3"
OzeRetry3:
   PRINT "Was willst du nehmen?"
   PRINT "  (1) Schachcomputer"
   PRINT "  (2) Philipp's Joystick"
   PRINT "  (3) Franzi"
   e1$ = INPUT$(1)
   CLS
   SELECT CASE e1$
    CASE "1"
     PRINT "Du hast doch zu Hause selber einen 'rumstehen!"
    CASE "2"
     PRINT "Den gibt er nicht her!"
    CASE "3"
     PRINT "Clausi: 'Fratzi, la� mich dich in meine Arme nehmen!'"
     PRINT "Franzi: 'Du willst mich wohl AUF den Arm nehmen!?'"
    CASE ELSE
     GOTO OzeRetry3
   END SELECT
  CASE "4"
   PRINT "Wohin willst du gehen?"
   PRINT "  (1) T�r"
OzeRetry4:
  e1$ = INPUT$(1)
  IF e1$ <> "1" THEN
   GOTO OzeRetry4
  END IF
  GOTO HaupthalleStart
 CASE ELSE
  GOTO OffizierszimmerStart
 END SELECT
 a$ = INPUT$(1)
 GOTO OffizierszimmerStart

Eingabe:
 PRINT "  (1) Sprich"
 PRINT "  (2) Betrachte"
 PRINT "  (3) Nimm"
 PRINT "  (4) Gehe zu"
 PRINT "  (5) Ende"
 eingab$ = INPUT$(1)
 IF eingab$ = "5" THEN
  END
 END IF
RETURN