midds: 105a509f30d9 Midds

midds

view Midds_reco.bas @ 5:105a509f30d9

simplified lcase; better var names

author	meillo@marmaro.de
date	Wed, 05 Sep 2007 00:15:35 +0200
parents	e98ade2107de
children

line source

1 '============================================================================'

2 ' '

3 ' '

4 ' M M '

5 ' MM MM I D D '

6 ' M M M M I D D '

7 ' M M M M D D '

8 ' M M M M D D '

9 ' M M M M I DDDDD D DDDDD D SSSSS '

10 ' M M M M I D DD D DD S S '

11 ' M M M I D D D D S '

12 ' M M I D D D D S '

13 ' M M I D D D D SSSS '

14 ' M M I D D D D S '

15 ' M M I D D D D S '

16 ' M M I D DD D DD S S '

17 ' M M I DDDDD D DDDDD D SSSSS '

18 ' '

19 ' '

20 '============================================================================'

24 'Midds'

27 cls

28 LOCATE 13, 6

29 COLOR 15

30 PRINT "*** Mord in der Dorfstrasse ***"

31 COLOR 7

32 'LINE (20, 60)-(300, 140), 2, B

33 LOCATE 24, 2

35 do

36 loop until inkey <> ""

39 deinname$ = "John Howell"

43 cls

44 COLOR 6

45 PRINT "Dies ist ein Kriminalspiel,"

46 PRINT "das die grauen Zellen fordert."

47 print

48 PRINT

49 PRINT "Druecke 'q' um das Spiel zu beenden."

50 PRINT "Druecke 'i' um zu erfahren, was du alles besitzt."

51 PRINT "Druecke 'b' um die Befehle noch einmal zusehen."

52 COLOR 7

53 do

54 loop until inkey <> ""

57 X:

58 cls

59 PRINT ""

60 LOCATE 13, 6

61 COLOR 6

62 PRINT "So jetzt geht's endlich los!!!"

63 COLOR 7

64 do

65 loop until inkey <> ""

71 ort_vordemhaus :

72 '''''''''' Vor dem Haus '''''''''

73 cls

74 COLOR 2

75 PRINT "Du heisst "; deinname$; " und bist"

76 PRINT "Privatdetektiv. Du wurdest von "

77 PRINT "Herr Fisch angerufen um einen Mord"

78 PRINT "aufzuklaeren."

79 PRINT "Natuerlich bist du sofort in deinen"

80 PRINT "Renault 19 gestiegen und losgefahren."

81 PRINT "Jetzt stehst du vor Haus Nummer 6"

82 PRINT "in der Dorfstrasse."

83 PRINT

84 COLOR 7

86 zuege = 0

87 do

89 INPUT "(Vor dem Haus) Was machst du? ", befehl$

91 select case lcase(befehl$)

92 case "benutzen klingel"

93 COLOR 2

94 PRINT "Herr Fisch oeffnet die Tuer und du stehst im Flur"

95 PRINT

96 COLOR 7

97 goto ort_flur

98 case "oeffnen tuer"

99 PRINT " Haustueren kann man von aussen ohne Schluessel nicht oeffnen."

100 case "gehen in haus"

101 PRINT " Die Tuer ist zu."

102 case "gehen heim"

103 PRINT " Du Angsthase"

104 case "q"

105 END

106 case "i"

107 GOSUB inventar

108 case "b"

109 GOSUB befehle

110 case else

111 PRINT " Noe!"

112 end select

113

114 zuege% = zuege% + 1

115 IF zuege% = 5 THEN PRINT " Tipp: benutzen ..."

116 IF zuege% > 8 THEN PRINT " Loesung: benutzen Klingel"

117

118 loop until inkey <> ""

119

120

121

122

123

124

125

126

127 ort_flur :

128 '''''''' Flur '''''''

129

130 zuege% = 0

131

132 do

133 COLOR 7

134 PRINT

135 INPUT "(Flur) Was machst du? ", befehl$

136

137 select case lcase(befehl$)

138 case "sprechen mit herr fisch"

139 goto gespraech_herrfisch

140

141 case "gehen heim"

142 PRINT " Du Angsthase!"

143

144 case "umschauen", "untersuchen flur"

145 IF tinaangerufen = 1 and tinaistda = 0 then

146 COLOR 2

147 PRINT "Links geht es die Treppe zum Schlafzimmer hinauf,"

148 PRINT "gerade aus geht's ins Esszimmer und rechts ins"

149 PRINT "Arbeitszimmer. Im Flur steht Herr Fisch und ..."

150 print

151 PRINT "... gerade klingelt es an der Tuer. Herr Fisch"

152 PRINT "macht auf und Tina kommt herein."

153 tinaistda = 1

154 else

155 COLOR 2

156 PRINT "Links geht es die Treppe zum Schlafzimmer"

157 PRINT "hinauf, gerade aus geht's ins Esszimmer und"

