midds

diff Midds_reco.bas @ 5:105a509f30d9

simplified lcase; better var names
author meillo@marmaro.de
date Wed, 05 Sep 2007 00:15:35 +0200
parents e98ade2107de
children
line diff
     1.1 --- a/Midds_reco.bas	Wed Sep 05 00:01:19 2007 +0200
     1.2 +++ b/Midds_reco.bas	Wed Sep 05 00:15:35 2007 +0200
     1.3 @@ -36,7 +36,7 @@
     1.4  loop until inkey <> ""
     1.5  
     1.6  
     1.7 -name1$ = "John Howell"
     1.8 +deinname$ = "John Howell"
     1.9  
    1.10  
    1.11  
    1.12 @@ -72,7 +72,7 @@
    1.13  '''''''''' Vor dem Haus '''''''''
    1.14  cls
    1.15  COLOR 2
    1.16 -  PRINT "Du heisst "; name1$; " und bist"
    1.17 +  PRINT "Du heisst "; deinname$; " und bist"
    1.18    PRINT "Privatdetektiv. Du wurdest von "
    1.19    PRINT "Herr Fisch angerufen um einen Mord"
    1.20    PRINT "aufzuklaeren."
    1.21 @@ -86,10 +86,9 @@
    1.22  zuege = 0
    1.23  do
    1.24  
    1.25 -  INPUT "(Vor dem Haus) Was machst du? ", B$
    1.26 -  B$ = lcase(B$)
    1.27 -
    1.28 -  select case B$
    1.29 +  INPUT "(Vor dem Haus) Was machst du? ", befehl$
    1.30 +  
    1.31 +  select case lcase(befehl$)
    1.32      case "benutzen klingel"
    1.33        COLOR 2
    1.34        PRINT "Herr Fisch oeffnet die Tuer und du stehst im Flur"
    1.35 @@ -128,13 +127,14 @@
    1.36  ort_flur :
    1.37  '''''''' Flur '''''''
    1.38  
    1.39 -COLOR 7
    1.40 +zuege% = 0
    1.41  
    1.42 -zuege% = 0
    1.43  do
    1.44 -  INPUT "(Flur) Was machst du? ", B$
    1.45 -  B$ = lcase(B$)
    1.46 -  select case B$
    1.47 +  COLOR 7
    1.48 +  PRINT
    1.49 +  INPUT "(Flur) Was machst du? ", befehl$
    1.50 +  
    1.51 +  select case lcase(befehl$)
    1.52      case "sprechen mit herr fisch"
    1.53        goto gespraech_herrfisch
    1.54  
    1.55 @@ -172,10 +172,18 @@
    1.56        GOTO ort_kueche
    1.57  
    1.58      case "gehen in lagerhalle"
    1.59 -      if kx% = 1 AND sx% = 1 GOTO 132
    1.60 +      if kx% = 1 AND sx% = 1 then
    1.61 +        GOTO 132
    1.62 +      else
    1.63 +        print "  Was fuer eine Lagerhalle denn?"
    1.64 +      end if
    1.65  
    1.66 -    case "sprechen mit Tina"
    1.67 -      if tinaistda = 1 then GOTO 118
    1.68 +    case "sprechen mit tina"
    1.69 +      if tinaistda = 1 then
    1.70 +        GOTO 118
    1.71 +      else
    1.72 +        print "  Hier ist keine Tina"
    1.73 +      end if
    1.74  
    1.75      case "q"
    1.76        END
    1.77 @@ -188,12 +196,12 @@
    1.78  
    1.79      case else
    1.80        PRINT "  Keine Lust!"
    1.81 -      PRINT
    1.82  
    1.83    end select
    1.84  
    1.85    zuege% = zuege% + 1
    1.86    IF zuege% = 6 THEN PRINT "  Tipp: sprechen mit ..."
    1.87 +
    1.88  loop until inkey <> ""
    1.89  
    1.90  
    1.91 @@ -210,7 +218,7 @@
    1.92  
    1.93  do
    1.94    COLOR 7
    1.95 -  PRINT "A: Hallo, ich heisse "; name1$; "."
    1.96 +  PRINT "A: Hallo, ich heisse "; deinname$; "."
    1.97    PRINT "B: Wo ist die Leiche?"
    1.98    PRINT "C: Wie heisst der Tote?"
    1.99    if woIstDasSchlafzimmer = 1 then PRINT "D: Wo ist das Schlafzimmer?"
   1.100 @@ -276,9 +284,8 @@
   1.101  do
   1.102    PRINT
   1.103    COLOR 7
   1.104 -  INPUT "(Schlafzimmer) Was machst du? ", B$
   1.105 -  B$ = lcase(B$)
   1.106 -  select case B$
   1.107 +  INPUT "(Schlafzimmer) Was machst du? ", befehl$
   1.108 +  select case lcase(befehl$)
   1.109      case "gehen in flur"
   1.110        goto ort_flur
   1.111  
   1.112 @@ -399,9 +406,8 @@
   1.113  
   1.114  do
   1.115    COLOR 7
   1.116 -  INPUT "(Arbeitszimmer) Was machst du? ", B$
   1.117 -  B$ = lcase(B$)
   1.118 -  select case B$
   1.119 +  INPUT "(Arbeitszimmer) Was machst du? ", befehl$
   1.120 +  select case lcase(befehl$)
   1.121      case "gehen in Schlafzimmer"
   1.122        goto ort_schlafzimmer
   1.123  
   1.124 @@ -540,9 +546,8 @@
   1.125  
   1.126  COLOR 7
   1.127  print
   1.128 -INPUT "(Esszimmer) Was machst du? ", B$
   1.129 -B$ = lcase(b$)
   1.130 -select case B$
   1.131 +INPUT "(Esszimmer) Was machst du? ", befehl$
   1.132 +select case lcase(befehl$)
   1.133    case "gehen in schlafzimmer"
   1.134      goto ort_schlafzimmer
   1.135  
   1.136 @@ -606,9 +611,8 @@
   1.137  
   1.138  do
   1.139    color 7
   1.140 -  INPUT "(Kueche) Was machst du?", B$
   1.141 -  B$ = lcase(B$)
   1.142 -  select case B$
   1.143 +  INPUT "(Kueche) Was machst du?", befehl$
   1.144 +  select case lcase(befehl$)
   1.145      case "gehen in schlafzimmer"
   1.146        goto ort_schlafzimmer
   1.147  
   1.148 @@ -749,9 +753,8 @@
   1.149  
   1.150  do
   1.151    COLOR 7
   1.152 -  INPUT "(Keller) Was machst du? ", B$
   1.153 -  B$ = lcase(B$)
   1.154 -  select case B$
   1.155 +  INPUT "(Keller) Was machst du? ", befehl$
   1.156 +  select case lcase(befehl$)
   1.157      case "gehen in flur"
   1.158        goto ort_flur
   1.159  
   1.160 @@ -819,9 +822,8 @@
   1.161  
   1.162  do
   1.163    COLOR 7
   1.164 -  INPUT "(Lagerhalle) Was machst du? ", B$
   1.165 -  B$ = lcase(B$)
   1.166 -  select case B$
   1.167 +  INPUT "(Lagerhalle) Was machst du? ", befehl$
   1.168 +  select case lcase(befehl$)
   1.169      case "gehen in Schlafzimmer"
   1.170        goto ort_schlafzimmer
   1.171  
   1.172 @@ -1177,7 +1179,7 @@
   1.173  loop until inkey <> ""
   1.174  
   1.175  COLOR 15
   1.176 -PRINT "Sehrgeehrter Herr "; name1$; ""
   1.177 +PRINT "Sehrgeehrter Herr "; deinname$; ""
   1.178  PRINT "dank Ihnen konnten wie eine ganze"
   1.179  PRINT "Bande Waffenschieber dingfest machen."
   1.180  PRINT ""