Media Share 9/MEDIASHARE_09.ISO/bbsdoor/tk104.zip/QUEST000.RAW

Text File | 1992-06-23 | 42KB | 1,619 lines

; ┌──────────────────────────────────────────────────────────────────┐
; │   PART ONE -  In which the Quest to Slay the Trask is begun and  │
; │   --------    up to the first meeting of the Trask in person...  │
; └──────────────────────────────────────────────────────────────────┘
-Title   The Chamber of Horror
-Author  An Unknown Wizard
:Start
 ;---------------------------------------------------------------------;
 ;                         Declarations                                ;
 ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -;
 ;                                                                     ;
 ;   KEY 50   NORTH        1-Yes  0-No                                 ;
 ;       51   SOUTH        1-Yes  0-No                                 ;
 ;       52   EAST         1-Yes  0-No                                 ;
 ;       53   WEST         1-Yes  0-No                                 ;
 ;       54   UP           1-Yes  0-No                                 ;
 ;       55   DOWN         1-Yes  0-No                                 ;
 ;                                                                     ;
 ;       70   Temp Switch  1-Yes  0-No                                 ;
 ;                                                                     ;
 ;       60   MAP VIEW     1-Yes  0-No                                 ;
 ;       61   QUIT         1-Yes  0-No                                 ;
 ;       62   Old Scroll   1-Yes  0-No                                 ;
 ;                                                                     ;
 ;      100   Finished?    1-Yes  0-No                                 ;
 ;                                                                     ;
 ;---------------------------------------------------------------------;

 ;---------------------------------------------------------------------;
 ;                         Reference                                   ;
 ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -;
 ;                                                                     ;
 ;   LABEL    1    At Kingdom                                          ;
 ;            2    West of Kingdom                                     ;
 ;            3    Secret Path (Need Map)                              ;
 ;            4    Temple                                              ;
 ;            5    South of Temple                                     ;
 ;            6    East of Temple (room)                               ;
 ;            7    Temple Room                                         ;
 ;           15    North of Path                                       ;
 ;                                                                     ;
 ;           30    Reset Movement Variable                             ;
 ;           40    Random Foe Check                                    ;
 ;           50    Movement Menu                                       ;
 ;           97    Finish of Quest                                     ;
 ;           98    Old Scroll                                          ;
 ;           99    Map                                                 ;
 ;                                                                     ;
 ;                                                                     ;
 ;                                                                     ;
 ;---------------------------------------------------------------------;
 -Turns 1
 -Color 15 0 0
 -RiteW
 -RiteJ Throughout the ages man has striven to wipe the blight of evil
 -RiteC from the faces of mortal men.
 -Pause 3000
 -RiteW
 -RiteW
 -RiteJ At times, through bravery and skill, the effort is rewarded with
 -RiteC success...
 -Pause 2500
 -RiteW
 -RiteW
 -Color 10 0 0
 -Wait
 -Clear
 -RiteW
 -Color 11 0
 -RiteJ Gathered together in a castle chamber, thou dost find thyself
 -RiteC surrounded by the Knights of the Kingdom...
 -Pause 2500
 -RiteW
 -RiteW
 -Color 14 0
 -RiteC Thou dost note a feeling of anxiety floating amongst the crowd..
 -Pause 2000
 -RiteW
 -RiteW
 -Color 11 0
 -RiteJ The distant sound of a bell marks the arrival of the King...
 -RiteW
 -RiteW
 -Color 10 0
 -Wait
 -Clear
 -RiteW
 -Color 15 0
 -RiteN    "Greetings, my most trusted Knights.. "
 -Color 11 0
 -RiteW   he begins, the sorrowful
 -RiteC look in his eyes and voice only increasing your own misgivings...
 -Pause 3000
 -RiteW
 -RiteW
 -Color 15 0
 -RiteJ "A terrible scourge has fallen upon this realm...  Not but three
 -RiteJ days past did an unlikely pair arrive at the castle gates.  One had
 -RiteJ only the voice to speak but a passage before both passed beyond."
 -RiteW
 -RiteW
 -Color 10 0
 -Wait
 -Clear
 -RiteW
 -Color 15 0
 -RiteJ "Within his last words did I find the need to call you, the
 -RiteJ most trusted few of ALL the Knights, to service."
 -RiteW
 -Color 11 0
 -RiteJ The feeling of anxiety grows as the King stops to gaze into each
 -RiteJ of his Knights eyes.  Whenst upon his gaze falls upon you, you
 -RiteJ feel the wisdom and control that this man carries with him.
 -RiteW
 -RiteW
 -Color 10 0
 -Wait
 -Color 15 0
 -RiteW
 -RiteW
 -RiteJ "The phrase that the tortured soul spoke as his life slipped
 -RiteJ from him was:
 -RiteW
 -Color 12 0
 -RiteJ 'And the Sage of Darkness drank from our strength, and we were
 -RiteJ cast as the dead upon the wagon of its despaired...
 -RiteJ I have touched my dear brother's heart and thought not,
 -RiteJ but to crush it..'
 -RiteW
 -RiteW
 -Color 10 0
 -Wait
 -Clear
 -RiteW
 -Color 11 0
 -RiteJ The gathered Knights shuffle uneasily as the words from the King
 -RiteC settle in the chamber...
 -Pause 3000
 -RiteW
 -RiteW
 -Color 15 0
 -RiteC "The Trask has returned..."
 -Pause 2000
 -RiteW
 -RiteW
 -Color 14 0
 -RiteJ You rely upon your Knight's past memories to supply you with the
 -RiteJ terrible past which the King refers to..
 -RiteW
 -Color 9 0
 -RiteC  [90[[F0R[90][B0ecall Memories [70OR [90[[F0C[90][B0ontinue Quest ?
 -ASK RC
 -RiteW
  -ANSWER 1
    -Color 15 0
    -RiteW
    -RiteJ Thou dost call upon thy Knight's Past...
    -RiteW
    -Color 10 0
    -Wait
    -Clear
    -Color  7 0
    -RiteW
    -RiteJ In the days of old, long before thy knight had known the
    -RiteJ feel of air upon skin, and the majority of the realm
    -RiteJ was still unexplored, a travelling band of old merchants
    -RiteJ came upon a hidden green valley to the west.
    -RiteW
    -RiteJ There didst they find a crumbling temple from the days
    -RiteJ of the ancients.
    -RiteW
    -RiteJ Being merchants, the band was quick to take advantage of
    -RiteJ their discovery and set to exploring the ruins in search of
    -RiteJ treasure..
    -RiteW
    -Color 10 0
    -Wait
    -Clear
    -Color 7 0
    -RiteW
    -RiteJ As they searched through the rubble and abandoned chambers,
    -RiteJ it is said that some had great feelings of doom and loss.
    -RiteJ It is also said that some mistook those feelings as the
    -RiteJ result of some protection spell to ward them away from vast
    -RiteJ treasures..
    -RiteW
    -RiteJ Regardless of their thoughts and feelings, the greedy band
    -RiteJ continued their searching until at last they came upon a
    -RiteJ great chamber that still stood intact deep beneath the ground.
    -RiteW
    -Color 10 0
    -Wait
    -Clear
    -Color 7 0
    -RiteW
    -RiteJ Ancient carvings and runes revealed that at one time, an
    -RiteJ enormous source of was kept within the chamber.
    -RiteW
    -RiteJ The merchants grew wary of the chamber in which they stood..
    -RiteJ All aside from the most greedy of the band, Steven Trask.
    -RiteW
    -RiteJ Trask had come from the poorest of families and had never
    -RiteJ been much of an asset to the band of merchants, as well they
    -RiteJ let him know with their sly comments and mischevious pranks.
    -RiteW
    -Color 10 0
    -Wait
    -Clear
    -Color 7 0
    -RiteW
    -RiteJ Trask remained within that chamber as the others backed away,
    -RiteJ seeking refuge from what power may still have remained...
    -RiteW
    -RiteJ It is now told that when the last of the merchants departed
    -RiteJ the chamber that day to leave Trask alone, the power that
    -RiteJ once was held within the chamber returned...
    -RiteW
    -RiteJ And in that instant, the merchant named Trask Sandson
    -RiteJ became the Trask; part man, part deity, part daemon, the Trask
    -RiteJ was ruled by none and guided only by the slight of humanity
    -RiteJ that remained within.
    -RiteW
    -RiteJ The Trask's new found power was rampant across the realm.
    -RiteJ Crops were blighted at the mere glance of the Trask...
    -RiteJ Women were touched with the seed of deformity as the Trask
    -RiteJ passed overhead...
    -RiteJ Men were poisoned with thoughts of mayhem that usually ended
    -RiteJ in their death or the deaths of those closest to them
    -RiteJ whenever the Trask touched foot upon the ground...
    -RiteW
    -Color 10 0
    -Wait
    -Clear
    -Color 7
    -RiteW
    -RiteJ And then one day the savage rape of the realm ended abruptly.
    -RiteW
    -RiteJ None spoke of the Trask for years for fear that it would
    -RiteJ remember and return..
    -RiteW
    -RiteJ The abandoned temple from which the power sprang was
    -RiteJ avoided and soon forgotten...
    -RiteW
    -Color 10 0
    -Wait
    -Clear
  -ENDANS 1
  -ANSWER 2
  -ENDANS 2
  -Color 15 0
  -RiteW
  -RiteJ You continue listening to the King..
  -RiteW
  -Color 10 0
  -Wait
  -Clear
  -RiteW
  -Color 11 0
  -RiteJ At the word Trask, many of the Knights around thee shudder
  -RiteC and thou dost feel a deep dread of days to come..
  -Pause 2000
  -RiteW
  -RiteW
  -Color 15 0
  -RiteJ "It is with a heavy heart that I must call upon thee all to
  -RiteJ seek out this scourge and by a plea to what remains of its
  -RiteJ humanity, or by skill and bravery, take the realm back to
  -RiteJ safe haven..."
  -RiteW
  -Color 11 0
  -RiteJ Thou dost hear comments of denial and many of thy fellow
  -RiteJ knights glance at each other with eyes pleading for escape.
  -RiteW
  -RiteJ Realizing that the honour of the King is about to be broken,
  -RiteW
  -Color 14 0
  -RiteJ Dost thou:
  -RiteW
  -RiteC  [90[[F0S[90][B0tep forward [70OR [90[[F0R[90][B0emain silent to prepare thy Knight ?
  -ASK SR
  -ANSWER 1
    -Color 11 0
    -Clear
    -RiteW
    -RiteJ Stepping forward dost thou state to thy fellow knights:
    -RiteW
    -Color 14 0
    -RiteC Be we not of this Realm and sworn to protect it?!
    -Pause 2000
    -RiteW
    -RiteW
    -RiteC That oath did not I make with a light heart!
    -Pause 2000
    -RiteW
    -RiteW
    -Color 11 0
    -RiteC Thou dost face the King upon one knee...
    -Pause 1000
    -RiteW
    -RiteW
    -Color 14 0
    -RiteC I will do my best to serve thee in this moment of great peril.
    -Pause 2000
    -RiteW
    -RiteW
    -Color 15 0
    -RiteJ "Well said, Brave Knight!  This day then wilst thou embark upon
    -RiteJ a quest of dire importance.."
    -RiteW
    -Color 14 0
    -RiteJ Thou dost ready thyself for journey and depart the castle...
    -RiteW
    -RiteW
    -Color 10 0
    -Turns 4
    -Wait
    -SET KEY60 0
    -Goto 1
  -ENDANS 1
  -ANSWER 2
    -Color 11 0
    -Clear
    -RiteW
    -RiteJ Feeling that thou had best train and prepare thy Knight,
    -RiteJ thou dost choose to hold thy tongue and approach the king
    -RiteJ at a later time..
    -RiteW
    -RiteW
    -Color 10 0
    -Wait
    -EXIT
  -EndAns 2


 ;............................................................[ LABEL  1 ]...
 ;  Next to the Kingdom

 :Label 1
  -GOSUB 30
  -GOSUB 40
  -SET KEY53 1
  -SET KEY61 1
  -Clear
  -Color 14 0
  -RiteJ Thou dost find thyself just outside the Kingdom's West Gate..
  -RiteW
  -RiteJ A narrow path leads to the West..
  -Gosub 50
  -ASK WQLV
  -RiteW
  -Answer 1
    -GOSUB 30
    -SET KEY61 0
    -Color 15 0
    -RiteW
    -RiteJ Thou dost follow the trail until it bends to the north...
    -RiteW
    -Color 10 0
    -Wait
    -Goto 2
  -EndAns 1
  -Answer 2
    -Color 15 0
    -RiteW
    -RiteC You return to the Courtyard
    -Pause 400
    -If Key100 = 1
      -Goto FINISH
    -IFELSE
      -EXIT
    -IFEND
  -EndAns 2
  -Answer 3
    -Color 15 0
    -RiteW
    -RiteN        Thou dost search under rocks..
    -Pause 1000
    -Color  7 0
    -RiteN  around trees..
    -Pause 1000
    -Color  8 0
    -RiteN  through shrubs..
    -Pause 1000
    -Color 14 0
    -RiteW
    -IF KEY60 = 0
      -RndKey Key2 0 5
      -IF Key2 < 3
        -SET KEY60 1
        -RiteW
        -Color 15 0 1
        -RiteJ THOU DOST FIND A MAP!!
        -RiteW
        -RiteW
        -Color 10 0 0
        -WAIT
      -IFELSE
        -RiteW
        -RiteJ  Thou dost only find gravel, branches, and bugs..
        -RiteW
        -RiteW
        -Color 10 0
        -WAIT
      -IFEND
    -IFELSE
      -RiteW
      -RiteJ Thou dost find nothing else here...
      -RiteW
      -RiteW
      -Color 10 0
      -WAIT
    -IFEND
  -EndAns 3
  -ANSWER 4
    -IF KEY60 = 1
      -GOSUB 99
    -IFEND
  -EndAns 4
  -Goto 1

 ;............................................................[ LABEL  2 ]...
 ;  West of Kingdom

 :Label 2
  -GOSUB 40
  -GOSUB 30
  -Clear
  -SET KEY50 1
  -SET KEY52 1
  -Color 14 0
  -RiteC Thou dost find thyself on a barren trail..
  -Pause 200
  -RiteW
  -RiteW
  -RiteJ The path continues North..
  -Gosub 50
  -ASK NELVW
  -RiteW
  -RiteW
  -Answer 1
    -Color 15 0
    -RiteW
    -RiteJ Thou dost follow the trail North...
    -RiteW
    -RiteW
    -Color 10 0
    -Wait
    -Goto 15
  -EndAns 1
  -Answer 2
    -Color 15 0
    -RiteW
    -RiteJ Thy surroundings become familiar as thy kingdom nears...
    -RiteW
    -Color 10 0
    -Wait
    -Goto 1
  -EndAns 2
  -Answer 3
    -Color 15 0
    -RiteW
    -RiteC Thou dost search...
    -Pause 2000
    -RiteW
    -RiteW
    -Color 14 0
    -RiteJ Thou dost find nothing of interest here..
    -RiteW
    -Color 10 0
    -Wait
  -EndAns 3
  -ANSWER 4
    -IF KEY60 = 1
      -GOSUB 99
    -IFEND
  -EndAns 4
  -ANSWER 5
    -IF KEY60 = 1
      -Color 15 0
      -RiteW
      -RiteJ Thou dost discover a secret path!!
      -RiteW
      -RiteW
      -Color 10 0
      -Wait
      -GOTO 3
    -IFEND
  -EndAns 5
  -Goto 2

 ;............................................................[ LABEL  3 ]...
 ;  Secret Path (Need Map)
 :Label 3
  -GOSUB 40
  -GOSUB 30
  -Set KEY52 1
  -Set KEY53 1
  -Clear
  -Color 14 0
  -RiteW
  -RiteJ This path has not been serviced in many, many years...
  -RiteW
  -RiteJ The brambles and bushes seem to be less thick running East to West.
  -RiteW
  -Gosub 50
  -ASK WEVL
  -RiteW
  -ANSWER 1
    -RiteW
    -Color 15 0
    -RiteJ Avoiding the thicker of the thorns, thou dost continue West...
    -RiteW
    -Color 10 0
    -Wait
    -SET Key70 1
    -Goto 4
  -EndAns 1
  -ANSWER 2
    -Color 15 0
    -RiteW
    -RiteJ Thou dost return to the familiar, well trodden path...
    -RiteW
    -Color 10 0
    -Wait
    -Goto 2
  -EndAns 2
  -ANSWER 3
    -IF KEY60 = 1
      -GOSUB 99
    -IFEND
  -EndAns 3
  -ANSWER 4
    -Color 15 0
    -RiteW
    -RiteC Thou dost search...
    -Pause 2000
    -RiteW
    -RiteW
    -Color 14 0
    -RiteJ Thou dost find nothing of interest here..
    -RiteW
    -Color 10 0
    -Wait
  -EndAns 4
  -Goto 3


 ;............................................................[ LABEL  4 ]...
 ;  Temple
 :Label 4
  -GOSUB 30
  -IF Key70 = 1
    -SET Key70 0
    -Clear
    -RiteW
    -Color 15 0
    -RiteJ From the brambles dost thou scramble, landing without grace upon
    -RiteC the ground.
    -Pause 3000
    -RiteW
    -RiteW
    -Color 11 0
    -RiteC Looking up, thou art confronted with a vision long forgotten...
    -Pause 2000
    -RiteW
    -RiteW
    -Color 14 0
    -RiteJ Before thee, half tumbled with age, are the very ruins from which
    -RiteJ the Trask gained power so many decades past.
    -RiteW
    -RiteW
    -Color 10 0
    -Wait
  -IFEND

  -SET Key50 1
  -SET Key52 1
  -SET Key53 1
  -Clear
  -Color 14 0
  -RiteW
  -RiteJ At the Ancient Temple...
  -RiteW
  -RiteJ Thou dost find thyself amidst the ruins.
  -RiteW
  -Gosub 50
  -ASK EWNLV
  -RiteW
  -ANSWER 1
    ;East Return to Secret Path
    -Color 15 0
    -RiteW
    -RiteJ Thou dost return to the overgrown path...
    -RiteW
    -Color 10 0
    -Wait
    -Goto 3
  -EndAns 1
  -ANSWER 2
    ;West South of Temple
    -RiteW
    -Color 15 0
    -RiteJ Thou dost circle South of the Temple...
    -RiteW
    -Color 10 0
    -Wait
    -Goto 5
  -EndAns 2
  -ANSWER 3
    ;North East of Temple (Door)
    -RiteW
    -Color 15 0
    -RiteJ Thou dost circle East of the Temple...
    -RiteW
    -Color 10 0
    -Wait
    -Goto 6
  -EndAns 3
  -ANSWER 4
    ;Look Around
    -Color 15 0
    -RiteW
    -RiteC Thou dost search...
    -Pause 2000
    -RiteW
    -RiteW
    -Color 14 0
    -RiteJ Thou dost find nothing of interest here..
    -RiteW
    -Color 10 0
    -Wait
  -EndAns 4
  -ANSWER 5
    ;View Map
    -Gosub 99
  -EndAns 5
  -Goto 4

 ;............................................................[ LABEL  5 ]...
 ;  South of Temple
 :Label 5
   -Clear
   -RiteW
   -Color 14 0
   -RiteJ The Temple ruins end at the base of a cliff.
   -RiteW
   -RiteJ The cliff walls are too shear to climb.
   -RiteW
   -RiteJ Thou thinks it best to return along the path...
   -RiteW
   -RiteW
   -Color 10 0
   -Wait
   -Goto 4

 ;............................................................[ LABEL  6 ]...
 ;  East of Temple (Door)
 :Label 6
  -Gosub 30
  -Set Key51 1
  -Set Key55 1
  -Clear
  -RiteW
  -Color 14 0
  -RiteJ Large stone steps lead down into the Temple here.
  -RiteW
  -Gosub 50
  -ASK SDLV
  -ANSWER 1
    ;South
    -Color 15 0
    -RiteW
    -RiteJ Thou dost return along the path...
    -RiteW
    -Color 10 0
    -Wait
    -Goto 4
  -EndAns 1
  -ANSWER 2
    ;Down
    -Color 15 0
    -RiteW
    -RiteJ Cautiously dost thou take the steps into the darkness...
    -RiteW
    -Color 10 0
    -Wait
    -Goto 7
  -EndAns 2
  -ANSWER 3
    ;Look Around
    -Color 15 0
    -RiteW
    -RiteC Thou dost search...
    -Pause 2000
    -RiteW
    -RiteW
    -If Key62 = 1
      -Color 14 0
      -RiteJ Thou dost find nothing of interest here..
    -IFElse
      -Color 15 0
      -RiteJ Thou dost find a crumbling scroll half covered with soil!
      -RiteW
      -RiteC [90[[F0R[90][B0ead Scroll [70OR [90[[F0D[90][B0iscard Scroll ?
      -ASK RD
      -RiteW
      -ANSWER 1
        -SET Key62 1
        -Gosub 98
        -Clear
        -Color 15 0
        -RiteW
        -RiteJ The scroll crumbles as thine eyes touch upon the final words...
        -RiteW
      -EndAns 1
      -ANSWER 2
        -SET Key62 0
      -EndAns 2
    -IFEnd
    -RiteW
    -Color 10 0
    -Wait
  -EndAns 3
  -ANSWER 4
    ;View Map
    -Gosub 99
  -EndAns 4
  -Goto 6


 ;............................................................[ LABEL  7 ]...
 ;  Temple Room
 :Label 7
  -GOSUB 30
  -Set KEY52 1
  -Clear
  -Color 11 0
  -RiteW
  -RiteJ Thou hast found the cavern which, so many years ago, the merchants
  -RiteJ laid eyes upon...
  -RiteW
  -RiteJ The tales of the Trask were true in that upon the walls, runes and
  -RiteJ carving ward away all who would trespass.
  -RiteW
  -Color 10 0
  -Wait
  -Color 11 0
  -RiteW
  -RiteJ Yet the power of the Trask (as thou dost understand it) is not
  -RiteJ present here.
  -RiteW
  -RiteJ Perhaps the Trask was just passing by?
  -RiteW
  -Color 15 0
  -RiteJ Disgruntled and unrewarded, thou dost return to the Kingdom...
  -RiteW
  -Color 10 0
  -Wait
  -Goto 97


 ;............................................................[ LABEL  15 ]...
 ;  Northern Path
 :Label 15
  -Gosub 40
  -Gosub 40
  -Gosub 40
  -GOSUB 30
  -Set KEY51 1
  -Clear
  -Color 14 0
  -RiteW
  -RiteJ The path seems to end in an expanse of wilderness...
  -RiteW
  -Gosub 50
  -ASK SL
  -RiteW
  -ANSWER 1
    -RiteW
    -Color 15 0
    -RiteJ Thou dost return South along the path
    -RiteW
    -RiteW
    -Color 10 0
    -Wait
    -Goto 2
  -EndAns 1
  -ANSWER 2
    -Color 15 0
    -RiteW
    -RiteC Thou dost search...
    -Pause 2000
    -RiteW
    -RiteW
    -Color 14 0
    -RiteJ Thou dost find nothing of interest here..
    -RiteW
    -Color 10 0
    -Wait
  -EndAns 2
  -Goto 15


 ;............................................................[ LABEL 30 ]...
 ; Initialize Movement Variables:
 :LABEL 30
   -SET Key50 0
   -SET Key51 0
   -SET Key52 0
   -SET Key53 0
   -SET Key54 0
   -SET Key55 0
 -RETURN

 ;............................................................[ LABEL 40 ]...
 ; Check for Random Encounter
 :LABEL 40
   -RNDKey Key2 1 40
   -If Key2 > 30
     -RNDFoe
   -IFEND
 -RETURN


 ;............................................................[ LABEL 50 ]...
 ;  Movement Window  (Uses Key50 - 55, 60 - 61)
 :Label 50
  -RiteW
  -RiteW
  ; Allow NORTH
  -IF KEY50 = 1
    -RiteW                          [90[[F0N[90][B0orth
  -IFEND
  ; Allow SOUTH
  -IF KEY51 = 1
    -RiteW                          [90[[F0S[90][B0outh
  -IFEND
  ; Allow EAST
  -IF KEY52 = 1
    -RiteW                          [90[[F0E[90][B0ast
  -IFEND
  ; Allow WEST
  -IF KEY53 = 1
    -RiteW                          [90[[F0W[90][B0est
  -IFEND
  ; Allow UP
  -IF KEY54 = 1
    -RiteW                          [90[[F0U[90][B0p
  -IFEND
  ; Allow DOWN
  -IF KEY55 = 1
    -RiteW                          [90[[F0D[90][B0own
  -IFEND
  -RiteW
  ; Allow VIEW MAP
  -IF KEY60 = 1
    -RiteW                          [90[[F0V[90][B0iew Map
  -IFEND
  ; Allow LOOK (ALWAYS)
    -RiteW                          [90[[F0L[90][B0ook Around
  ; Allow QUIT
  -IF KEY61 = 1
    -RiteW                          [90[[F0Q[90][B0uit thy Questing
  -IFEND
  -RiteW
  -Color 10 0
  -RiteC Thy Choice?
  -Return

 ;............................................................[ LABEL 97 ]...
 ; Label 97 is the End of Quest Label..  It is reached only when the Knight
 ; has successfully reached the end of the Quest..
 :Label 97
   -Clear
   -RiteW
   -Color 11 0
   -RiteJ Thou dost visit the King...
   -RiteW
   -RiteJ After explaining what thou didst discover and the feelings
   -RiteJ thou had within the chamber, the King speaks..
   -RiteW
   -Color 10 0
   -Wait
   -Color 15 0
   -Clear
   -RiteW
   -RiteJ "It dost appear that the Trask hath left the Realm as quickly
   -RiteJ as it appeared.  Perhaps this day merely marks the beginning
   -RiteJ of the Trask's return..  We shall have to wait and see..."
   -RiteW
   -Color 10 0
   -Wait
   -RiteW
   -RiteW
   -Color 11 0
   -RiteC The King motions to a Court Minstrel...
   -Pause 1000
   -RiteW
   -RiteW
   -Clear
   -Color 15 0
   -RiteJ "For thine quick action and bravery above the other Knights of
   -RiteJ Realm in times of need, I shalt give thee a small reward.."
   -RiteW
   -Color 14 0
   -RiteJ The King gives thee treasure!!
   -Color 15 0
   -Gold + 1000
   -Exper + 10
   -RiteW
   -RiteJ Thou dost gain experience!!
   -RiteW
   -RiteW
   -Color 10 0
   -Wait
   -Goto Finish


 ;............................................................[ LABEL 98 ]...
 ; Label 98 is a view only gosub also but has the -Wait for carriage return
 ; at the end instead of pausing after the -Return.

 :Label 98
   -Clear
   -Color 11 0
   -RiteJ Thou art reading a very old scroll.. Portions have decayed..
   -RiteW
   -Color 6 0
   -RiteJ ... not for weeks.  But whenst upon the rains return, travel
   -RiteJ will slow for this merchant caravan.  The wet season always
   -RiteJ reduces the profit.
   -RiteW
   -RiteJ Mr. Sandson received a carrier from his father this morn...
   -RiteJ ...s taken il.. and will be unable to pay his son's .... for
   -RiteJ the coming season.  This bears not such bad undertones for
   -RiteJ the caravan.  Trask has not been much of an asset.
   -RiteW
   -RiteJ However, Mr. Sandson has felt deeply the message of the
   -RiteJ carrier and has asked to visit his father.....
   -RiteW
   -Color 11 0
   -RiteJ The rest of the scroll is decayed beyond legibility..
   -RiteW
   -Color 10 0
   -Wait
   -Return

 ;............................................................[ LABEL 99 ]...
 ; Label 99 is a view only gosub also but has the -Wait for carriage return
 ; at the end instead of pausing after the -Return.

 :Label 99
  -Clear
  -Color 11 0
  -RiteJ Thou art looking at a very old parchement map...
  -Color 6 0
  -RiteW                [60         _________  _________
  -RiteW                [60    │\__/         \/         \__     /│
  -RiteW                [60    │                           \___/ │
  -RiteW                [60    │                              [60   <
  -RiteW                [60    >      [F0     .                  [60   /
  -RiteW                [60    │      [F0      .                 [60  /
  -RiteW                [60    \      [F0      .                 [60  \
  -RiteW                [60    /      [F0      .                 [60  │
  -RiteW                [60    │      [F0       .                [60  │
  -RiteW                [60    │      [F0       .                [60  │
  -RiteW                [60     \     [30  . . .[F0..............[E8*  [60  /
  -RiteW                [60     /                             [60  \
  -RiteW                [60     │                             [60 _/
  -RiteW                [60     \_______/\_______________/\___/
  -RiteW
  -Color 10 0
  -Wait
  -Return
:Finish



;============================================================================
:Start
-Title   The First Cave
-Author  An Unknown Wizard
-Set Key1 0
-Set Key2 0

;--------------------------------------------[Label 1]
; In the Tavern

:Label 1
  -Color 7 0
  -RiteW
  -RiteJ The Realm of Thabes hides many things,
  -RiteJ well treasured and well concealed..
  -RiteW
  -Color 10 0
  -Wait
  -Clear
  -RiteW
  -Color 14 0
  -RiteJ Inside the Tavern..
  -Color 11 0
  -RiteW
  -RiteJ You sit in the Tavern enjoying the music coming from the Bard in
  -RiteJ the corner..
  -RiteW
  -Color 10 0
  -Wait
  -Clear
  -Color 11 0
  -RiteC A shadowed figure approaches...
  -Pause 2000
  -RiteW
  -RiteW
  -Color 15 0
  -RiteJ " Greetings, Noble Knight..  I come to thee in wants of treasure. "
  -Color 11 0
  -RiteW
  -RiteJ   You turn your eyes to his, feeling the coldness that lies within
  -RiteJ him.  You take note of the position of your weapon at your side,
  -RiteJ curious yet cautious.
  -RiteW
  -Color 10 0
  -Wait
  -Color 15 0
  -RiteW
  -RiteJ " Many things have I done within my life to warrant the goods
  -RiteJ deserved of me...  Many things do I regret...  It is with a heavy
  -RiteJ heart that I must ask this of thee. "
  -Color 11 0
  -RiteW
  -RiteJ You relax somewhat, recognizing the figure before you as a local
  -RiteJ beggar.  Still wary of the man, you continue to listen...
  -RiteW
  -Color 10 0
  -Wait
  -Clear
  -Color 15 0
  -RiteJ " A long time ago, when I was not so poor and the wenches saw fit to
  -RiteJ tease me in earnest, I witnessed the loss of a man's life to the
  -RiteJ sword of a noble.  The deed twas done before I knew what I was seeing
  -RiteJ and I uttered my astonishment aloud.
  -RiteJ The noble did see me then, and, realizing his folly, spared me my
  -RiteJ life that I dispose of the body in silence.  Being then the fool that
  -RiteJ I am even now, I agreed.
  -RiteJ Upon the body that I concealed that fateful day, I found a treasure
  -RiteJ beyond my dreams...  A treasure that I dare not take for it would
  -RiteJ serve as a symbol of the deed once done...  I left it there with the
  -RiteJ body to claim one day as my own... "
  -Color 14 0
  -RiteW
  -RiteJ Your interest now snared, you listen in earnest..
  -Color 10 0
  -Wait
  -Clear
  -Color 15 0
  -RiteW
  -RiteJ " I ask thee for thine time and sword in helping me reclaim my
  -RiteJ prize, for your virtue and valour do I trust more than myself.  You,
  -RiteJ a Knight of Thabes, would succeed where others twould but refuse my
  -RiteJ plea, or kill me once I pointed the way to the treasure.  Will you
  -RiteJ help me, O' Noble Knight? "
  -Color 11 0
  -RiteW
  -RiteJ You wonder what it could be that this man feared so and now would
  -RiteJ die to reclaim.
  -Color 15 0
  -RiteJ
  -RiteW Dost Thou:
  -RiteW       [90[[F0A[90][B0ccept the Quest and Honour the beggar's wishes or
  -RiteW       [90[[F0R[90][B0efuse the Quest and continue to listen to the Bard's song?
  -RiteW
  -Color 10 0
  -RiteC Thy Choice?
  -Ask AR
  -RiteW
  -ANSWER 1
    -Goto 3
  -EndAns 1
  -ANSWER 2
    -Goto 2
  -EndAns 2

;--------------------------------------------[Label 2]
; Refuse the beggar

:Label 2
  -Color 11 0
  -RiteJ Thou dost scoff at the beggar's plea, turning toward the music.
  -RiteW
  -Color 15 0
  -RiteJ " The King shalt hear of his "Noble" Knight's refusal to help the
  -RiteJ needy.  A curse on thee!! "
  -RiteW
  -Pause 2000
  -Color 11 0
  -RiteJ For some reason, you don't know why the beggar's threat disturbs
  -RiteJ you so greatly.
  -Color 10 0
  -Wait
  -Exit

;--------------------------------------------[Label 3]
; Accept the beggar's quest

:Label 3
  -Turns 3
  -Color 11 0
  -Clear
  -RiteW
  -RiteJ " I will help thee, beggar..  For thou art in need of assistance and
  -RiteJ my duty to my King and Kingdom includes helping those who believe in
  -RiteJ both. " you grandly state, hoping the beggar doesn't see through your
  -RiteJ mockery of his problem..
  -RiteW
  -Color 15 0
  -RiteJ " Oh thank you, brave Knight!  We must leave at once!! "
  -RiteW
  -Color 11 0
  -RiteW
  -RiteJ The beggar leaves the tavern.
  -RiteW
  -Color 10 0
  -Wait
  -Color 2 0
  -Clear
  -RiteJ Thou art standing in the Tavern.
  -RiteW
  -RiteJ [90[[F0R[90][B0emain in the Tavern
  -Gosub 30
  -Set Key51 1
  -Gosub 50
  -ASK RS
  -RiteW
  -ANSWER 1
    -Goto 4
  -EndAns 1
  -ANSWER 2
    -Goto 5
  -EndAns 2
  -Goto 3



;--------------------------------------------[Label 4]
; Change of heart

:Label 4
  -Color 11 0
  -RiteJ Like a timid whelp you sneak back and find your way home..
  -Pause 1000
  -RiteJ The King is not amused at your lack of bravery..
  -Color 10 0
  -Wait
  -Exit
  -Goto 4

;--------------------------------------------[Label 5]
; Into the forest

:Label 5
  -Color 11 0
  -Clear
  -RiteJ The broad avenues of the Towne of Thabes are arrayed before you.
  -RiteW
  -Pause 2000
  -Color 15 0
  -RiteJ " Brave Knight, the way lies through the eastern forest.  I shall "
  -RiteJ lead the way "
  -RiteW
  -Color 11 0
  -RiteJ The beggar goes East, toward the Eastern gate of the Towne.
  -Color 10 0
  -RiteW
  -Wait
  -Clear
  -Color 2 0
  -RiteJ Thou art standing in the streets of the Towne of Thabes
  -RiteW
  -Gosub 30
  -Set Key52 1
  -RiteJ [90[[F0R[90][B0eturn to the Tavern
  -Gosub 50
  -ASK ER
  -ANSWER 1
    -Goto 6
  -EndAns 1
  -ANSWER 2
    -Goto 4
  -EndAns 2
  -Goto 5


;--------------------------------------------[Label 6]
:Label 6
  -Clear
  -Color 11 0
  -RiteJ You follow the beggar down the street, through the eastern gate, and
  -RiteJ into the forest.
  -Color 10 0
  -RiteW
  -Wait
  -Color 11 0
  -RiteW
  -RiteJ The beggar leads you through a maze of strange passages through the
  -RiteJ forest..  Many seem to be cut through the trees in ways to make them
  -RiteJ invisible to one who is not searching..  You quickly find yourself
  -RiteJ lost..
  -Color 10 0
  -RiteW
  -Wait
  -Color 11 0
  -RiteW
  -RiteJ You find yourself, at long last, at the base of a cliff.  Looking
  -RiteJ around, just as you are about to complain about the dead end, you
  -RiteJ follow the beggar's gaze to a small opening in the rock near the
  -RiteJ forest floor to the North..
  -RiteW
  -RiteJ The beggar hesitates... then steps forward through the opening...
  -Color 10 0
  -RiteW
  -Wait
  -Color 2 0
  -Clear
  -RiteW
  -RiteJ You stand at the base of the cliff
  -RiteW
  -Gosub 30
  -Set Key50 1
  -RiteJ [90[[F0W[90][B0ait for the beggar to return
  -Gosub 50
  -RiteW
  -Ask NW
  -RiteW
  -ANSWER 1
    -Goto 7
  -EndAns 1
  -ANSWER 2
    -Goto 8
  -EndAns 2
-Goto 6

;--------------------------------------------[Label 7]
; Dangers untold and hardships unnumbered

:Label 7
  -Color 15 0 1
  -RiteW
  -RiteJ Thou art AMBUSHED!!
  -Color 10 0 0
  -Wait
  -Foe 7 Flee Move
  -Color 11 0
  -Goto Finish


;--------------------------------------------[Label 8]
; Patience can be rewarding

:Label 8
  -Color 11 0
  -RiteJ You wait until the beggar's head emerges from the crevice..  Then
  -RiteJ you follow, more assured that no beast lies within...
  -RiteW
  -RiteJ The tunnel you find yourself in is dark and damp..  The beggar,
  -RiteJ knowing of your destination and the course to place you there is
  -RiteJ prepared with a torch..
  -RiteW
  -RiteJ As the tunnel rounds a corner and heads West, you hear the sounds
  -RiteJ of laughter coming from ahead...
  -Color 10 0
  -RiteW
  -Wait
  -Color 2 0
  -Clear
  -RiteJ You stand within a tunnel curving to the West
  -RiteW
  -RiteJ [90[[F0R[90][B0emain here and wait
  -Gosub 30
  -Set Key53 1
  -Set Key51 1
  -Gosub 50
  -ASK WRS
  -RiteW
  -ANSWER 1
    -Goto 9
  -EndAns 1
  -ANSWER 2
    -Goto 10
  -EndAns 2
  -ANSWER 3
    -Goto 4
  -EndAns 3
  -Goto 8

;-------------------------------------------[Label 9]
; Chaaaaaaaaaarge!

:Label 9
  -Clear
  -Color 11 0
  -RiteJ You burst around the corner, waiving your weapon to and fro...
  -RiteW
  -RiteJ A fierce [F0AAAAaiaiiihhhhhhhaaaaayyyyyyyy!!!!!!
  -RiteJ [B0comes from the back of your throat..
  -RiteJ a battle cry to instinctively freeze your opponents..
  -Color 10 0
  -RiteW
  -Wait
  -Color 11 0
  -RiteW
  -RiteJ Alas, you find the laughter was only the echos of a small spring
  -RiteJ dripping against the smooth stone of the cave...
  -RiteW
  -RiteJ The beggar looks at you, terrified of what he has just witnessed...
  -RiteW
  -Color 15 0
  -RiteJ " What!!?  Are you crazy??! "
  -RiteW
  -Color 10 0
  -Wait
  -Color 11 0
  -RiteW
  -RiteJ More than a little embarrassed, you calm him with an apology and
  -RiteJ together you head deeper into the cave..
  -Color 10 0
  -Wait
  -Clear
  -Color 11 0
  -RiteJ At long last, you find the end of the cave and a small rose color
  -RiteJ box.  There is a lock on the box..
  -Color 10 0
  -RiteW
  -Wait
  ;-----------------------------------------------------------------
  ; Key3 awaits the knight at the end of quest #2
  ;-----------------------------------------------------------------
  -IF Key3 = 1
    -Goto 11
  -IFElse
    -Goto 12
  -IFEnd


;--------------------------------------------[Label 10]
;  the beggar's ambush!

:Label 10
  -Clear
  -Color 15 0 1
  -RiteJ AMBUSH!!
  -RiteW
  -Color 10 0
  -Wait
  -Clear
  -Color 11 0
  -RiteW
  -RndFoe
  -RndFoe
  -RndFoe
  -Color 11 0
  -RiteJ Feeling disgruntled at the beggar's ambush, you leave the cave and
  -RiteJ wander aimlessly for hours until you spot a familiar trail leading
  -RiteJ back to the Towne...
  -RiteW
  -Color 10 0
  -Wait
  -Goto Finish

;--------------------------------------------[Label 11]
;  If you've got it, you've got it!

:Label 11
  -Color 11 0
  -Clear
  -RiteW
  -RiteJ You realize the key you found in the forest is the same color of
  -RiteJ rose and in a moment of brilliant insight, place the key in the hand
  -RiteJ of the beggar..
  -RiteW
  -RiteJ But, as the beggar takes the key from you, he shimmers in a light
  -RiteJ of silver and blue!!
  -RiteW
  -RiteJ A distant voice comes from the center of the light...
  -Color 15 0
  -RiteW
  -RiteJ " Thank thee, Noble Knight!  I shall return unto thee soon... "
  -RiteW
  -Color 10 0
  -Wait
  -Color 11 0
  -RiteJ He is gone!!!
  -RiteW
  -RiteJ Dismayed at your betrayal, you turn to leave the cave...
  -Color 10 0
  -RiteW
  -Wait
  -Color 11 0
  -RiteW
  -RiteJ You head out of the cave and into the forest, wandering until you
  -RiteJ find your passage home...
  -Color 10 0
  -Wait
  -Goto Finish

;--------------------------------------------[Label 12]
;  No key, no entry!

:Label 12
  -Color 11 0
  -Clear
  -RiteJ   As you have no way to open the box, you and the beggar leave it
  -RiteJ in the safety of the cave and return to the Kingdom...
  -RiteW
  -RiteJ (you need to find the Key! )
  -RiteW
  -Color 10 0
  -Wait
  -Exit

;............................................................[ LABEL 30 ]...
 ; Initialize Movement Variables:
 :LABEL 30
   -SET Key50 0
   -SET Key51 0
   -SET Key52 0
   -SET Key53 0
   -SET Key54 0
   -SET Key55 0
 -RETURN

;............................................................[ LABEL 50 ]...
 ;  Movement Window  (Uses Key50 - 55 = NSEWUD)
 :Label 50
  -RiteW
  ; Allow NORTH
  -IF KEY50 = 1
    -RiteJ [90[[F0N[90][B0orth
  -IFEND
  ; Allow SOUTH
  -IF KEY51 = 1
    -RiteJ [90[[F0S[90][B0outh
  -IFEND
  ; Allow EAST
  -IF KEY52 = 1
    -RiteJ [90[[F0E[90][B0ast
  -IFEND
  ; Allow WEST
  -IF KEY53 = 1
    -RiteJ [90[[F0W[90][B0est
  -IFEND
  ; Allow UP
  -IF KEY54 = 1
    -RiteJ [90[[F0U[90][B0p
  -IFEND
  ; Allow DOWN
  -IF KEY55 = 1
    -RiteW [90[[F0D[90][B0own
  -IFEND
  -RiteW
  -Color 10 0
  -RiteC Thy Choice?
-Return

:Finish





;============================================================================
;              The Shadowed Forest
;      Where the knight finds the Rose Key
;

:Start
;--------------------------------------------[Label 13]
; All of the Shadowed Forest

:Label 13
-Title   The Shadowed Forest
-Author  An Unknown Wizard
  -Set Key3 = 0
  -Color 11 0
  -Pause 2000
  -Clear
  -RiteJ The sounds of the forest are about you; silent as you draw near,
  -RiteJ returning softly as you pass.
  -Pause 3000
  -RiteW
  -RiteW
  -RiteJ You see the light of the sun in scattered places upon the forest
  -RiteJ floor.  Summer is gone and the winds of chill are picking up.
  -RiteW
  -Pause 4000
  -RiteW
  -RiteJ To the north, you may find shelter.  The Towne lies a great
  -RiteJ distance to the south.
  -RiteW
  -Color 10 0
  -Wait
  -Color 2 0
  -Clear
  -RiteJ You are standing in a shadowed forest.
  -RiteW
  -RiteJ The Kingdom lies to the South.
  -Gosub 30
  -Set Key50 1
  -Set Key51 1
  -Gosub 50
  -ASK SN
  -RiteW
  -ANSWER 1
    -Clear
    -Color 11 0
    -RiteJ You begin your long trek back to the Towne, not daring the ill
    -RiteJ weather.
    -RiteW
    -Turns 2
    -Color 10 0
    -Wait
    -Color 11 0
    -Exit
  -EndAns 1
  -ANSWER 2
    -Clear
    -Turns 4
    -Color 11 0
    -RiteJ You search for shelter...
    -RiteW
    -Color 10 0
    -Wait
    -Color 11 0
    -RiteW
    -RiteJ Suddenly, a glint of metal from beneath a tree catches your eye...
    -RiteW
    -Pause 2000
    -RiteW
    -RiteW
    -Color 14 0 1
    -RiteJ You are accosted by the smell of unwashed flesh!
    -RiteW
    -Color 11 0 0
    -RiteJ From behind the tree moves a shadow.  You prepare yourself for
    -RiteJ battle!!
    -Color 10 0
    -Wait
    -Clear
    -Foe 8 Flee Move Attack Close
    -Clear
    -Color 11 0
    -RiteJ After dispensing with the Goblin, you find what was being guarded...
    -RiteW
    -Pause 1000
    -RiteW
    -Color 15 0 1
    -RiteW
    -RiteJ You find a Rose Coloured Key!!
    -Set Key3 1
    -RiteW
    -Color 10 0 0
    -Wait
    -Color 11 0
    -Gold + 600
    -RiteW
    -RiteW
    -RiteJ You return to the King to tell him of your victory in the forest
    -RiteJ and the destruction of the goblin...
    -RiteW
    -Color 10 0
    -Wait
    -Goto Finish
  -EndAns 2

;............................................................[ LABEL 30 ]...
 ; Initialize Movement Variables:
 :LABEL 30
   -SET Key50 0
   -SET Key51 0
   -SET Key52 0
   -SET Key53 0
   -SET Key54 0
   -SET Key55 0
 -RETURN

;............................................................[ LABEL 50 ]...
 ;  Movement Window  (Uses Key50 - 55 = NSEWUD)
 :Label 50
  -RiteW
  ; Allow NORTH
  -IF KEY50 = 1
    -RiteJ [90[[F0N[90][B0orth
  -IFEND
  ; Allow SOUTH
  -IF KEY51 = 1
    -RiteJ [90[[F0S[90][B0outh
  -IFEND
  ; Allow EAST
  -IF KEY52 = 1
    -RiteJ [90[[F0E[90][B0ast
  -IFEND
  ; Allow WEST
  -IF KEY53 = 1
    -RiteJ [90[[F0W[90][B0est
  -IFEND
  ; Allow UP
  -IF KEY54 = 1
    -RiteJ [90[[F0U[90][B0p
  -IFEND
  ; Allow DOWN
  -IF KEY55 = 1
    -RiteW [90[[F0D[90][B0own
  -IFEND
  -RiteW
  -Color 10 0
  -RiteC Thy Choice?
-Return

:Finish