midds

annotate Midds_reco.bas @ 5:105a509f30d9

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