158 PRINT "rechts ins Arbeitszimmer. Im Flur steht"

159 PRINT "Herr Fisch und beantwortet gern deine Fragen."

160 end if

161

162 case "gehen in schlafzimmer"

163 goto ort_schlafzimmer

164

165 case "gehen in arbeitszimmer"

166 GOTO ort_arbeitszimmer

167

168 case "gehen in esszimmer"

169 GOTO ort_esszimmer

170

171 case "gehen in kueche"

172 GOTO ort_kueche

173

174 case "gehen in lagerhalle"

175 if kx% = 1 AND sx% = 1 then

176 GOTO 132

177 else

178 print " Was fuer eine Lagerhalle denn?"

179 end if

180

181 case "sprechen mit tina"

182 if tinaistda = 1 then

183 GOTO 118

184 else

185 print " Hier ist keine Tina"

186 end if

187

188 case "q"

189 END

190

191 case "i"

192 GOSUB inventar

193

194 case "b"

195 GOSUB befehle

196

197 case else

198 PRINT " Keine Lust!"

199

200 end select

201

202 zuege% = zuege% + 1

203 IF zuege% = 6 THEN PRINT " Tipp: sprechen mit ..."

204

205 loop until inkey <> ""

206

207

208

209

210

211

212 gespraech_herrfisch :

213 ''''''''' gespraech mit herr fisch ''''''''''

214

215 color 2

216 print "Du beginnst ein Gespraech mit Herr Fisch."

217 print

218

219 do

220 COLOR 7

221 PRINT "A: Hallo, ich heisse "; deinname$; "."

222 PRINT "B: Wo ist die Leiche?"

223 PRINT "C: Wie heisst der Tote?"

224 if woIstDasSchlafzimmer = 1 then PRINT "D: Wo ist das Schlafzimmer?"

225 PRINT "Z: Bis spaeter."

226 COLOR 1

227 INPUT "Was sagst du zu Herr Fisch? ", s$

228 s$ = lcase(s$)

229 COLOR 7

230 print "Er antwortet:"

231 COLOR 4

232 select case s$

233 case "a"

234 PRINT " Ich heisse Manfred Fisch."

235 case "b"

236 PRINT " Im Schlafzimmer."

237 woIstDasSchlafzimmer = 1

238 case "c"

239 PRINT " Karl Mueller."

240 case "d"

241 if woIstDasSchlafzimmer = 1 THEN PRINT " Die Treppe hinauf dann links."

242 case "z"

243 PRINT " Ich bin jederzeit fuer Sie da, sprechen Sie mich einfach an."

244 print

245 color 2

246 print "Herr Fisch beginnt wieder die Gemaelde an den Waenden zu betrachten"

247 print

248 goto ort_flur

249 case "q"

250 end

251 end select

252 print

253 loop until inkey <> ""

254

255

256

257

258

259

260

261

262

263

264

265

266

267 ort_schlafzimmer :

268 ''''''' Schlafzimmer '''''''''

269

270 if tinaangerufen = 0 then

271 COLOR 2

272 PRINT "Die Leiche, ein etwa 20 Jahre alter"

273 PRINT "Mann, liegt mit einem Messer im Ruecken"

274 PRINT "auf dem Bett. Ich decke die Leiche"

275 PRINT "als erstes mit einem Tuch ab und rufe"

276 PRINT "mit meinem Handy Tina an. Tina ist"

277 PRINT "Spezialistin fuer Fingerabdruecke."

278 tinaangerufen = 1

279 else

280 color 2

281 print "Du bist im Schlafzimmer"

282 end if

283

284 do

285 PRINT

286 COLOR 7

287 INPUT "(Schlafzimmer) Was machst du? ", befehl$

288 select case lcase(befehl$)

289 case "gehen in flur"

290 goto ort_flur

291

292 case "gehen in arbeitszimmer"

293 goto ort_arbeitszimmer

294

295 case "gehen in esszimmer"

296 goto ort_esszimmer

297

298 case "gehen in kueche"

299 goto ort_kueche

300

301 case "gehen in lagerhalle"

302 if kx% = 1 AND sx% = 1 goto 132

303

304 case "umschauen", "untersuchen schlafzimmer"

305 COLOR 2

306 PRINT "In der Mitte steht das Bett, ueber dem"

307 PRINT "Bett haengt ein Poster, auf der"

308 PRINT "linken Seite befindet sich ein Schrank"

309 PRINT "und an der rechten Wand ist ein Fenster."

310 IF tinaistimschlafzimmer = 1 THEN PRINT "Tina sichert gerade die Fingerabdruecke."

311

312 case "untersuchen schrank"

313 PRINT "Ein alter Aktenschrank."

314

315 case "oeffnen aktenschrank"

316 versuch% = 0

317 COLOR 2

318 PRINT "Hinter den Ordnern ist ein Geheimfach"

