home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 56 / Tiger_Disk_056_19xx_Tiger-Crew-Disk_de_Side_B.d64 / hartfaser-spiel (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  46 lines
  1. 0 rem"[141][147]               willcox!
  2. 1 f[178][194](53280):b[178][194](53281):c[178][194](646):[151]53280,.:[151]53281,.:v[178]53265:[134]b$(5)
  3. 11 [151]v,139
  4. 20 [153]"loadlist"[163]7)"(NULL)usrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr(NULL)"[166]14)"fndas  hartfaser-adventure+(NULL)
  5. 30 printtab(7)"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186][170]"spc(14)"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]
  6. 35 [153][199](142)[199](8)[163]15)"von willcox"[166]222)"bist du wirklich bereit?":[151]v,27
  7. 50 [161]a$:[139]a$[178]""[167]50
  8. 60 [139]a$[179][177]"j"[175]a$[179][177]"y"[167]50
  9. 100 [151]v,139:[153]"loaddu befindest dich in einem einsamen     dungeon.
  10. 102 print"die waende sind feucht und von irgendwo-her dringt ein beissender gestank.
  11. 104 [153]"er muss in der naehe sein. seine
  12. 106 print"anwesenheit jagt dir kalte schauder
  13. 108 [153]"ueber den ruecken.
  14. 110 print"und dann siehst du ihn! eine gedrungene,
  15. 112 [153]"onbuckelige gestalt, gehuellt in ein
  16. 114 print"zerfetztes tierfell, in dem die maden
  17. 116 [153]"kriechen. deutlich sind zwei luecken-
  18. 118 print"hafte reihen fauliger zahnstummel zu    entdecken.
  19. 120 [153]"print#"[199](34)"womit kann ich dienen, ehrwuerdiger
  20. 122 print"meister"chr$(34)chr$(34)""chr$(155)" wimmert er devot, wobei ihm
  21. 124 [153]"gruenlicher schleim ueber die leftzen   rinnt.
  22. 126 print"doch sag zuerst, wie heisse ich":pokev,27:inputa$
  23. 128 ifa$<>"hartfaser"then100
  24. 130 print"[147]nenne mir fuenf dinge, die du mit":printa$" anstellen willst.
  25. 140 [153]"zuerst willst du "a$": ";:[151]19,64:[133]b$(1):[153]
  26. 142 [133] "und zweitens: ";b$(2):[153]
  27. 144 [133]"und danach: ";b$(3):[153]
  28. 146 [133]"viertens: ";b$(4):[153]
  29. 148 [133]"und zuguterletzt: ";b$(5):[153]:[151]19,.
  30. 150 [153]"machen diese dinge "a$" froh?wait ";:[151]198,.:[141]300
  31. 158 [153]f$
  32. 160 [153]"du fuegst "a$" folgendes zu:
  33. 162 forx=1to5:print"- "b$(x):next:print"das ekelmonster ";:iff$="n"then180
  34. 164 print"faellt auf die knie und bedankt sich.
  35. 166 [153]"voll freude leckt es dir die fuesse.
  36. 170 goto200
  37. 180 print"wimmert vor pein. um    gnade winselnd leckt es dir die fuesse.
  38. 200 [153]"nochmal (j/n)?":[151]198,.:[141]300
  39. 206 [139]f$[178]"j"[167]130
  40. 208 [153]"load":[151]53280,f:[151]53281,b:[151]646,c
  41. 210 [153]"jetzt hast du es dem "a$ " mal so  richtig gezeigt.
  42. 212 printchr$(9)"das war toll, nicht?":end
  43. 300 getf$:iff$=""then300
  44. 302 iff$<>"j"andf$<>"n"then300
  45. 304 return
  46.