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"