319 PRINT "mit einem dreistelligen Zahlenschloss."

320 geheimfachgefunden = 1

321

322 do

323 versuch% = versuch% + 1

324 COLOR 5

325 INPUT "Wie lautet die Kombination?", k$

326 IF k$ = "000" THEN PRINT "War wohl falsch."

327 IF k$ = "007" then

328 PRINT "Bravo, du hast echt gut kombiniert."

329 geheimfachoffen = 1

330 end if

331 IF k$ = "q" goto ort_schlafzimmer

332 PRINT "Komm streng dich ein bisschen an!"

333 IF versuch% = 3 THEN PRINT "Tipp: Karl Mueller war Jean Connery Fan."

334 IF versuch% = 6 THEN PRINT "Tipp: Denk an das Poster."

335 loop until inkey <> ""

336

337 case "untersuchen fenster"

338 PRINT "Wenn man hinaus schaut, sieht man die Strasse."

339

340 case "untersuchen bett"

341 COLOR 2

342 PRINT "Unter dem Bett liegt eine Taschenlampe."

343

344 case "nehmen taschenlampe"

345 PRINT "Du hast die Taschenlampe genommen"

346 tlampe% = 1

347

348 case "untersuchen geheimfach"

349 if geheimfachgefunden = 1 then

350 COLOR 2

351 PRINT "In dem Geheimfach befindet sich ein Schluessel."

352 end if

353

354 case "nehmen schluessel"

355 if geheimfachoffen = 1 then

356 PRINT "Du hast den Schluessel aus dem Geheimfach genommen"

357 schluessel% = 1

358 end if

359

360 case "untersuchen poster"

361 PRINT "Da steht - Sean Connery als James Bond"

362 PRINT "in SAG NIEMALS NIE - drauf."

363

364 case "sprechen mit tina"

365 if tinaistimschlafzimmer = 1 then PRINT "Die stoere ich lieber nicht bei der Arbeit."

366

367 case "q"

368 END

369 case "i"

370 GOSUB inventar

371 case "b"

372 GOSUB befehle

373 case else

374 PRINT "Nein"

375 end select

376 loop until inkey <> ""

377

378

379

380

381

382

383

384

385

386

387

388

389

390

391

392

393

394

395

396

397

398

399

400

401 ort_arbeitszimmer :

402 '''''''' Arbeitszimmer '''''''

403

404 COLOR 2

405 PRINT "Du bist im Arbeitszimmer."

406

407 do

408 COLOR 7

409 INPUT "(Arbeitszimmer) Was machst du? ", befehl$

410 select case lcase(befehl$)

411 case "gehen in Schlafzimmer"

412 goto ort_schlafzimmer

413

414 case "gehen in Flur"

415 goto ort_flur

416

417 case "gehen in Esszimmer"

418 goto ort_esszimmer

419

420 case "gehen in Kueche"

421 goto ort_kueche

422

423 case "gehen in Lagerhalle"

424 if kx% = 1 AND sx% = 1 then goto 132

425

426 case "umschauen", "untersuchen Arbeitszimmer"

427 COLOR 2

428 PRINT "In der Mitte steht ein Schreibtisch,"

429 PRINT "rechts befindet sich ein Schrank und"

430 PRINT "links ein Buecherregal."

431

432 case "untersuchen Schreibtisch"

433 PRINT "Da gibt's nichts Besonderes zu sehen."

434

435 case "untersuchen Buecherregal"

436 COLOR 2

437 IF tinaistimschlafzimmer = 0 then

438 PRINT "Ich sehe nichts Besonderes."

439 else

440 PRINT "Da hat's ja ein Buch mit 123 Reiseerzaehlungen"

441 PRINT "von Karl May, meinem Leiblingsautor. Das sollte"

442 PRINT "ich mir genauer anschauen."

443 end if

444

445 case "untersuchen Buch"

446 PRINT "Ich kann nur den Buchruecken lesen, wenn es da steht."

447

448 case "nehmen Buch"

449 COLOR 2

450 PRINT "Das Buch laesst sich nur halb heraus ziehen."

451 PRINT "Ploetzlich schwenkt das ganze Buecherregal zur"

452 PRINT "Seite und dhinter kommt eine Tuer zum Vorschein."

453 PRINT "Sie ist durch ein Schluessel- und ein "

454 PRINT "Zahlenschloss gesichert."

455 PRINT

456 COLOR 6

457 PRINT "Wenn du im Arbeitszimmer z drueckst, kannst du"

458 PRINT "die Zahlenkombination eingeben."

459

460 case "benutzen Schluessel"

461 PRINT "Das Schluesselschloss waere geknackt."

462 sx% = 1

463 COLOR 2

464 IF kx% = 1 GOTO 137

465 PRINT "Jetzt musst du nur noch die Kombination knacken."

466

467 case "gehen in Geheimgang"

