Mercurial > midds

comparison Midds_reco.bas @ 2:53d9408c7cdb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
lots of refactoring in reco-version
author meillo@marmaro.de
date Mon, 03 Sep 2007 20:51:10 +0200
parents 130ab9a4fd83
children e98ade2107de
comparison
equal deleted inserted replaced
1:130ab9a4fd83 2:53d9408c7cdb
22 22
23 23
24 'Midds' 24 'Midds'
25 25
26 26
27 CLS 27 cls
28 LOCATE 13, 6 28 LOCATE 13, 6
29 COLOR 15 29 COLOR 15
30 PRINT "*** Mord in der Dorfstrasse ***" 30 PRINT "*** Mord in der Dorfstrasse ***"
31 COLOR 7
31 'LINE (20, 60)-(300, 140), 2, B 32 'LINE (20, 60)-(300, 140), 2, B
32 LOCATE 24, 2 33 LOCATE 24, 2
33 COLOR 7
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 name1$ = "John Howell"
40 40
41 41
42 42
43 CLS 43 cls
44 COLOR 6 44 COLOR 6
45 PRINT "Dies ist ein Kriminalspiel," 45 PRINT "Dies ist ein Kriminalspiel,"
46 PRINT "das die grauen Zellen fordert." 46 PRINT "das die grauen Zellen fordert."
47 do 47 print
48 loop until inkey <> ""
49
50
51
52 CLS
53 GOSUB befehle
54 do
55 loop until inkey <> ""
56
57
58
59 CLS
60 COLOR 6
61 PRINT 48 PRINT
62 PRINT "Druecke 'q' um das Spiel zu beenden." 49 PRINT "Druecke 'q' um das Spiel zu beenden."
63 PRINT
64 PRINT "Druecke 'i' um zu erfahren, was du alles besitzt." 50 PRINT "Druecke 'i' um zu erfahren, was du alles besitzt."
65 PRINT
66 PRINT "Druecke 'b' um die Befehle noch einmal zusehen." 51 PRINT "Druecke 'b' um die Befehle noch einmal zusehen."
52 COLOR 7
67 do 53 do
68 loop until inkey <> "" 54 loop until inkey <> ""
69 55
70 56
71 X: 57 X:
72 CLS 58 cls
73 PRINT "" 59 PRINT ""
74 LOCATE 13, 6 60 LOCATE 13, 6
75 COLOR 6 61 COLOR 6
76 PRINT "So jetzt geht's endlich los!!!" 62 PRINT "So jetzt geht's endlich los!!!"
77 do 63 COLOR 7
78 loop until inkey <> "" 64 do
79 CLS 65 loop until inkey <> ""
80 GOTO 1 66
81 67
82 68
83 69
84 70
85 71 ort_vordemhaus :
86 1 :
87 '''''''''' Vor dem Haus ''''''''' 72 '''''''''' Vor dem Haus '''''''''
73 cls
74 COLOR 2
75 PRINT "Du heisst "; name1$; " und bist"
76 PRINT "Privatdetektiv. Du wurdest von "
77 PRINT "Herr Fisch angerufen um einen Mord"
78 PRINT "aufzuklaeren."
79 PRINT "Natuerlich bist du sofort in deinen"
80 PRINT "Renault 19 gestiegen und losgefahren."
81 PRINT "Jetzt stehst du vor Haus Nummer 6"
82 PRINT "in der Dorfstrasse."
83 PRINT
84 COLOR 7
85
88 zuege = 0 86 zuege = 0
89 a1: 87 do
90 CLS 88
91 PRINT "" 89 INPUT "(Vor dem Haus) Was machst du? ", B$
92 COLOR 2 90 B$ = lcase(B$)
93 PRINT "Du heisst "; name1$; " und bist" 91
94 PRINT "Privatdetektiv. Du wurdest von " 92 select case B$
95 PRINT "Herr Fisch angerufen um einen Mord" 93 case "benutzen klingel"
96 PRINT "aufzuklaeren." 94 COLOR 2
97 PRINT "Natuerlich bist du sofort in deinen" 95 PRINT "Herr Fisch oeffnet die Tuer und du stehst im Flur"
98 PRINT "Renault 19 gestiegen und losgefahren." 96 PRINT
99 PRINT "Jetzt stehst du vor Haus Nummer 6" 97 COLOR 7
100 PRINT "in der Dorfstrasse." 98 goto ort_flur
101 PRINT 99 case "oeffnen tuer"
100 PRINT " Haustueren kann man von aussen ohne Schluessel nicht oeffnen."
101 case "gehen in haus"
102 PRINT " Die Tuer ist zu."
103 case "gehen heim"
104 PRINT " Du Angsthase"
105 case "q"
106 END
107 case "i"
108 GOSUB inventar
109 case "b"
110 GOSUB befehle
111 case else
112 PRINT " Noe!"
113 end select
114
115 zuege% = zuege% + 1
116 IF zuege% = 5 THEN PRINT " Tipp: benutzen ..."
117 IF zuege% > 8 THEN PRINT " Loesung: benutzen Klingel"
118
119 loop until inkey <> ""
120
121
122
123
124
125
126
127
128 ort_flur :
129 '''''''' Flur '''''''
130 'IF kerzenst% = 1 GOTO 116
131
102 COLOR 7 132 COLOR 7
103 INPUT "(Vor dem Haus) Was machst du? ", B$ 133
104 zuege% = zuege% + 1
105 IF B$ = "benutzen Klingel" GOTO 2
106 IF B$ = "oeffnen Tuer" THEN PRINT "Du kannst doch nicht einfach fremde Haeuser betreten."
107 IF B$ = "oeffnen Tuer" THEN SLEEP
108 IF B$ = "oeffnen Tuer" GOTO a1
109 IF B$ = "gehen in Haus" THEN PRINT "Du kannst doch nicht einfach fremde Haeuser betreten."
110 IF B$ = "gehen in Haus" THEN SLEEP
111 IF B$ = "gehen in Haus" GOTO a1
112 IF B$ = "gehen Heim" THEN PRINT "Du Angsthase"
113 IF B$ = "gehen Heim" GOTO a1
114 IF B$ = "q" THEN END
115 IF B$ = "i" THEN GOSUB inventar
116 IF B$ = "b" THEN GOSUB befehle
117 PRINT ""
118 PRINT "Noe!"
119 PRINT ""
120 IF zuege% = 5 THEN GOTO a
121 IF zuege% = 9 THEN GOTO B
122 IF zuege% = 9 THEN GOTO 2
123 do
124 loop until inkey <> ""
125 GOTO a1
126
127 a:
128 COLOR 4
129 PRINT " Tipp: benutzen ..."
130 SLEEP
131 GOTO a1
132
133 B:
134 COLOR 4
135 PRINT " Loesung: benutzen Klingel"
136 SLEEP
137 CLS
138 GOTO 2
139
140
141
142
143
144
145
146 2 :
147 CLS
148 COLOR 2
149 PRINT "Herr Fisch oeffnet die Tuer und du stehst im Flur"
150 PRINT ""
151 do
152 loop until inkey <> ""
153
154 CLS
155 LOCATE 13, 10
156 COLOR 10
157 PRINT "Flur"
158 do
159 loop until inkey <> ""
160 zuege% = 0 134 zuege% = 0
161 GOTO 3 135 do
162 136 INPUT "(Flur) Was machst du? ", B$
163 137 B$ = lcase(B$)
164 138 select case B$
165 139 case "sprechen mit herr fisch"
166 3 : 140 goto gespraech_herrfisch
167 '''''''' Flur ''''''' 141 case "gehen heim"
168 CLS 142 PRINT " Du Angsthase!"
169 IF kerzenst% = 1 GOTO 116 143 case "umschauen", "untersuchen flur"
170 COLOR 2 144 GOTO 117
171 PRINT "Herr Fisch oeffnet die Tuer und du stehst im Flur" 145 case "gehen in schlafzimmer"
172 PRINT 146 goto ort_schlafzimmer
147 case "gehen in arbeitszimmer"
148 GOTO ort_arbeitszimmer
149 case "gehen in esszimmer"
150 GOTO ort_esszimmer
151 case "gehen in kueche"
152 GOTO ort_kueche
153 case "gehen in lagerhalle"
154 if kx% = 1 AND sx% = 1 GOTO 132
155 case "sprechen mit Tina"
156 if tinaistda = 1 then GOTO 118
157 case "q"
158 END
159 case "i"
160 GOSUB inventar
161 case "b"
162 GOSUB befehle
163 case else
164 PRINT " Keine Lust!"
165 PRINT
166 end select
167
168 zuege% = zuege% + 1
169 IF zuege% = 6 THEN PRINT " Tipp: sprechen mit ..."
170 loop until inkey <> ""
171
172
173
174
175
176
177 gespraech_herrfisch :
178 ''''''''' gespraech mit herr fisch ''''''''''
179
180 color 2
181 print "Du beginnst ein Gespraech mit Herr Fisch."
182 print
183
184 do
185 COLOR 7
186 PRINT "A: Hallo, ich heisse "; name1$; "."
187 PRINT "B: Wo ist die Leiche?"
188 PRINT "C: Wie heisst der Tote?"
189 if woIstDasSchlafzimmer = 1 then PRINT "D: Wo ist das Schlafzimmer?"
190 PRINT "Z: Bis spaeter."
191 COLOR 1
192 INPUT "Was sagst du zu Herr Fisch? ", s$
193 s$ = lcase(s$)
194 COLOR 7
195 print "Er antwortet:"
196 COLOR 4
197 select case s$
198 case "a"
199 PRINT " Ich heisse Manfred Fisch."
200 case "b"
201 PRINT " Im Schlafzimmer."
202 woIstDasSchlafzimmer = 1
203 case "c"
204 PRINT " Karl Mueller."
205 case "d"
206 if woIstDasSchlafzimmer = 1 THEN PRINT " Die Treppe hinauf dann links."
207 case "z"
208 PRINT " Ich bin jederzeit fuer Sie da, sprechen Sie mich einfach an."
209 print
210 color 2
211 print "Herr Fisch beginnt wieder die Gemaelde an den Waenden zu betrachten"
212 print
213 goto ort_flur
214 case "q"
215 end
216 end select
217 print
218 loop until inkey <> ""
219
220
221
222
223
224
225
226
227
228
229
230
231
232 ort_schlafzimmer :
233 ''''''' Schlafzimmer '''''''''
234
235 if tinaangerufen = 0 then
236 COLOR 2
237 PRINT "Die Leiche, ein etwa 20 Jahre alter"
238 PRINT "Mann, liegt mit einem Messer im Ruecken"
239 PRINT "auf dem Bett. Ich decke die Leiche"
240 PRINT "als erstes mit einem Tuch ab und rufe"
241 PRINT "mit meinem Handy Tina an. Tina ist"
242 PRINT "Spezialistin fuer Fingerabdruecke."
243 tinaangerufen = 1
244 else
245 color 2
246 print "Du bist im Schlafzimmer"
247 end if
248
249 do
250 PRINT
251 COLOR 7
252 INPUT "(Schlafzimmer) Was machst du? ", B$
253 B$ = lcase(B$)
254 select case B$
255 case "gehen in flur"
256 goto ort_flur
257
258 case "gehen in arbeitszimmer"
259 goto ort_arbeitszimmer
260
261 case "gehen in esszimmer"
262 goto ort_esszimmer
263
264 case "gehen in kueche"
265 goto ort_kueche
266
267 case "gehen in lagerhalle"
268 if kx% = 1 AND sx% = 1 goto 132
269
270 case "umschauen", "untersuchen schlafzimmer"
271 COLOR 2
272 PRINT "In der Mitte steht das Bett, ueber dem"
273 PRINT "Bett haengt ein Poster, auf der"
274 PRINT "linken Seite befindet sich ein Schrank"
275 PRINT "und an der rechten Wand ist ein Fenster."
276 IF tinaistimschlafzimmer = 1 THEN PRINT "Tina sichert gerade die Fingerabdruecke."
277
278 case "untersuchen schrank"
279 PRINT "Ein alter Aktenschrank."
280
281 case "oeffnen aktenschrank"
282 versuch% = 0
283 COLOR 2
284 PRINT "Hinter den Ordnern ist ein Geheimfach"
285 PRINT "mit einem dreistelligen Zahlenschloss."
286 geheimfachgefunden = 1
287
288 do
289 versuch% = versuch% + 1
290 COLOR 5
291 INPUT "Wie lautet die Kombination?", k$
292 IF k$ = "000" THEN PRINT "War wohl falsch."
293 IF k$ = "007" then
294 PRINT "Bravo, du hast echt gut kombiniert."
295 geheimfachoffen = 1
296 end if
297 IF k$ = "q" goto ort_schlafzimmer
298 PRINT "Komm streng dich ein bisschen an!"
299 IF versuch% = 3 THEN PRINT "Tipp: Karl Mueller war Jean Connery Fan."
300 IF versuch% = 6 THEN PRINT "Tipp: Denk an das Poster."
301 loop until inkey <> ""
302
303 case "untersuchen fenster"
304 PRINT "Wenn man hinaus schaut, sieht man die Strasse."
305
306 case "untersuchen bett"
307 COLOR 2
308 PRINT "Unter dem Bett liegt eine Taschenlampe."
309
310 case "nehmen taschenlampe"
311 PRINT "Du hast die Taschenlampe genommen"
312 tlampe% = 1
313
314 case "untersuchen geheimfach"
315 if geheimfachgefunden = 1 then
316 COLOR 2
317 PRINT "In dem Geheimfach befindet sich ein Schluessel."
318 end if
319
320 case "nehmen schluessel"
321 if geheimfachoffen = 1 then
322 PRINT "Du hast den Schluessel aus dem Geheimfach genommen"
323 schluessel% = 1
324 end if
325
326 case "untersuchen poster"
327 PRINT "Da steht - Sean Connery als James Bond"
328 PRINT "in SAG NIEMALS NIE - drauf."
329
330 case "sprechen mit tina"
331 if tinaistimschlafzimmer = 1 then PRINT "Die stoere ich lieber nicht bei der Arbeit."
332
333 case "q"
334 END
335 case "i"
336 GOSUB inventar
337 case "b"
338 GOSUB befehle
339 case else
340 PRINT "Nein"
341 end select
342 loop until inkey <> ""
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367 ort_arbeitszimmer :
368 '''''''' Arbeitszimmer '''''''
369
370 COLOR 2
371 PRINT "Du bist im Arbeitszimmer."
372
373 do
374 COLOR 7
375 INPUT "(Arbeitszimmer) Was machst du? ", B$
376 B$ = lcase(B$)
377 select case B$
378 case "gehen in Schlafzimmer"
379 goto ort_schlafzimmer
380
381 case "gehen in Flur"
382 goto ort_flur
383
384 case "gehen in Esszimmer"
385 goto ort_esszimmer
386
387 case "gehen in Kueche"
388 goto ort_kueche
389
390 case "gehen in Lagerhalle"
391 if kx% = 1 AND sx% = 1 then goto 132
392
393 case "umschauen", "untersuchen Arbeitszimmer"
394 COLOR 2
395 PRINT "In der Mitte steht ein Schreibtisch,"
396 PRINT "rechts befindet sich ein Schrank und"
397 PRINT "links ein Buecherregal."
398
399 case "untersuchen Schreibtisch"
400 PRINT "Da gibt's nichts Besonderes zu sehen."
401
402 case "untersuchen Buecherregal"
403 COLOR 2
404 IF tinaistimschlafzimmer = 0 then
405 PRINT "Ich sehe nichts Besonderes."
406 else
407 PRINT "Da hat's ja ein Buch mit 123 Reiseerzaehlungen"
408 PRINT "von Karl May, meinem Leiblingsautor. Das sollte"
409 PRINT "ich mir genauer anschauen."
410 end if
411
412 case "untersuchen Buch"
413 PRINT "Ich kann nur den Buchruecken lesen, wenn es da steht."
414
415 case "nehmen Buch"
416 COLOR 2
417 PRINT "Das Buch laesst sich nur halb heraus ziehen."
418 PRINT "Ploetzlich schwenkt das ganze Buecherregal zur"
419 PRINT "Seite und dhinter kommt eine Tuer zum Vorschein."
420 PRINT "Sie ist durch ein Schluessel- und ein "
421 PRINT "Zahlenschloss gesichert."
422 PRINT
423 COLOR 6
424 PRINT "Wenn du im Arbeitszimmer z drueckst, kannst du"
425 PRINT "die Zahlenkombination eingeben."
426
427 case "benutzen Schluessel"
428 PRINT "Das Schluesselschloss waere geknackt."
429 sx% = 1
430 COLOR 2
431 IF kx% = 1 GOTO 137
432 PRINT "Jetzt musst du nur noch die Kombination knacken."
433
434 case "gehen in Geheimgang"
435 if kx% = 1 AND sx% = 1 then
436 goto 127
437 end if
438
439 case "z"
440 do
441 COLOR 5
442 INPUT "Wie lautet die Kombination?", zk$
443 select case zk$
444 case "007"
445 PRINT "So einfach ist es nicht"
446 case "123"
447 COLOR 2
448 PRINT "Die Kombination war richtig."
449 kx% = 1
450 IF sx% = 1 GOTO 137
451 PRINT "Jetzt musst du nur noch das Schluesselschloss oeffnen."
452 case "q"
453 PRINT "Tipp: Das Buecherregal."
454 GOTO ort_arbeitszimmer
455 case else
456 PRINT "Leider falsch. Probier's noch einmal."
457 end select
458 loop until inkey <> ""
459
460 case "i"
461 GOSUB inventar
462 case "q"
463 END
464 case "b"
465 GOSUB befehle
466 case else
467 PRINT "Heute nicht!"
468 end select
469 loop until inkey <> ""
470
471
472
473
474
475
476
477
478
479
480
481
482 ort_esszimmer :
483 '''''' Esszimmer ''''''
484
485 COLOR 2
486 print "Du bist im Esszimmer."
487 do
488
173 COLOR 7 489 COLOR 7
174 INPUT "(Flur) Was machst du? ", B$ 490 print
175 zuege% = zuege% + 1 491 INPUT "(Esszimmer) Was machst du? ", B$
176 IF B$ = "sprechen mit Herr Fisch" GOTO 4 492 B$ = lcase(b$)
177 IF B$ = "gehen Heim" THEN PRINT "Du Angsthase!" 493 select case B$
178 IF B$ = "umschauen" GOTO 117 494 case "gehen in schlafzimmer"
179 IF B$ = "untersuchen Flur" GOTO 117 495 goto ort_schlafzimmer
180 IF B$ = "gehen in Schlafzimmer" GOTO 114 496
181 IF B$ = "gehen in Arbeitszimmer" GOTO 105 497 case "gehen in flur"
182 IF B$ = "gehen in Esszimmer" GOTO 106 498 GOTO ort_flur
183 IF B$ = "gehen in Kueche" GOTO 109 499
184 IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132 500 case "gehen in arbeitszimmer"
185 IF B$ = "q" THEN END 501 GOTO ort_arbeitszimmer
186 IF B$ = "i" THEN GOSUB inventar 502
187 IF B$ = "b" THEN GOSUB befehle 503 case "gehen in kueche"
188 PRINT "" 504 GOTO ort_kueche
189 PRINT "Keine Lust!" 505
190 PRINT "" 506 case "gehen in lagerhalle"
191 IF zuege% = 6 THEN GOTO c 507 if kx% = 1 AND sx% = 1 GOTO 132
192 do 508
193 loop until inkey <> "" 509 case "umschauen", "untersuchen esszimmer"
194 GOTO 3 510 color 2
195 511 PRINT "In der Mitte steht der Tisch und auf"
196 c: 512 PRINT "der rechten Seite ist die Tuer zur Kueche."
197 COLOR 4 513
198 PRINT "Tipp: sprechen mit ..." 514 case "untersuchen tisch"
199 do 515 color 2
200 loop until inkey <> "" 516 PRINT "Ein schoener eichener Tisch mit einer"
201 CLS 517 PRINT "gehaekelten Tischdecke."
202 GOTO 3 518 if kerzenst% = 0 then PRINT "In der Mitte des Tisches steht ein silberner Kerzenstaender."
203 519
204 520 case "nehmen kerzenstaender"
205 521 kerzenst% = 1
206 522 color 2
207 4 : 523 PRINT "Du hast den Kerzenstaender genommen"
208 CLS 524
209 COLOR 9 525 case "q"
210 PRINT "A: Ich heisse "; name1$; "." 526 END
211 PRINT "B: Wo ist die Leiche?" 527 case "i"
212 PRINT "C: Wie heisst der Tote?" 528 GOSUB inventar
213 PRINT "D: Ende." 529 case "b"
214 PRINT "" 530 GOSUB befehle
215 COLOR 12 531 end select
216 INPUT "Was sagst du?", s$ 532 loop until inkey <> ""
217 PRINT 533
218 COLOR 9 534
219 IF s$ = "A" THEN PRINT "Ich heisse Manfred Fisch." 535
220 IF s$ = "B" THEN PRINT "Im Schlafzimmer." 536
221 IF s$ = "B" THEN SLEEP 537
222 IF s$ = "B" GOTO 5 538
223 IF s$ = "C" THEN PRINT "Karl Mueller." 539
224 IF s$ = "D" THEN END 540
225 do 541
226 loop until inkey <> "" 542
227 GOTO 4 543
228 544
229 545
230 546
231 547
232 548
233 5 : 549 ort_kueche :
234 CLS
235 COLOR 9
236 PRINT
237 PRINT "A: Ich heisse "; name1$; ""
238 PRINT "B: Wo ist die Leiche?"
239 PRINT "C: Wie heisst der Tote?"
240 PRINT "D: Wo ist das Schlafzimmer?"
241 PRINT "E: Ende"
242 PRINT ""
243 PRINT ""
244 COLOR 12
245 INPUT "Was sagst du?", s$
246 PRINT
247 COLOR 9
248 IF s$ = "A" THEN PRINT "Ich heisse Manfred Fisch."
249 IF s$ = "B" THEN PRINT "Im Schlafzimmer."
250 IF s$ = "C" THEN PRINT "Karl Mueller."
251 IF s$ = "D" THEN PRINT "Die Treppe hinauf dann links."
252 IF s$ = "E" THEN GOTO 6
253 do
254 loop until inkey <> ""
255 GOTO 5
256
257
258
259
260
261 6 :
262 ''''''' Flur ''''''''
263 CLS
264 zuege% = 0
265 LOCATE 13, 10
266 COLOR 10
267 PRINT "Flur"
268 do
269 loop until inkey <> ""
270 a6:
271 CLS
272 COLOR 7
273 PRINT
274 IF kerzenst% = 1 GOTO 116
275 PRINT
276 INPUT "(Flur) Was machst du? ", B$
277 zuege% = zuege% + 1
278 IF B$ = "sprechen mit Herr Fisch" GOTO 5
279 IF B$ = "gehen in Schlafzimmer" GOTO 7
280 IF B$ = "gehen in Arbeitszimmer" GOTO 105
281 IF B$ = "gehen in Esszimmer" GOTO 106
282 IF B$ = "gehen in Kueche" GOTO 109
283 IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132
284 IF B$ = "gehen Heim " THEN PRINT "Du Hasenfuss!"
285 IF B$ = "gehen Heim " GOTO a6
286 IF B$ = "q" THEN END
287 IF B$ = "i" THEN GOSUB inventar
288 IF B$ = "b" THEN GOSUB befehle
289 PRINT ""
290 PRINT "Nee!"
291 IF zuege = 5 GOTO d
292 GOTO a6
293
294
295 d:
296 COLOR 4
297 PRINT "gehen in ..."
298 do
299 loop until inkey <> ""
300 GOTO a6
301
302
303
304
305
306
307
308 7 :
309 CLS
310 COLOR 2
311 PRINT "Die Leiche, ein etwa 20 Jahre alter"
312 PRINT "Mann, liegt mit einem Messer im Ruecken"
313 PRINT "auf dem Bett. Ich decke die Leiche"
314 PRINT "als erstes mit einem Tuch ab und rufe"
315 PRINT "mit meinem Handy Tina an. Tina ist"
316 PRINT "Spezialistin fuer Fingerabdruecke."
317 do
318 loop until inkey <> ""
319 GOTO 8
320
321
322
323
324
325
326 8 :
327 ''''''' Schlafzimmer '''''''''
328 CLS
329 PRINT
330 COLOR 7
331 INPUT "(Schlafzimmer) Was machst du? ", B$
332 IF B$ = "gehen in Flur" GOTO 103
333 IF B$ = "gehen in Arbeitszimmer" GOTO 105
334 IF B$ = "gehen in Esszimmer" GOTO 106
335 IF B$ = "gehen in Kueche" GOTO 109
336 IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132
337 IF B$ = "umschauen" GOTO 9
338 IF B$ = "untersuchen Schlafzimmer" GOTO 9
339 IF B$ = "untersuchen Schrank" THEN PRINT "Ein alter Aktenschrank."
340 IF B$ = "oeffnen Aktenschrank" GOTO 101
341 IF B$ = "untersuchen Fenster" THEN PRINT "Wenn man hinaus schaut,"
342 IF B$ = "untersuchen Fenster" THEN PRINT "sieht man die Strasse."
343 IF B$ = "untersuchen Bett" GOTO 100
344 IF B$ = "nehmen Taschenlampe" GOTO e
345 IF B$ = "untersuchen Poster" THEN PRINT "Da steht - Sean Connery als James Bond"
346 IF B$ = "untersuchen Poster" THEN PRINT "in SAG NIEMALS NIE - drauf."
347 IF B$ = "sprechen mit Tina" THEN PRINT "Die stoere ich lieber nicht bei der Arbeit."
348 IF B$ = "q" THEN END
349 IF B$ = "i" THEN GOSUB inventar
350 IF B$ = "b" THEN GOSUB befehle
351 PRINT
352 PRINT "Nein"
353 PRINT
354 do
355 loop until inkey <> ""
356 GOTO 8
357
358
359
360
361 e:
362 CLS
363 LOCATE 11, 22
364 PRINT "Du hast die Taschenlampe genommen"
365 tlampe% = 1
366 do
367 loop until inkey <> ""
368 CLS
369 GOTO 8
370
371
372
373
374
375 9 :
376 CLS
377 COLOR 2
378 PRINT "In der Mitte steht das Bett, ueber dem"
379 PRINT "Bett haengt ein Poster, auf der"
380 PRINT "linken Seite befindet sich ein Schrank"
381 PRINT "und an der rechten Wand ist ein Fenster."
382 IF vvx% = 1 THEN PRINT "Tina sichert gerade"
383 IF vvx% = 1 THEN PRINT "die Fingerabdruecke."
384 do
385 loop until inkey <> ""
386 GOTO 8
387
388
389
390
391
392 100 :
393 CLS
394 COLOR 2
395 PRINT "Unter dem Bett liegt eine Taschenlampe."
396 do
397 loop until inkey <> ""
398 GOTO 8
399
400
401
402
403
404 101 :
405 CLS
406 versuch% = 0
407 COLOR 2
408 PRINT "Hinter den Ordnern ist ein Geheimfach"
409 PRINT "mit einem dreistelligen Zahlenschloss."
410 do
411 loop until inkey <> ""
412 a101:
413 CLS
414 versuch% = versuch% + 1
415 COLOR 5
416 INPUT "Wie lautet die Kombination?", k$
417 IF k$ = "000" THEN PRINT "War wohl falsch."
418 IF k$ = "007" GOTO 102
419 IF k$ = "q" THEN END
420 PRINT "Komm streng dich ein bischen an!"
421 IF versuch% = 3 THEN PRINT "Tipp: Karl Mueller war Jean Connery Fan."
422 IF versuch% = 6 THEN PRINT "Tipp: Denk an das Poster."
423 do
424 loop until inkey <> ""
425 GOTO a101
426
427
428
429
430 102 :
431 CLS
432 COLOR 2
433 PRINT "Bravo, du hast echt gut kombiniert."
434 PRINT "In dem Geheimfach befindet sich ein Schluessel."
435 do
436 loop until inkey <> ""
437
438
439
440
441 F:
442 CLS
443 PRINT "Du hast den Schluessel genommen"
444 schluessel% = 1
445 do
446 loop until inkey <> ""
447 CLS
448 GOTO 114
449
450
451
452
453
454 103 :
455 CLS
456 LOCATE 13, 10
457 COLOR 10
458 PRINT "Flur"
459 do
460 loop until inkey <> ""
461 GOTO 104
462
463
464
465
466
467 104 :
468 CLS
469 COLOR 2
470 PRINT "Links geht es die Treppe zum Schlafzimmer"
471 PRINT "hinauf, gerade aus geht's ins Esszimmer"
472 PRINT " und rechts ins Arbeitszimmer."
473 do
474 loop until inkey <> ""
475 GOTO a6
476
477
478
479
480
481 105 :
482 '''''''' Arbeitszimmer '''''''
483 CLS
484 LOCATE 13, 10
485 COLOR 10
486 PRINT "Arbeitszimmer"
487 do
488 loop until inkey <> ""
489 a105:
490 CLS
491 COLOR 7
492 INPUT "(Arbeitszimmer) Was machst du? ", B$
493 IF B$ = "gehen in Schlafzimmer" GOTO 114
494 IF B$ = "gehen in Flur" GOTO 103
495 IF B$ = "gehen in Esszimmer" GOTO 106
496 IF B$ = "gehen in Kueche" GOTO 109
497 IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132
498 IF B$ = "umschauen" GOTO 107
499 IF B$ = "untersuchen Arbeitszimmer" GOTO 107
500 IF B$ = "untersuchen Schreibtisch" THEN PRINT "Da gibt's nichts Besonderes zu sehen."
501 IF B$ = "untersuchen Buecherregal" GOTO 122
502 IF B$ = "untersuchen Buch" THEN PRINT "Ich kann nur den Buchruecken lesen, wenn es da steht."
503 IF B$ = "nehmen Buch" GOTO 124
504 IF B$ = "benutzen Schluessel" THEN PRINT "Das Schluesselschloss waere geknackt."
505 IF B$ = "benutzen Schluessel" THEN sx% = 1
506 IF B$ = "benutzen Schluessel" GOTO 138
507 IF B$ = "gehen in Geheimgang" AND kx% = 1 AND sx% = 1 GOTO 127
508 IF B$ = "z" GOTO 125
509 IF B$ = "i" THEN GOSUB inventar
510 IF B$ = "q" THEN END
511 IF B$ = "b" THEN GOSUB befehle
512 do
513 loop until inkey <> ""
514 PRINT "Heute nicht!"
515 GOTO a105
516
517
518
519
520
521 107 :
522 CLS
523 COLOR 2
524 PRINT "In der Mitte steht ein Schreibtisch,"
525 PRINT "rechts befindet sich ein Schrank und"
526 PRINT "links ein Buecherregal."
527 do
528 loop until inkey <> ""
529 GOTO 105
530
531
532
533
534
535 106 :
536 '''''' Esszimmer ''''''
537 CLS
538 LOCATE 13, 10
539 COLOR 10
540 PRINT "Esszimmer"
541 do
542 loop until inkey <> ""
543 a106:
544 CLS
545 COLOR 7
546 INPUT "(Esszimmer) Was machst du?", B$
547 IF B$ = "gehen in Schlafzimmer" GOTO 114
548 IF B$ = "gehen in Flur" GOTO 103
549 IF B$ = "gehen in Arbeitszimmer" GOTO 105
550 IF B$ = "gehen in Kueche" GOTO 109
551 IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132
552 IF B$ = "umschauen" GOTO 108
553 IF B$ = "untersuchen Esszimmer" GOTO 108
554 IF B$ = "untersuchen Tisch" GOTO 110
555 IF B$ = "nehmen Kerzenstaender" GOTO 115
556 IF B$ = "q" THEN END
557 IF B$ = "i" THEN GOSUB inventar
558 IF B$ = "b" THEN GOSUB befehle
559 do
560 loop until inkey <> ""
561 GOTO a106
562
563
564
565
566
567
568 108 :
569 CLS
570 PRINT "In der Mitte steht der Tisch und auf"
571 PRINT "der rechten Seite ist die Tuer zur Kueche."
572 do
573 loop until inkey <> ""
574 GOTO 106
575
576
577
578
579
580 110 :
581 CLS
582 PRINT "Ein schoener eichener Tisch mit einer"
583 PRINT "gehaekelten Tischdecke und einem"
584 PRINT "Kerzenstaender in der Mitte."
585 do
586 loop until inkey <> ""
587 GOTO a106
588
589
590
591
592
593 109 :
594 '''''''' Kueche ''''''' 550 '''''''' Kueche '''''''
595 CLS 551
596 LOCATE 13, 10 552 COLOR 2
597 COLOR 10 553 PRINT "Du bist in der Kueche."
598 PRINT "Kueche" 554
599 do 555 do
600 loop until inkey <> "" 556 color 7
601 a109: 557 INPUT "(Kueche) Was machst du?", B$
602 CLS 558 B$ = lcase(B$)
603 INPUT "(Kueche) Was machst du?", B$ 559 select case B$
604 IF B$ = "gehen in Schlafzimmer" GOTO 114 560 case "gehen in schlafzimmer"
605 IF B$ = "gehen in Flur" GOTO 103 561 goto ort_schlafzimmer
606 IF B$ = "gehen in Arbeitszimmer" GOTO 105 562
607 IF B$ = "gehen in Esszimmer" GOTO 106 563 case "gehen in flur"
608 IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132 564 goto ort_flur
609 IF B$ = "umschauen" GOTO 111 565
610 IF B$ = "untersuchen Kueche" GOTO 111 566 case "gehen in arbeitszimmer"
611 IF B$ = "untersuchen Kuechenschrank" GOTO 112 567 goto ort_arbeitszimmer
612 IF B$ = "oeffnen Schublade" THEN PRINT "In der Schublade liegt sich ein Messer." 568
613 IF B$ = "nehmen Messer" GOTO 113 569 case "gehen in esszimmer"
614 IF B$ = "q" THEN END 570 goto ort_esszimmer
615 IF B$ = "i" THEN GOSUB inventar 571
616 IF B$ = "b" THEN GOSUB befehle 572 case "gehen in lagerhalle"
617 do 573 if kx% = 1 AND sx% = 1 then goto 132
618 loop until inkey <> "" 574
619 GOTO a109 575 case "umschauen", "untersuchen kueche"
620 576 PRINT "Links ist die Kochzeile, in der Mitte"
621 577 PRINT "ein kleiner Tisch mit zwei Stuehlen und"
622 578 PRINT "rechts der Kuechenschrank."
623 579
624 580 case "untersuchen kuechenschrank"
625 111 : 581 PRINT "Es ist nichts Ausergewoehnliches daran"
626 CLS 582 PRINT "zu erkennen, nur eine Schublade in der"
627 PRINT "Links ist die Kochzeile, in der Mitte" 583 PRINT "es bestimmt Interesantes zu entdecken gibt."
628 PRINT "ein kleiner Tisch mit zwei Stuehlen und" 584
629 PRINT "rechts der Kuechenschrank." 585 case "oeffnen schublade"
630 do 586 PRINT "In der Schublade liegt sich ein Messer."
631 loop until inkey <> "" 587
632 GOTO a109 588 case "nehmen messer"
633 589 PRINT "Du hast das Messer genommen"
634 590 messer% = 1
635 591
636 592 case "q"
637 593 END
638 112 : 594
639 CLS 595 case "i"
640 PRINT "Es ist nichts Ausergewoehnliches daran" 596 GOSUB inventar
641 PRINT "zu erkennen, nur eine Schublade in der" 597
642 PRINT "es bestimmt Interesantes zu entdecken gibt." 598 case "b"
643 do 599 GOSUB befehle
644 loop until inkey <> "" 600
645 GOTO a109 601 case else
646 602 print "Will ich nicht."
647 603
648 604 end select
649 605 loop until inkey <> ""
650 606
651 113 : 607
652 CLS 608
653 PRINT "Du hast das Messer genommen"
654 do
655 loop until inkey <> ""
656 CLS
657 messer% = 1
658 GOTO a109
659
660
661
662
663 114 :
664 CLS
665 LOCATE 13, 10
666 COLOR 10
667 PRINT "Schlafzimmer"
668 do
669 loop until inkey <> ""
670 GOTO 8
671
672
673
674
675
676 115 :
677 CLS
678 PRINT "Du hast den Kerzenstaender genommen"
679 do
680 loop until inkey <> ""
681 CLS
682 kerzenst% = 1
683 GOTO a106
684
685
686
687
688
689
690 116 :
691 ''''''''' Flur '''''''
692 CLS
693 COLOR 7
694 INPUT "(Flur) Was machst du? ", B$
695 zuege% = zuege% + 1
696 IF B$ = "gehen in Schlafzimmer" GOTO 114
697 IF B$ = "gehen in Arbeitszimmer" GOTO 105
698 IF B$ = "gehen in Esszimmer" GOTO 106
699 IF B$ = "gehen in Kueche" GOTO 109
700 IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132
701 IF B$ = "sprechen mit Herr Fisch" GOTO 5
702 IF B$ = "gehen Heim" THEN PRINT "Du Angsthase!"
703 IF B$ = "umschauen" GOTO 117
704 IF B$ = "untersuchen Flur" GOTO 117
705 IF B$ = "sprechen mit Tina" GOTO 118
706 IF B$ = "q" THEN END
707 IF B$ = "i" THEN GOSUB inventar
708 IF B$ = "b" THEN GOSUB befehle
709 PRINT ""
710 PRINT "Keine Lust!"
711 PRINT ""
712 do
713 loop until inkey <> ""
714 GOTO 116
715 609
716 610
717 611
718 612
719 613
720 117 : 614 117 :
721 CLS 615
722 IF kerzenst% = 0 GOTO 121 616 IF tinaangerufen = 1 and tinaistda = 0 then
723 PRINT "Links geht es die Treppe zum Schlafzimmer hinauf," 617 COLOR 2
724 PRINT "gerade aus geht's ins Esszimmer und rechts ins" 618 PRINT "Links geht es die Treppe zum Schlafzimmer hinauf,"
725 PRINT "Arbeitszimmer. Im Flur steht Herr Fisch und ..." 619 PRINT "gerade aus geht's ins Esszimmer und rechts ins"
726 PRINT "gerade klingelt es an der Tuer. Herr Fisch macht" 620 PRINT "Arbeitszimmer. Im Flur steht Herr Fisch und ..."
727 PRINT "auf und Tina kommt herein." 621 print
728 vvv% = 1 622 PRINT "... gerade klingelt es an der Tuer. Herr Fisch"
729 do 623 PRINT "macht auf und Tina kommt herein."
730 loop until inkey <> "" 624 tinaistda = 1
731 GOTO 116 625
626 else
627 COLOR 2
628 PRINT "Links geht es die Treppe zum Schlafzimmer"
629 PRINT "hinauf, gerade aus geht's ins Esszimmer und"
630 PRINT "rechts ins Arbeitszimmer. Im Flur steht"
631 PRINT "Herr Fisch und beantwortet gern deine Fragen."
632 end if
633
634 goto ort_flur
732 635
733 636
734 637
735 638
736 639
737 118 : 640 118 :
738 CLS 641
739 COLOR 9 642 COLOR 9
740 PRINT "A: Schoen, dass du so schnell gekommen bist." 643 PRINT "A: Schoen, dass du so schnell gekommen bist."
741 PRINT "B: Der Tote liegt im Schlafzimmer." 644 PRINT "B: Der Tote liegt im Schlafzimmer."
742 PRINT "C: Ende." 645 PRINT "C: Ende."
743 LOCATE 8, 1
744 COLOR 12 646 COLOR 12
745 INPUT "Was sagst du?", s$ 647 INPUT "Was sagst du?", s$
746 PRINT 648 PRINT
747 COLOR 9 649 COLOR 9
748 IF s$ = "A" THEN PRINT "Ich habe mich sofort auf den Weg gemacht." 650 IF s$ = "A" THEN PRINT "Ich habe mich sofort auf den Weg gemacht."
749 IF s$ = "B" GOTO 119 651 IF s$ = "B" GOTO 119
750 IF s$ = "C" GOTO 116 652 IF s$ = "C" GOTO ort_flur
751 do 653 do
752 loop until inkey <> "" 654 loop until inkey <> ""
753 GOTO 118 655 GOTO 118
754 656
755 657
756 658
757 659
758 660
759 119 : 661 119 :
760 CLS 662
761 COLOR 9 663 COLOR 9
762 PRINT "Okay, aber wo ist das Schlafzimmer?" 664 PRINT "Okay, aber wo ist das Schlafzimmer?"
763 do 665 print
764 loop until inkey <> "" 666
765 GOTO 120
766
767
768
769
770
771 120 :
772 CLS
773 COLOR 12 667 COLOR 12
774 PRINT "Welchen Weg beschreibst du ihr?" 668 PRINT "Welchen Weg beschreibst du ihr?"
775 PRINT 669 PRINT
776 PRINT "a: Links die Treppe hinauf." 670 PRINT "a: Links die Treppe hinauf."
777 PRINT "b: Rechts die Treppe hinunter." 671 PRINT "b: Rechts die Treppe hinunter."
782 COLOR 2 676 COLOR 2
783 IF w$ = "c" THEN PRINT "Bravo, du hast ein gutes Gedaechtnis!" 677 IF w$ = "c" THEN PRINT "Bravo, du hast ein gutes Gedaechtnis!"
784 IF w$ = "c" THEN cheat1 = 1 678 IF w$ = "c" THEN cheat1 = 1
785 IF w$ = "a" THEN PRINT "Leider falsch.Die richtige Loesung war c." 679 IF w$ = "a" THEN PRINT "Leider falsch.Die richtige Loesung war c."
786 IF w$ = "b" THEN PRINT "Leider falsch.Die richtige Loesung war c." 680 IF w$ = "b" THEN PRINT "Leider falsch.Die richtige Loesung war c."
787 vvx% = 1 681 tinaistimschlafzimmer = 1
788 do 682 do
789 loop until inkey <> "" 683 loop until inkey <> ""
790 GOTO 116 684 GOTO ort_flur
791 685
792 686
793 687
794 688
795 689
796 690
797 121 : 691
798 CLS 692
799 COLOR 2 693
800 PRINT "Links geht es die Treppe zum Schlafzimmer" 694
801 PRINT "hinauf, gerade aus geht's ins Esszimmer und" 695
802 PRINT "rechts ins Arbeitszimmer. Im Flur steht"
803 PRINT "Herr Fisch und beantwortet gern alle deine Fragen."
804 do
805 loop until inkey <> ""
806 GOTO 116
807
808
809
810
811
812 122 :
813 CLS
814 COLOR 2
815 IF vvx% = 1 GOTO 123
816 PRINT "Ich sehe nichts Besonderes."
817 do
818 loop until inkey <> ""
819 GOTO 105
820
821
822
823
824
825 123 :
826 CLS
827 COLOR 2
828 PRINT "Da hat's ja ein Buch mit 123 Reiseerzaehlungen"
829 PRINT "von Karl May, meinem Leiblingsautor. Das sollte"
830 PRINT "ich mir genauer anschauen."
831 do
832 loop until inkey <> ""
833 GOTO 105
834
835
836
837
838
839 124 :
840 CLS
841 COLOR 2
842 PRINT "Das Buch laesst sich nur halb heraus ziehen."
843 PRINT "Ploetzlich schwenkt das ganze Buecherregal zur"
844 PRINT "Seite und dhinter kommt eine Tuer zum Vorschein."
845 PRINT "Sie ist durch ein Schluessel- und ein "
846 PRINT "Zahlenschloss gesichert."
847 PRINT
848 COLOR 6
849 PRINT "Wenn du im Arbeitszimmer z drueckst, kannst du"
850 PRINT "die Zahlenkombination eingeben."
851 do
852 loop until inkey <> ""
853 GOTO 105
854
855
856
857
858
859 125 :
860 zkx% = 0
861 a125:
862 CLS
863 zkx% = zkx% + 1
864 COLOR 5
865 INPUT "Wie lautet die Kombination?", zk$
866 IF zk$ = "007" THEN PRINT "So einfach ist es nicht"
867 IF zk$ = "123" GOTO 126
868 IF zk$ = "q" GOTO 105
869 PRINT "Leider falsch. Probier's noch einmal."
870 IF zkx% = 5 THEN PRINT "Tipp: Das Buecherregal."
871 do
872 loop until inkey <> ""
873 GOTO a125
874
875
876
877
878
879
880 126 :
881 CLS
882 COLOR 2
883 PRINT "Die Kombination war richtig."
884 kx% = 1
885 IF sx% = 1 GOTO 137
886 PRINT "Jetzt musst du nur noch das Schluesselschloss oeffnen."
887 do
888 loop until inkey <> ""
889 GOTO 105
890 696
891 697
892 698
893 699
894 700
895 137 : 701 137 :
896 CLS 702
897 COLOR 2 703 COLOR 2
898 PRINT "So, die Tuer ist jetzt offen. Dahinter befindet" 704 PRINT "So, die Tuer ist jetzt offen. Dahinter befindet"
899 PRINT "sich ein Geheimgang." 705 PRINT "sich ein Geheimgang."
900 do 706 geheimgangfrei = 1
901 loop until inkey <> "" 707 GOTO ort_arbeitszimmer
902 GOTO 105 708
903 709
904 710
905 711
906 712
907 713
908
909 138 :
910 CLS
911 COLOR 2
912 IF kx% = 1 GOTO 137
913 PRINT "Jetzt musst du nur noch die Kombination knacken."
914 do
915 loop until inkey <> ""
916 GOTO 105
917 714
918 715
919 716
920 717
921 718
922 719
923 127 : 720 127 :
924 CLS 721
925 COLOR 2 722 COLOR 2
926 IF tlampe% = 0 THEN PRINT "Da geh' ich ohne Licht nicht rein." 723 IF tlampe% = 0 THEN PRINT "Da geh' ich ohne Licht nicht rein."
927 do 724 do
928 loop until inkey <> "" 725 loop until inkey <> ""
929 IF tlampe% = 0 GOTO 105 726
727 IF tlampe% = 0 GOTO ort_arbeitszimmer
930 1000 : 728 1000 :
931 CLS 729
932 LOCATE 13, 10
933 COLOR 10 730 COLOR 10
934 PRINT "Geheimgang" 731 PRINT "Geheimgang"
935 do 732 do
936 loop until inkey <> "" 733 loop until inkey <> ""
937 CLS 734
938 COLOR 2 735 COLOR 2
939 PRINT "Gut, dass ich eine Taschenlampe dabei habe." 736 PRINT "Gut, dass ich eine Taschenlampe dabei habe."
940 PRINT "Oh, es geht steil bergab .... ich muss schon" 737 PRINT "Oh, es geht steil bergab .... ich muss schon"
941 PRINT "mindestens 5 Meter unter der Erdoberflaeche" 738 PRINT "mindestens 5 Meter unter der Erdoberflaeche"
942 PRINT "sein .... Jetzt bin ich schon 10 Minuten" 739 PRINT "sein .... Jetzt bin ich schon 10 Minuten"
955 752
956 753
957 754
958 130 : 755 130 :
959 '''''''''' Keller ''''''''''''' 756 '''''''''' Keller '''''''''''''
960 CLS 757
961 LOCATE 13, 10 758 COLOR 2
962 COLOR 10 759 PRINT "Du bist im Keller."
963 PRINT "Keller" 760
964 do 761 do
965 loop until inkey <> "" 762 COLOR 7
966 a130: 763 INPUT "(Keller) Was machst du? ", B$
967 CLS 764 B$ = lcase(B$)
968 COLOR 7 765 select case B$
969 INPUT "(Keller) Was machst du? ", B$ 766 case "gehen in flur"
970 zuege% = zuege% + 1 767 goto ort_flur
971 IF B$ = "gehen in Flur" GOTO 103 768
972 IF B$ = "gehen in Schlafzimmer" GOTO 114 769 case "gehen in schlafzimmer"
973 IF B$ = "gehen in Arbeitszimmer" GOTO 105 770 goto ort_schlafzimmer
974 IF B$ = "gehen in Esszimmer" GOTO 106 771
975 IF B$ = "gehen in Kueche" GOTO 109 772 case "gehen in arbeitszimmer"
976 IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132 773 goto ort_arbeitszimmer
977 IF B$ = "sprechen mit Herr Fisch" GOTO 5 774
978 IF B$ = "umschauen" GOTO 128 775 case "gehen in esszimmer"
979 IF B$ = "untersuchen Keller" GOTO 128 776 goto ort_esszimmer
980 IF B$ = "benutzen Treppe" GOTO 132 777
981 IF B$ = "q" THEN END 778 case "gehen in kueche"
982 IF B$ = "i" THEN GOSUB inventar 779 goto ort_kueche
983 IF B$ = "b" THEN GOSUB befehle 780
984 PRINT "" 781 case "gehen in lagerhalle"
985 PRINT "Jetzt nicht." 782 if kx% = 1 AND sx% = 1 then goto 132
986 PRINT 783
987 do 784 case "umschauen", "untersuchen keller"
988 loop until inkey <> "" 785 COLOR 2
989 GOTO a130 786 PRINT "Ein zerfallener Keller, alles verstaubt."
990 787 PRINT "Gerade aus geht eine Treppe nach oben."
991 788
992 789 case "benutzen treppe"
993 790 goto 132
994 791
995 792 case "q"
996 128 : 793 END
997 CLS 794
998 COLOR 2 795 case "i"
999 PRINT "Ein zerfallener Keller, alles verstaubt." 796 GOSUB inventar
1000 PRINT "Gerade aus geht eine Treppe nach oben." 797
1001 PRINT 798 case "b"
1002 PRINT "" 799 GOSUB befehle
1003 do 800
1004 loop until inkey <> "" 801 case else
1005 GOTO 130 802 PRINT "Jetzt nicht."
803
804 end select
805 loop until inkey <> ""
806
807
808
809
810
811
1006 812
1007 813
1008 814
1009 815
1010 816
1011 131 : 817 131 :
1012 CLS 818
1013 COLOR 2 819 COLOR 2
1014 PRINT "In der Lagerhalle ist alles genau so" 820 PRINT "In der Lagerhalle ist alles genau so"
1015 PRINT "zerfallen, wie im Keller. Ueberall sind Kartons" 821 PRINT "zerfallen, wie im Keller. Ueberall sind Kartons"
1016 PRINT "gestapelt. Gerade aus geht eine Tuer ins Freie." 822 PRINT "gestapelt. Gerade aus geht eine Tuer ins Freie."
1017 do 823 do
1023 829
1024 830
1025 831
1026 132 : 832 132 :
1027 '''''''' Lagerhalle ''''''''''' 833 '''''''' Lagerhalle '''''''''''
1028 CLS 834
1029 LOCATE 13, 10 835 'LOCATE 13, 10
1030 COLOR 10 836 COLOR 10
1031 PRINT "Lagerhalle" 837 PRINT "Lagerhalle"
1032 do 838 do
1033 loop until inkey <> "" 839 loop until inkey <> ""
1034 CLS 840
1035 a132: 841 a132:
1036 CLS 842
1037 COLOR 7 843 COLOR 7
1038 INPUT "(Lagerhalle) Was machst du? ", B$ 844 INPUT "(Lagerhalle) Was machst du? ", B$
1039 zuege% = zuege% + 1 845 zuege% = zuege% + 1
1040 IF B$ = "gehen in Schlafzimmer" GOTO 114 846 IF B$ = "gehen in Schlafzimmer" goto ort_schlafzimmer
1041 IF B$ = "gehen in Arbeitszimmer" GOTO 105 847 IF B$ = "gehen in Arbeitszimmer" GOTO ort_arbeitszimmer
1042 IF B$ = "gehen in Esszimmer" GOTO 106 848 IF B$ = "gehen in Esszimmer" GOTO ort_esszimmer
1043 IF B$ = "gehen in Kueche" GOTO 109 849 IF B$ = "gehen in Kueche" GOTO ort_kueche
1044 IF B$ = "umschauen" THEN GOSUB 131 850 IF B$ = "umschauen" THEN GOSUB 131
1045 IF B$ = "untersuchen Lagerhalle" THEN GOSUB 131 851 IF B$ = "untersuchen Lagerhalle" THEN GOSUB 131
1046 IF B$ = "oeffnen Tuer" GOTO 133 852 IF B$ = "oeffnen Tuer" GOTO 133
1047 IF B$ = "untersuchen Kartons" THEN GOSUB 134 853 IF B$ = "untersuchen Kartons" THEN GOSUB 134
1048 IF B$ = "benutzen Messer" GOTO 136 854 IF B$ = "benutzen Messer" GOTO 136
1049 IF B$ = "q" THEN END 855 IF B$ = "q" THEN END
1050 IF B$ = "i" THEN GOSUB inventar 856 IF B$ = "i" THEN GOSUB inventar
1051 IF B$ = "b" THEN GOSUB befehle 857 IF B$ = "b" THEN GOSUB befehle
1052 PRINT "" 858 PRINT ""
1053 PRINT "Noe!" 859 PRINT "Nee!"
1054 PRINT 860 PRINT
1055 do 861 do
1056 loop until inkey <> "" 862 loop until inkey <> ""
1057 GOTO a132 863 GOTO a132
1058 864
1059 865
1060 866
1061 867
1062 868
1063 133 : 869 133 :
1064 CLS 870
1065 COLOR 2 871 COLOR 2
1066 PRINT "Die Tuer ist mit einem Zahlenschloss verschlossen," 872 PRINT "Die Tuer ist mit einem Zahlenschloss verschlossen,"
1067 PRINT "aber man kann die Tuer einen Spalt weit aufdruecken." 873 PRINT "aber man kann die Tuer einen Spalt weit aufdruecken."
1068 PRINT "Als ich hinaus schaue sehe ich wie ein Kleinbus" 874 PRINT "Als ich hinaus schaue sehe ich wie ein Kleinbus"
1069 PRINT "auf mich zufaehrt. Ich kann gerade noch zur Seite" 875 PRINT "auf mich zufaehrt. Ich kann gerade noch zur Seite"
1097 903
1098 904
1099 905
1100 906
1101 134 : 907 134 :
1102 CLS 908
1103 COLOR 2 909 COLOR 2
1104 PRINT "Auf der linken Seite sind die vollen Kartons" 910 PRINT "Auf der linken Seite sind die vollen Kartons"
1105 PRINT "gestapelt und rechts liegen die leeren auf" 911 PRINT "gestapelt und rechts liegen die leeren auf"
1106 PRINT "einem Haufen." 912 PRINT "einem Haufen."
1107 do 913 do
1112 918
1113 919
1114 920
1115 921
1116 135 : 922 135 :
1117 CLS 923
1118 COLOR 2 924 COLOR 2
1119 PRINT "Das ist eine gute Idee. Ich mache mich" 925 PRINT "Das ist eine gute Idee. Ich mache mich"
1120 PRINT "sofort an die Arbeit. Raschel, raschel" 926 PRINT "sofort an die Arbeit. Raschel, raschel"
1121 PRINT "... uff ... so ... geich ... jetzt ..." 927 PRINT "... uff ... so ... geich ... jetzt ..."
1122 PRINT "Okay ich hab's geschafft. Jetzt kann" 928 PRINT "Okay ich hab's geschafft. Jetzt kann"
1132 938
1133 939
1134 940
1135 941
1136 136 : 942 136 :
1137 CLS 943
1138 COLOR 2 944 COLOR 2
1139 IF messer% = 0 THEN 945 IF messer% = 0 THEN
1140 PRINT "Ich habe kein Messer." 946 PRINT "Ich habe kein Messer."
1141 PRINT "Ich sitze weiterhin im Dunkeln. Nach einer" 947 PRINT "Ich sitze weiterhin im Dunkeln. Nach einer"
1142 PRINT "halben Stunde geht der Typ wieder. Ich" 948 PRINT "halben Stunde geht der Typ wieder. Ich"
1143 PRINT "begebe mich sofort zurueck ins Haus. So" 949 PRINT "begebe mich sofort zurueck ins Haus. So"
1144 PRINT "schlecht vorbereited begebe ich mich nicht" 950 PRINT "schlecht vorbereited begebe ich mich nicht"
1145 PRINT "wieder in Gefahr." 951 PRINT "wieder in Gefahr."
1146 PRINT 952 PRINT
1147 do 953 do
1148 loop until inkey <> "" 954 loop until inkey <> ""
1149 GOTO 105 955 GOTO ort_arbeitszimmer
1150 END IF 956 END IF
1151 957
1152 PRINT "Gute Idee, das mit dem Messer. Der Typ" 958 PRINT "Gute Idee, das mit dem Messer. Der Typ"
1153 PRINT "faehrt jetzt mit seinem Kleinbus in die Halle." 959 PRINT "faehrt jetzt mit seinem Kleinbus in die Halle."
1154 PRINT "Er steigt aus und macht die Hecktueren auf." 960 PRINT "Er steigt aus und macht die Hecktueren auf."
1157 PRINT "faehrt hinaus." 963 PRINT "faehrt hinaus."
1158 PRINT "Uff, das haette ich geschafft. Jetzt bloss schnell" 964 PRINT "Uff, das haette ich geschafft. Jetzt bloss schnell"
1159 PRINT "zurueck ins Haus." 965 PRINT "zurueck ins Haus."
1160 do 966 do
1161 loop until inkey <> "" 967 loop until inkey <> ""
1162 GOTO 139 968
1163 969
1164
1165
1166
1167
1168
1169
1170
1171 139 :
1172 CLS
1173 PRINT "Was machst du?" 970 PRINT "Was machst du?"
1174 PRINT "" 971 PRINT ""
1175 PRINT "a: nach Hause gehen" 972 PRINT "a: nach Hause gehen"
1176 PRINT "b: noch da bleiben" 973 PRINT "b: noch da bleiben"
1177 PRINT "c: nochmal in die Lagerhalle gehen" 974 PRINT "c: nochmal in die Lagerhalle gehen"
1178 PRINT "" 975 PRINT ""
1179 INPUT "Und wie entscheidest du dich?", entscheidung$ 976 INPUT "Und wie entscheidest du dich?", entscheidung$
1180 PRINT 977 PRINT
1181 IF entscheidung$ = "a" GOTO 140 978 IF entscheidung$ = "a" GOTO 140
1182 IF entscheidung$ = "b" GOTO 105 979 IF entscheidung$ = "b" GOTO ort_arbeitszimmer
1183 IF entscheidung$ = "c" THEN PRINT "Oh nein! Da geh ich nicht wieder hin!" 980 IF entscheidung$ = "c" THEN PRINT "Oh nein! Da geh ich nicht wieder hin!"
1184 981
1185 982
1186 983
1187 984
1188 985
1189 986
1190 987
1191 140 : 988 140 :
1192 ''''''' Zuhause ''''''' 989 ''''''' Zuhause '''''''
1193 CLS 990
1194 LOCATE 13, 10 991 COLOR 2
1195 COLOR 10 992 PRINT "Home sweet home - endlich wieder Zuhause!"
1196 PRINT "Zuhause"
1197 do 993 do
1198 loop until inkey <> "" 994 loop until inkey <> ""
1199 a140: 995 a140:
1200 CLS 996
1201 PRINT "Du willst dir gerade einen Tee machen, als" 997 PRINT "Du willst dir gerade einen Tee machen, als"
1202 PRINT "Du einen Schlag an der Tuer hoerst und das" 998 PRINT "Du einen Schlag an der Tuer hoerst und das"
1203 PRINT "Licht aus geht." 999 PRINT "Licht aus geht."
1204 PRINT "" 1000 PRINT ""
1205 PRINT "Was machst du?" 1001 PRINT "Was machst du?"
1219 1015
1220 1016
1221 1017
1222 1018
1223 141 : 1019 141 :
1224 CLS 1020
1225 COLOR 2 1021 COLOR 2
1226 PRINT 1022 PRINT
1227 PRINT 1023 PRINT
1228 PRINT "Du siehst gerade noch ein Auto" 1024 PRINT "Du siehst gerade noch ein Auto"
1229 PRINT "wegfahren. " 1025 PRINT "wegfahren. "
1230 do 1026 do
1231 loop until inkey <> "" 1027 loop until inkey <> ""
1232 CLS 1028 cls
1233 LOCATE 17, 17 1029 LOCATE 17, 17
1234 COLOR 15 1030 COLOR 15
1235 PRINT "KA GR 48" 1031 PRINT "KA GR 48"
1236 SLEEP 1 1032 SLEEP 500
1237 GOTO 142 1033 GOTO 142
1238 142 : 1034 142 :
1239 CLS 1035 cls
1240 COLOR 2 1036 COLOR 2
1241 PRINT "In deiner Tuer steckt ein Messer mit" 1037 PRINT "In deiner Tuer steckt ein Messer mit"
1242 PRINT "einer Botschaft. Du liest sie natuerlich" 1038 PRINT "einer Botschaft. Du liest sie natuerlich"
1243 PRINT "sofort." 1039 PRINT "sofort."
1244 do 1040 do
1245 loop until inkey <> "" 1041 loop until inkey <> ""
1246 CLS 1042
1247 COLOR 11 1043 COLOR 11
1248 LOCATE 10, 10
1249 PRINT "Wenn du dich einmischst" 1044 PRINT "Wenn du dich einmischst"
1250 LOCATE 15, 10
1251 PRINT "dann bist du T O T !!!" 1045 PRINT "dann bist du T O T !!!"
1252 do 1046 do
1253 loop until inkey <> "" 1047 loop until inkey <> ""
1254 CLS 1048
1255 COLOR 2 1049 COLOR 2
1256 PRINT "" 1050 PRINT ""
1257 PRINT "" 1051 PRINT ""
1258 PRINT "Diese Botschaft war ernst gemeint." 1052 PRINT "Diese Botschaft war ernst gemeint."
1259 PRINT "Aber als Privatdetektiv musst du dich" 1053 PRINT "Aber als Privatdetektiv musst du dich"
1260 PRINT "halt ueber solche Morddrohungen hinweg-" 1054 PRINT "halt ueber solche Morddrohungen hinweg-"
1261 PRINT "setzen. Deshalb rufst du sofort die" 1055 PRINT "setzen. Deshalb rufst du sofort die"
1262 PRINT "Polizei an." 1056 PRINT "Polizei an."
1263 do 1057 do
1264 loop until inkey <> "" 1058 loop until inkey <> ""
1265 GOTO 143 1059
1060
1266 143 : 1061 143 :
1267 CLS 1062
1268 COLOR 9 1063 COLOR 9
1269 PRINT "" 1064 PRINT ""
1270 PRINT "Ja, hier Polizeirevier Ettlingen, Dieter" 1065 PRINT "Ja, hier Polizeirevier Ettlingen, Dieter"
1271 PRINT "Laenger. Was kann ich fuer Sie tun?" 1066 PRINT "Laenger. Was kann ich fuer Sie tun?"
1272 PRINT 1067 PRINT
1274 COLOR 12 1069 COLOR 12
1275 PRINT "a: Ich moechte Anzeige gegen einen Mann" 1070 PRINT "a: Ich moechte Anzeige gegen einen Mann"
1276 PRINT " in einem gruenen Auto erstatten." 1071 PRINT " in einem gruenen Auto erstatten."
1277 PRINT 1072 PRINT
1278 PRINT "b: Ich moechte eine Pizza essen." 1073 PRINT "b: Ich moechte eine Pizza essen."
1279 PRINT "" 1074 PRINT
1280 PRINT "c: Ich moechte, dass Sie einen Mann" 1075 PRINT "c: Ich moechte, dass Sie einen Mann"
1281 PRINT ""
1282 PRINT " in einem gruenen Auto verhaften." 1076 PRINT " in einem gruenen Auto verhaften."
1283 LOCATE 20, 1
1284 COLOR 12 1077 COLOR 12
1285 INPUT "Was antwortest du? (a,b,c)", a$ 1078 INPUT "Was antwortest du? (a,b,c)", a$
1286 IF a$ = "a" THEN GOTO 144 1079 IF a$ = "a" THEN GOTO 144
1287 IF a$ = "b" THEN PRINT "Du bist doch ein Spinner!" 1080 IF a$ = "b" THEN PRINT "Du bist doch ein Spinner!"
1288 IF a$ = "c" THEN GOTO 144 1081 IF a$ = "c" THEN GOTO 144
1296 1089
1297 1090
1298 1091
1299 1092
1300 144 : 1093 144 :
1301 CLS 1094
1302 COLOR 9 1095 COLOR 9
1303 PRINT "" 1096 PRINT ""
1304 PRINT "Wie heisst der Mann denn?" 1097 PRINT "Wie heisst der Mann denn?"
1305 PRINT 1098 PRINT
1306 COLOR 12 1099 COLOR 12
1321 1114
1322 1115
1323 1116
1324 1117
1325 145 : 1118 145 :
1326 CLS 1119
1327 PRINT "" 1120 PRINT
1328 COLOR 9 1121 COLOR 9
1329 PRINT "Was fuer eine Autonummer hatte er denn?" 1122 PRINT "Was fuer eine Autonummer hatte er denn?"
1330 PRINT "" 1123 PRINT
1331 PRINT "" 1124 PRINT
1332 COLOR 12 1125 COLOR 12
1333 PRINT "a: KS ET 26" 1126 PRINT "a: KS ET 26"
1334 PRINT "" 1127 PRINT
1335 PRINT "b: HS AB 37" 1128 PRINT "b: HS AB 37"
1336 PRINT "" 1129 PRINT
1337 PRINT "c: KA GR 48" 1130 PRINT "c: KA GR 48"
1338 PRINT "" 1131 PRINT
1339 PRINT "" 1132 PRINT
1340 COLOR 12 1133 COLOR 12
1341 INPUT "Welche Autonummer hatte er? (a,b,c)", a$ 1134 INPUT "Welche Autonummer hatte er? (a,b,c)", a$
1342 PRINT "" 1135 PRINT
1343 IF a$ = "a" THEN PRINT "Du solltest dein Gedaechtnis verbessern!" 1136 IF a$ = "a" THEN PRINT "Du solltest dein Gedaechtnis verbessern!"
1344 IF a$ = "b" THEN PRINT "Du solltest dein Gedaechtnis verbessern!" 1137 IF a$ = "b" THEN PRINT "Du solltest dein Gedaechtnis verbessern!"
1345 IF a$ = "c" GOTO 146 1138 IF a$ = "c" GOTO 146
1346 do 1139 do
1347 loop until inkey <> "" 1140 loop until inkey <> ""
1351 1144
1352 1145
1353 1146
1354 1147
1355 146 : 1148 146 :
1356 CLS 1149
1357 COLOR 2 1150 COLOR 2
1358 PRINT "" 1151 PRINT ""
1359 PRINT "Der Polizist gab den guten Tip sofort" 1152 PRINT "Der Polizist gab den guten Tip sofort"
1360 PRINT "an seine Kollegen weiter. Er dankte" 1153 PRINT "an seine Kollegen weiter. Er dankte"
1361 PRINT "dir fuer die heisse Spur und du" 1154 PRINT "dir fuer die heisse Spur und du"
1362 PRINT "verabschiedeste dich und giengst nach" 1155 PRINT "verabschiedeste dich und giengst nach"
1363 PRINT "Hause." 1156 PRINT "Hause."
1364 do 1157 do
1365 loop until inkey <> "" 1158 loop until inkey <> ""
1366 CLS 1159
1367 PRINT "" 1160 PRINT ""
1368 PRINT "Zwei Tage spaeter kam ein Brief vom" 1161 PRINT "Zwei Tage spaeter kam ein Brief vom"
1369 PRINT "Polizeirevier:" 1162 PRINT "Polizeirevier:"
1370 do 1163 do
1371 loop until inkey <> "" 1164 loop until inkey <> ""
1372 CLS 1165
1373 LOCATE 4, 1
1374 COLOR 15 1166 COLOR 15
1375 PRINT "Sehrgeehrter Herr "; name1$; "" 1167 PRINT "Sehrgeehrter Herr "; name1$; ""
1376 PRINT "dank Ihnen konnten wie eine ganze" 1168 PRINT "dank Ihnen konnten wie eine ganze"
1377 PRINT "Bande Waffenschieber dingfest machen." 1169 PRINT "Bande Waffenschieber dingfest machen."
1378 PRINT "" 1170 PRINT ""
1380 PRINT "" 1172 PRINT ""
1381 PRINT "Ausfuehrlicher Bericht auf der naechsten" 1173 PRINT "Ausfuehrlicher Bericht auf der naechsten"
1382 PRINT "Seite." 1174 PRINT "Seite."
1383 do 1175 do
1384 loop until inkey <> "" 1176 loop until inkey <> ""
1385 CLS 1177
1386 PRINT "" 1178 PRINT ""
1387 PRINT "Am Montag konnten wir den gruenen Audi" 1179 PRINT "Am Montag konnten wir den gruenen Audi"
1388 PRINT "von Schaefer (so heisst der Bersitzer)" 1180 PRINT "von Schaefer (so heisst der Bersitzer)"
1389 PRINT "in der Karlsruher Innenstadt ausfindig" 1181 PRINT "in der Karlsruher Innenstadt ausfindig"
1390 PRINT "machen. Wir folgten ihm bis zu seinem" 1182 PRINT "machen. Wir folgten ihm bis zu seinem"
1396 PRINT "Am naechsten Donnerstag wird Mayr, der" 1188 PRINT "Am naechsten Donnerstag wird Mayr, der"
1397 PRINT "Boss der Truppe, wegen Mord an Karl" 1189 PRINT "Boss der Truppe, wegen Mord an Karl"
1398 PRINT "" 1190 PRINT ""
1399 do 1191 do
1400 loop until inkey <> "" 1192 loop until inkey <> ""
1401 CLS 1193
1402 PRINT "" 1194 PRINT ""
1403 PRINT "Mueller verurteilt. Auch die Anderen" 1195 PRINT "Mueller verurteilt. Auch die Anderen"
1404 PRINT "werden wegen Beihilfe zum Mord vor" 1196 PRINT "werden wegen Beihilfe zum Mord vor"
1405 PRINT "Gericht gestellt werden." 1197 PRINT "Gericht gestellt werden."
1406 PRINT "" 1198 PRINT ""
1411 PRINT "" 1203 PRINT ""
1412 PRINT "" 1204 PRINT ""
1413 PRINT " Polizeichef Mattias Huber" 1205 PRINT " Polizeichef Mattias Huber"
1414 do 1206 do
1415 loop until inkey <> "" 1207 loop until inkey <> ""
1416 CLS 1208
1209
1210
1211 cls
1417 LOCATE 13, 10 1212 LOCATE 13, 10
1418 COLOR 13 1213 COLOR 13
1419 PRINT "Du hast gewonnen!" 1214 PRINT "Du hast gewonnen!"
1420 do 1215 do
1421 loop until inkey <> "" 1216 loop until inkey <> ""
1422 COLOR 15
1423 1217
1424 1218
1425 1219
1426 1220
1427 1221
1436 1230
1437 1231
1438 1232
1439 1233
1440 inventar: 1234 inventar:
1441 CLS
1442 PRINT
1443 PRINT
1444 COLOR 5 1235 COLOR 5
1445 PRINT "Hausschluessel" 1236 PRINT "+-- Inventar -----------+"
1446 PRINT "200 Schilling" 1237 PRINT "| |"
1447 IF tlampe% = 1 THEN PRINT "Taschenlampe" 1238 PRINT "| Autoschluessel |"
1448 IF schluessel% = 1 THEN PRINT "Schluessel" 1239 PRINT "| 200 Schilling |"
1449 IF messer% = 1 THEN PRINT "Messer" 1240 IF tlampe% = 1 THEN PRINT "| Taschenlampe |"
1450 IF kerzenst% = 1 THEN PRINT "Kerzenstaender" 1241 IF schluessel% = 1 THEN PRINT "| Schluessel |"
1242 IF messer% = 1 THEN PRINT "| Messer |"
1243 IF kerzenst% = 1 THEN PRINT "| Kerzenstaender |"
1244 PRINT "| |"
1245 PRINT "+-----------------------+"
1451 RETURN 1246 RETURN
1452 1247
1453 1248
1454 1249
1455 befehle: 1250 befehle:
1456 PRINT "" 1251 COLOR 3
1457 PRINT "Moegliche Befehle:" 1252 PRINT "Moegliche Befehle:"
1458 PRINT "" 1253 PRINT ""
1459 COLOR 3
1460 PRINT "umschauen" 1254 PRINT "umschauen"
1461 PRINT "oeffnen <Objekt>" 1255 PRINT "oeffnen <Objekt>"
1462 PRINT "benutzen <Objekt>" 1256 PRINT "benutzen <Objekt>"
1463 PRINT "untersuchen <Objekt>" 1257 PRINT "untersuchen <Objekt>"
1464 PRINT "sprechen mit <Person>" 1258 PRINT "sprechen mit <Person>"