Castle Doors

[Figure: Drawings of a dragon-like beast and a hooded fish-scaled monster]

Castle doors is an adventure game that presents a new challenge with each playing, and the opportunity for easy adjustment of difficulty if the Wizard is winning too much, or too little of the time.

You, the player, have the ultimate task of defeating the evil Wizard, but first you must gain strength and experience by confronting the strange denizens of the Wizard’s enchanted castle. Behind each [illegible] most offer you only of of three alternatives: fight the monster and pass through the door, bribe the monster to let you pass, or you can run away from the monster.

After chosing to fight the monster, you must decide how much strength to fight with. If you lose, you lose the strength you fought with; if you win, you win additional strength. If your total strength is less than the strength of the monster whom you are fighting, you lose the game.

If you chose to bribe the monster to let you pass, it may refuse your bribe, and you must decide what to do next: fight, offer a bigger bribe, or run away. If your bribe is accepted you lose the bribe and gain the same amount of strength points you would have had if you had fought the monster and won. Be warned, however, that a successful bribe can easily result in an overall loss of points.

If you chose to run away you will, naturally, lose some strength. Also, the monster has a one in one-hundred chance of catching you and ending the game.

When you feel that you are ready, you may chose to fight the evil Wizard. The battle is short, fierce, and has the immediate outcome of either total victory or defeat.

This program is written in such a manner as to make the adjustment of all strength and penalty values quite easy. Messages printed in the course of the program run have been adjusted to print correctly on the screen by the addition or delection of internal spaces. Comments have been added to the program listing in order to identify those values that you might want to change as you become more familiar with the program, in order to customize it to your preferences. You will note, that even if you are called upon to fight the same type of monster twice in a row, that each individual monster within a type posesses individual characteristics, withing the set limits. Only the power of the evil Wizard remains constant during each game.

  1 PRINT
  2 PRINT
  4 PRINT "WELCOME TO CASTLE DOORS"
  6 PRINT
  8 LET B=RND (300)   --Wizard's strength--
 10 LET C=RND (50)    --Starting strength of player--
 12 PRINT
 14 PRINT
 16 PRINT "YOUR STRENGTH IS ";C
 18 PRINT
 20 PRINT
 22 PRINT "PRESS 4 TO OPEN A DOOR, PRESS 5 TO FIGHT THE WIZARD"
 24 RANDOMISE
 26 LET D=RND (8)           --Door selector--
 28 LET A=0                 --Initializes monster strength--
 30 LET E=RND (50)          --Size of acceptable bribe--
 32 LET F=RND (100)         --Chance of getting caught on run option
 34 LET G=RND (25)          --Gain in strength on win over monster--
 36 LET H=RND (15)          --Loss of strength on run option--
 38 INPUT O
 40 CLS
 42 IF O=5 THEN GOTO 176
 44 IF D=1 THEN LET A=RND (20)   --Strength of monster in line below--
 46 IF D=1 THEN LET A$="CYCLOPS"     --Monster name--
 48 IF D=2 THEN A=RND (30)
 50 IF D=2 THEN LET A$="WITCH"
 52 IF D=3 THEN LET A=RND (40)
 54 IF D=3 THEN LET A$="DRAGON"
 56 IF D=4 THEN LET A=(50)
 58 IF D=4 THEN LET A$="GARGOYLE"
 60 IF D=5 THEN LET A=(60)
 62 UF D=5 THEN LET A$="ZOMBIE"
 64 IF D=6 OR D=7 OR D=8 THEN GOTO 160
 66 PRINT
[illegible]
 80 PRINT
 82 PRINT "YOU MAY: FIGHT=1 BRIBE=2 RUN=3"
 84 INPUT N
 86 CLS
 88 IF N=2 THEN GOTO 124
 90 IF N=3 THEN GOTO 148
 92 IF C<A THEN GOTO 176
 94 PRINT
 96 PRINT
 98 PRINT "YOUR STRENGTH IS ";C
100 PRINT
102 PRINT
104 PRINT "HOW MUCH STRENGTH DO YOU WANT
    TO FIGHT WITH?"
106 INPUT Q
108 CLS
109 PRINT
110 PRINT
112 IF Q>C THEN GOTO 94
114 IF Q>A OR Q=A THEN LET C=C+G
116 IF Q>A OR Q=A THEN PRINT "YOU WIN
    BRAVE ADVENTURER"
118 IF Q<A THEN LET C=C-Q
120 IF Q<A THEN PRINT "YOU LOSE TO THE ";A$
122 GOTO 12
124 PRINT
126 PRINT
128 PRINT "YOUR STRENGTH IS ";C
130 PRINT
132 PRINT "HOW BIG A BRIBE DO YOU
    WANT TO OFFER?"
134 INPUT P
136 CLS
138 IF P>E OR P=E THEN LET C=C-P+G
140 IF P>E OR P=E THEN PRINT"BRIBE ACCEPTED"
142 IF P<E THEN PRINT "BRIBE REFUSED"
144 IF P<E THEN GOTO 66
146 GOTO 12
148 PRINT
150 PRINT
152 IF F=50 THEN GOTO 176
154 PRINT "YOU GOT AWAY FROM THE MONSTER"
156 LET C=C-H
158 GOTO 12
160 PRINT
162 PRINT
164 IF D=6 THEN PRINT "SAVE A PRINCESS AND GAIN 50 POINTS"
166 IF D=6 THEN LET C=C+50
168 IF D=7 THEN PRINT "FAIRY GIVES YOU A MAGIC POTION
    THAT DOUBLES YOU STRENGTH"
170 IF D=7 THEN LET C=C*2
172 IF D=8 THEN PRINT "A GIANT BAT CARRIES YOU TO ANOTHER DOOR'
174 GOTO 12
176 PRINT
178 PRINT
180 IF C>B OR C=B THEN PRINT "THE WIZARD IS DEFEATED-YOU WIN"
182 IF C<B OR C<A OR F=50 THEN PRINT "YOU FOUGHT BRAVELY,
    BUT WERE DEFEATED-GAME OVER"
184 STOP