468 if kx% = 1 AND sx% = 1 then

469 COLOR 2

470 IF tlampe% = 0 THEN PRINT "Da geh' ich ohne Licht nicht rein."

471 do

472 loop until inkey <> ""

473

474 IF tlampe% = 0 GOTO ort_arbeitszimmer

475

476 COLOR 10

477 PRINT "Geheimgang"

478 do

479 loop until inkey <> ""

480

481 COLOR 2

482 PRINT "Gut, dass ich eine Taschenlampe dabei habe."

483 PRINT "Oh, es geht steil bergab .... ich muss schon"

484 PRINT "mindestens 5 Meter unter der Erdoberflaeche"

485 PRINT "sein .... Jetzt bin ich schon 10 Minuten"

486 PRINT "unterwegs ..... da vorne kommt eine Tuer"

487 PRINT "genau so gesichert wie die hinter dem Regal"

488 PRINT "gut, dass ich den Schluessel habe und den"

489 PRINT "Code kenne ..... Wo bin ich denn jetzt?"

490 PRINT "Sieht aus, wie der Keller eines Hauses"

491 PRINT "ist aber ganz schoen zerfallen."

492 do

493 loop until inkey <> ""

494 GOTO ort_keller

495 end if

496

497 case "z"

498 do

499 COLOR 5

500 INPUT "Wie lautet die Kombination?", zk$

501 select case zk$

502 case "007"

503 PRINT "So einfach ist es nicht"

504 case "123"

505 COLOR 2

506 PRINT "Die Kombination war richtig."

507 kx% = 1

508 IF sx% = 1 GOTO 137

509 PRINT "Jetzt musst du nur noch das Schluesselschloss oeffnen."

510 case "q"

511 PRINT "Tipp: Das Buecherregal."

512 GOTO ort_arbeitszimmer

513 case else

514 PRINT "Leider falsch. Probier's noch einmal."

515 end select

516 loop until inkey <> ""

517

518 case "i"

519 GOSUB inventar

520 case "q"

521 END

522 case "b"

523 GOSUB befehle

524 case else

525 PRINT "Heute nicht!"

526 end select

527 loop until inkey <> ""

528

529

530

531

532

533

534

535

536

537

538

539

540 ort_esszimmer :

541 '''''' Esszimmer ''''''

542

543 COLOR 2

544 print "Du bist im Esszimmer."

545 do

546

547 COLOR 7

548 print

549 INPUT "(Esszimmer) Was machst du? ", befehl$

550 select case lcase(befehl$)

551 case "gehen in schlafzimmer"

552 goto ort_schlafzimmer

553

554 case "gehen in flur"

555 GOTO ort_flur

556

557 case "gehen in arbeitszimmer"

558 GOTO ort_arbeitszimmer

559

560 case "gehen in kueche"

561 GOTO ort_kueche

562

563 case "gehen in lagerhalle"

564 if kx% = 1 AND sx% = 1 GOTO 132

565

566 case "umschauen", "untersuchen esszimmer"

567 color 2

568 PRINT "In der Mitte steht der Tisch und auf"

569 PRINT "der rechten Seite ist die Tuer zur Kueche."

570

571 case "untersuchen tisch"

572 color 2

573 PRINT "Ein schoener eichener Tisch mit einer"

574 PRINT "gehaekelten Tischdecke."

575 if kerzenst% = 0 then PRINT "In der Mitte des Tisches steht ein silberner Kerzenstaender."

576

577 case "nehmen kerzenstaender"

578 kerzenst% = 1

579 color 2

580 PRINT "Du hast den Kerzenstaender genommen"

581

582 case "q"

583 END

584 case "i"

585 GOSUB inventar

586 case "b"

587 GOSUB befehle

588 end select

589 loop until inkey <> ""

590

591

592

593

594

595

596

597

598

599

600

601

602

603

604

605

606 ort_kueche :

607 '''''''' Kueche '''''''

608

609 COLOR 2

610 PRINT "Du bist in der Kueche."

611

612 do

613 color 7

614 INPUT "(Kueche) Was machst du?", befehl$

615 select case lcase(befehl$)

616 case "gehen in schlafzimmer"

617 goto ort_schlafzimmer

618

619 case "gehen in flur"

620 goto ort_flur

621

622 case "gehen in arbeitszimmer"

623 goto ort_arbeitszimmer

624

625 case "gehen in esszimmer"

626 goto ort_esszimmer

627

628 case "gehen in lagerhalle"

629 if kx% = 1 AND sx% = 1 then goto 132

630

631 case "umschauen", "untersuchen kueche"

632 PRINT "Links ist die Kochzeile, in der Mitte"

633 PRINT "ein kleiner Tisch mit zwei Stuehlen und"

634 PRINT "rechts der Kuechenschrank."

635

636 case "untersuchen kuechenschrank"

