Dungeon Quest

Programm:
Input "(Q)uit or (S)tart ", i$
if i$ = "Q" then goto Ende_Quit
if i$ = "q" then goto Ende_Quit
if i$ = "S" then goto Start
if i$ = "s" then goto Start

# --------------------------------------

Ende_Demo:
# Ende der Demoversion mehr schreibe ich auch nicht :P
Print ""
Pause 2
Input "Hier endet die Demoversion von Dungeon Quest, wir hoffen du hattest Spaß. ", ent$
if ent$ = "ü" then Print "Ende der Demoversion mehr schreibe ich auch nicht :P"
Pause 2
Print ""
goto Wiederholung

Wiederholung:
Print ""
Input "Wollen Sie es nochmal versuchen? (J/N) ", ask2$
if ask2$ = "J" then goto Programm
if ask2$ = "j" then goto Programm
if ask2$ = "N" then goto Ende_Quit
if ask2$ = "n" then goto Ende_Quit

Ende_Quit:
Input "Wollen Sie wirklich beenden? (J/N) ", ask1$
if ask1$ = "J" then Print "Programm beendet."
if ask1$ = "j" then Print "Programm beendet."
if ask1$ = "N" then goto Programm
if ask1$ = "n" then goto Programm
end

# -------------------------------------

Mission_Death:
if i2$ = "M" then gosub Man_death
if i2$ = "F" then gosub Female_death
Man_death:
Print ""
Print "Du wirst beim Kampf tötlich verletzt und erliegst deinen Verletzungen kurze Zeit danach."
goto Ende_Loose
Female_death:
Print ""
Print "Du kannst nicht mehr mit ansehen was um dich geschieht, du opferst dein Leben um die Welt zu retten."
goto Ende_Loose

Mission_Success:
Print ""
if i2$ = "M" then print "Du wirst als Held im Dorf empfangen und gefeiert."
if i2$ = "F" then print "Du wirst als Heilerin und Bewahrerin vereehrt."
goto Ende_Demo

Mission_Fail:
if i2$ = "M" then print "Du bist in ungnade gefallen, du verlässt das Dorf und stirbst kurz darauf."
if i2$ = "F" then print "Du wirst zur nächsten Kascheme gebracht und musst nun ein Leben als Dirne fristen."
goto Ende_Loose

Ende_Loose:
Print "                  ---------- "
Print "                   Verloren  "
Print "                  ---------- "
Goto Programm

# ------------------------------------

Start:
Print "Willkommen bei Dungeon Quest."
Say "Welcome to Dungeon Quest."
Pause 1
Input "Willst du die Welt als (F)rau oder als (M)ann erleben? ", i2$
if i2$ = "M" then i3$ = "Mann"
if i2$ = "m" then i3$ = "Mann"
if i2$ = "F" then i3$ = "Frau"
if i2$ = "f" then i3$ = "Frau"
if i2$ = "M" then i4$ = "Krieger"
if i2$ = "m" then i4$ = "Krieger"
if i2$ = "F" then i4$ = "Heilerin"
if i2$ = "f" then i4$ = "Heilerin"
Pause 1
goto Level_1

Level_1:
Print ""
Print "Du erwachst aus einem merkwürdigen Traum."
Pause 0.35
Print "Ein Gefühl der Freude durchströmt dich als du dein Zimmer erkennst."
Print ""
Pause 0.5
Print "Heute ist der Tag an dem du als " + i3$ + " in die Dorfgesellschaft aufgenommen wirst."
Pause 0.5
Print "Du müsstest dich nur noch in deiner zukünftigen Rolle als " + i4$ + " im Dorf beweisen, sprach der Dorfälteste zu dir."
Pause 0.5
Print "Du sollst eine von zwei Aufgaben wählen, beide sind nicht ungefährlich, sprach der Älteste."
Print ""
Pause 0.5
if i2$ = "M" then goto Male1
if i2$ = "m" then goto Male1
if i2$ = "F" then goto Female1
if i2$ = "f" then goto Female1

