midds

annotate Midds_reco.bas @ 2:53d9408c7cdb

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