637 PRINT "Es ist nichts Ausergewoehnliches daran"

638 PRINT "zu erkennen, nur eine Schublade in der"

639 PRINT "es bestimmt Interesantes zu entdecken gibt."

640

641 case "oeffnen schublade"

642 PRINT "In der Schublade liegt sich ein Messer."

643

644 case "nehmen messer"

645 PRINT "Du hast das Messer genommen"

646 messer% = 1

647

648 case "q"

649 END

650

651 case "i"

652 GOSUB inventar

653

654 case "b"

655 GOSUB befehle

656

657 case else

658 print "Will ich nicht."

659

660 end select

661 loop until inkey <> ""

662

663

664

665

666

667

668

669

670

671

672

673 118 :

674

675 COLOR 9

676 PRINT "A: Schoen, dass du so schnell gekommen bist."

677 PRINT "B: Der Tote liegt im Schlafzimmer."

678 PRINT "C: Ende."

679 COLOR 12

680 INPUT "Was sagst du?", s$

681 PRINT

682 COLOR 9

683 IF s$ = "A" THEN PRINT "Ich habe mich sofort auf den Weg gemacht."

684 IF s$ = "B" then

685 COLOR 9

686 PRINT "Okay, aber wo ist das Schlafzimmer?"

687 print

688

689 COLOR 12

690 PRINT "Welchen Weg beschreibst du ihr?"

691 PRINT

692 PRINT "a: Links die Treppe hinauf."

693 PRINT "b: Rechts die Treppe hinunter."

694 PRINT "c: Die Treppe hinauf, dann links."

695 PRINT

696 INPUT "a, b oder c?", w$

697 PRINT

698 COLOR 2

699 IF w$ = "c" THEN PRINT "Bravo, du hast ein gutes Gedaechtnis!"

700 IF w$ = "c" THEN cheat1 = 1

701 IF w$ = "a" THEN PRINT "Leider falsch.Die richtige Loesung war c."

702 IF w$ = "b" THEN PRINT "Leider falsch.Die richtige Loesung war c."

703 tinaistimschlafzimmer = 1

704 do

705 loop until inkey <> ""

706 GOTO ort_flur

707 end if

708 IF s$ = "C" GOTO ort_flur

709 do

710 loop until inkey <> ""

711 GOTO 118

712

713

714

715

716

717

718

719

720

721

722

723 137 :

724

725 COLOR 2

726 PRINT "So, die Tuer ist jetzt offen. Dahinter befindet"

727 PRINT "sich ein Geheimgang."

728 geheimgangfrei = 1

729 GOTO ort_arbeitszimmer

730

731

732

733

734

735

736

737

738

739

740

741

742

743

744

745

746

747

748 ort_keller :

749 '''''''''' Keller '''''''''''''

750

751 COLOR 2

752 PRINT "Du bist im Keller."

753

754 do

755 COLOR 7

756 INPUT "(Keller) Was machst du? ", befehl$

757 select case lcase(befehl$)

758 case "gehen in flur"

759 goto ort_flur

760

761 case "gehen in schlafzimmer"

762 goto ort_schlafzimmer

763

764 case "gehen in arbeitszimmer"

765 goto ort_arbeitszimmer

766

767 case "gehen in esszimmer"

768 goto ort_esszimmer

769

770 case "gehen in kueche"

771 goto ort_kueche

772

773 case "gehen in lagerhalle"

774 if kx% = 1 AND sx% = 1 then goto 132

775

776 case "umschauen", "untersuchen keller"

777 COLOR 2

778 PRINT "Ein zerfallener Keller, alles verstaubt."

779 PRINT "Gerade aus geht eine Treppe nach oben."

780

781 case "benutzen treppe"

782 goto 132

783

784 case "q"

785 END

786

787 case "i"

788 GOSUB inventar

789

790 case "b"

791 GOSUB befehle

792

793 case else

794 PRINT "Jetzt nicht."

795

796 end select

797 loop until inkey <> ""

798

799

800

801

802

803

804

805

806

807

808

809

810

811

812

813

814

815 132 :

816 '''''''' Lagerhalle '''''''''''

817

818 COLOR 2

819 PRINT "Du bist in der Lagerhalle."

820 print

821

822

823 do

824 COLOR 7

825 INPUT "(Lagerhalle) Was machst du? ", befehl$

826 select case lcase(befehl$)

827 case "gehen in Schlafzimmer"

828 goto ort_schlafzimmer

829

830 case "gehen in Arbeitszimmer"

831 goto ort_arbeitszimmer

832

833 case "gehen in Esszimmer"

834 goto ort_esszimmer

835

836 case "gehen in Kueche"

837 goto ort_kueche

838

839 case "umschauen", "untersuchen Lagerhalle"

840 COLOR 2

841 PRINT "In der Lagerhalle ist alles genau so"

842 PRINT "zerfallen, wie im Keller. Ueberall sind Kartons"

