Andreas_0690

Dungeon Quest

Jun 27th, 2016
623
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Programm:
  2. Input "(Q)uit or (S)tart ", i$
  3. if i$ = "Q" then goto Ende_Quit
  4. if i$ = "q" then goto Ende_Quit
  5. if i$ = "S" then goto Start
  6. if i$ = "s" then goto Start
  7.  
  8. # --------------------------------------
  9.  
  10. Ende_Demo:
  11. # Ende der Demoversion mehr schreibe ich auch nicht :P
  12. Print ""
  13. Pause 2
  14. Input "Hier endet die Demoversion von Dungeon Quest, wir hoffen du hattest Spaß. ", ent$
  15. if ent$ = "ü" then Print "Ende der Demoversion mehr schreibe ich auch nicht :P"
  16. Pause 2
  17. Print ""
  18. goto Wiederholung
  19.  
  20. Wiederholung:
  21. Print ""
  22. Input "Wollen Sie es nochmal versuchen? (J/N) ", ask2$
  23. if ask2$ = "J" then goto Programm
  24. if ask2$ = "j" then goto Programm
  25. if ask2$ = "N" then goto Ende_Quit
  26. if ask2$ = "n" then goto Ende_Quit
  27.  
  28. Ende_Quit:
  29. Input "Wollen Sie wirklich beenden? (J/N) ", ask1$
  30. if ask1$ = "J" then Print "Programm beendet."
  31. if ask1$ = "j" then Print "Programm beendet."
  32. if ask1$ = "N" then goto Programm
  33. if ask1$ = "n" then goto Programm
  34. end
  35.  
  36. # -------------------------------------
  37.  
  38. Mission_Death:
  39. if i2$ = "M" then gosub Man_death
  40. if i2$ = "F" then gosub Female_death
  41. Man_death:
  42. Print ""
  43. Print "Du wirst beim Kampf tötlich verletzt und erliegst deinen Verletzungen kurze Zeit danach."
  44. goto Ende_Loose
  45. Female_death:
  46. Print ""
  47. Print "Du kannst nicht mehr mit ansehen was um dich geschieht, du opferst dein Leben um die Welt zu retten."
  48. goto Ende_Loose
  49.  
  50. Mission_Success:
  51. Print ""
  52. if i2$ = "M" then print "Du wirst als Held im Dorf empfangen und gefeiert."
  53. if i2$ = "F" then print "Du wirst als Heilerin und Bewahrerin vereehrt."
  54. goto Ende_Demo
  55.  
  56. Mission_Fail:
  57. if i2$ = "M" then print "Du bist in ungnade gefallen, du verlässt das Dorf und stirbst kurz darauf."
  58. if i2$ = "F" then print "Du wirst zur nächsten Kascheme gebracht und musst nun ein Leben als Dirne fristen."
  59. goto Ende_Loose
  60.  
  61. Ende_Loose:
  62. Print "                  ---------- "
  63. Print "                   Verloren  "
  64. Print "                  ---------- "
  65. Goto Programm
  66.  
  67. # ------------------------------------
  68.  
  69. Start:
  70. Print "Willkommen bei Dungeon Quest."
  71. Say "Welcome to Dungeon Quest."
  72. Pause 1
  73. Input "Willst du die Welt als (F)rau oder als (M)ann erleben? ", i2$
  74. if i2$ = "M" then i3$ = "Mann"
  75. if i2$ = "m" then i3$ = "Mann"
  76. if i2$ = "F" then i3$ = "Frau"
  77. if i2$ = "f" then i3$ = "Frau"
  78. if i2$ = "M" then i4$ = "Krieger"
  79. if i2$ = "m" then i4$ = "Krieger"
  80. if i2$ = "F" then i4$ = "Heilerin"
  81. if i2$ = "f" then i4$ = "Heilerin"
  82. Pause 1
  83. goto Level_1
  84.  
  85. Level_1:
  86. Print ""
  87. Print "Du erwachst aus einem merkwürdigen Traum."
  88. Pause 0.35
  89. Print "Ein Gefühl der Freude durchströmt dich als du dein Zimmer erkennst."
  90. Print ""
  91. Pause 0.5
  92. Print "Heute ist der Tag an dem du als " + i3$ + " in die Dorfgesellschaft aufgenommen wirst."
  93. Pause 0.5
  94. Print "Du müsstest dich nur noch in deiner zukünftigen Rolle als " + i4$ + " im Dorf beweisen, sprach der Dorfälteste zu dir."
  95. Pause 0.5
  96. Print "Du sollst eine von zwei Aufgaben wählen, beide sind nicht ungefährlich, sprach der Älteste."
  97. Print ""
  98. Pause 0.5
  99. if i2$ = "M" then goto Male1
  100. if i2$ = "m" then goto Male1
  101. if i2$ = "F" then goto Female1
  102. if i2$ = "f" then goto Female1
  103.  
  104. Male1:
  105. input "Erschlage einen (D)rachen oder vertreibe die (H)exe. ", qm1$
  106. if qm1$ = "D" then goto Dragonquest
  107. if qm1$ = "H" then goto Hexenjaeger
  108. if qm1$ = "d" then goto Dragonquest
  109. if qm1$ = "h" then goto Hexenjaeger
  110. if qm1$ = "" then goto Mission_Fail
  111.  
  112. Female1:
  113. input "Heile einen (K)ranken oder Reise zum Kloster der (W)eisen. ", qf1$
  114. if qf1$ = "K" then goto Krankenheiler
  115. if qf1$ = "W" then goto Klosterreise
  116. if qf1$ = "k" then goto Krankenheiler
  117. if qf1$ = "w" then goto Klosterreise
  118. if qf1$ = "" then goto Mission_Fail
  119.  
  120. Dragonquest:
  121. Print ""
  122. Print "Drachenquest"
  123. Pause 0.5
  124. Print "Der Dorfälteste freute sich, dass du dich bereit erklärt hattest den schrecklichen Drachen Shogun II. zu töten."
  125. Pause 0.5
  126. Print "Der Rat der Ältesten gaben dir ein Schwert und eine Karte mit, so machst du dich auf den Drachen zu erschlagen."
  127. gm1$ = "Schwert"
  128. gm2$ = "Karte"
  129. Pause 0.5
  130. Print "Du erreichst die Höhle von Shogun, dennoch hatte dir die " + gm2$ + ", welche dir die Ältesten gegeben hatten nichts gebracht."
  131. Pause 0.5
  132. Input "Du denkst darüber nach die " + gm2$ + " (w)egzuschmeissen. ", am1$
  133. if am1$ = "w" then goto DQPlanlos
  134. if am1$ = "" then goto DQAngriff
  135.  
  136. DQPlanlos:
  137. Print "Der Drache hatte dein treiben unlängst beobachtet und war nicht erfreut, dass du Müll in seien Vorgarten schmeisst."
  138. Pause 0.5
  139. Print ""
  140. Print "Du hörst ein gefährliches Fauchen und plötzlich stand er vor dir, der schreckliche und äußerst verärgerte Drache."
  141. Pause 0.5
  142. 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$
  143. Print ""
  144. if am1_1$ = "S" then r = 0
  145. if am1_1$ = "S" then goto DQSchmach
  146. 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."
  147. Pause 0.5
  148. Print "Du überlegst was du sagen sollst."
  149. Input "(W)eglaufen, dem (K)ampf stellen oder (R)esignieren ", am1_2$
  150. if am1_2$ = "W" then r = 1
  151. if am1_2$ = "W" then goto DQSchmach
  152. if am1_2$ = "K" then goto Mission_Death
  153. if am1_2$ = "R" then goto DQFreundschaft
  154.  
  155. DQSchmach:
  156. if r = 1 then goto Mission_Fail
  157. 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."
  158. 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."
  159. goto Hexenjaeger
  160.  
  161. DQFreundschaft:
  162. Print ""
  163. 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."
  164. Pause 0.5
  165. Print "Du bittest Shogun dich gut durch zu braten, bevor er dich verspeist."
  166. Pause 0.5
  167. 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."
  168. Pause 0.5
  169. Print ""
  170. Print "Du und Shogun schließt einen Packt miteinander, da du sein und er dein Leben verschont hat."
  171. df = 1
  172. Print "Du kehrst ins Dorf zurück."
  173. ms = 1
  174. goto Mission_Success
  175.  
  176. DQAngriff:
  177. Print ""
  178. Print "Du verwirfst den Gedanken und gehst schnurrgerade auf den Höhleneingang zu."
  179. Print "Du entdeckst eine Glocke am Höhleneingang, nun kommst du dir etwas schäbig vor, denn dir hatte man Anstand beigebracht."
  180. Pause 0.5
  181. Print ""
  182. Input "Du überlegst ob du (L)äuten oder es (N)icht tun solltest. ", am1_3$
  183. if am1_3$ = "L" then gosub Laeuten
  184. if am1_3$ = "N" then gosub DQAngriff2
  185.  
  186. Laeuten:
  187. Print ""
  188. 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."
  189. goto DQFreundschaft
  190.  
  191. DQAngriff2:
  192. Print ""
  193. 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."
  194. goto Mission_Success
  195.  
  196. Hexenjaeger:
  197. Print ""
  198. Print "Hexejäger"
  199. Pause 0.5
  200. Print ""
  201. Print "Der Älteste erstaunte, als du dich für diese Aufgabe entschiedest."
  202. Print "Nun müsstest du zuerst zum Kloster der Weißen reisen um alles über die Hexe 'Kasara' zu erfahren."
  203. Pause 0.5
  204. Print ""
  205. Print "Du machst dich zum Kloster auf, um die Geheimnisse um 'Kasara' zu erkunden."
  206. Pause 0.5
  207. 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."
  208. Pause 0.5
  209. Print "Kaum dass du einen Fuß über die Torschwelle gesetzt hast, wirst du gleich vom Abt - du glaubst es zumindest - empfangen."
  210. Pause 0.5
  211. 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."
  212. Print "Du fragst dich ob es doch nicht zu viel gewesen ist und du den Drachen hättest erschlagen sollen."
  213. Input "Du fragst dich ob du nun die Frage (v)erneinen oder (b)ejaen solltest. ", am2_1$
  214. if am2_1$ = "v" then goto Mission_Fail
  215. if am2_1$ = "b" then goto HQGeheimnisse_der_Hexe
  216.  
  217. HQGeheimnisse_der_Hexe:
  218. Print ""
  219. 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."
  220. Pause 0.5
  221. Print ""
  222. 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."
  223. Pause 0.5
  224. Input "Sollst du das Buch (l)esen oder es (w)eglegen. ", am2_2$
  225. if am2_2$ = "l" then x = 1
  226. if am2_2$ = "l" then goto HQLeseratte
  227. if am2_2$ = "w" then x = 0
  228. if am2_2$ = "w" then goto HQHexenjagt
  229.  
  230. HQLeseratte:
  231. Print ""
  232. 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."
  233. Pause 0.5
  234. Print ""
  235. Print "Der Abt gibt dir noch ein Fläschchen mit einer dir unbekannten Flüssigkeit mit, mit dem Rat es weise einzusetzen."
  236. goto HQHexenjagt
  237.  
  238. HQHexenjagt:
  239. Print ""
  240. Print "Du machst dich zur Behausung der Hexe auf, wohl mit einem unguten Gefühl."
  241. Pause 0.5
  242. Print "Nach einer sehr langen Wanderschaft - längst nicht so lang wie zum Kloster - kommst du an das Haus der Hexe."
  243. Pause 0.5
  244. 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."
  245. Print ""
  246. Print "Du läufst die Bezaunung ab, und hoffst einen Weg hindurch zu finden, aber du suchst vergebens, es gibt kein Tor."
  247. if x = 1 then goto HQGeheimtuer
  248. if x = 0 then goto HQSprung
  249.  
  250. HQGeheimtuer:
  251. Print ""
  252. 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."
  253. Pause 0.5
  254. 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."
  255. goto HQAnwesen
  256.  
  257. HQSprung:
  258. Print ""
  259. Print "Du bist niedergeschlagen, es gibt nur einen Weg über die Bezaunung zu kommen und zwar mit einem Sprung."
  260. Input "Du fragst dich ob du einen (S)tab oder einen (B)aumstumpf benutzen solltest. ", am2_3$
  261. if am2_3$ = "S" then goto HQSprung2
  262. if am2_3$ = "B" then goto HQSprung3
  263.  
  264. HQSprung2:
  265. Print ""
  266. 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."
  267. Pause 0.5
  268. Print "Zu deinem Glück wurdest du bei dieser Aktion nicht beobachtet und dringst unbemerkt ein."
  269. goto HQAnwesen
  270.  
  271. HQSprung3:
  272. Print ""
  273. 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."
  274. Pause 0.5
  275. 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."
  276. Pause 0.5
  277. Print ""
  278. Print "Doch nun ist es zu spät, die Hexe hat deinen Schrei vernommen und du bist erledigt, denkst du dir im stillen."
  279. Pause 0.5
  280. 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."
  281. Pause 0.5
  282. Print "Du schließt gerade mit deinem Leben ab, als die Hexe dir runterhilft und dich um dein Wohlbefinden befrägt."
  283. 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."
  284. gosub HQGespraech
  285. HQGespraech:
  286. Pause 0.5
  287. Print "Du fragst sie nach ihrem Namen und erfährst das sie Beatrix heißt und dass sie die ehemalige Heilerin deines Dorfes ist."
  288. Pause 0.5
  289. Print "Du beschließt deine Mission zu beenden und deine Angehörigen glauben zu lassen du seist gestorben."
  290. Print "Nach einer schönen Sommerzeit Heiratest du Beatrix und ihr bekommt im Sommer darauf Drillinge."
  291. goto Ende_Demo
  292.  
  293. HQAnwesen:
  294. Print ""
  295. Print "Du schleichst dich bis zum Hauptgebäude, in dem du die Hexe vermutest."
  296. Pause 0.5
  297. Print "Nach kurzer Zeit hörst du aus einem Raum eine weibliche Stimme, es muss 'Kasara' sein, vermutest du."
  298. Pause 0.5
  299. Print "Du lauscht dem Gesang:"
  300. Print "Pumpkin, Pumpkin, where are you have gone~"
  301. Pause 1.0
  302. Print "Du schüttestelst den Kopf und denkst was das für ein schwachsinniges Lied sei."
  303. Pause 0.5
  304. Input "Du fragst dich ob du (e)indringen oder (a)bwarten sollst.", am2_4$
  305. if am2_4$ = "e" then goto HQBathroom
  306. if am2_4$ = "a" then goto HQFlur
  307.  
  308. HQBathroom:
  309. Print ""
  310. 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."
  311. Pause 0.5
  312. 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."
  313. Pause 0.5
  314. Print "Du näherst dich dem Zuber, denn du witterst deine Chance sie nicht nur zu vertreiben sondern zu töten."
  315. Pause 0.5
  316. if x = 1 then goto HQHolywater
  317. Print ""
  318. Print "Du springst 'Kasara' an und willst die ertränken, doch sie hatte anscheinend schon damit gerechnet und du erstarrst."
  319. goto Mission_Death
  320.  
  321. HQHolywater:
  322. Print ""
  323. 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."
  324. Pause 0.5
  325. Print "Noch bevor sie bemerkt, was du da treibst, schüttest du das 'Heilige Wasser', welches du vom Abt erhalten hattest ins Badewasser."
  326. Pause 0.5
  327. Print ""
  328. 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."
  329. Pause 0.75
  330. Print ""
  331. 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."
  332. Pause 0.5
  333. Print ""
  334. 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."
  335. goto Mission_Success
  336.  
  337. HQFlur:
  338. Print ""
  339. 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."
  340. Pause 0.5
  341. Print "Verzweifelt willst du gehen, als du hinter dir die Stimme von 'Kasara' vernimmst."
  342. Print "Du drehst dich um, um der Hexe ins Gesicht sehen zu können."
  343. Pause 0.5
  344. Print ""
  345. 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."
  346. Pause 0.5
  347. Print ""
  348. Input "Sollstest du nun (A)ngreifen oder (R)eden, schießt es dir durch den Kopf. ", am2_5$
  349. if am2_5$ = "A" then goto HQBloodfloor
  350. if am2_5$ = "R" then goto HQRede
  351.  
  352. HQBloodfloor:
  353. Print ""
  354. 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."
  355. goto Mission_Death
  356.  
  357. HQRede:
  358. Print ""
  359. Print "Du fängst an zu Reden und ihr kommt tatsächlich zu einem Gespräch."
  360. goto HQGespraech
  361.  
  362.  
  363. Krankenheiler:
  364. Print ""
  365. Print "Krankenschwester"
  366. goto Mission_Success
  367.  
  368. Klosterreise:
  369. Print ""
  370. Print "Kloster"
  371. goto Mission_Success
RAW Paste Data

Adblocker detected! Please consider disabling it...

We've detected AdBlock Plus or some other adblocking software preventing Pastebin.com from fully loading.

We don't have any obnoxious sound, or popup ads, we actively block these annoying types of ads!

Please add Pastebin.com to your ad blocker whitelist or disable your adblocking software.

×