Male1:
input "Erschlage einen (D)rachen oder vertreibe die (H)exe. ", qm1$
if qm1$ = "D" then goto Dragonquest
if qm1$ = "H" then goto Hexenjaeger
if qm1$ = "d" then goto Dragonquest
if qm1$ = "h" then goto Hexenjaeger
if qm1$ = "" then goto Mission_Fail

Female1:
input "Heile einen (K)ranken oder Reise zum Kloster der (W)eisen. ", qf1$
if qf1$ = "K" then goto Krankenheiler
if qf1$ = "W" then goto Klosterreise
if qf1$ = "k" then goto Krankenheiler
if qf1$ = "w" then goto Klosterreise
if qf1$ = "" then goto Mission_Fail

Dragonquest:
Print ""
Print "Drachenquest"
Pause 0.5
Print "Der Dorfälteste freute sich, dass du dich bereit erklärt hattest den schrecklichen Drachen Shogun II. zu töten."
Pause 0.5
Print "Der Rat der Ältesten gaben dir ein Schwert und eine Karte mit, so machst du dich auf den Drachen zu erschlagen."
gm1$ = "Schwert"
gm2$ = "Karte"
Pause 0.5
Print "Du erreichst die Höhle von Shogun, dennoch hatte dir die " + gm2$ + ", welche dir die Ältesten gegeben hatten nichts gebracht."
Pause 0.5
Input "Du denkst darüber nach die " + gm2$ + " (w)egzuschmeissen. ", am1$
if am1$ = "w" then goto DQPlanlos
if am1$ = "" then goto DQAngriff

DQPlanlos:
Print "Der Drache hatte dein treiben unlängst beobachtet und war nicht erfreut, dass du Müll in seien Vorgarten schmeisst."
Pause 0.5
Print ""
Print "Du hörst ein gefährliches Fauchen und plötzlich stand er vor dir, der schreckliche und äußerst verärgerte Drache."
Pause 0.5
Input "Du duckst dich als der Drache über dich stürzt, zückst du nun dein (S)chwert oder (R)ollst dich nochmals weg? ", am1_1$
Print ""
if am1_1$ = "S" then r = 0
if am1_1$ = "S" then goto DQSchmach
if am1_1$ = "R" then Print "Du entgehst dem Angriff und Shogun erkennt nun, dass er einen würdigen Gegner hat. Er sprich dich an und frag dich mit seiner grollenden Stimme ob du bereit wärst zu sterben."
Pause 0.5
Print "Du überlegst was du sagen sollst."
Input "(W)eglaufen, dem (K)ampf stellen oder (R)esignieren ", am1_2$
if am1_2$ = "W" then r = 1
if am1_2$ = "W" then goto DQSchmach
if am1_2$ = "K" then goto Mission_Death
if am1_2$ = "R" then goto DQFreundschaft

DQSchmach:
if r = 1 then goto Mission_Fail
if r = 0 then Print "Dein " + gm1$ + " zerbricht als du die Schuppen des Drachen streifst, du ergreifst die Flucht, im Dorf sind alle froh, das du es versucht hast."
Print "Du musst nun die Aufgabe mit der Hexe in Angriff nehmen, sonst wird nie ein echter " + i4$ + " und angesehener " + i3$ + " aus dir, denkst du und ziehst los."
goto Hexenjaeger

DQFreundschaft:
Print ""
Print "Du willst eine Antwort geben, doch es kommt nur schüchternes Gestammel aus deinem Mund, letztlich siehst du es ein, dass du allein gegen Shogun keine Chance hast."
Pause 0.5
Print "Du bittest Shogun dich gut durch zu braten, bevor er dich verspeist."
Pause 0.5
Print "Du bist verwundert als Shogun sich krümmt und ein Brüllen seine Zähne entblöst. Du bekommst es mit der Angst zu tun, doch bevor deine schlimmsten Befürchtungen wahr werden, entgegnet der Drache, er sei noch nimandem mit einem solch guten Humor begegnet."
Pause 0.5
Print ""
Print "Du und Shogun schließt einen Packt miteinander, da du sein und er dein Leben verschont hat."
df = 1
Print "Du kehrst ins Dorf zurück."
ms = 1
goto Mission_Success