843 PRINT "gestapelt. Gerade aus geht eine Tuer ins Freie."

844 print

845

846 case "oeffnen Tuer"

847 goto 133

848

849 case "untersuchen Kartons"

850 GOSUB 134

851

852 case "benutzen Messer"

853 goto 136

854

855 case "q"

856 END

857

858 case "i"

859 GOSUB inventar

860

861 case "b"

862 GOSUB befehle

863

864 case else

865 PRINT "Nee!"

866

867 end select

868 loop until inkey <> ""

869

870

871

872

873

874 133 :

875

876 COLOR 2

877 PRINT "Die Tuer ist mit einem Zahlenschloss verschlossen,"

878 PRINT "aber man kann die Tuer einen Spalt weit aufdruecken."

879 PRINT "Als ich hinaus schaue sehe ich wie ein Kleinbus"

880 PRINT "auf mich zufaehrt. Ich kann gerade noch zur Seite"

881 PRINT "hechten ohne, dass mich die Scheinwerfer erreichen."

882 PRINT "Jetzt ist schnelles Handeln wichtig!"

883 PRINT

884 v% = 0

885 do

886 COLOR 7

887 INPUT "(Lagerhalle) Wo versteckst du dich? In ", v$

888 v$ = lcase(v$)

889 select case v$

890 case "leerem karton", "leerer karton", "leere kartons"

891 COLOR 2

892 PRINT "Das ist eine gute Idee. Ich mache mich"

893 PRINT "sofort an die Arbeit. Raschel, raschel"

894 PRINT "... uff ... so ... geich ... jetzt ..."

895 PRINT "Okay ich hab's geschafft. Jetzt kann"

896 PRINT "ich nur nichts mehr sehen. Ich sollte"

897 PRINT "mir ein Loch zum Rausschauen in den"

898 PRINT "Karton reissen. So ... uff, der ist zu"

899 PRINT "stabil, da brauche ich ein Werkzeug dazu."

900 print

901 GOTO 132

902

903 case "kartons"

904 PRINT "Ich kann mich doch nicht in vollen Kartons verstecken."

905

906 case "geheimgang"

907 PRINT "Dafuer reicht die Zeit nicht."

908

909 case "keller"

910 PRINT "Dafuer reicht die Zeit nicht."

911

912 case "umschauen", "untersuchen lagerhalle"

913 COLOR 2

914 PRINT "In der Lagerhalle ist alles genau so"

915 PRINT "zerfallen, wie im Keller. Ueberall sind Kartons"

916 PRINT "gestapelt. Gerade aus geht eine Tuer ins Freie."

917 print

918

919 case "untersuchen kartons"

920 GOSUB 134

921

922 case "q"

923 END

924

925 case else

926 PRINT "Da habe ich zu wenig Zeit dafuer."

927

928 end select

929

930 v% = v% + 1

931 IF v% = 5 THEN PRINT "Tipp: Schau dir die Lagerhalle noch einmal genau an."

932 IF v% > 8 THEN PRINT "Tipp: l..... K....."

933 loop until inkey <> ""

934

935

936

937

938

939

940 134 :

941

942 COLOR 2

943 PRINT "Auf der linken Seite sind die vollen Kartons"

944 PRINT "gestapelt und rechts liegen die leeren auf"

945 PRINT "einem Haufen."

946 do

947 loop until inkey <> ""

948 RETURN

949

950

951

952

953

954

955

956

957

958

959

960

961 136 :

962

963 COLOR 2

964 IF messer% = 0 THEN

965 PRINT "Ich habe kein Messer."

966 PRINT "Ich sitze weiterhin im Dunkeln. Nach einer"

967 PRINT "halben Stunde geht der Typ wieder. Ich"

968 PRINT "begebe mich sofort zurueck ins Haus. So"

969 PRINT "schlecht vorbereited begebe ich mich nicht"

970 PRINT "wieder in Gefahr."

971 PRINT

972 do

973 loop until inkey <> ""

974 GOTO ort_arbeitszimmer

975 END IF

976

977 PRINT "Gute Idee, das mit dem Messer. Der Typ"

978 PRINT "faehrt jetzt mit seinem Kleinbus in die Halle."

979 PRINT "Er steigt aus und macht die Hecktueren auf."

980 PRINT "Nun laed er zwei Kartons in das Gefaehrt, er"

981 PRINT "schliesst die Tueren, steigt wieder ein und"

982 PRINT "faehrt hinaus."

983 PRINT "Uff, das haette ich geschafft. Jetzt bloss schnell"

984 PRINT "zurueck ins Haus."

985 do

986 loop until inkey <> ""

987

988

989 PRINT "Was machst du?"

990 PRINT ""

991 PRINT "a: nach Hause gehen"

992 PRINT "b: noch da bleiben"

993 PRINT "c: nochmal in die Lagerhalle gehen"

