Werwolfprogramm

Beschreibung: Ein "Gänsehautbuch" sollte hier eigentlich nach und nach in ein Pascalprogramm umgesetzt werden. Die Besonderheit der Geschichte, war die Möglichkeit die Geschichte selber zu wählen, sodass alternative Fortsetzungen entstehen können. Die Geschichte ist bis zur ersten Auswahlmöglichkeit geschrieben und wurde dort unterbrochen, somit bei weitem unfertig. Sehr unwahrscheinlich, dass dieses Programm einmal fertig werden wird.

program werwolf;

uses wincrt;

begin

writeln ('Die Rache der Werwölfe.');
writeln ('Eine Geschichte von R.L. Stine');
readln();
writeln ('He Wahnsinn! Du hast den ersten Preis beim Gruselgeschichten-Wettbewerb gewonnen ');
write ('und darfst nun zu einem Treffen berühmter Horrorschriftsteller im Hotel zur Knorrigen Kiefer.' );
write ('Das Problem ist nur, dass dir der Horror im Hotel seltsam echt erscheint... Da ist zum Beispiel ');
write ('dieses sonderbare Heulen, das du ständig hörst. Und der finster ussehende Mann in Schwarz. ');
write ('und was ist mit den merkwürdigen Manuskriptenseiten, die du andauernd findest? ');
write ('Was darauf steht, schein immer kurz danach Wirklichkeit zu werden!');
writeln ('Wird es dir gelingen, das Geheimnis des Hotels zu Knorrigen Kiefer aufzudecken, bevor es zu spät ist?');
writeln ('Bei diesem unheimlichen Abenteuer hängt alles von DIR ab. DU entscheidest, was passiert ');
write ('und wie schaurig sich die Geschichte entwickelt!');
writeln ('Wenn du die richtigen Entscheidungen triffst, wartet ein spannendes Abenteuer auf dich. ');
write ('Triffst du jedoch die falschen Entscheidungen - dann NIMM DICH IN ACHT!');
readln();
clrscr;
writeln ('Die Rache der Werwölfe.');
writeln ('Eine Geschichte von R.L. Stine');
writeln ('-----------------');
write ('"Hotel zur Knorrigen Kiefer - letzter Halt. Endstation!" ');
write ('Du schreckst auf, als die dröhnende Stimme des Busfahrers ertönt. "Du musst wohl weggedöst sein. ');
write ('"Wurde aber auch Zeit!", brummst du. Letzter Halt? Einziger Halt trifft es da schon eher. ');
writeln ('Schließlich bist du der einzige Fahrgast in dieser klpprigen Eiskiste auf vier Rädern. ');
write ('Du öffnest deine Reisetasche und wirfst den Gameboy hinein, mit dem du während der Fahrt gespielt hast. ');
write ('Er landet oben auf ein paar Schokoriegeln, einem Gummiball sowie dem Manuskript deiner Kurzgeschichte: ');
write ('"Die Rache der Werwölfe." Mit diesem Text hat du bei einem Schülerwettbewerb den ersten Preis ');
write ('für die beste Gruselgeschichte gewonnen. Als Gewinner darfst du an einem Wochenendseminar ');
write ('für Horrorschriftsteller im Hotel zur Knorrigen Kiefer teilnehmen. ');
write ('Fahrt, Übernachtung, Verpflegung - alles frei. Die berühmtesten Autoren werden da sein. ');
write ('Die Sache hat nur einen Haken: Du hast die Geschichte gar nicht selbst geschrieben.');
readln();
clrscr;
writeln ('Die Rache der Werwölfe.');
writeln ('Eine Geschichte von R.L. Stine');
writeln ('-----------------');
write ('Beim Anblick des Manuskripts kriegst du sofort ein ganz schlechtes Gewissen. ');
write ('Du hast die Geschichte in der Schule gefunden. Sie lag im Mülleiner. ');
write ('Aus Spaß hast du deinen Namen draufgeschrieben, aber das Manuskript gleich darauf irgendwo liegen ');
write ('lassen, bevor du es überhaupt lesen konntest. ');
write ('Dann hieß es auf einmal, du seist der Gewinner des Wettbewerbes um die beste Gruselgeschichte! ');
write ('Und jetzt sitzt du in diesem Bus, der sich im starken Schneesturm durch eine düstere ');
write ('Gebirgslandschaft fährt, und willst dir deinen Preis abholen. ');
writeln ('Einen Preis, der dir in Wahrheit gar nicht zusteht. ');
write ('"So, dann musst du jetzt wohl von und gehen!" Der Fahrer lacht und bremst so abrupt, dass ');
write ('du durchgeschüttelt wirst. Hätte er das nicht weniger dramatisch ausdrücken können? ');
write ('Du schneppst dir eine Reisetasche und steigst aus. Sofort fährt der Bus wieder los und bläst ');
writeln ('die eine stinkende Abgaswolke ins Gesicht');
write ('Direkt vor dir erhebt sich eine riesige, knorrige Kiefer. An dem Gebäude dahinter hängt ein ');
write ('Spruchband, auf dem steht: HERZLICH WILLKOMMEN IN DER KNORRIGEN KIEFER - DEM HOTEL DES GRAUENS.');
readln();
clrscr;
writeln ('Die Rache der Werwölfe.');
writeln ('Eine Geschichte von R.L. Stine');
writeln ('-----------------');
writeln ('"Das ist ja eine angenehme Begrüßung", murmelst du für dich. "Ist denn hier keiner?" ');
write ('Du zuckst zusammen, als sich im Gebüsch neben dir plötzlich etwas bewegt. ');
write ('Ein ganz in schwarz gekleideter Mann löst sich aus dem Schatten. ');
write ('Er hat sich seinen schwarzen Hut so tief in die Stirn gezogen, dass du nichts von seinem Gesicht siehst. ');
writeln ('In der Hand trägt er eine schwarze Aktentasche. ');
write ('Als er an dir vorübergeht, klappt die Tasche auf einmal auf und ein Bündel bedruckter Blätter ');
write (' wirbelt durch die Luft. "O nein!", ruft der Mann. Ein plötzlicher Windstoß verteilt die Seiten ');
write ('auf dem gesamten Grundstück. "Meine Geschichte" ');
write ('Ein paar der Papierbögen sind direkt vor deinen Füßen liegen geblieben. ');
write ('Du bückst dich, um die aufzuheben und überfliegst dabei schnell den Text. Es scheint sich um ');
write ('eine Gruselgeschichte zu handeln. Ist der schwarz gekleidete Mann womöglich einer der ');
writeln ('berühmten Schriftsteller, die du hier kennen lernen sollst? ');
writeln ('Als du wieder aufblickst, ist der Mann verschwunden. "He, Sie!", rufst du. "Sie haben Ihre ..." ');
writeln ('Aber dann zuckst du mit den Achseln. Dermann ist weg. ');
write ('Du wendest dich wieder den zerknitterten Blättern in deiner Hand zu und liest die erste Seite ');
writeln ('in Ruhe durch. Es ist der Beginn einer Geschichte mit dem Titel: "Die Rache der Werwölfe" ');
write ('Dir klappt vor Schreck die Kinnlade herunter. Das ist doch der Titel der preisgekrönten ');
writeln ('Geschichte, die du geschrieben hast! ');
write ('Na ja ... die du ANGEBLICH geschrieben hast. Du liest weiter. ');
write ('Es geht um ein Kind, das einen Wettbewerb gewonnen hat. Genau wie du. Es ist gerade vor seinem ');
write ('Hotel anekommen - genau wie du! Es steht alles haarklein in der Geschichte. ');
write ('Sogar der Mann und seine Aktentasche kommen darun vor! Dir stockt der Atem, als du begreifst, ');
write ('was das bedeutet. In der Geschichte steht das, was du erlebst - und zwar genau jetzt in ');
write ('diesem Augenblick! ');
readln();
clrscr;
writeln ('Die Rache der Werwölfe.');
writeln ('Eine Geschichte von R.L. Stine');
writeln ('-----------------');
write ('"D... d... das gibts doch nicht, oder?", stammelst du und starrst fassungslos auf die Seiten. ');
write ('Wie kann jemand von alldem wissen und bereits eine Geschichte darüber geschrieben haben? ');
write ('Plötzlich schießt dir ein Gedanke durch den Kopf: Wenn der Autor dieser Seiten die Vergangenheit ');
writeln ('kennt - dann weiß er womöglich auch, was alles noch in der Zukunfst passieren wird. ');
writeln ('Aufgeregt blätterst du weiter un liest: ');
writeln ('');
write ('"Ihr Schicksal ist besiegelt! Keiner der Gäste wird das Hotel ungeschoren verlassen. ');
write ('Diese Schriftsteller lassen in ihren Horrorgeschichten Werwölfe und andere Geschöpfe ');
write ('der Nach ja auch nie ungeschoren. Und deshalb sollen sie das Grauen, über das sie immer ');
write ('schreiben, am eigenen Leibe erleben. Und die Leser und Fans von Gruselgeschichten genauso. ');
write ('Heute Nach ist die Nach der "Rache der Werwölfe"! Und die Einzigen, die davon wissen, sind ');
write ('derjenige, der diese Seite geschrieben hat - und derjenige, der sie jetzt liest." ');
readln();
clrscr;
writeln ('Die Rache der Werwölfe.');
writeln ('Eine Geschichte von R.L. Stine');
writeln ('-----------------');
(*abschnitt 8*)
write ('"Und für so einen Mist bekommt man den ersten Preis?" Du lachst verächtlich.');
writeln('"Da wäre ja sogar MIR noch was Besseres eingefallen!"');
write ('Und fu hattest im ersten Moment fast geglaubt, die Geschichte würde zukünftige ');
write ('Ereignisse vorhersagen. Kompletter Quatsch. Es war nur ein Zufall, dass ');
writeln ('die ersten Sätze exakt das zu beschreiben schien, was dir passiert ist.');
write ('Nein wirklich. Du schüttelst den Kopf. Mit dem Stuss kann man nirgendwo ');
write ('einen Blumentopf gewinnen. Dazu ist das Ganze viel zu unwahrscheinlich. ');
write ('Schriftsteller, die von ihren eigenen Schöpfungen heimgesucht werden? ');
write ('Leser, denen das Grauen live begegnet? Total absurd. Das würde niemand ');
write ('glauben. Aber der Mann in Schwarz will seine Geschichte wahrscheinlich ');
writeln ('trotzdem wiederhaben.');
write ('Du steigst die Stufen zum Hotel hinauf, doch die Tür ist zu. ');
write ('Als du den ersten Türklopfer in die Hand nimmst, stößt du einen ');
write ('Schrei aus. Er ist die täuschend echte Nachbildung eines Wolfkopfes. ');
writeln ('So realistisch, dass du beinahe Angst bekommst, er könnte dich beißen.');
write ('Während du darauf wartest, dass dir aufgemacht wird, siehst du plötzlich den ');
writeln ('schwarz gekleideten Mann wieder. Er schleicht durchs Gebüch und verschwindet um die Ecke.');
write ('"He!", rufst du und wedelst mit seinem Manuskript, aber er scheint dich nicht zu hören. ');
write ('Ob du ihm nachlaufen sollst? Oder wäre es besser, zuerst im Hotel Bescheid zu sagen, ');
writeln ('dass du angekommen bist?');
writeln ('-------');
writeln ('Möchtest du ins Hotel, gib bitte eine 10 ein.');
writeln ('Wenn du dem Mann in Schwarz hinterherlaufen willst, gib bitte eine 40 ein.');
clrscr;
writeln ('Die Rache der Werwölfe.');
writeln ('Eine Geschichte von R.L. Stine');
writeln ('-----------------');
(*abschnitt 40*)
 

readln();
end.

Eigene Homepage, kostenlos erstellt mit Web-Gear

Verantwortlich für den Inhalt dieser Seite ist ausschließlich der Autor dieser Webseite. Verstoß anzeigen