DQAngriff:
Print ""
Print "Du verwirfst den Gedanken und gehst schnurrgerade auf den Höhleneingang zu."
Print "Du entdeckst eine Glocke am Höhleneingang, nun kommst du dir etwas schäbig vor, denn dir hatte man Anstand beigebracht."
Pause 0.5
Print ""
Input "Du überlegst ob du (L)äuten oder es (N)icht tun solltest. ", am1_3$
if am1_3$ = "L" then gosub Laeuten
if am1_3$ = "N" then gosub DQAngriff2

Laeuten:
Print ""
Print "Du läutest am Eingang, Shogun, denn du wohl grade beim Putzen gestört hast, denn er trägt eine Schürze, streckt den Kopf aus der Höhle und erklärt dir mit dröhnender Stimme, dass er dich töten müsse, aber sich für deine Freundlichkeit bedanke."
goto DQFreundschaft

DQAngriff2:
Print ""
Print "Du stürmst in die Höhle und überrascht den, mit Hausarbeiten, beschäftigten Drachen, noch bevor er Feuer speien kann, enthauptest du ihn und kehrst mit dem Kopf, als Beweis deines Heldenmuts, in dein Dorf zurück."
goto Mission_Success

Hexenjaeger:
Print ""
Print "Hexejäger"
Pause 0.5
Print ""
Print "Der Älteste erstaunte, als du dich für diese Aufgabe entschiedest."
Print "Nun müsstest du zuerst zum Kloster der Weißen reisen um alles über die Hexe 'Kasara' zu erfahren."
Pause 0.5
Print ""
Print "Du machst dich zum Kloster auf, um die Geheimnisse um 'Kasara' zu erkunden."
Pause 0.5
Print "Nach einer langen Wanderschaft, denn das Kloster lag nun mal am - sprichwörtlichen - Arsch der Welt, erreichst du endlich die heiligen Hallen der Weisheit."
Pause 0.5
Print "Kaum dass du einen Fuß über die Torschwelle gesetzt hast, wirst du gleich vom Abt - du glaubst es zumindest - empfangen."
Pause 0.5
Print "Der Abt sprach dich an und fragte ob du der jenige seist der die Hexe 'Kasara' vertreiben und dem Land frieden bringen würdest."
Print "Du fragst dich ob es doch nicht zu viel gewesen ist und du den Drachen hättest erschlagen sollen."
Input "Du fragst dich ob du nun die Frage (v)erneinen oder (b)ejaen solltest. ", am2_1$
if am2_1$ = "v" then goto Mission_Fail
if am2_1$ = "b" then goto HQGeheimnisse_der_Hexe

HQGeheimnisse_der_Hexe:
Print ""
Print "Du wirst in die Bibliothek - welche mehr verstaubte Wälzer als Menschen im Kloster beherrbergte - geführt, du fürchtest bereits nie die Hexe zu Gesicht zu bekommen, sondern eher an Altersschwäche zu sterben."
Pause 0.5
Print ""
Print "Doch deine Befürchtugen werden zerstreut, als der Abt mit einem schmalen und sehr kleinen Buch zurück kommt und es dir überreicht. Du fragst dich was tun sollst."
Pause 0.5
Input "Sollst du das Buch (l)esen oder es (w)eglegen. ", am2_2$
if am2_2$ = "l" then x = 1
if am2_2$ = "l" then goto HQLeseratte
if am2_2$ = "w" then x = 0
if am2_2$ = "w" then goto HQHexenjagt

HQLeseratte:
Print ""
Print "Du nimmt den schmalen Schinken und fängst an zu lesen, nach etwa einer gefühlten Woche - in Wahrheit waren es nur 3 Tage - bist du mit dem intensiven Studium fertig und fühlst dich bereit es mit 'Kasara' aufzunehmen."
Pause 0.5
Print ""
Print "Der Abt gibt dir noch ein Fläschchen mit einer dir unbekannten Flüssigkeit mit, mit dem Rat es weise einzusetzen."
goto HQHexenjagt