994 PRINT ""

995 INPUT "Und wie entscheidest du dich?", entscheidung$

996 PRINT

997 IF entscheidung$ = "a" GOTO 140

998 IF entscheidung$ = "b" GOTO ort_arbeitszimmer

999 IF entscheidung$ = "c" THEN PRINT "Oh nein! Da geh ich nicht wieder hin!"

1000

1001

1002

1003

1004

1005

1006

1007 140 :

1008 ''''''' Zuhause '''''''

1009

1010 COLOR 2

1011 PRINT "Home sweet home - endlich wieder Zuhause!"

1012 do

1013 loop until inkey <> ""

1014 a140:

1015

1016 PRINT "Du willst dir gerade einen Tee machen, als"

1017 PRINT "Du einen Schlag an der Tuer hoerst und das"

1018 PRINT "Licht aus geht."

1019 PRINT ""

1020 PRINT "Was machst du?"

1021 PRINT "a: die Tuer oeffnen"

1022 PRINT "b: die Polizei anrufen"

1023 PRINT "c: dich unter dem Bett verstecken"

1024 PRINT ""

1025 INPUT "Und?", w$

1026 PRINT

1027 IF w$ = "a" GOTO 141

1028 IF w$ = "b" THEN PRINT "Du willst den Fall doch selbst loesen."

1029 IF w$ = "c" THEN PRINT "Du solltest dir einen anderen Job suchen."

1030 GOTO a140

1031

1032

1033

1034

1035

1036

1037

1038 141 :

1039

1040 COLOR 2

1041 PRINT

1042 PRINT

1043 PRINT "Du siehst gerade noch ein Auto"

1044 PRINT "wegfahren. "

1045 do

1046 loop until inkey <> ""

1047 cls

1048 LOCATE 17, 17

1049 COLOR 15

1050 PRINT "KA GR 48"

1051 SLEEP 500

1052 GOTO 142

1053 142 :

1054 cls

1055 COLOR 2

1056 PRINT "In deiner Tuer steckt ein Messer mit"

1057 PRINT "einer Botschaft. Du liest sie natuerlich"

1058 PRINT "sofort."

1059 do

1060 loop until inkey <> ""

1061

1062 COLOR 11

1063 PRINT "Wenn du dich einmischst"

1064 PRINT "dann bist du T O T !!!"

1065 do

1066 loop until inkey <> ""

1067

1068 COLOR 2

1069 PRINT ""

1070 PRINT ""

1071 PRINT "Diese Botschaft war ernst gemeint."

1072 PRINT "Aber als Privatdetektiv musst du dich"

1073 PRINT "halt ueber solche Morddrohungen hinweg-"

1074 PRINT "setzen. Deshalb rufst du sofort die"

1075 PRINT "Polizei an."

1076 do

1077 loop until inkey <> ""

1078

1079

1080

1081 do

1082 COLOR 9

1083 PRINT ""

1084 PRINT "Ja, hier Polizeirevier Ettlingen, Dieter"

1085 PRINT "Laenger. Was kann ich fuer Sie tun?"

1086 PRINT

1087 PRINT

1088 COLOR 12

1089 PRINT "a: Ich moechte Anzeige gegen einen Mann"

1090 PRINT " in einem gruenen Auto erstatten."

1091 PRINT

1092 PRINT "b: Ich moechte eine Pizza essen."

1093 PRINT

1094 PRINT "c: Ich moechte, dass Sie einen Mann"

1095 PRINT " in einem gruenen Auto verhaften."

1096 COLOR 12

1097 INPUT "Was antwortest du? (a,b,c)", a$

1098 IF a$ = "a" THEN GOTO 144

1099 IF a$ = "b" THEN PRINT "Du bist doch ein Spinner!"

1100 IF a$ = "c" THEN GOTO 144

1101 IF a$ = "q" THEN END

1102 loop until inkey <> ""

1103

1104

1105

1106

1107

1108

1109

1110 144 :

1111

1112 do

1113 COLOR 9

1114 PRINT ""

1115 PRINT "Wie heisst der Mann denn?"

1116 PRINT

1117 COLOR 12

1118 PRINT "a: Karl von Burlafingen."

1119 PRINT "b: Regideur Eklansch."

1120 PRINT "c: Ich kenne seinen Namen nicht."

1121 PRINT ""

1122 INPUT "Wie heisst er? (a,b,c)", w$

1123 PRINT ""

1124 IF w$ = "a" THEN PRINT "Das kann doch nicht dein Ernst sein."

1125 IF w$ = "b" THEN PRINT "Verarsch mich halt!!"

1126 IF w$ = "c" GOTO 145

1127 loop until inkey <> ""

1128

1129

1130

1131

1132

1133

1134 145 :

1135

1136 do

1137 PRINT

1138 COLOR 9

1139 PRINT "Was fuer eine Autonummer hatte er denn?"

