home *** CD-ROM | disk | FTP | other *** search
/ PC Action 1997 January / PCA0197.ISO / special / baskurs / kurs0017.bas < prev    next >
BASIC Source File  |  1996-02-06  |  2KB  |  52 lines
  1. 'Einfaches Adventure-Spiel mit SELECT/CASE
  2.  
  3. COLOR 14, 1
  4. CLS
  5.  
  6. PRINT "Willkommen zum Mysterious QBASIC Adventure. Du mußt immer die Zahl"
  7. PRINT "eingeben, die neben der gewählten Option steht. 'aT' steht für"
  8. PRINT "eine beliebige andere Taste."
  9. PRINT
  10. PRINT "Du stehst vor einem Schloß. Wagst Du Dich, es zu betreten?"
  11. PRINT
  12. PRINT "  ( 1)  Ja"
  13. PRINT "  (aT)  Nö"
  14. PRINT
  15.  
  16. LINE INPUT Eingabe$
  17. CLS
  18. SELECT CASE Eingabe$
  19.  CASE "1"
  20.   PRINT "Jetzt bist Du im Schloß. Du hast die Wahl, ob Du nach Westen oder"
  21.   PRINT "nach Osten gehst. Natürlich kannst Du auch das Schloß verlassen"
  22.   PRINT "(Feigling!) Wofür entscheidest Du Dich, oh edler Ritter?"
  23.   PRINT
  24.   PRINT "  ( 1)  Westen"
  25.   PRINT "  ( 2)  Osten"
  26.   PRINT "  (aT)  Schloß verlassen"
  27.   PRINT
  28.   LINE INPUT Eingabe$
  29.   CLS
  30.   SELECT CASE Eingabe$
  31.    CASE "1"
  32.     PRINT "Da ist ein böser Drache, den Du, edler Ritter, mit Deinem Schwert"
  33.     PRINT "zu Hackfleisch verarbeitest! Du hast die holde Prinzessin"
  34.     PRINT "gerettet und darfst sie jetzt zur Belohnung zur Frau nehmen (und"
  35.     PRINT "mit ihr 'ne Menge Spaß haben)! Ende."
  36.     END
  37.    CASE "2"
  38.     PRINT "Oh, Du armer Held. Kaum gehst Du nach Osten, fällst Du in einen"
  39.     PRINT "bodenlosen Abgrund! Und wenn er nicht gestorben ist, dann fällt er"
  40.     PRINT "noch heute. Ende."
  41.     END
  42.    CASE ELSE
  43.     PRINT "Kaum hast Du das Schloß verlassen, fällt das Tor hinter Dir zu. Du"
  44.     PRINT "hast Deine Chance vertan, denn 'rein kannst Du nimmer! Ende."
  45.     END
  46.   END SELECT
  47.  CASE ELSE
  48.   PRINT "Na gut, dann nicht. Starte lieber Excel und erledige langweilige"
  49.   PRINT "Tabellenkalkulationen! Ende."
  50. END SELECT
  51.  
  52.