home *** CD-ROM | disk | FTP | other *** search
/ The Complete Encyclopedia of Games 3 / GAMES1000V3_d1.iso / adven / 7113 / roomsub1.tx_ / roomsub1.tx
Text File  |  1993-01-06  |  6KB  |  149 lines
  1. Call Random1(R%, 7)
  2. On R% GoTo 22350, 24040, 24550, 25060, 25480, 25750, 26500
  3.  
  4. 22350 Rem DARK ROOMS
  5.  
  6. 22360 Call Random1(R%, 9)
  7. 22390 On R% GoTo 22420, 22660, 22690, 22720, 22780, 24550, 25480, 25750, 26500
  8. 22420 Message.Text1.Caption = "The air is heavy, dank and cold.": Message.Show 1: Exit Sub
  9. 22660 Message.Text1.Caption = "The walls are wet and slimy.": Message.Show 1: Exit Sub
  10. 22690 Message.Text1.Caption = "The floor is moist.": Message.Show 1: Exit Sub
  11. 22720 Message.Text1.Caption = "The light from your lamp causes your body to throw great shadows.": Message.Show 1: Exit Sub
  12. 22780 Message.Text1.Caption = "The light from your lamp falls in all sorts of odd forms.": Message.Show 1: Exit Sub
  13.  
  14.  
  15. 24040 Rem DUST
  16.  
  17. 24100    Call Random1(R%, 5)
  18. 24130    On R% GoTo 24280, 24310, 24340, 24400, 24460
  19. 24280 Message.Text1.Caption = "The floor has a thick coating of dust.": Message.Show 1: Exit Sub
  20. 24310 Message.Text1.Caption = "The whole place is thick with dust.": Message.Show 1: Exit Sub
  21. 24340 Message.Text1.Caption = "The room contains dust in extraordinary proportions, all untouched.": Message.Show 1: Exit Sub
  22. 24400 Message.Text1.Caption = "The floor is seemingly inches deep in dust.": Message.Show 1: Exit Sub
  23. 24460 Message.Text1.Caption = "The walls are fluffy and heavy with dust.": Message.Show 1: Exit Sub
  24.  
  25.  
  26. 24550 Rem COBWEBS
  27.  
  28. 24610    Call Random1(R%, 4)
  29. 24640    On R% GoTo 24670, 24700, 24910, 24970
  30. 24670 Message.Text1.Caption = "The corners are masses of cobwebs.": Message.Show 1: Exit Sub
  31. 24700 Message.Text1.Caption = "In the corners of the room are masses of spider's webs.": Message.Show 1: Exit Sub
  32. 24910 Message.Text1.Caption = "There are a few cobwebs on the floors, walls and ceilings.": Message.Show 1: Exit Sub
  33. 24970 Message.Text1.Caption = "The cobwebs are profuse.": Message.Show 1: Exit Sub
  34.  
  35.  
  36. 25060 Rem DAMP/DECAY
  37.  
  38. 25120     Call Random1(R%, 5)
  39. 25150     On R% GoTo 25210, 25270, 25360, 25390, 25420
  40. 25210 Message.Text1.Caption = "There are damp patches of mold everywhere.": Message.Show 1: Exit Sub
  41. 25270 Message.Text1.Caption = "The room's woodwork is rotten.": Message.Show 1: Exit Sub
  42. 25300 Message.Text1.Caption = "The room is dirty and damp.": Message.Show 1: Exit Sub
  43. 25360 Message.Text1.Caption = "The room is strewn with rubbish.": Message.Show 1: Exit Sub
  44. 25390 Message.Text1.Caption = "The room is littered with debris.": Message.Show 1: Exit Sub
  45. 25420 Message.Text1.Caption = "A multitude of roaches scurry about.": Message.Show 1: Exit Sub
  46.  
  47.  
  48. 25480 Rem RODENTS
  49.  
  50. 25540     Call Random1(R%, 3)
  51. 25570     On R% GoTo 25600, 25660, 25690
  52. 25600 Message.Text1.Caption = "There are vermin droppings scattered about.": Message.Show 1: Exit Sub
  53. 25660 Message.Text1.Caption = "There are signs of rodent infestation.": Message.Show 1: Exit Sub
  54. 25690 Message.Text1.Caption = "The room is foul with vermin waste.": Message.Show 1: Exit Sub
  55.  
  56.  
  57. 25750 Rem SMELL
  58.  
  59. 25810  Call Random1(R%, 8)
  60. 25840  On R% GoTo 25870, 25990, 26020, 26050, 26200, 26260, 26410, 26440
  61. 25870 Message.Text1.Caption = "A faint, malodorous odor permeates the room.": Message.Show 1: Exit Sub
  62. 25990 Message.Text1.Caption = "A gust of cold air rushes into the room.": Message.Show 1: Exit Sub
  63. 26020 Message.Text1.Caption = "The room's stench is overwhelming.": Message.Show 1: Exit Sub
  64. 26050 Message.Text1.Caption = "The place smells vilely.": Message.Show 1: Exit Sub
  65. 26200 Message.Text1.Caption = "You sense an odor, composed of all the ills of mortality.": Message.Show 1: Exit Sub
  66. 26260 Message.Text1.Caption = "The air has a pungent, acrid smell of blood.": Message.Show 1: Exit Sub
  67. 26410 Message.Text1.Caption = "The room smells musty and close.": Message.Show 1: Exit Sub
  68. 26440 Message.Text1.Caption = "A gust of stale air invades the room.": Message.Show 1: Exit Sub
  69.  
  70.  
  71. 26500 Rem HAUNTED
  72.  
  73. 26590     Call Random1(R%, 5)
  74. 26620     On R% GoTo 26890, 26920, 26950, 26980, 26985
  75. 26890 Message.Text1.Caption = "You peer into a gloom-haunted room.": Message.Show 1: Exit Sub
  76. 26920 Message.Text1.Caption = "You hear dogs howling.": Message.Show 1: Exit Sub
  77. 26950 Message.Text1.Caption = "You hear a dripping sound.": Message.Show 1: Exit Sub
  78. 26980 Message.Text1.Caption = "You hear a steady thudding sound.": Message.Show 1: Exit Sub
  79. 26985 If REST_AT% <> CURL% Or DRACROW% <> 0 Then GoTo 26590
  80. 27208 Message.Text1.Caption = "You hear slow, careful footsteps.": Message.Show 1: Exit Sub
  81.  
  82.  
  83.  
  84.  
  85.  
  86.  
  87.  
  88. ' "Do you want to ride the horses"
  89. ' "to another location?"
  90. '  "Yes":"No"
  91.  
  92.  
  93.  
  94.  
  95.  
  96.  
  97. ' PILE of Trash
  98.  
  99. 29920 Hold1$ = "You also see "
  100. 29980 ' On PILE%(CURL%, L_Conf(CURL%, room%)) GoTo 30010, 30010, 30100, 30100, 30190, 30220, 30250, 30280, 30312, 30312
  101. 30010    MsgBox Hold1$ + "a rotting pile of filth.", 0, "": Exit Sub
  102. 30100    MsgBox Hold1$ + "a pile of moldy clothing.": Message.Show 1
  103. 30190    MsgBox Hold1$ + "a pile of refuse.": Message.Show 1
  104. 30220    MsgBox Hold1$ + "smelly pile of debris.": Message.Show 1
  105. 30250    MsgBox Hold1$ + "a heap of rubbish.": Message.Show 1
  106. 30280    MsgBox Hold1$ + "an untidy heap of old books.": Message.Show 1
  107. 30312    MsgBox Hold1$ + "a pile of trash.": Message.Show 1
  108.  
  109.  
  110.  
  111.  
  112.  
  113. ' P$(1) = "There is a fully prepared meal for" + Str$(MOCNT%)
  114. ' P$(2) = "on the dining room table."
  115.  
  116.  
  117.  
  118.  
  119.  
  120. ' CASTLE DRACULA
  121. 41541  Call Random1(R%, 100)
  122. 41542  If R% < 50 Then GoTo 41556
  123.  
  124. 41543  Message.Text1.Caption = "You see the Count, his eyes blaze red with vindictive hate as would a devil. He wails,``Welcome to your death!''": Message.Show 1
  125.  
  126. 41556  Call Random1(R%, 7)
  127. 41558  Message.Text1.Caption = "The heavy doors slam shut and lock behind you.": Message.Show 1
  128.  
  129. 45201  Message.Text1.Caption = "A mirthless,  hard, soulless laughter rings through the room; it seems like the pleasure of fiends.": Message.Show 1
  130.  
  131.  
  132. ' P$(1) = H(HITTER%, 1) + "sees a huge tomb,more lordly"
  133. ' P$(2) = "than the rest and nobly proportioned."
  134.  
  135.  
  136. ' "Will you put the sacred wafer in there?"
  137. ' "Yes":"No"
  138.  
  139. ' P$(1) = "The Count is now banished from it,"
  140. '    P$(2) = "Un-Dead, forever.": BANISHED$ = "Y"
  141.  
  142.  
  143. ' "Count Dracula is now banished from his"
  144. ' "last refuge.  His ultimate destruction"
  145. ' "is inevitable."
  146.  
  147. ' "Of course, there is always a chance..."
  148.  
  149.