midds

annotate Midds_reco.bas @ 3:e98ade2107de

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