home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 10: Diskmags / nf_archive_10.iso / MAGS / NARSIL / UNREGGED / N43.MSA / DATA43.ZIP / SKAMPY / LEVELS / LEVEL.007 < prev    next >
Text File  |  1990-01-01  |  3KB  |  172 lines
  1. \ *********************
  2. \ *****  LEVEL 5  *****
  3. \ *********************
  4.  
  5. \ Scampy by the Forth Games Workshop
  6.  
  7. \ *******************
  8.  
  9. : level ;
  10.  
  11.  
  12. \ ********************
  13. create current-chamber
  14.  
  15. ~ OPPPPPPPPPPPPPPPPPPQ~
  16. ~ O &&&&&&&&&& '     Q~
  17. ~ O TUTUTUTUTUTUTUTPPP~
  18. ~ O       &&&&&&&&&& Q~
  19. ~ OSRSRSRSRSRSRSRSRS Q~
  20. ~ O    &&&&&&&&&&    Q~
  21. ~ O TUTUTUTUTUTUTUTPPP~
  22. ~ O       &&&&&&&&&& Q~
  23. ~ OSRSRSRSRSRSRSRSRS Q~
  24. ~ O &&&&&&&&&&       Q~
  25. ~ OPPPPPPPPPPPPPPPPPPQ~
  26.  
  27. current-chamber <chamber> !
  28.  
  29.  
  30. 50    #fruit !
  31. 05    #foes  !
  32. 00    #rocks !
  33.  
  34.  
  35. nw nw nw nw
  36. w  w  w  w
  37. sw sw sw sw
  38. sw sw sw sw
  39. w  w  w  w 
  40. nw nw nw nw
  41. nw nw nw nw
  42. w  w  w  w
  43. sw sw sw sw
  44. sw sw sw sw
  45. e  e  e  e
  46. ne ne ne ne
  47. ne ne ne ne
  48. e  e  e  e
  49. se se se se
  50. se se se se
  51. e  e  e  e
  52. ne ne ne ne
  53. ne ne ne ne
  54. se se se se
  55. 80 :path 0path
  56.  
  57. nw nw nw nw
  58. w  w  w  w
  59. sw sw sw sw
  60. sw sw sw sw
  61. w  w  w  w 
  62. nw nw nw nw
  63. nw nw nw nw
  64. w  w  w  w
  65. sw sw sw sw
  66. sw sw sw sw
  67. e  e  e  e
  68. ne ne ne ne
  69. ne ne ne ne
  70. e  e  e  e
  71. se se se se
  72. se se se se
  73. e  e  e  e
  74. ne ne ne ne
  75. ne ne ne ne
  76. se se se se
  77. 80 :path 1path
  78.  
  79. nw nw nw nw
  80. w  w  w  w
  81. sw sw sw sw
  82. sw sw sw sw
  83. w  w  w  w 
  84. nw nw nw nw
  85. nw nw nw nw
  86. w  w  w  w
  87. sw sw sw sw
  88. sw sw sw sw
  89. e  e  e  e
  90. ne ne ne ne
  91. ne ne ne ne
  92. e  e  e  e
  93. se se se se
  94. se se se se
  95. e  e  e  e
  96. ne ne ne ne
  97. ne ne ne ne
  98. se se se se
  99. 80 :path 2path
  100.  
  101.  
  102. ne ne ne ne
  103. e  e  e  e
  104. se se se se
  105. se se se se
  106. e  e  e  e 
  107. ne ne ne ne
  108. ne ne ne ne
  109. e  e  e  e
  110. se se se se
  111. se se se se
  112. w  w  w  w
  113. nw nw nw nw
  114. nw nw nw nw
  115. w  w  w  w
  116. sw sw sw sw
  117. sw sw sw sw
  118. w  w  w  w
  119. nw nw nw nw
  120. nw nw nw nw
  121. sw sw sw sw
  122. 80 :path 3path
  123.  
  124. ne ne ne ne
  125. e  e  e  e
  126. se se se se
  127. se se se se
  128. e  e  e  e 
  129. ne ne ne ne
  130. ne ne ne ne
  131. e  e  e  e
  132. se se se se
  133. se se se se
  134. w  w  w  w
  135. nw nw nw nw
  136. nw nw nw nw
  137. w  w  w  w
  138. sw sw sw sw
  139. sw sw sw sw
  140. w  w  w  w
  141. nw nw nw nw
  142. nw nw nw nw
  143. sw sw sw sw
  144. 80 :path 4path
  145.  
  146. \ ***********
  147. : reset-foes
  148.      272   032  use-ghost 0path reset-path   for-foes 0 element!
  149.      192   064  use-ghost 1path reset-path   for-foes 1 element!
  150.      256   096  use-ghost 2path reset-path   for-foes 2 element!
  151.  
  152.      032   096  use-ghost 3path reset-path   for-foes 3 element!
  153.      080   128  use-ghost 4path reset-path   for-foes 4 element!
  154. ;
  155.  
  156.  
  157. \ ************
  158. : reset-scampy
  159.     288   016  use-scampy   for-scampy 0 element!
  160. ;
  161.  
  162.  
  163. \ ***********
  164. : reset-rocks
  165.     144 64      use-rocks   for-rocks 0 element!
  166.     144 96      use-rocks   for-rocks 1 element!
  167.     128 80      use-rocks   for-rocks 2 element!
  168. ;
  169.  
  170. 55 start-time !
  171. 24 more-time !
  172.