Listing of file='INSTR.BAS;01' on disk='vmedia/chip_21-sector.ccvf'
100 PLOT 12,14,3,10,0,27,24 120 PRINT "D U N G E O N S A N D D R A G O N S ! ! 140 PLOT 3,0,5 160 PRINT "D O Y O U W A N T D I R E C T I O N S ?"; 180 I$= "YN":GOSUB 5000 200 ON IGOTO 300,10000 300 PRINT "ES" 310 PRINT " MANY CENTURIES AGO, VALA, AN EVIL INSANE SORCERER, DWELLED 320 PRINT "IN THE LAND OF ANDOR. HE LIVED AS A RECLUSE WITHIN AN ANCIENT 330 PRINT "CASTLE. FEW EVER SAW HIM AND THOSE WHO DID WOULD NOT SPEAK OF 340 PRINT "THEIR ENCOUNTER WITH HIM. 350 PRINT 360 PRINT " AS VALA BEGAN TO REALIZE THAT HIS DAY OF DEATH WAS NEARING, 370 PRINT "HE DECEIDED TO EMBODY HIS EVIL WITHIN A LABRYNTHIC DUNGEON. 380 PRINT "TO INSURE THAT PEOPLE WOULD COME IN CONTACT WITH HIS EVIL, 390 PRINT "VALA STOLE THE ORB OF RULERSHIP KNOWING THAT WITHOUT THIS 400 PRINT "ARTIFACT, THE SURROUNDING TERRITORIES WOULD SOON FALL INTO 410 PRINT "ANARCHY AND DESTROY THEMSELVES IN BLOODY WARS. 420 GOSUB 7000 440 PLOT 12 450 PRINT "YOU'RE QUEST, BRAVE SIR, IS TO GO TO THE DEEPEST LEVEL OF THIS 460 PRINT "DANGEROUS DUNGEON AND RETRIEVE THE ORB OF RULERSHIP. IF 470 PRINT "YOU SUCCEED IN THIS ADVENTURE, YOU WILL BECOME KING, AND BE 480 PRINT "DECLARED A HERO AMD A GOD. IF YOU SHOULD FAIL IN THIS QUEST, 490 PRINT "YOU'RE NEXT OF KIN WILL BE NOTIFIED. 500 PRINT 510 PRINT "ONE MORE THING... 520 PRINT "THE ORB IS GUARDED BY TIAMAT, THE QUEEN OF ALL DRAGONS. 530 PRINT "MANY HAVE PREVIOUSLY REACHED TIAMAT, BUT NO-ONE HAS DEFEATED 531 PRINT "HER!! 535 GOSUB 7000 540 PRINT "HER!! 570 PLOT 12 580 PRINT "THE FIRST THING YOU WILL BE ASKED IS:" 590 PRINT " NEW OR OLD ?" 600 PRINT "IF A 'N' IS TYPED THEN A NEW GAME WILL BE STARTED. 610 PRINT "IF A 'O' IS TYPED THEN AN OLD GAME WILL BE CONTINUED. 620 PRINT "DO NOT TYPE 'O' UNLESS YOU HAVE AN OLD GAME TO CONTINUE!! 630 PRINT 640 PRINT "AFTER TYPING 'N', A SERIES OF NUMBERS WILL APPEAR. 650 PRINT "THEY MAY LOOK LIKE THIS:STR:12 CON:10: DEX:8 ?" 660 PRINT 670 PRINT "THIS IS CALLED YOUR 'CHARACTER'. ALL NUMBERS ARE BETWEEN 680 PRINT "THREE AND EIGHTEEN. 'STR' IS YOUR STRENGTH, 'CON' IS YOUR 690 PRINT "CONSTITUTION (OVERALL PHYSICAL HEALTH), AND 'DEX' IS YOUR 700 PRINT "DEXTERITY. 710 GOSUB 7000 720 PLOT 12 730 PRINT " AFTER LOOKING AT YOUR CHARACTER, YOU HAVE THE OPTION OF 740 PRINT "EITHER KEEPING IT BY TYPING 'Y' OR TRYING AGAIN BY TYPING 750 PRINT "'N'. 760 PRINT 770 PRINT " ONCE YOUR CHARACTER IS SELECTED, YOU MUST EQUIP IT. 780 PRINT "YOU WILL BE GIVEN A NUMBER OF 'POINTS' TO USE FOR EQUIPMENT. 790 PRINT "A LIST OF AVAILABLE ITEMS WILL BE DISPLAYED WITH CORRESPONDING 800 PRINT "NUMBERS OF POINTS NEEDED. SIMPLY TYPE THE NUMBER OF POINTS YOU 810 PRINT "WISH TO SPEND ON EACH ITEM AND YOUR CHARACTER WILL BE EQUIPPED! 820 GOSUB 7000 830 PLOT 12 840 PRINT " THE SCREEN NOW CONTAINS THE FOLLOWING INFORMATION: 850 PRINT 860 PRINT "WEAPON................YOUR WEAPON 870 PRINT "ARMOR.................YOUR ARMOR 880 PRINT "SHIELD................THE SIZE OF YOUR SHIELD 890 PRINT "MAXIMMUM HIT POINTS...THE HIGHEST AMOUNT OF DAMAGE YOU CAN 900 PRINT " TAKE BEFORE DEATH 910 PRINT "CURRENT HIT POINTS....THE AMOUNT OF HIT POINTS YOU CURRENTLY 920 PRINT " HAVE. WHEN THIS NUMBER REACHES 0, YOU 930 PRINT " ARE DEAD! 931 PRINT "EXPERIENCE POINTS....EACH TIME A CHARACTER KILLS A MONSTER, 932 PRINT " EXPERIENCE POINTS ARE EARNED. AS YOU 933 PRINT " GAIN EXPERIENCE, YOUR EXPERIENCE LEVEL 934 PRINT " GOES UP ACCORDING TO A CHART 935 PRINT " ON THE NEXT PAGE OF INSTRUCTIONS. 936 PRINT "EXPERIENCE LEVEL......AS YOUR EXPERIENCE LEVEL GOES UP, YOUR 937 PRINT " FIGHTING ABILITIES AND HIT POINTS 938 PRINT " ARE RAISED 939 PRINT "GOLD..................THE AMOUNT OF GOLD YOU POSESS 940 PRINT "POSITION..............THE X-Y POSITION OF YOUR CHARACTER - 950 PRINT " THE SCALE IS ON THE SIDES OF THE MAP 955 PRINT "DUNGEON LEVEL.........THE NUMBER OF LEVELS DEEP INTO THE EIGHT 956 PRINT " LEVEL DUNGEON YOUR CHARACTER IS 960 PRINT "TURNS TO REST.........THE NUMBER OF MOVES BEFORE YOU ARE ALLOWED 970 PRINT " TO REST (RESTING IS EXPLAINED LATER) 980 GOSUB 7000 985 PLOT 12,15,29,18 990 PRINT "STR:..................YOUR STRENGTH 1000 PRINT "DEX:..................YOUR DEXTERITY 1010 PRINT "CON:..................YOUR CONSTITUTION 1011 PRINT 1013 PRINT "EXPEREINCE POINTS NEEDED FOR EACH EXPERIENCE LEVEL: 1014 PRINT :PRINT "LEVEL EXPERIENCE POINTS 1015 PRINT " 1016 EX= 0 1017 FOR I= 1TO 15 1019 IF I= 1THEN 1021 1020 EX= EX+ 2000:EX= EX+ (1000* (I- 2)) 1021 PRINT " ";I;" ";EX 1023 NEXT I 1025 GOSUB 7000:PLOT 12 1090 PRINT 1092 PRINT "THE FOLLOWING ARE MAGICAL WRITINGS FOUND IN THE DUNGEON CALLED 1093 PRINT "'SCROLLS'. SCROLLS ALLOW A CHARACTER TO PERFORM EXTRAORDINARY 1094 PRINT "FEATS; HOWEVER, EACH ONE CAN ONLY BE USED 1 TO 4 TIMES!! 1110 PRINT "ESP.............ALLOWS THE USER TO SEE PSYCHICLY THE AREA 1120 PRINT " DIRECTLY AROUND HIM 1125 PRINT "TELEPORT........ALLOWS THE CHARACTER TO INSTANTLY TRANSPORT 1130 PRINT " HIMSELF TO ANY POSITION WITHIN HIS CURRENT 1140 PRINT " LEVEL IN THE DUNGEON 1150 PRINT "REPULSION.......INSTANTLY SENDS MONSTERS ONTO A PARALLEL 1160 PRINT "FIREBALL........SENDS A SPHERICAL BALL OF FIRE TOWARD THE 1170 PRINT " MONSTER YOU ARE FIGHTING. FIREBALLS ALWAYS 1180 PRINT " HIT!! 1190 PRINT "LIGHTINING......SENDS A BOLT OF LIGHTNING TOWARD THE 1200 PRINT " MONSTER YOU ARE FIGHTING. LIGHTNING 1210 PRINT " ALWAYS HITS! 1250 PRINT "TRAP IMMUNE.....MAKES THE CHARACTER IMMUNE TO TRAPS SET WITHIN 1260 PRINT " THE DUNGEON 1270 PRINT "HEALING.........HEALS A CHARACTER'S DAMAGE (CURRENT HIT POINTS) 1280 GOSUB 7000 1300 PLOT 12 1310 PRINT "THE DUNGEON: 1320 PRINT 1330 PRINT " THE DUNGEON IS A SIX LEVEL LABRYNTH. EACH LEVEL IS A 1340 PRINT "20 BY 20 GRID. AS YOU MOVE THROUGH THE DUNGEON, YOU WILL 1342 PRINT "ENCOUNTER MONSTERS, FIND TREASURES AND SCROLLS, AND FALL INTO 1344 PRINT "TRECHEROUS TRAPS. THE FOLLOWING ARE THE SYMBOLS (SEEN IN THE 1345 PRINT "DUNGEON MAP) FOR SOME COMMON THINGS FOUND IN THE DUNGEON: 1350 PRINT 1360 PRINT "M.....A MONSTER. IT WILL APPERA IN THE DISPLAY IF IT IS EVADED 1370 PRINT " .....A WALL 1380 PRINT "T.....A TRAP 1390 PRINT "W.....A WEAPON, ARMOR, OR SHIELD 1400 PRINT "M.....MAGIC-A SCROLL 1500 GOSUB 7000 1510 PLOT 12 1520 PRINT "THE OPTIONS: 1540 PRINT "ONCE PLAY HAS BEGUN, THE COMPUTER WILL ASK FOR A 'OPTION' 1550 PRINT "SIMPLY TYPE THE FIRST LETTER OF THE OPTION YOU WANT. 1560 PRINT "THE FOLLOWING IS A LIST OF THE OPTIONS: 1565 PRINT 1580 PRINT "ESP...............USE ESP SCROLL (IF YOU HAVE ONE) 1590 PRINT "TELEPORT..........USE TELEPORT SCROLL (IF YOU HAVE ONE) 1600 PRINT "REST..............EACH FIVE MOVES, YOU ARE ALLOWED TO REST. 1610 PRINT " RESTING INCREASES CURRENT HIT POINTS BY 2 1620 PRINT "FIND TREASURE.....USE FIND TREASURE SCROLL (IF YOU HAVE ONE) 1630 PRINT "MOVE..............MOVES YOUR CHARACTER. AFTER TYPING 'M', THE 1640 PRINT " COMPUTER WILL ASK A DIRECTION (NORTH, 1650 PRINT " SOUTH,EAST,OR WEST) 1660 PRINT "ACTIVATE..........USED TO RECEIVE THE ACTION OF THE SQUARE YOU 1670 PRINT " ARE IN WITHOUT MOVING OUT AND BACK IN 1690 GOSUB 7000 1700 PLOT 12 1701 PRINT " UPON ENCOUNTERING A MONSTER, YOU WILL BE ASKED FOR A 1702 PRINT "'FIGHT OPTION'. YOU WILL ALSO BE GIVEN THE FIRST LETTERS 1704 PRINT "OF EACH OPTION. SIMPLY TYPE THE LETTER OF THE OPTION YOU WANT 1706 PRINT "THE FOLLOWING IS A LIST OF YOUR FIGHT OPTIONS: 1710 PRINT 1720 PLOT 15:PRINT " 1730 PRINT "CHARGE.........ATTACK THE MONSTER. AFTER YOU CHARGE HIM, HE 1740 PRINT " WILL CHARGE YOU 1750 PRINT "DEFEND.........DOES NOT ATTACK THE MONSTER. SIMPLY DEFENDS 1760 PRINT " FROM THE MONSTER'S ATTACK 1770 PRINT "EVADE..........RUN AWAY FORM THE MONSTER. BEFORE EVADING, YOU 1780 PRINT " YOU MUST DEFEND 1790 PRINT "REPUSION.......USE A REPULSION SCROLL TO DISPELL THE MONSTER 1800 PRINT "TELEPORT.......TELEPORT AWAY FROM THE MONSTER 1805 PRINT "FIREBALL......USE A FIREBALL SCROLL 1810 PRINT "LIGHTNING......USE A LIGHTNING SCROLL 1820 GOSUB 7000 1830 GOTO 11000 5000 POKE 33278,0 5010 IF PEEK (33278)= 0THEN 5010 5020 A$= CHR$ (PEEK (33278)) 5030 FOR I= 1TO LEN (I$) 5040 IF MID$ (I$,I,1)= A$THEN 5070 5050 NEXT I 5060 I= LEN (I$)+ 1 5070 RETURN 7000 PLOT 3,0,31:PRINT "TYPE 'C' TO CONTINUE OF 'G' TO PLAY :"; 7010 I$= "CG" 7015 GOSUB 5000 7020 ON IGOTO 7030,10000 7025 GOTO 7000 7030 PRINT "ONTINUE" 7035 FOR I= 1TO 300:NEXT I 7040 RETURN 10000 PRINT "O":LOAD "DND":RUN 11000 LOAD "DND":RUN