midds

annotate Midds_reco.bas @ 1:130ab9a4fd83

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