home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / MASKSUNA.DSK / TUNNEL.txt < prev   
Text File  |  2014-09-09  |  2KB  |  222 lines
  1. .I TL(23):254
  2. .T P "You remove the mask.
  3. .S TL(23)=255
  4. .L L,TUN TRVL
  5. .S A=0
  6. .S B=0
  7. .S C=0
  8. .S D=0
  9. .I GE(6)>99
  10. .T !DEND
  11. .I GE(6)>19
  12. .T !RGHT
  13. .I GE(6)>9
  14. .T !LEFT
  15. .S A=0
  16. .S B=0
  17. .S D=0
  18. .I GE(6):1
  19. .T S A=1
  20. .T S B=1
  21. .I GE(6):2
  22. .T S D=1
  23. .I GE(6):3
  24. .T S A=1
  25. .T S B=1
  26. .T S D=1
  27. .I GE(6):4
  28. .T S B=1
  29. .T S D=1
  30. .I GE(6):5
  31. .T S A=1
  32. .T S D=1
  33. .I GE(6):6
  34. .T S B=1
  35. .T S C=1
  36. .I GE(6):7
  37. .T S A=1
  38. .T S C=1
  39. .I GE(6):9
  40. .T S A=1
  41. .T S B=1
  42. .!LOOP
  43. .I GE(6):9
  44. .T !CLRT
  45. .T P "An unseen pit opens beneath your feet!!
  46. .T !WAIT
  47. .T P "Your screams echo through the tunnel.
  48. .T !WAIT
  49. .T !DEAD
  50. .!GOTO
  51. !DEND
  52. .S GE(6)=GE(6)-100
  53. .S A=1
  54. .S B=1
  55. .S D=1
  56. .!LOOP
  57. .!CLRT
  58. .P "The tunnel dead ends. You turn back.
  59. .!MORE
  60. !RGHT
  61. .S A=1
  62. .S D=1
  63. .!LOOP
  64. .S GE(6)=GE(6)-20
  65. .!CLRT
  66. .P "The tunnel turns right.
  67. .!MORE
  68. !LEFT
  69. .S B=1
  70. .S D=1
  71. .!LOOP
  72. .S GE(6)=GE(6)-10
  73. .!CLRT
  74. .P "The tunnel turns left.
  75. .!MORE
  76. !LOOP
  77. .S L=3
  78. .S L=L--
  79. .S K=1
  80. .!ANIM
  81. .!FFLA
  82. .S K=0
  83. .!ANIM
  84. .!FFLB
  85. .I L>0
  86. .T J -8
  87. !ANIM
  88. .S P=3-P
  89. .C 1,P,0
  90. .B RGHTL
  91. .S V=P
  92. .D 
  93. .I K
  94. .T B TABKG
  95. .E B TBBKG
  96. .S V=P
  97. .D 
  98. .I K
  99. .T B TALFA
  100. .E B TBLFA
  101. .S V=P
  102. .I L>0
  103. .E I A:1
  104. .T D 
  105. .I K
  106. .T B TALFB
  107. .E B TBLFB
  108. .S V=P
  109. .I L>1
  110. .E I A:1
  111. .E I C>L
  112. .T D 
  113. .I K
  114. .T B TATPA
  115. .E B TBTPA
  116. .S V=P
  117. .I L>0
  118. .E I A+B
  119. .T D 
  120. .I K
  121. .T B TATPB
  122. .E B TBTPB
  123. .S V=P
  124. .I L>1
  125. .E I A+B
  126. .T D 
  127. .I K
  128. .T B TARTA
  129. .E B TBRTA
  130. .S V=P
  131. .I L>0
  132. .E I B:1
  133. .T D 
  134. .I K
  135. .T B TARTB
  136. .E B TBRTB
  137. .S V=P
  138. .I L>1
  139. .E I B:1
  140. .T D 
  141. .I K
  142. .T B TARTD
  143. .E B TBRTE
  144. .S V=P
  145. .I C>L
  146. .T I B:0
  147. .T D 
  148. .I K
  149. .T B TARTC
  150. .E B TBRTD
  151. .S V=P
  152. .I L:0
  153. .T I C:0
  154. .T I A>B
  155. .T D 
  156. .I K
  157. .T B TALFC
  158. .E B TBLFC
  159. .S V=P
  160. .I L<2
  161. .T I A<B
  162. .T D 
  163. .I K
  164. .T B TALFD
  165. .E B TBLFD
  166. .S V=P
  167. .I A<B
  168. .T I C>L
  169. .T D 
  170. .I K
  171. .T J +6
  172. .B TBRTC
  173. .S V=P
  174. .I L:1
  175. .T I A>B
  176. .T D 
  177. !FFLA
  178. .B TAFPA
  179. .S V=P
  180. .D 
  181. .B TAFPB
  182. .S V=P
  183. .I A+B
  184. .T J +8
  185. .I L:1
  186. .T S Y=Y-6
  187. .T W 
  188. .I L:0
  189. .T S Y=Y-18
  190. .T W 
  191. .T W 
  192. .I D:1
  193. .T I L:0
  194. .T S CO(0)=52+128
  195. .D 
  196. .$ P
  197. !FFLB
  198. .B TBFPA
  199. .S Y=2
  200. .S V=P
  201. .I L:0
  202. .T I GE(6):9
  203. .T S CO(0)=4+128
  204. .D 
  205. .B TBFPB
  206. .S V=P
  207. .I A+B
  208. .T J +8
  209. .I L:1
  210. .T S Y=Y-14
  211. .T W 
  212. .I L:0
  213. .T S Y=Y-29
  214. .T W 
  215. .T W 
  216. .I D:1
  217. .T I L:0
  218. .T S CO(0)=103+128
  219. .D 
  220. .$ P
  221. @@@@@
  222.