HQHexenjagt:
Print ""
Print "Du machst dich zur Behausung der Hexe auf, wohl mit einem unguten Gefühl."
Pause 0.5
Print "Nach einer sehr langen Wanderschaft - längst nicht so lang wie zum Kloster - kommst du an das Haus der Hexe."
Pause 0.5
Print "Erschrocken stellst du fest, dass es sich nicht um ein simples Haus - wie im Dorf - handelt sondern um ein Anwesen mit mindestens 4 Morgen Land darum."
Print ""
Print "Du läufst die Bezaunung ab, und hoffst einen Weg hindurch zu finden, aber du suchst vergebens, es gibt kein Tor."
if x = 1 then goto HQGeheimtuer
if x = 0 then goto HQSprung

HQGeheimtuer:
Print ""
Print "Nun bist du froh doch die Seiten genauer angesehen zu haben, denn laut denen müsste sich ganz in deiner Nähe eine Geheimtür befinden, welche die Hexe nie abschließt."
Pause 0.5
Print "Und tatsächlich du findest keine 5 Fuß von deinem vorherigen Standort die verborgene Tür. Du öffnest Sie und dringst unbemerkt in das Anwesen ein."
goto HQAnwesen

HQSprung:
Print ""
Print "Du bist niedergeschlagen, es gibt nur einen Weg über die Bezaunung zu kommen und zwar mit einem Sprung."
Input "Du fragst dich ob du einen (S)tab oder einen (B)aumstumpf benutzen solltest. ", am2_3$
if am2_3$ = "S" then goto HQSprung2
if am2_3$ = "B" then goto HQSprung3

HQSprung2:
Print ""
Print "Du nimmst dir einen geeigneten Stab aus dem benachbarten Wäldchen und rennst mit diesem auf den Zaun zu, kurz vor erreichen rammst du den Stab in den Boden und fliegst 3 Fuß hoch über den Zaun."
Pause 0.5
Print "Zu deinem Glück wurdest du bei dieser Aktion nicht beobachtet und dringst unbemerkt ein."
goto HQAnwesen

HQSprung3:
Print ""
Print "Du nimmst Anlauf uns benutzt den Stumpf einer Eiche um in einem Satz über den Zaun zu kommen, doch du hast die Rechnung ohne die Lanzenspitzen auf dem Zaun gemacht, du bleibst hängen."
Pause 0.5
Print "Ein Schmerzschrei entweicht deiner Kehle, als sich die Lanzenspitze in dein Bein bohrt. Und noch was wird dir wie auf einen Schlag bewusst, du hättest nicht schreien sollen."
Pause 0.5
Print ""
Print "Doch nun ist es zu spät, die Hexe hat deinen Schrei vernommen und du bist erledigt, denkst du dir im stillen."
Pause 0.5
Print "Kurz nach diesem Gedanken taucht die Hexe 'Kasara' auf, doch anders als du gedacht hast steht nun - da du immer noch hängst auf dem Kopf stehend - eine bezaubernde junge Frau vor dir."
Pause 0.5
Print "Du schließt gerade mit deinem Leben ab, als die Hexe dir runterhilft und dich um dein Wohlbefinden befrägt."
Print "Verwirrt und verängstigt erklärst du Ihr was mit deinem Bein ist, doch kaum hast du Ihr erklärt was mit dir ist, durchfährt es dich wie ein Blitz."
gosub HQGespraech
HQGespraech:
Pause 0.5
Print "Du fragst sie nach ihrem Namen und erfährst das sie Beatrix heißt und dass sie die ehemalige Heilerin deines Dorfes ist."
Pause 0.5
Print "Du beschließt deine Mission zu beenden und deine Angehörigen glauben zu lassen du seist gestorben."
Print "Nach einer schönen Sommerzeit Heiratest du Beatrix und ihr bekommt im Sommer darauf Drillinge."
goto Ende_Demo

