home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power Disk 64 1997 2
/
Power_Disk_64_97-02_1997-09_Lagune_de_Side_B.d64
/
2
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
13KB
|
399 lines
99 rem""(NULL)
119 rem""(NULL)
120 poke53281,0:poke53280,0
130 print"[147][158]gnurz!"
140 print"ein textadventure von christian siege."
150 print"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
160 print"die steuerung erfolgt ueber die eingabe"
170 print"von befehlen (nimm,gib,schau...an,...)."
180 print"[158]- taste druecken -"
190 get a$:if a$=""then 190
200 print"[147][152]:[146] ::[146] :[146] ...[146]"
210 print"[152]:[151][223][155][169][152]::[146][185][185][185][152]:[146] ...[146]"
220 print"[152].[151][167][155][165][152]..[146] .[146] ...[146]"
230 print"[162][185][175][164][164][175][185][162][184][183][163][152].[151][167][155][165][152]..[146][175][185][162].[146][154][195][152]...[151][183][152][184][155][146][162][185][155][164][152][175][151][162][149][184][146][151][162][152][185][155][175][164][151][175][185][175][164]"
235 print"[145] [146]"
240 print"[145][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
250 print"[158]du stehst vor den traurigen ueber-"
260 print"resten sulzbach-rosenbergs."
270 print"du bist allein. du siehst nichts be-"
280 print"sonderes."
290 print"moegliche richtungen: w n o ."
300 print"wenn du nicht weiterweisst,gib 'hilfe'"
310 print"ein."
320 input">";e$
330 if e$="w" then goto 450
340 if e$="n" then goto 960
350 if e$="o" then goto 740
360 if e$="hilfe" then goto 390
370 if e$="load" then goto 420
380 goto 200
390 print"[147][158]erschiesse benutze kaufe nimm gib"
400 print"schau...an load hilfe usw."
405 get a$:if a$="" then 405
410 goto 200
420 input"filename";f$
425 if f$="" then goto 200
430 load f$ ,8,1
440 goto 200
450 if s$="yo" then goto 500
460 print"[147][158]du hast die verseuchte zone ohne"
470 print"schutzanzug betreten. game over."
480 get a$:if a$="" then 480
490 run
500 print"[147][169] [223][146]"
505 print"[155] [146]"
510 print"[155] [155] [146]"
520 print"[155] [155] [146]"
530 print"[155] [155] [146]"
535 print"[155] [146][154] kilroy [146]"
540 print"[206][191][191][191][191][191][191][191][191][191][205][154]waz 'ere![146]"
550 print"[165] [195][195][195][195][195] [167][151] [146]"
560 print"[183][207][183][183][183][183][183][183][183][208][183][164][175][185][162][184][183][163][183][184][146][162][175][164][175][151] [146][185][175][164][175][185][175][185][162][162][185][175][185][162][184][183][184][146][162][185][175][164]"
570 print"[145] [146]"
580 print"[145][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
590 print"[158]du bist im verseuchten gebiet."
600 print"du bist allein. du siehst einen alten"
610 print"c 64. moegliche richtungen: o"
620 input">";e$
630 if e$="o" then goto 200
640 if e$="benutze c 64" then goto 680
650 if e$="benutze c64" then goto 680
660 if e$="benutze computer" then goto 680
670 goto 500
680 print">2604"
690 print"[158]auf dem bildschirm erscheint eine"
700 print"codezahl. merke sie dir gut!"
710 get a$:if a$="" then 710
720 goto 500
730 rem raum nummer drei
740 print"[147][159][209] [209][209] [209][154][206] [214][195][195][195][195][195][195][195][195][195][205]"
750 print"[159][206][153] [146][159][214] [152][165][146][159][205] [154][206] [146] [206][129][194][205] [205]"
760 print"[129][194][146] [194][158][194][146] [154][194][146] [206] [129][194][146] [205] [205]"
770 print"[214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][206][129] [167] [180] [205] [205][214][214][214][214]"
780 print"[145] [146]"
790 print"[145][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
800 print"[158]du bist im camp der rebellen."
810 print"sie sagen,sie haetten einen der beiden"
820 print"codes zum teil herausgefunden. er lautet"
830 print"[145]bis jetzt: 74--"
840 print"[158]du siehst einen kaputten schutzanzug."
850 print"moegliche richtungen: w"
860 input">";e$
870 if e$="w" then goto 200
880 if e$="nimm anzug" then goto 910
885 if e$="nimm kaputten schutzanzug" then goto 910
890 if e$="nimm schutzanzug" then goto 910
900 goto 740
910 print"[147][158]tut mir leid,aber dieser hier ist ka-"
920 print"putt."
930 get a$:if a$="" then 930
940 goto 740
950 rem fuenfter raum
960 print"[147][149][164][151][175][152][185][155][162][152][185][151][175][149][164]"
970 print"[149] [151] [152] [155] [152] [151] [149] [146]"
980 print"[149] [151] [152] [155] [152] [151] [149] [146]"
990 print"[149] [151] [152] [155] [152] [151] [149] [146]"
1000 print"[149] [151] [152] [155] [152] [151] [149] [146]"
1010 print"[155] [146] [146] [146] [146] [146] [146] [146] [146] [149] [151] [152] [155] [152] [151] [149] "
1020 print"[145][223][223][223][223][223][223][223][223][151] [155] [151] "
1030 print"[155] [149] [151] [152] [155] [152] [151] [149] [152] [163][183][184][146][162][185][175][164]"
1040 print"[155] [149] [151] [152] [155] [152] [151] [149] [152] [146]"
1050 print"[155] ......[155] [149] [151] [152] [155] [152] [151] [149] [152] [146]"
1060 print"[155] . .[155] [149] [151] [152] [155] [152] [151] [149] [152] [146]"
1070 print"[155] . .[155] [149] [151] [152] [155] [152] [151] [149] [152] [146]"
1080 print"[155] . .[155] [149] [151] [152] [155] [152] [151] [149] [152] [146]"
1090 print"[155] . .[155] [149] [151] [152] [155] [152] [151] [149] [152] [146]"
1100 print"[155] . .[155] [149] [151] [152] [155] [152] [151] [149] [152] [146]"
1110 print"[155] . .[155] [149] [151] [152] [155] [152] [151] [149] [152] [146]"
1120 print" [146]"
1130 print"[145][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
1140 if g$="yo" then goto 1190
1150 print"[158]du bist vor dem palast. ein bekannter,"
1160 print"der dir seit 1993 geld schuldet,ist"
1170 print"hier. er gibt dir 500,- !"
1171 print"moegliche richtungen: w n s o"
1175 g$="yo"
1180 goto 1220
1190 print"[158]du bist vor dem palast. nichts und nie-"
1200 print"mand ist hier."
1210 print"moegliche richtungen: w n s o"
1220 input">";e$
1230 if e$="s" then goto 200
1240 if e$="n" then goto 2600
1250 if e$="w" then goto 1560
1260 if e$="o" then goto 1281
1270 goto 960
1280 rem sechstes zimmer
1281 if k$="yo" then goto 1283
1282 goto 1290
1283 print"[147][158]du hast kein geld und wirkst deshalb"
1284 print"verdaechtig. du wirst verhaftet."
1285 print"game over."
1286 get a$:if a$="" then 1286
1287 run
1290 print"[147][158][210][195][195][210]"
1300 print"[159]([191][191][146])"
1310 print"[159][202][198][198][203]"
1320 print"[206][154][195][195][195][195][205]"
1330 print"[206][206][180][154][195][195][167][205][205]"
1340 print"[129][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
1350 print"[145][149][194][194][194][194][194][194][194]"
1360 print"[194][194][194][194][194][194]"
1370 print"[194][194][194][194][194]"
1380 print"[194][194][194][194]"
1390 print"[194][194][194]"
1400 print"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
1410 print"[158]du bist im waffenladen."
1420 print"du siehst eine ausruestung."
1430 print"(schutzanzug mit laserpistole.)"
1440 print"moegliche richtungen: w n"
1450 input">";e$
1460 if e$="kaufe ausruestung" then goto 1500
1465 if e$="nimm ausruestung" then goto 1500
1470 if e$="w" then goto 960
1480 if e$="n" then goto 2260
1490 goto 1290
1500 print"[158][147]jetzt hast du eine ausruestung."
1510 get a$:if a$="" then 1510
1520 s$="yo"
1530 l$="yo"
1540 k$="yo"
1550 goto 1290
1555 rem zorba
1560 if z$="yo" then goto 1820
1570 print"[147]. .[146]"
1580 print"[145] zorba's inn - drinks - food - rooms. [146]"
1590 print"[145]. .[146]"
1600 print"[176][174]"
1610 print"[158][181][182][129][146][201]"
1620 print"[158][180][170][129][146][203]"
1630 print"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
1640 print"[145][151][194][194][194][194][194]"
1650 print"[194][194][194][194]"
1660 print"[194][194][194]"
1670 print"[194][194]"
1680 print"[194]"
1690 print"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
1700 print"[158]du bist in zorba's inn."
1710 print"du siehst nichts besonderes."
1720 print"vana,der acheleer,ist hier.er gibt dir"
1730 print"einen ausweis."
1735 p$="yo"
1740 print"moegliche richtungen: n o"
1750 input">";e$
1760 if e$="o" then goto 1790
1770 if e$="n" then goto 1890
1780 goto 1570
1790 z$="yo"
1800 goto 960
1810 rem geschlossen
1820 print"[158][147]das inn hat schon geschlossen."
1830 print"moegliche richtungen: n o"
1840 input">";e$
1850 if e$="o" then goto 960
1860 if e$="n" then goto 1890
1870 goto 1820
1880 rem hof des palasts
1890 if s$="yo" then goto 1960
1900 print"[147][158]ein mutant ist hier. als er sieht,dass"
1910 print"du unbewaffnet bist,stuerzt er sich auf"
1920 print"dich und zerreisst dich mit seinen"
1930 print"zaehnen. game over."
1940 get a$:if a$="" then 1940
1950 run
1960 print"[147][155][178][195][177][195][178][195][177][195][178][195][177][195][178][195][177][195][178][195][177][195][178][195][177][195][178][195][177][195][178][195][177][195][178][195][177][195][178][195][177][195][146]"
1970 print"[145][177][195][178][195][177][195][178][195][177][195][178][195][177][195][178][195][177][195][178][195][177][195][178][195][177][195][178][195][177][195][178][195][177][195][178][195][177][195][178][195][146]"
1980 print"[145][178][195][177][195][178][195][177][195][178][195][177][195][178][195][177][195][178][195][177][195][178][195][177][195][178][195][177][195][178][195][177][195][178][195][177][195][178][195][177][195][146]"
1990 print"[145][177][195][178][195][177][195][178][195][177][195][178][195][177][195][178][195][177][195][178][195][177][195][178][195][177][195][178][195][177][195][178][195][177][195][178][195][177][195][178][195][146]"
2000 print"[145][178][195][177][195][178][195][177][195][178][195][177][195][178][195][177][195][178][195][177][195][178][195][177][195][178][195][177][195][178][195][177][195][178][195][177][195][178][195][177][195][146]"
2010 print"[145][177][195][178][195][177][195][178][195][177][195][178][195][177][195][178][195][177][195][178][195][177][195][178][195][177][195][178][195][177][195][178][195][177][195][178][195][177][195][178][195][146]"
2020 print"[145][178][195][177][195][178][195][177][195][178][195][177][195][178][195][177][195][178][195][177][195][178][195][177][195][178][195][177][195][178][195][177][195][178][195][177][195][178][195][177][195][146]"
2030 print"[145][177][195][178][195][177][195][178][195][177][195][178][195][177][195][178][195][177][195][178][195][177][195][178][195][177][195][178][195][177][195][178][195][177][195][178][195][177][195][178][195][146]"
2040 print"[145] [146]"
2050 print"[145] [146]"
2060 print"[145][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
2070 print"[158]du bist in einem der aeusseren hoefe"
2080 print"des palastes. ein mutant ist hier,aber"
2090 print"beim anblick deiner waffe flieht er."
2100 print"du siehst einen zettel"
2110 print"moegliche richtungen: s"
2120 input">";e$
2130 if e$="s" then goto 1820
2140 if e$="nimm zettel" then goto 2180
2150 if e$="lies zettel" then goto 2180
2160 if e$="lese zettel" then goto 2180
2170 goto 1960
2180 print"[147][158]es ist die liste der maechtigen!"
2190 print"da steht eine zahl drauf:"
2200 print"1"
2210 print"[158]das muss eine erweiterung des codes"
2220 print"sein,den dir die rebellen gezeigt haben."
2230 get a$:if a$="" then 2230
2240 goto 1960
2250 rem strasse
2260 if p$="yo" then goto 2310
2270 print"[147][158]du wurdest ohne ausweis erwischt und"
2280 print"verhaftet. game over."
2290 get a$:if a$="" then 2290
2300 run
2310 print"[147][155][215][215]"
2320 print"[152][171][155][172][187][146][152][179]"
2330 print"[155][195][195]"
2340 print"[152][169][151] [152][223][146]"
2350 print"[152] [151] [152] [146]"
2360 print"[152] [151] [152] [146]"
2370 print"[159][194][151]....[159][194][146]"
2380 print"[154] [146][169][223] [146]"
2390 print"[154] [146] [146]"
2400 print"[151] [146] [146]"
2410 print"[151] [146] [146]"
2420 print"[152] [146]"
2430 print"[145][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
2440 print"[158]mitten auf der strasse begegnet dir ein"
2450 print"defekter kampfroboter,der immer wieder"
2460 print"diese zahl wiederholt: 2[158]"
2470 print"moegliche richtungen: s"
2480 input">";e$
2490 if e$="s" then goto 2510
2500 goto 2310
2510 print"[147][158]du bist vor dem waffengeschaeft."
2520 print"du darfst es ohne geld nicht betreten,"
2530 print"sonst wirst du verhaftet."
2540 print"moegliche richtungen: w n"
2550 input">";e$
2560 if e$="w" then goto 960
2570 if e$="n" then goto 2260
2580 goto 2510
2590 rem schluss
2600 print"[147][158]du bist vor dem tor des palastes."
2610 print"du siehst eine schalttafel."
2620 print"[152][205][164][206][146] [205][164][206][146] [205][164][206][146]"
2630 print"[152][167][155]1[152][165][146] [152][167][155]2[152][165][146] [152][167][155]3[152][165][146]"
2640 print"[152][206][163][205][146] [206][163][205][146] [206][163][205][146]"
2650 print"[152][205][164][206][146] [205][164][206][146] [205][164][206][146]"
2660 print"[152][167][155]4[152][165][146] [152][167][155]5[152][165][146] [152][167][155]6[152][165][146]"
2670 print"[152][206][163][205][146] [206][163][205][146] [206][163][205][146]"
2680 print"[152][205][164][206][146] [205][164][206][146] [205][164][206][146]"
2690 print"[152][167][155]7[152][165][146] [152][167][155]8[152][165][146] [152][167][155]9[152][165][146]"
2700 print"[152][206][163][205][146] [206][163][205][146] [206][163][205][146]"
2710 print"[152][205][164][206][146] [205][164][206][146] [205][164][206][146]"
2720 print"[152][167][155]*[152][165][146] [167][155]0[152][165][146] [167][155]#[152][165][146]"
2730 print"[152][206][163][205][146] [206][163][205][146] [206][163][205][146]"
2740 input"[158]wie lautet der code zum oeffnen des tors";e$
2750 if e$="7412" then goto 2820
2760 print"[147][158]das war falsch!"
2770 print"du bekommst einen toedlichen strom-"
2780 print"schlag. game over."
2790 get a$:if a$="" then 2790
2800 run
2810 rem gnurz
2820 if s$="yo" then goto 2910
2830 print"[147][158]du bemerkst zu spaet,dass du unbewaff-"
2840 print"net bist."
2850 print"gnurz ruft seine wache,woraufhin dich"
2860 print"diese verhaftet und erschiesst."
2870 print"game over."
2880 get a$:if a$="" then 2880
2890 run
2900 rem jetzt oder nie
2910 print"[147][158]du bist im palast.es ist voellig dunkel."
2920 print"[145]gnurz ist hier."
2930 print"[175]"
2940 print"[195][190][146][181]"
2950 print"[153][181]"
2960 print"[205][153][181]"
2970 print"[194]"
2980 print"[182][206]"
2990 print"[153][194]"
3000 print"[149][164][164][164][146]"
3010 print"[149][180] [170][146]"
3020 print"[149][161] [182][146]"
3030 print"[158]zu deinem erstaunen handelt es sich bei"
3040 print"ihm um eine hochintelligente,fleisch-"
3050 print"fressende pflanze."
3060 print"moegliche richtungen: n s"
3070 input">";e$
3080 if e$="toete gnurz" then goto 3140
3090 if e$="erschiesse gnurz" then goto 3140
3100 if e$="n" then goto 3290
3110 if e$="s" then goto 3220
3120 goto 2910
3130 rem tod des gnurz
3140 print"[158][147]gnurz ist tot! es blieb nichts von ihm"
3150 print"uebrig als eine gruene,schleimige masse."
3160 print"moegliche richtungen: n s"
3170 input">";e$
3180 if e$="n" then goto 3330
3190 if e$="s" then goto 3220
3200 goto 3140
3210 rem sueden
3220 print"[147][158]als du draussen vor die tuer trittst,"
3230 print"stehst du einer armee von polizisten"
3240 print"gegenueber. sie erschiessen dich."
3250 print"schade - so kurz vorm ziel. game over."
3260 get a$:if a$="" then 3260
3270 run
3280 rem gnurz lebt noch
3290 print"[147][158]gnurz laesst dich nicht vorbei!"
3300 get a$:if a$="" then 3300
3310 goto 2910
3320 rem die maschine
3330 print"[147][158]du stehst vor dem verdunkelungs-"
3340 print"generator. du siehst erneut eine schalt-"
3350 print"[145]tafel."
3360 print"[205][164][206][146] [205][164][206][146] [205][164][206][146]"
3370 print"[167][154]1[165][146] [167][154]2[165][146] [167][154]3[165][146]"
3380 print"[206][163][205][146] [206][163][205][146] [206][163][205][146]"
3390 print"[205][164][206][146] [205][164][206][146] [205][164][206][146]"
3400 print"[167][154]4[165][146] [167][154]5[165][146] [167][154]6[165][146]"
3410 print"[206][163][205][146] [206][163][205][146] [206][163][205][146]"
3420 print"[205][164][206][146] [205][164][206][146] [205][164][206][146]"
3430 print"[167][154]7[165][146] [167][154]8[165][146] [167][154]9[165][146]"
3440 print"[206][163][205][146] [206][163][205][146] [206][163][205][146]"
3450 print"[205][164][206][146] [205][164][206][146] [205][164][206][146]"
3460 print"[167][154]*[165][146] [167][154]0[165][146] [167][154]#[165][146]"
3470 print"[206][163][205][146] [206][163][205][146] [206][163][205][146]"
3480 print"[158]wie lautet der code zum ausschalten"
3485 input"";e$
3490 if e$="2604" then goto 3550
3500 print"[147][158]das war falsch!"
3510 print"du bekommst einen toedlichen strom-"
3520 print"schlag. game over."
3530 get a$:if a$="" then 3530
3540 run
3550 print"[147][152]:[146] ::[146] :[146] ...[146]"
3560 print"[152]:[151][223][155][169][152]::[146][185][185][185][152]:[146] ...[146]"
3570 print"[152].[151][167][155][165][152]..[146] .[146] ...[146]"
3580 print"[162][185][175][164][164][175][185][162][184][183][163][152].[151][167][155][165][152]..[146][175][185][162].[146][154][195][152]...[151][183][152][184][155][146][162][185][155][164][152][175][151][162][149][184][146][151][162][152][185][155][175][164][151][175][185][175][164]"
3590 print"[145] [146]"
3600 for i=1 to 100:next
3610 poke53280,9:poke53281,9
3620 for i=1 to 100:next
3630 poke53281,11:poke53280,11
3640 for i=1 to 100:next
3650 poke53280,12:poke53281,12
3660 for i=1 to 100:next
3670 poke53281,15:poke53280,15
3680 for i=1 to 100:next
3690 poke53280,1:poke53281,1
3700 for i=1 to 500:next
3710 poke53281,14:poke53280,14
3720 t=ti
3730 if ti-t<180 then 3730
3740 print"[147][144]du hast sulzbach-rosenberg fuer immer"
3750 print"befreit."
3760 print"die wenigen einwohner danken dir und"
3770 print"waehlen dich zu ihrem herrscher."
3780 print"nachdem du die ehemalige armee des gnurz"
3790 print"[145]aus der stadt vertrieben hast,kehren"
3800 print"allmaehlich wieder normale verhaeltnisse"
3810 print"[145]ein."
3820 print"nach 5 jahren wird vom atomkrieg und"
3830 print"der dunkelheit des gnurz nichts mehr zu"
3840 print"sehen sein."
3850 print"druecke 'space'."
3855 get a$:if a$="" then 3855
3860 poke53281,0:poke53280,0:print"[144][147]"
3870 load"3",8,1