Mercurial > midds

comparison Midds_reco.bas @ 5:105a509f30d9 default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
simplified lcase; better var names
author meillo@marmaro.de
date Wed, 05 Sep 2007 00:15:35 +0200
parents e98ade2107de
children
comparison
equal deleted inserted replaced
4:81ecf448ab30 5:105a509f30d9
34 PRINT "(c) Copyright 1999 Elefant Software" 34 PRINT "(c) Copyright 1999 Elefant Software"
35 do 35 do
36 loop until inkey <> "" 36 loop until inkey <> ""
37 37
38 38
39 name1$ = "John Howell" 39 deinname$ = "John Howell"
40 40
41 41
42 42
43 cls 43 cls
44 COLOR 6 44 COLOR 6
70 70
71 ort_vordemhaus : 71 ort_vordemhaus :
72 '''''''''' Vor dem Haus ''''''''' 72 '''''''''' Vor dem Haus '''''''''
73 cls 73 cls
74 COLOR 2 74 COLOR 2
75 PRINT "Du heisst "; name1$; " und bist" 75 PRINT "Du heisst "; deinname$; " und bist"
76 PRINT "Privatdetektiv. Du wurdest von " 76 PRINT "Privatdetektiv. Du wurdest von "
77 PRINT "Herr Fisch angerufen um einen Mord" 77 PRINT "Herr Fisch angerufen um einen Mord"
78 PRINT "aufzuklaeren." 78 PRINT "aufzuklaeren."
79 PRINT "Natuerlich bist du sofort in deinen" 79 PRINT "Natuerlich bist du sofort in deinen"
80 PRINT "Renault 19 gestiegen und losgefahren." 80 PRINT "Renault 19 gestiegen und losgefahren."
84 COLOR 7 84 COLOR 7
85 85
86 zuege = 0 86 zuege = 0
87 do 87 do
88 88
89 INPUT "(Vor dem Haus) Was machst du? ", B$ 89 INPUT "(Vor dem Haus) Was machst du? ", befehl$
90 B$ = lcase(B$) 90
91 91 select case lcase(befehl$)
92 select case B$
93 case "benutzen klingel" 92 case "benutzen klingel"
94 COLOR 2 93 COLOR 2
95 PRINT "Herr Fisch oeffnet die Tuer und du stehst im Flur" 94 PRINT "Herr Fisch oeffnet die Tuer und du stehst im Flur"
96 PRINT 95 PRINT
97 COLOR 7 96 COLOR 7
126 125
127 126
128 ort_flur : 127 ort_flur :
129 '''''''' Flur ''''''' 128 '''''''' Flur '''''''
130 129
131 COLOR 7
132
133 zuege% = 0 130 zuege% = 0
134 do 131
135 INPUT "(Flur) Was machst du? ", B$ 132 do
136 B$ = lcase(B$) 133 COLOR 7
137 select case B$ 134 PRINT
135 INPUT "(Flur) Was machst du? ", befehl$
136
137 select case lcase(befehl$)
138 case "sprechen mit herr fisch" 138 case "sprechen mit herr fisch"
139 goto gespraech_herrfisch 139 goto gespraech_herrfisch
140 140
141 case "gehen heim" 141 case "gehen heim"
142 PRINT " Du Angsthase!" 142 PRINT " Du Angsthase!"
170 170
171 case "gehen in kueche" 171 case "gehen in kueche"
172 GOTO ort_kueche 172 GOTO ort_kueche
173 173
174 case "gehen in lagerhalle" 174 case "gehen in lagerhalle"
175 if kx% = 1 AND sx% = 1 GOTO 132 175 if kx% = 1 AND sx% = 1 then
176 176 GOTO 132
177 case "sprechen mit Tina" 177 else
178 if tinaistda = 1 then GOTO 118 178 print " Was fuer eine Lagerhalle denn?"
179 end if
180
181 case "sprechen mit tina"
182 if tinaistda = 1 then
183 GOTO 118
184 else
185 print " Hier ist keine Tina"
186 end if
179 187
180 case "q" 188 case "q"
181 END 189 END
182 190
183 case "i" 191 case "i"
186 case "b" 194 case "b"
187 GOSUB befehle 195 GOSUB befehle
188 196
189 case else 197 case else
190 PRINT " Keine Lust!" 198 PRINT " Keine Lust!"
191 PRINT
192 199
193 end select 200 end select
194 201
195 zuege% = zuege% + 1 202 zuege% = zuege% + 1
196 IF zuege% = 6 THEN PRINT " Tipp: sprechen mit ..." 203 IF zuege% = 6 THEN PRINT " Tipp: sprechen mit ..."
204
197 loop until inkey <> "" 205 loop until inkey <> ""
198 206
199 207
200 208
201 209
208 print "Du beginnst ein Gespraech mit Herr Fisch." 216 print "Du beginnst ein Gespraech mit Herr Fisch."
209 print 217 print
210 218
211 do 219 do
212 COLOR 7 220 COLOR 7
213 PRINT "A: Hallo, ich heisse "; name1$; "." 221 PRINT "A: Hallo, ich heisse "; deinname$; "."
214 PRINT "B: Wo ist die Leiche?" 222 PRINT "B: Wo ist die Leiche?"
215 PRINT "C: Wie heisst der Tote?" 223 PRINT "C: Wie heisst der Tote?"
216 if woIstDasSchlafzimmer = 1 then PRINT "D: Wo ist das Schlafzimmer?" 224 if woIstDasSchlafzimmer = 1 then PRINT "D: Wo ist das Schlafzimmer?"
217 PRINT "Z: Bis spaeter." 225 PRINT "Z: Bis spaeter."
218 COLOR 1 226 COLOR 1
274 end if 282 end if
275 283
276 do 284 do
277 PRINT 285 PRINT
278 COLOR 7 286 COLOR 7
279 INPUT "(Schlafzimmer) Was machst du? ", B$ 287 INPUT "(Schlafzimmer) Was machst du? ", befehl$
280 B$ = lcase(B$) 288 select case lcase(befehl$)
281 select case B$
282 case "gehen in flur" 289 case "gehen in flur"
283 goto ort_flur 290 goto ort_flur
284 291
285 case "gehen in arbeitszimmer" 292 case "gehen in arbeitszimmer"
286 goto ort_arbeitszimmer 293 goto ort_arbeitszimmer
397 COLOR 2 404 COLOR 2
398 PRINT "Du bist im Arbeitszimmer." 405 PRINT "Du bist im Arbeitszimmer."
399 406
400 do 407 do
401 COLOR 7 408 COLOR 7
402 INPUT "(Arbeitszimmer) Was machst du? ", B$ 409 INPUT "(Arbeitszimmer) Was machst du? ", befehl$
403 B$ = lcase(B$) 410 select case lcase(befehl$)
404 select case B$
405 case "gehen in Schlafzimmer" 411 case "gehen in Schlafzimmer"
406 goto ort_schlafzimmer 412 goto ort_schlafzimmer
407 413
408 case "gehen in Flur" 414 case "gehen in Flur"
409 goto ort_flur 415 goto ort_flur
538 print "Du bist im Esszimmer." 544 print "Du bist im Esszimmer."
539 do 545 do
540 546
541 COLOR 7 547 COLOR 7
542 print 548 print
543 INPUT "(Esszimmer) Was machst du? ", B$ 549 INPUT "(Esszimmer) Was machst du? ", befehl$
544 B$ = lcase(b$) 550 select case lcase(befehl$)
545 select case B$
546 case "gehen in schlafzimmer" 551 case "gehen in schlafzimmer"
547 goto ort_schlafzimmer 552 goto ort_schlafzimmer
548 553
549 case "gehen in flur" 554 case "gehen in flur"
550 GOTO ort_flur 555 GOTO ort_flur
604 COLOR 2 609 COLOR 2
605 PRINT "Du bist in der Kueche." 610 PRINT "Du bist in der Kueche."
606 611
607 do 612 do
608 color 7 613 color 7
609 INPUT "(Kueche) Was machst du?", B$ 614 INPUT "(Kueche) Was machst du?", befehl$
610 B$ = lcase(B$) 615 select case lcase(befehl$)
611 select case B$
612 case "gehen in schlafzimmer" 616 case "gehen in schlafzimmer"
613 goto ort_schlafzimmer 617 goto ort_schlafzimmer
614 618
615 case "gehen in flur" 619 case "gehen in flur"
616 goto ort_flur 620 goto ort_flur
747 COLOR 2 751 COLOR 2
748 PRINT "Du bist im Keller." 752 PRINT "Du bist im Keller."
749 753
750 do 754 do
751 COLOR 7 755 COLOR 7
752 INPUT "(Keller) Was machst du? ", B$ 756 INPUT "(Keller) Was machst du? ", befehl$
753 B$ = lcase(B$) 757 select case lcase(befehl$)
754 select case B$
755 case "gehen in flur" 758 case "gehen in flur"
756 goto ort_flur 759 goto ort_flur
757 760
758 case "gehen in schlafzimmer" 761 case "gehen in schlafzimmer"
759 goto ort_schlafzimmer 762 goto ort_schlafzimmer
817 print 820 print
818 821
819 822
820 do 823 do
821 COLOR 7 824 COLOR 7
822 INPUT "(Lagerhalle) Was machst du? ", B$ 825 INPUT "(Lagerhalle) Was machst du? ", befehl$
823 B$ = lcase(B$) 826 select case lcase(befehl$)
824 select case B$
825 case "gehen in Schlafzimmer" 827 case "gehen in Schlafzimmer"
826 goto ort_schlafzimmer 828 goto ort_schlafzimmer
827 829
828 case "gehen in Arbeitszimmer" 830 case "gehen in Arbeitszimmer"
829 goto ort_arbeitszimmer 831 goto ort_arbeitszimmer
1175 PRINT "Polizeirevier:" 1177 PRINT "Polizeirevier:"
1176 do 1178 do
1177 loop until inkey <> "" 1179 loop until inkey <> ""
1178 1180
1179 COLOR 15 1181 COLOR 15
1180 PRINT "Sehrgeehrter Herr "; name1$; "" 1182 PRINT "Sehrgeehrter Herr "; deinname$; ""
1181 PRINT "dank Ihnen konnten wie eine ganze" 1183 PRINT "dank Ihnen konnten wie eine ganze"
1182 PRINT "Bande Waffenschieber dingfest machen." 1184 PRINT "Bande Waffenschieber dingfest machen."
1183 PRINT "" 1185 PRINT ""
1184 PRINT "" 1186 PRINT ""
1185 PRINT "" 1187 PRINT ""