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