home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Educate / Educate.zip / radf100.zip / SAMPLE.RAD < prev    next >
Text File  |  1995-04-25  |  5KB  |  190 lines

  1. Title:REXX Adventure Sample
  2. PlayerNumber:1
  3. GlobalNum:10
  4. ;
  5. ; the introduction
  6. ;
  7. Intro:    Welcome to the REXX-Adventure Sample.
  8. Intro:
  9. Intro: It's too bad almost nobody will ever see this!
  10. ;
  11. ; Object one, the player.  not many options.
  12. ;
  13. Object:1 Player
  14. Flag:Holds 30
  15. Flag:Score 0
  16. Flag:Location 2
  17. Verb:Look
  18. Test:1=1
  19. Desc:    If you have to ask me what you look like, you need to get out more.  A lot more.
  20. Desc:---
  21. Desc:
  22. Verb:Score
  23. Test:1=1
  24. Desc:Your current score is:
  25. Code:Call TextDisp GetFlag(PlayerNum,'Score') " out of " MaxScore
  26. ;
  27. ; Object 2, the kitchen, only one option
  28. ;
  29. Object:2 Kitchen
  30. Flag:Holds 999999
  31. Content:1
  32. Content:7
  33. Content:4
  34. Verb:Look
  35. Test:1=1
  36. Desc:    The kitchen of this small sample is rather plain.  There is a potbellied stove, but no wood or matches.  The cupboards are bare.  It makes you think of old ladies without bones for dogs.
  37. Desc:---
  38. Desc:
  39. ;
  40. ; Object 3, the Hall.
  41. ;
  42. Object:3 Hallway
  43. Flag:Holds 999999
  44. Content:5
  45. Content:6
  46. Content:8
  47. Verb:Look
  48. Test:1=1
  49. Desc:    The hallway is as barren as the kitchen.  You would guess that the building was abandoned, except for the large doberman here.  The dog is thin and seems VERY hungry.
  50. ;
  51. ; Object 4, exit from Kitchen to Hall
  52. ;
  53. Object:4 East; from kitchen to hall
  54. Flag:Location 2
  55. IVerb:Go
  56. Test:1=1
  57. Desc:    You leave the rather depressing kitchen and wander into the hall.
  58. Desc:---
  59. Desc:
  60. Code:Call MovePlayer 3
  61. ;
  62. ; Object 5, exit from hall to kitchen
  63. ;
  64. Object:5 West; from hall to kitchen
  65. Flag:Location 3
  66. IVerb:Go
  67. Test:1=1
  68. Desc:    You wander into the kitchen
  69. Desc:---
  70. Desc:
  71. Code:Call MovePlayer 2
  72. ;
  73. ; object 6, from hall to endgame
  74. ;
  75. Object:6 East; out of house - Endgame
  76. Flag:Location 3
  77. IVerb:Go
  78. Test:IsPresent(8)
  79. Desc:    You try to dash past the growling dog, but he snaps at you wildly and drives you away from the outside exit.
  80. Test:1=1
  81. Desc:    You walk calmly past the dog, but he is concentrating completely on his meal and ignores you.
  82. Desc:
  83. Desc:    You step into the bright sunshine and breathe the fresh country air.  You just can't keep from thinking "Is there more?"  Well, not in this sample.
  84. Desc:---
  85. Desc:
  86. Code:Call AddScore 10
  87. Code:Call EndGame
  88. ;
  89. ; Object 7, the yummy raw steak
  90. ;
  91. Object:7 Raw Steak
  92. Flag:Weight 1
  93. Flag:Location 2
  94. Flag:FirstGet 0
  95. Verb:Look
  96. Test:1=1
  97. Desc:    The steak is big and juicy.  It is also quite raw.  You wonder how it could be so fresh without any refrigeration.
  98. Desc:---
  99. Desc:
  100. Verb:Get
  101. Test:IsHolding(7)
  102. Desc:    You already have the steak, silly!
  103. Desc:---
  104. Desc:
  105. Test:IsPresent(7)
  106. Desc:    You pick up the raw steak.
  107. Desc:---
  108. Desc:
  109. Code:Call MoveObject 7, PlayerNum
  110. Code:If GetFlag(7, "FirstGet") = 0 Then Do; Call AddScore(5); Call SetFlag 7, "FirstGet", 1; End
  111. Test:1=1
  112. Desc:Error, Error will robinson.
  113. Desc:---
  114. Desc:
  115. Verb:Drop
  116. Test:IsHolding(7) & (GetFlag(1, 'Location') \= 3)
  117. Desc:    You put the raw steak on the nearest suitable surface.
  118. Desc:---
  119. Desc:
  120. Code:Call MoveObject 7, GetFlag(1,'Location')
  121. Test:IsHolding(7) & (GetFlag(1, 'Location') = 3)
  122. Desc:    You toss the steak to the slavering dog.  He leaps on it like he has not eaten in weeks.  Once he has eaten, the dog seems much friendlier toward you.
  123. Desc:---
  124. Desc:
  125. Code:Call MoveObject 8, 10 /* send the mean dog to nowhere */
  126. Code:Call MoveObject 9, 3  /* get the happy dog from nowhere */
  127. Code:Call MoveObject 7, 10 /* send the steak to nowhere */
  128. Code:Call AddScore(5)
  129. Test:1=1
  130. Desc:    But you aren't holding the steak!
  131. Verb:Eat
  132. Test:1=1
  133. Desc:    You want to eat the yucky raw steak! Yeeeech!  No, I will not allow it.
  134. Desc:---
  135. Desc:
  136. ;
  137. ; Object 8, the mean dog
  138. ;
  139. Object:8 Growling Dog
  140. Flag:Location 3
  141. Verb:Look
  142. Test:1=1
  143. Desc:    The dog is lean, but still looks very strong.  He weighs about 70 or 80 pounds.  Since he is snarling at you ominously, you have a very good view of his long, sharp teeth.
  144. Desc:
  145. Desc:    He seems to be a guard dog.  However, he is guarding the front door, so instead of keeping intruders out, he is keeping you in.
  146. Desc:---
  147. Desc:
  148. Verb:Kick
  149. Test:1=1
  150. Desc:    Bad move.  You kick the dog soundly.  He gives a yelp, looks at you angrily, and leaps.  It only takes a few minutes for him to savage your throat open and kill you dead.
  151. Desc:---
  152. Desc:
  153. Code:Call EndGame
  154. Verb:Pet
  155. Test:1=1
  156. Desc:You reach out to pet the dog, and he snaps wildly at your hand.  you barely snatch it back in time.
  157. Desc:---
  158. Desc:
  159. ;
  160. ; Object 9, the happy dog
  161. ;
  162. Object:9 Happy Dog
  163. Flag:Location 10
  164. Verb:Look
  165. Test:1=1
  166. Desc:    The dog seems quite satisfied, and has curled up beside the door.
  167. Desc:---
  168. Desc:
  169. Verb:Pet
  170. Test:1=1
  171. Desc:    You reach out an pat the dog's head.  He looks at you with big brown eyes, then rests his head on his paws in satisfaction.
  172. Desc:---
  173. Desc:
  174. Verb:Kick
  175. Test:1=1
  176. Desc:    Bad move.  You kick the dog soundly.  This immediatly snaps him out of his after dinner lethargy.  He gives a yelp, looks at you angrily, and leaps.  It only takes a few minutes for him to savage your throat open and kill you dead.
  177. Desc:---
  178. Desc:
  179. Code:Call EndGame
  180. ;
  181. ; Object 10, the place where things with mo location are stored
  182. ;
  183. Object:10 nowhere
  184. Flag:Holds 999999
  185. ;
  186. ; the introduction text
  187. ;
  188. Intro:
  189. Intro:    You have woken up on the kitchen floor of a strange house.  You have no idea how you got here, or whee you are.  All you want to do is get out of this house and find your way home!
  190. Intro: