8bitfiles.net/archives/archives.tar/archives/commodore-users-of-norman/CUON_02_(08-1984).d64/catacombs

Commodore BASIC | 2019-04-13 | 10KB | 268 lines

2 PRINT"[147]":GOSUB4000:GOTO52000:GOSUB20000
3 REM LOAD MAIN PROGRAM
10 POKE53280,0:POKE53281,0
15 PRINT"[147]LOADING MAIN PROGRAM":POKESV+21,0
20 PRINT"[144]LOAD"CHR$(34)"CAT-GAME"CHR$(34)",8"
21 POKE631,19:POKE632,17:POKE633,13:POKE634,82:POKE635,117:POKE636,13:POKE198,6
22 END
25 DATA 0,0,0,0,0,0,0,0,0,204,192,0,179,64,8,128,64,8,128,76,20,173,76,34
26 DATA 128,76,65,128,76,227,136,76,156,128,76,128,128,76,170,130,76,128
27 DATA 128,76,128,128,110,132,160,93,128,128,76,128,128,76,136,136,127,128
28 DATA 128,76,128
30 DATA0,128,0,0,128,0,0,128,0,1,64,170,2,32,214,2,160,130,2,32,130,2,32,178
31 DATA1,64,178,129,64,202,129,64,134,129,65,2,129,67,3,129,66,133,129,66,121
32 DATA171,106,1,213,86,181,129,66,1,129,66,1,255,126,17,161,66,1
34 DATA128,76,144,130,76,128,128,76,128,128,76,160,128,109,182,160,109,182
35 DATA128,127,255,128,64,0,136,64,0,128,64,0,128,64,0,130,64,0,128,64,0
36 DATA128,64,0,128,64,0,128,64,3,128,64,3,128,64,3,128,64,3,128,64,3,255,255
37 DATA255
39 DATA145,66,1,137,66,65,133,66,1,131,66,1,219,110,129,219,106,1,255,250,1
40 DATA0,2,5,0,2,1,0,2,1,0,2,17,0,2,1,0,2,1,0,2,65,0,2,1,128,2,1,128,2,1
41 DATA128,2,1,128,2,1,128,2,1,255,255,255
4000 SV=53248:POKESV+21,0:POKE53281,0:POKE53280,0
4010 POKE2040,15
4020 POKE2041,14
4030 POKE2042,13
4040 POKE2043,11
4050 POKESV+39,1:POKESV+40,1:POKESV+41,1:POKESV+42,1
4080 POKESV+23,15:POKESV+29,15
4081 FORN=0TO62:READQ:POKE832+N,Q:NEXT
4082 FORN=0TO62:READL:POKE896+N,L:NEXT
4084 FORN=0TO62:READM:POKE960+N,M:NEXT
4086 FORN=0TO62:READR:POKE704+N,R:NEXT
4088 POKESV+0,135:POKESV+1,142
4090 POKESV+6,183:POKESV+7,142
4094 POKESV+4,135:POKESV+5,100
4096 POKESV+2,183:POKESV+3,100
4098 RETURN
15000 FORNN=0TO250:NEXTNN
15001 V1=54296:X9=54276:ZX=54277:HH=54273:LL=54272:PP=54275:PQ=54274
15002 W2=54290:A2=54291:H2=54287:L2=54286:P3=54289:P4=54288
15010 POKEW2,64:POKEX9,64
15020 POKEV1,15:POKEX9,65:POKEZX,110:POKEPP,15:POKEPQ,15
15022 POKEW2,65:POKEA2,110:POKEP3,1:POKEP4,1
15040 IFPN=0THENPOKEHH,4:POKELL,73
15041 IFPN=1THENPOKEHH,5:POKELL,25
15042 IFPN=2THENPOKEHH,3:POKELL,155
15043 IFPN=3THENPOKEHH,3:POKELL,210
15044 IFPN=0THENPOKEH2,34:POKEL2,75
15045 IFPN=1THENPOKEH2,40:POKEL2,200
15046 IFPN=2THENPOKEH2,28:POKEL2,214
15047 IFPN=3THENPOKEH2,30:POKEL2,140
15048 IFPN=4THENPOKEH2,40:POKEL2,200
15049 IFPN=4THENPOKEHH,5:POKELL,25
15050 IFPN=5THENPOKEH2,34:POKEL2,75
15051 IFPN=5THENPOKEHH,4:POKELL,73
15052 IFPN=6THENPOKEH2,28:POKEL2,214
15053 IFPN=6THENPOKEHH,3:POKELL,155
15054 IFPN=7THENPOKEH2,32:POKEL2,94
15055 IFPN=7THENPOKEHH,4:POKELL,12
15056 IFPN=8THENPOKEH2,45:POKEL2,198
15057 IFPN=8THENPOKEHH,5:POKELL,185
15058 IFPN=9THENPOKEH2,34:POKEL2,75
15059 IFPN=9THENPOKEHH,4:POKELL,73
15060 IFPN=10THENPOKEH2,28:POKEL2,214
15061 IFPN=10THENPOKEHH,3:POKELL,155
15062 IFPN=11THENPOKEH2,30:POKEL2,141
15063 IFPN=11THENPOKEHH,3:POKELL,210
15090 PN=PN+1:IFPN=11THENPN=0
15100 POKE54278,0:RETURN
20000 REM INSTRUCTIONS
20001 PRINT"DISPLAY INSTRUCTIONS (Y/N)   Y";:INPUT"[157][157][157]";DI$
20002 IFDI$="N"THEN15
20003 IFDI$<>"N"THEN20010
20010 PRINT"[159][147]WELCOME!  TO THE [158]CATACOMBS OF GOLD[159]"
20015 PRINT"   BEFORE YOU BEGIN YOUR JOURNEY INTO "
20020 PRINT"THE DARK AND DANGEROUS WORLD BENEATH  "
20025 PRINT"THE CASTLE OF COUNT DAMION, HERE IS SOME";
20030 PRINT"ADVICE THAT MAY MAKE YOUR JOURNEY A"
20035 PRINT"LITTLE SAFER AND PERHAPS A LITTLE[160]MORE"
20040 PRINT"PROFITABLE."
20045 GOSUB40050
20050 PRINT"[155]   YOU'LL BEGIN YOUR JOURNEY WITH THREE ";
20055 PRINT"HEARTS, 100 UNITS OF SPEED, STRENGTH,"
20060 PRINT"AND MORALE. IF ANY OF THESE DROP TO ZERO"
20062 PRINT"YOU WILL REMAIN IN THE CATACOMBS FOREVER";
20065 PRINT"   ALL YOU TAKE WITH YOU IS AN OLD AND"
20070 PRINT"UNRELIABLE MAGIC RING. IT WAS GIVEN TO"
20075 PRINT"YOU BY THE ONLY MAN TO EVER ENTER THE"
20080 PRINT"CATACOMBS AND RETURN SAFELY TO THE OUT-"
20085 PRINT"SIDE WORLD. HE HAS TOLD YOU MANY THINGS"
20090 PRINT"ABOUT THIS PLACE, AND YOU WILL FIND "
20095 PRINT"MOST OF IT TO BE TRUE. "
20096 GOSUB40050:GOSUB21000:PRINT"                                   "
20097 PRINT"[145][145][155]    HE WARNED YOU TO BE ALERT AND WATCH"
20098 PRINT"                                      "
20100 PRINT"FOR THE SNAKES AND BATS, WHO ARE IN "
20105 PRINT"                                     "
20115 PRINT"MANY CHAMBERS, AND YOU WILL SEE MORE OF"
20120 PRINT"THEM, THE DEEPER YOU GO. THEY WILL NOT"
20125 PRINT"HURT YOU, THEY WILL ONLY STEAL YOUR "
20130 PRINT"WEAPONS AND SUPPLIES. THE OLD MAN ALSO"
20135 PRINT"TOLD OF ZOMBIES, CREATURES THAT ARE "
20140 PRINT"DEAD, BUT UNDER THE VAMPIRE'S CONTROL."
20145 PRINT"THEY WANDER AROUND THE CATACOMBS AND"
20150 PRINT"CAN HURT YOU IF THEY GET THE CHANCE."
20155 GOSUB40050
20160 PRINT"[145][145][145][152]   HE WARNED THAT SOME OF THE CHAMBERS"
20162 PRINT"                                     "
20165 PRINT"WILL QUITE SUDDENLY FILL WITH A DEADLY"
20170 PRINT"GAS. IF IT DOES, YOU CAN TRY TO OUTRUN"
20175 PRINT"IT, OR YOU MAY USE THE RING. IF THE "
20180 PRINT"RING WORKS, IT WILL CLEAR THE CHAMBER"
20185 PRINT"OF ALL HAZARDS, AND CREATE A TRAPDOOR"
20190 PRINT"WHICH YOU CAN USE TO DESCEND EVEN DEEPER";
20195 PRINT"INTO THE CATACOMBS."
20200 GOSUB40050
20210 PRINT"[155]   'BEFORE YOU ENTER' HE SAID 'BE SURE"
20220 PRINT"YOU HAVE SOMETHING TO MAKE A MAP WITH,"
20225 PRINT"BECAUSE THESE CATACOMBS ARE VAST AND,"
20230 PRINT"PERHAPS BOTTOMLESS. EVERY LEVEL IS LAID"
20235 PRINT"OUT DIFFERENTLY, AND SOMETIMES THERE"
20240 PRINT"ARE TREMORS WHICH CAUSE CAVE-INS, AND"
20245 PRINT"IF THAT HAPPENS, YOUR MAP MAY BE WRONG!'";
20250 PRINT"   ALSO, THE MAP COULD PROVE CRUCIAL TO"
20255 PRINT"YOUR SURVIVAL, BECAUSE ON EVERY LEVEL,"
20260 PRINT"THERE IS ONLY ONE CHAMBER THAT LEADS"
20265 PRINT"OUT OF THE CATACOMBS. IT IS CHAMBER #1.";
20270 GOSUB40050
20275 PRINT"[152]TRY TO FIND IT QUICKLY, WHEN YOU DESCEND";
20280 PRINT"SO IF YOU NEED TO LEAVE, YOU CAN."
20285 PRINT"   IF YOUR STRENGTH OR SPEED ARE GETTING";
20290 PRINT"LOW, YOU CAN GO TO CHAMBER #1 AND"
20295 PRINT"TRADE YOUR EXPERIENCE FOR SPEED AND/OR"
20300 PRINT"STRENGTH. WHILE YOUR THERE YOU MAY"
20305 PRINT"LEAVE THE CASTLE TO BUY WEAPONS AND"
20310 PRINT"SUPPLIES, OR END THE JOURNEY WITH THE"
20315 PRINT"GOLD YOU HAVE FOUND. GOLD IS PICKED UP"
20320 PRINT"WHEN YOU LEAVE A ROOM, AND YOU MAY ONLY"
20325 PRINT"TAKE GOLD FROM THE SAME CHAMBER ONCE."
20327 GOSUB40050
20330 PRINT"[145][145][145][155]YOUR TOTAL GOLD IS DISPLAYED AFTER YOU"
20332 PRINT"                                    "
20335 PRINT"LEAVE A ROOM, BUT IT SHOWS HOW MUCH YOU"
20340 PRINT"HAD TWO MOVES AGO, NOT CURRENTLY!"
20345 PRINT"AND FINALLY, ALERTNESS IS IMPORTANT,"
20350 PRINT"BECAUSE SOME ROOMS WILL HAVE BONUS GOLD"
20355 PRINT"AND FOOD IN THEM. IF YOU SEE GOLD FLASH"
20360 PRINT"ON THE SCREEN, ENTER A 'G' TO GET BONUS"
20365 PRINT"IF YOU SEE FOOD FLASH, ENTER A[160]'F' TO "
20370 PRINT"GET THE FOOD BONUS.";
20371 PRINT" FOR EVERY 10 MINUTESYOU SURVIVE ON ONE";
20372 PRINT" LEVEL, YOU WILL GAIN A BONUS OF 100 ";
20373 PRINT"UNITS OF EXPERIENCE."
20375 GOSUB40050
20380 PRINT"[145][145][145][152]EACH WEAPON CAN BE USED ONLY ONCE EXCEPT";
20382 PRINT"                                      "
20385 PRINT"THE GUN, IT CAN BE USED OVER AND OVER"
20390 PRINT"UNLESS A BAT OR SNAKE STEALS IT."
20395 PRINT"SNAKES AND BATS WILL TAKE THE CHEAPER"
20400 PRINT"WEAPONS FIRST, AND WILL TAKE ONLY ONE"
20405 PRINT"ITEM EACH TIME. TO FIND OUT WHAT THEY"
20410 PRINT"TOOK, CHECK YOUR STATUS."
20415 GOSUB40050:GOTO40110
21000 PRINT"[152]   HE TOLD YOU ABOUT COUNT DAMION'S"
21002 PRINT"        [158]MAGICAL ORB[152]"
21003 PRINT"AND HOW IT MADE HIM SO RICH";
21005 PRINT" AND POWERFULHE SAID THAT ANY MAN WHO POSSESSED THE  'ORB',";
21010 PRINT" WOULD POSSESS POWERS AND WEALTH  UNIMAGINABLE. COUNT DAMION ";
21015 PRINT"HIMSELF      GAURDS THE 'ORB' AND IF YOU SHOULD FIND THE CHAMBER";
21020 PRINT" WHERE IT IS HIDDEN YOU WILL FIGHT ONE FINAL BATTLE.";
21025 PRINT" IF YOU WIN, THE 'ORB' AND ALL ITS POWERS WILL BE YOURS."
21030 PRINT"IF YOU LOSE, YOU WILL REMAIN FOREVER IN THE [158]CATACOMBS OF GOLD."
21035 PRINT"[145][145]":GOSUB40050:RETURN
40050 GOSUB15000:PRINT"[153]PRESS RETURN[146] TO CONTINUE[159]";
40052 INPUTHC$:IFHC$=""THENGOSUB15000:PRINT"[147]":RETURN
40054 IFHC$<>""THENPRINT"[145][145]":GOTO40050
40110 PRINT"[159]        EXPLANATION OF COMMANDS"
40120 PRINT"IN CHAMBER #1 "
40125 PRINT"<T>  TRADE -- ALLOWS YOU TO TRADE"
40130 PRINT"              YOUR EXPERIENCE FOR "
40135 PRINT"              SPEED AND/OR STRENGTH"
40140 PRINT"<E>  EXIT  -- MOVES YOU TO OUTSIDE"
40145 PRINT"              THE CASTLE WHERE YOU MAY"
40150 PRINT"              BUY ITEMS TO HELP YOU OR"
40155 PRINT"              END THE ADVENTURE "
40160 PRINT"IN ANY CHAMBER"
40165 PRINT"<A>  FIGHT -- YOU WILL FIGHT THE VAMPIRE";
40170 PRINT"              IF YOU'RE STRONG AND QUICK";
40175 PRINT"              ENOUGH, YOU WILL KILL HIM"
40200 GOSUB40050:GOTO40210
40210 PRINT"IN ANY CHAMBER"
40215 PRINT"<R>  RING  -- WILL CLEAR THE CHAMBER OF";
40220 PRINT"               ALL HAZARDS, AND CREATE "
40222 PRINT"              A TRAPDOOR YOU MAY USE  "
40223 PRINT"              TO DESCEND, IF IT WORKS."
40225 PRINT"              IF IT BACKFIRES, YOU WILL"
40230 PRINT"              LOSE 1/2 OF YOUR SPEED AND";
40235 PRINT"              STRENGTH."
40240 PRINT"<S> STATUS -- WILL SHOW YOU YOUR CURRENT";
40245 PRINT"              SUPPLIES & HEALTH, AND THE";
40250 PRINT"              VAMPIRE'S POWER AND SPEED"
40270 GOSUB40050:GOTO40280
40280 PRINT"      COMMANDS CONTINUED:"
40285 PRINT"<D> DESCEND -  IF A TRAP DOOR IS PRESENT";
40290 PRINT"               YOU MAY USE IT TO DROP "
40295 PRINT"               TO A LOWER LEVEL"
40310 GOSUB40050:GOTO40315
40315 IFMT$="OPTIONS"THENPRINT"[147]":GOTO320
40320 PRINT"[155]    EFFECT OF WEAPONS & MATERIALS"
40325 PRINT"GUN & BULLETS:    DOUBLES YOUR STRENGTH"
40330 PRINT"                  IN BATTLE ONLY, NOT "
40335 PRINT"                  PERMANENTLY "
40340 PRINT"WOODEN STAKES:    ADDS 50%TO YOUR  "
40345 PRINT"                  STRENGTH IN BATTLE"
40350 PRINT"CROSSES      :    ADDS 25%TO YOUR  "
40355 PRINT"                  STRENGTH IN BATTLE"
40360 PRINT"FOOD         :    MAKES VAMPIRE BITE"
40365 PRINT"                  ONLY 1/2 AS BAD"
40370 GOSUB40050:GOTO40380
40380 PRINT"GAS MASK     :    MAKES GETTING "
40385 PRINT"                  GASSED ONLY 1/2"
40390 PRINT"                  AS BAD "
40395 PRINT"MIRRORS      :    MAKES GETTING HURT"
40400 PRINT"                  BY ZOMBIE ONLY 1/2 AS"
40405 PRINT"                  BAD "
40406 GOSUB40050:GOTO40420
40420 PRINT"MAGICAL ORB    :CAN BE FOUND BY ENTERING"
40421 PRINT"                A * FOR THE ROOM NUMBER"
40422 PRINT"YOUR WEAPONS WILL BE USELESS AGAINST":PRINT,"COUNT DAMION"
40506 GOSUB40050:GOTO15
50000 PRINT"      [169] [223]   [169] [223]      [223][169] [162][223][169][162][146][190]"
50005 PRINT"     [184]   [184]     [223][169]  [162] [162][162][223]"
50010 PRINT"                    [184][146][169][184][184][146][169]"
50019 PRINT
50020 PRINT"      [157][157][157]"
50025 PRINT"   [184][157][157][157]"
50030 PRINT"    [157][157][157]"
50031 PRINT"      [169] [223]   [169] [223]      [223][169] [162][223][169][162][146][190]"
50032 PRINT"     [184]   [184]     [223][169]  [162] [162][162][223]"
50033 PRINT"                    [184][146][169][184][184][146][169]"
50250 PRINT"[159]HIT ANY KEY":PRINT"TO BEGIN"
50251 GETA$:IF A$=""THENGOSUB15000:GOTO50300
50252 IF A$<>""THENPOKESV+21,0:GOTO20000
50300 CC=CC+1
50301 IFCC=1THENPRINT"[156]":GOTO50000
50302 IFCC=2THENPRINT"":GOTO50000
50303 IFCC=3THENPRINT"[154]":GOTO50000
50304 IFCC=4THENPRINT"":GOTO50000
50305 IFCC=5THENPRINT"":GOTO50000
50306 IFCC=6THENPRINT"":GOTO50000
50400 IFCC=7THENCC=0:GOTO50300
52000 PRINT"[147]"
52005 PRINT"[206]           [158] [163][163][163] [146][155]             [191]       [205]"
52006 PRINT"","                  [155] [201][213]   "
52008 PRINT"","                  [155][202][177][219][178][203]  "
52010 PRINT"","[162][162][162][162][162][162][162][162][162][162][162][162][162][162]    [155][213][177][179][202]  "
52012 PRINT,"[206]       [155][182][161]     [205]     [155][221]"
52014 PRINT,"[206]        [155][182][161]      [205]  [206][163][163][205]"
52016 PRINT"[206][163][163]          [155][191]       [163][163]    [205]"
52018 PRINT,"[157][157][157][206]   [158]  [164][164][164] [146]     [155][191]          +  [165]"
52020 PRINT,"[157][157][157][157][206]     [158][167][205] [206][165][146]      [155][183][183][191]      +   [165]  ";
52024 PRINT"  [164][164][164][164][206]      [158][167] [214] [165][146]         [155][191]       + [205]""
52026 [153]"THEN           SYSTHEN(null) (null)FNWAIT          LISTUSRUSRSIN       (null)";
52027 [153]"      CMDCMDCMD","SYS         (null)"
52028 [153]"   FRECMDCMDCMD","SYS WAIT*RND    GET"
52029 [153]"    CMDCMDCMD","SYS           WAITSTEP"
52030 [151]SV[170]21,15:[153]"SYS":[137]50000