1140 PRINT

1141 PRINT

1142 COLOR 12

1143 PRINT "a: KS ET 26"

1144 PRINT

1145 PRINT "b: HS AB 37"

1146 PRINT

1147 PRINT "c: KA GR 48"

1148 PRINT

1149 PRINT

1150 COLOR 12

1151 INPUT "Welche Autonummer hatte er? (a,b,c)", a$

1152 PRINT

1153 IF a$ = "a" THEN PRINT "Du solltest dein Gedaechtnis verbessern!"

1154 IF a$ = "b" THEN PRINT "Du solltest dein Gedaechtnis verbessern!"

1155 IF a$ = "c" GOTO 146

1156 loop until inkey <> ""

1157

1158

1159

1160

1161

1162

1163 146 :

1164

1165 COLOR 2

1166 PRINT ""

1167 PRINT "Der Polizist gab den guten Tip sofort"

1168 PRINT "an seine Kollegen weiter. Er dankte"

1169 PRINT "dir fuer die heisse Spur und du"

1170 PRINT "verabschiedeste dich und giengst nach"

1171 PRINT "Hause."

1172 do

1173 loop until inkey <> ""

1174

1175 PRINT ""

1176 PRINT "Zwei Tage spaeter kam ein Brief vom"

1177 PRINT "Polizeirevier:"

1178 do

1179 loop until inkey <> ""

1180

1181 COLOR 15

1182 PRINT "Sehrgeehrter Herr "; deinname$; ""

1183 PRINT "dank Ihnen konnten wie eine ganze"

1184 PRINT "Bande Waffenschieber dingfest machen."

1185 PRINT ""

1186 PRINT ""

1187 PRINT ""

1188 PRINT "Ausfuehrlicher Bericht auf der naechsten"

1189 PRINT "Seite."

1190 do

1191 loop until inkey <> ""

1192

1193 PRINT ""

1194 PRINT "Am Montag konnten wir den gruenen Audi"

1195 PRINT "von Schaefer (so heisst der Bersitzer)"

1196 PRINT "in der Karlsruher Innenstadt ausfindig"

1197 PRINT "machen. Wir folgten ihm bis zu seinem"

1198 PRINT "Hause. Dort umstellten wir es"

1199 PRINT "und stuermten. Beim Verhoer gestand"

1200 PRINT "er alles (Auftraggeber und alle"

1201 PRINT "Mitglieder). Am naechsten Tag konnten"

1202 PRINT "wir den Rest der Bande verhaften."

1203 PRINT "Am naechsten Donnerstag wird Mayr, der"

1204 PRINT "Boss der Truppe, wegen Mord an Karl"

1205 PRINT ""

1206 do

1207 loop until inkey <> ""

1208

1209 PRINT ""

1210 PRINT "Mueller verurteilt. Auch die Anderen"

1211 PRINT "werden wegen Beihilfe zum Mord vor"

1212 PRINT "Gericht gestellt werden."

1213 PRINT ""

1214 PRINT "Ich muss nochmal meinen Dank an Sie"

1215 PRINT "Aussprechen. Denn nur durch Sie konnten"

1216 PRINT "wir diese gefaehrliche Bande stoppen"

1217 PRINT ""

1218 PRINT ""

1219 PRINT ""

1220 PRINT " Polizeichef Mattias Huber"

1221 do

1222 loop until inkey <> ""

1223

1224

1225

1226 cls

1227 LOCATE 13, 10

1228 COLOR 13

1229 PRINT "Du hast gewonnen!"

1230 do

1231 loop until inkey <> ""

1232

1233

1234

1235

1236

1237 END

1238

1239

1240

1241

1242

1243

1244

1245

1246

1247

1248

1249 inventar:

1250 COLOR 5

1251 PRINT "+-- Inventar -----------+"

1252 PRINT "| |"

1253 PRINT "| Autoschluessel |"

1254 PRINT "| 200 Schilling |"

1255 IF tlampe% = 1 THEN PRINT "| Taschenlampe |"

1256 IF schluessel% = 1 THEN PRINT "| Schluessel |"

1257 IF messer% = 1 THEN PRINT "| Messer |"

1258 IF kerzenst% = 1 THEN PRINT "| Kerzenstaender |"

1259 PRINT "| |"

1260 PRINT "+-----------------------+"

1261 color 7

1262 RETURN

1263

1264

1265

1266 befehle:

1267 COLOR 3

1268 PRINT "Moegliche Befehle:"

1269 PRINT ""

1270 PRINT "umschauen"

1271 PRINT "oeffnen <Objekt>"

1272 PRINT "benutzen <Objekt>"

1273 PRINT "untersuchen <Objekt>"

1274 PRINT "sprechen mit <Person>"

1275 PRINT "gehen (in) <Ort>"

1276 PRINT "nehmen <Objekt>"

1277 color 7

1278 RETURN

1279