HQAnwesen:
Print ""
Print "Du schleichst dich bis zum Hauptgebäude, in dem du die Hexe vermutest."
Pause 0.5
Print "Nach kurzer Zeit hörst du aus einem Raum eine weibliche Stimme, es muss 'Kasara' sein, vermutest du."
Pause 0.5
Print "Du lauscht dem Gesang:"
Print "Pumpkin, Pumpkin, where are you have gone~"
Pause 1.0
Print "Du schüttestelst den Kopf und denkst was das für ein schwachsinniges Lied sei."
Pause 0.5
Input "Du fragst dich ob du (e)indringen oder (a)bwarten sollst.", am2_4$
if am2_4$ = "e" then goto HQBathroom
if am2_4$ = "a" then goto HQFlur

HQBathroom:
Print ""
Print "Du dringst in den Raum ein, du kannst es nicht fassen, dass du in einem Badezimmer stehst und sie nackt im übergroßen Waschzuber liegt."
Pause 0.5
Print "Du merkst, dass du rot wirst - nicht nur das, du bekommst Nasenbluten - und 'Kasara' hatte dich auch bemerkt und stieß erstmal ein glockenhelles Lachen, wegen deinem Aussehen, aus."
Pause 0.5
Print "Du näherst dich dem Zuber, denn du witterst deine Chance sie nicht nur zu vertreiben sondern zu töten."
Pause 0.5
if x = 1 then goto HQHolywater
Print ""
Print "Du springst 'Kasara' an und willst die ertränken, doch sie hatte anscheinend schon damit gerechnet und du erstarrst."
goto Mission_Death

HQHolywater:
Print ""
Print "Du trittst an den Zuber ran und beugst dich zu ihr vor, ihr seht euch an und du hoffst sie erkennt deine Absicht nicht."
Pause 0.5
Print "Noch bevor sie bemerkt, was du da treibst, schüttest du das 'Heilige Wasser', welches du vom Abt erhalten hattest ins Badewasser."
Pause 0.5
Print ""
Print "Ein grässlicher und spitzer Schrei entspringt der Kehle der Hexe, doch statt, wie von dir vermutet, sich auf zu lösen, entweicht ein böser Schatten ihrem Körper und verschwindet durch die Zimmerdecke."
Pause 0.75
Print ""
Print "Du bist völlig verwirrt, als sie sich aus dem Zuber erhebt und dir ein wunderschönes Mädchen - da sie ja immer noch nackt ist - um den Hals fällt und in deinen Armen einschläft."
Pause 0.5
Print ""
Print "Du kleidest sie so gut du kannst ein und reist zurück zum Dorf, auch hast du vor sie, sie nennt sich selbst Beatrix, zu heiraten."
goto Mission_Success

HQFlur:
Print ""
Print "Du wartest vor dem Zimmer darauf, das 'Kasara' endlich raus kommt; du bist erstaunt wie lange Frauen bei sowas brauchen können, denn immer hin ist schon eine Stunde vergangen."
Pause 0.5
Print "Verzweifelt willst du gehen, als du hinter dir die Stimme von 'Kasara' vernimmst."
Print "Du drehst dich um, um der Hexe ins Gesicht sehen zu können."
Pause 0.5
Print ""
Print "Du bemerkst das sie selbst für eine Hexe ausgesprochen hübsch ist, aber dass ist nicht das einzige was du bei ihrem Anblick erkennst."
Pause 0.5
Print ""
Input "Sollstest du nun (A)ngreifen oder (R)eden, schießt es dir durch den Kopf. ", am2_5$
if am2_5$ = "A" then goto HQBloodfloor
if am2_5$ = "R" then goto HQRede

HQBloodfloor:
Print ""
Print "Du stürzt dich auf 'Kasara' mit einem Schlachtruf, doch bevor du sie erreichen kannst wirst du von einem unsichtbaren Hieb getroffen, benommen sinkst du zu Boden."
goto Mission_Death

HQRede:
Print ""
Print "Du fängst an zu Reden und ihr kommt tatsächlich zu einem Gespräch."
goto HQGespraech


Krankenheiler:
Print ""
Print "Krankenschwester"
goto Mission_Success

Klosterreise:
Print ""
Print "Kloster"
goto Mission_Success