# HG changeset patch
# User meillo@marmaro.de
# Date 1188944135 -7200
# Node ID 105a509f30d93baef12cbcfd014289645137091b
# Parent  81ecf448ab300f96526841666533ff314c5ade77
simplified lcase; better var names

diff -r 81ecf448ab30 -r 105a509f30d9 Midds_reco.bas
--- a/Midds_reco.bas	Wed Sep 05 00:01:19 2007 +0200
+++ b/Midds_reco.bas	Wed Sep 05 00:15:35 2007 +0200
@@ -36,7 +36,7 @@
 loop until inkey <> ""
 
 
-name1$ = "John Howell"
+deinname$ = "John Howell"
 
 
 
@@ -72,7 +72,7 @@
 '''''''''' Vor dem Haus '''''''''
 cls
 COLOR 2
-  PRINT "Du heisst "; name1$; " und bist"
+  PRINT "Du heisst "; deinname$; " und bist"
   PRINT "Privatdetektiv. Du wurdest von "
   PRINT "Herr Fisch angerufen um einen Mord"
   PRINT "aufzuklaeren."
@@ -86,10 +86,9 @@
 zuege = 0
 do
 
-  INPUT "(Vor dem Haus) Was machst du? ", B$
-  B$ = lcase(B$)
-
-  select case B$
+  INPUT "(Vor dem Haus) Was machst du? ", befehl$
+  
+  select case lcase(befehl$)
     case "benutzen klingel"
       COLOR 2
       PRINT "Herr Fisch oeffnet die Tuer und du stehst im Flur"
@@ -128,13 +127,14 @@
 ort_flur :
 '''''''' Flur '''''''
 
-COLOR 7
+zuege% = 0
 
-zuege% = 0
 do
-  INPUT "(Flur) Was machst du? ", B$
-  B$ = lcase(B$)
-  select case B$
+  COLOR 7
+  PRINT
+  INPUT "(Flur) Was machst du? ", befehl$
+  
+  select case lcase(befehl$)
     case "sprechen mit herr fisch"
       goto gespraech_herrfisch
 
@@ -172,10 +172,18 @@
       GOTO ort_kueche
 
     case "gehen in lagerhalle"
-      if kx% = 1 AND sx% = 1 GOTO 132
+      if kx% = 1 AND sx% = 1 then
+        GOTO 132
+      else
+        print "  Was fuer eine Lagerhalle denn?"
+      end if
 
-    case "sprechen mit Tina"
-      if tinaistda = 1 then GOTO 118
+    case "sprechen mit tina"
+      if tinaistda = 1 then
+        GOTO 118
+      else
+        print "  Hier ist keine Tina"
+      end if
 
     case "q"
       END
@@ -188,12 +196,12 @@
 
     case else
       PRINT "  Keine Lust!"
-      PRINT
 
   end select
 
   zuege% = zuege% + 1
   IF zuege% = 6 THEN PRINT "  Tipp: sprechen mit ..."
+
 loop until inkey <> ""
 
 
@@ -210,7 +218,7 @@
 
 do
   COLOR 7
-  PRINT "A: Hallo, ich heisse "; name1$; "."
+  PRINT "A: Hallo, ich heisse "; deinname$; "."
   PRINT "B: Wo ist die Leiche?"
   PRINT "C: Wie heisst der Tote?"
   if woIstDasSchlafzimmer = 1 then PRINT "D: Wo ist das Schlafzimmer?"
@@ -276,9 +284,8 @@
 do
   PRINT
   COLOR 7
-  INPUT "(Schlafzimmer) Was machst du? ", B$
-  B$ = lcase(B$)
-  select case B$
+  INPUT "(Schlafzimmer) Was machst du? ", befehl$
+  select case lcase(befehl$)
     case "gehen in flur"
       goto ort_flur
 
@@ -399,9 +406,8 @@
 
 do
   COLOR 7
-  INPUT "(Arbeitszimmer) Was machst du? ", B$
-  B$ = lcase(B$)
-  select case B$
+  INPUT "(Arbeitszimmer) Was machst du? ", befehl$
+  select case lcase(befehl$)
     case "gehen in Schlafzimmer"
       goto ort_schlafzimmer
 
@@ -540,9 +546,8 @@
 
 COLOR 7
 print
-INPUT "(Esszimmer) Was machst du? ", B$
-B$ = lcase(b$)
-select case B$
+INPUT "(Esszimmer) Was machst du? ", befehl$
+select case lcase(befehl$)
   case "gehen in schlafzimmer"
     goto ort_schlafzimmer
 
@@ -606,9 +611,8 @@
 
 do
   color 7
-  INPUT "(Kueche) Was machst du?", B$
-  B$ = lcase(B$)
-  select case B$
+  INPUT "(Kueche) Was machst du?", befehl$
+  select case lcase(befehl$)
     case "gehen in schlafzimmer"
       goto ort_schlafzimmer
 
@@ -749,9 +753,8 @@
 
 do
   COLOR 7
-  INPUT "(Keller) Was machst du? ", B$
-  B$ = lcase(B$)
-  select case B$
+  INPUT "(Keller) Was machst du? ", befehl$
+  select case lcase(befehl$)
     case "gehen in flur"
       goto ort_flur
 
@@ -819,9 +822,8 @@
 
 do
   COLOR 7
-  INPUT "(Lagerhalle) Was machst du? ", B$
-  B$ = lcase(B$)
-  select case B$
+  INPUT "(Lagerhalle) Was machst du? ", befehl$
+  select case lcase(befehl$)
     case "gehen in Schlafzimmer"
       goto ort_schlafzimmer
 
@@ -1177,7 +1179,7 @@
 loop until inkey <> ""
 
 COLOR 15
-PRINT "Sehrgeehrter Herr "; name1$; ""
+PRINT "Sehrgeehrter Herr "; deinname$; ""
 PRINT "dank Ihnen konnten wie eine ganze"
 PRINT "Bande Waffenschieber dingfest machen."
 PRINT ""