Home » Recent acquisitions » Commodore_16 » tape009a_c16_commodore_16_games_pack_1.wav » dragons lair
dragons lair
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Recent acquisitions » Commodore_16 » tape009a_c16_commodore_16_games_pack_1.wav |
| Filename: | dragons lair |
| Read OK: | ✔ |
| File size: | 0CF5 bytes |
| Load address: | 1001 |
| Exec address: | 0000 |
File contents
10 COLOR4,8,3: COLOR0,13,3:PRINTCHR$(14)
20 PO=15:DIMO%(3),O$(3):TR=0
30 FORI=0TO3:READO$(I):NEXT
40 DATASWORD,STAFF,PALANTIR,TALISMAN
50 O%(INT(RND(1)*2))=1
70 D=INT(RND(1)*4):IFD=0THENPRINT"<cursor left>N EVIL SMELLING"
80 IFD=1THENPRINT"HOMELY"
90 IFD=2THENPRINT"DANK AND WET"
100 IFD=3THENPRINT"DARK,MYSTIC"
110 D=INT(RND(1)*4+1):IFD=1THENPRINT" BARN"
120 IFD=2THENPRINT" DUNGEON"
130 IFD=3THENPRINT" CASTLE"
140 IFD=4THENPRINT" TOWER"
150 C=INT(RND(1)*6):PRINT",WHICH CONTAINS A":C1=C
160 IFC=0THENPRINT"MYSTERIOUS OBJECT.":O=INT(RND(1)*4)
170 IFC=1THENPRINT"BOOK OF SPELLS."
180 IFC=2THENPRINT"HORDE OF TREASURE."
190 IFC=3THENPRINT"SMALL ANIMAL RUMAGING IN THE CORNER."
200 IFC=4THENPRINT"MONSTER GUARDING IT."
210 IFC=5THENPRINT"DRAGON BLOCKING YOUR WAY."
220 IFC<3ANDRND(1)>.6THENPRINT"ðŸ°HERE IS ALSO A MONSTER.":C1=3
230 IFPO<1THENPRINT"<cyan>ðŸ°HOU ART SLAIN<blue>":GOTO1010
240 IFPO<15THENPO=PO+O%(3)
250 FORI=0TO3:IFRND(1)>.9THENPO=PO-O%(I)
260 NEXT
270 PRINT:PRINT"â—‹HAT NOW":INPUTA$
280 V$="":N$="":P=1:FORI=1TOLEN(A$)
290 IFMID$(A$,I,1)=" "THENP=2:GOTO320
300 IFP=1THENV$=V$+MID$(A$,I,1)
310 IFP=2THENN$=N$+MID$(A$,I,1)
320 NEXTI
330 PRINT"<clr>"V$" "N$"<home>"
340 IFV$="SLAY"THEN560
350 IFV$="GO"THEN620
360 IFV$="PICK-UP"THEN650
370 IFV$="EXAMINE"THEN680
380 IFV$="DROP"THEN720
390 IFV$="GAZE-INTO"THEN750
400 IFV$="SPELL"THEN830
410 IFV$="RECOVER"THEN920
420 IFV$="READ"THEN970
430 IFV$="INVENTORY"THEN1010
440 PRINT"<cyan>â•® DON'T UNDERSTAND.<blue>":GOTO230
450 IFC>3ANDRND(1)>.7THENC1=C1+1
460 FORI=1TO750:NEXT
470 IFC1=1ANDRND(1)>.9THENPRINT"ðŸ°HE ROOF FALLS IN!":PO=PO-2:GOTO230
480 IFC1=2ANDRND(1)>.9THENPRINT"ðŸµOU FELL DOWN A PIT IN THE FLOOR.":PO=PO-3:GOTO230
490 IFC1=3THENPRINT"ðŸ°HE ANIMAL KEEPS ITS DISTANCE."
500 IFC1=4ANDRND(1)>.6THENPRINT"ðŸ°HE MONSTER ADVANCES."
510 IFC1>5THENC1=5
520 IFC1<5ORRND(1)<.7THEN230
530 IFRND(1)>.7THENPRINT"ðŸ´E KILLS YOU!":PO=0:GOTO1010
540 GOTO230
550 PRINT"ðŸ°HE MONSTER ATTACKS YOU.":PO=PO-INT(RND(1)*4)
560 IFC1<3THENPRINT"ðŸ°HERE IS NO MONSTER.":GOTO450
570 IFO%(0)=0THENPRINT"<red>ðŸµOU HAVE NO WEAPONS!<blue>":GOTO450
580 PO=PO-INT(RND(1)*3)
590 IFC=5ANDRND(1)>.6THENPRINT"ðŸ°HE DRAGON LIVES.":GOTO450
600 PRINT"ðŸ°HE BEAST IS DEAD.":C1=0
610 GOTO450
620 IFC1>2ANDRND(1)<C1/7THENPRINT"ðŸ°HE MONSTER WON'T LET YOU.":GOTO450
630 IFN$<>"LEFT"ANDN$<>"RIGHT"ANDN$<>"FORWARDS"THEN390
640 PRINT"ðŸ½K":GOTO60
650 IFN$<>O$(O)THENPRINT"ðŸ°HERE IS NO "N$:GOTO450
660 O%(O)=O%(O)+1:PRINT"ðŸ½K"
670 GOTO450
680 IFC1>3THENPRINT"ðŸ°HIS ANGERS THE BEAST.":C1=C1+1:GOTO460
690 IFC>0THENPRINT"ðŸ°HERE IS NOTHING TO EXAMINE.":GOTO450
700 PRINT"ðŸ°HE OBJECT TURNS OUT TO BE A "O$(O)"."
710 GOTO450
720 FORI=0TO3:IFN$=O$(I)ANDO%(I)=0THENPRINT"ðŸµOU DON'T HAVE A "N$:GOTO450
730 IFN$=0$(I)THENO%(I)=O%(I)-1:O=I:PRINT"ðŸ½K"
740 NEXT:GOTO450
750 IFN$<>"ðŸ¾ALANTIR"THENPRINT"ðŸµOU CAN'T GAZE AT THAT.":GOTO450
760 IFO%(2)=0THENPRINT"ðŸµOU DON'T HAVE A ðŸ¾ALANTIR.":GOTO450
770 IFRND(1)>.3THEN810
780 IFRND(1)>.5THENPRINT"ðŸ°HE GLOBE REMAINS BLANK.":GOTO450
790 IFRND(1)>.5THENPRINT "ðŸµOU FIND A MONSTER LURKING IN THE SHADOWS.":C1=3:GOTO490
800 PRINT"ðŸµOU SEE A GREAT TREASURE IN YOUR â•°OURNEYS.":GOTO230
810 PRINT"ðŸµOU FEEL WEAKER."
820 PO=PO-1:GOTO450
830 IFO%(1)=0THENPRINT"ðŸµOU HAVEN'T THE MEANS TO CAST SPELLS.":GOTO230
840 IFN$<>"MONSTER"THENPRINT"ðŸµOU CAN'T SPELL THAT.":GOTO450
850 IFC1<3THENPRINT"ðŸ°HERE IS NO MONSTER.":GOTO230
860 IFRND(1)<.8THEN890
870 PRINT"ðŸµOUR SPELL FAILED.":PRINT"â•®T HAS ANGERED THE BEAST."::C1=C1+1:GOTO460
880 GOTO450
890 PRINT"ðŸ°HE SPELL WORKED.":C1=0
900 IFRND(1)>.6THENPRINT"ðŸ²UT YOUR STAFF SNAPPED WITH THE STRAIN.":O%(1)=O%(1)-1
910 GOTO230
920 IFC<>2THENPRINT"ðŸ°HERE IS NOTHING TO RECOVER.":GOTO450
930 IFN$<>"TREASURE"THENPRINT"THAT CANNOT BE RECOVERED.":GOTO400
940 IFC1>2ANDRND(1)>.3THENPRINT"ðŸ°HE MONSTER WON'T LET YOU.":C1=C1+1:GOTO460
950 TR=TR+INT(RND(1)*101)+100
960 PRINT"ðŸ½K"::GOTO230
970 IFC<>1THENPRINT"ðŸ°HERE IS NO BOOK.":GOTO450
980 IFN$<>"BOOK"THEN440
990 PRINT"ðŸµOU FEEL FAINT":PO=PO-2
1000 GOTO230
1010 PRINT"ðŸµOU HAVE"PO"STRENGTH"
1020 PRINT"ðŸµOU HAVE"TR"SILVER":PRINT"COINS."
1030 PRINT"ðŸµOU HAVE":FORI=0TO3:PRINTO%(I)O$(I);
1040 IFO%(I)<>1THENPRINT"S";
1050 PRINT:NEXT
1060 IFPO>0THEN450
�4,8,3: �0,13,3:��(14) 8 PO�15:�O%(3),O$(3):TR�0 L �I�0�3:�O$(I):� o( �SWORD,STAFF,PALANTIR,TALISMAN �2 O%(�(�(1)�2))�1 �F D��(�(1)�4):�D�0��"�N EVIL SMELLING"