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.001 < prev    next >
Text File  |  1990-01-01  |  2KB  |  103 lines
  1.  
  2. \ *********************
  3. \ *****  LEVEL 0  *****
  4. \ *********************
  5.  
  6. \ Scampy by the Forth Games Workshop
  7.  
  8. \ *******************
  9.  
  10. : level ;
  11.  
  12.  
  13. \ ********************
  14. create current-chamber
  15.  
  16. ~ [[[[[[[[[[[[[[[[[[[[~
  17. ~ [     [       [    [~
  18. ~ [ %%  [ ) *   [ %% [~
  19. ~ [ %%  0       [ %% [~
  20. ~ [ %%  [    %% [ %% [~
  21. ~ [ %%  [[[  %% [ %% [~
  22. ~ [       [  %% [    [~
  23. ~ [  (  ) [  %% [[1[[[~
  24. ~ [       [          [~
  25. ~ [  +    [          [~
  26. ~ [[[[[[[[[[[[[[[[[[[[~
  27.  
  28.  
  29. current-chamber <chamber> !
  30.  
  31.  
  32. 24    #fruit !
  33. 3     #foes  !
  34. 2     #rocks !
  35.  
  36.  
  37. s h s h s h s h
  38. s h s h s h s h
  39.  
  40. w h w h w h w h
  41. w h w h w h w h
  42.  
  43. n h n h n h n h
  44. n h n h n h n h
  45.  
  46. e h e h e h e h
  47. e h e h e h e h
  48. 64 :path 0path
  49.  
  50. w h w h w h w h
  51. w h w h w h w h
  52. w h w h w h w h
  53. w h w h w h w h
  54. w h w h w h w h
  55. w h w h w h w h
  56.  
  57. e h e h e h e h 
  58. e h e h e h e h 
  59. e h e h e h e h 
  60. e h e h e h e h 
  61. e h e h e h e h 
  62. e h e h e h e h 
  63. 96 :path 1path
  64.  
  65. n h n h n h n h
  66. n h n h n h n h
  67. n h n h n h n h
  68. n h n h n h n h
  69. n h n h n h n h
  70. n h n h n h n h
  71.  
  72. s h s h s h s h
  73. s h s h s h s h
  74. s h s h s h s h
  75. s h s h s h s h
  76. s h s h s h s h
  77. s h s h s h s h
  78. 96 :path 2path
  79.  
  80.  
  81. \ ***********
  82. : reset-foes
  83.      176    16   use-skull 0path reset-path   for-foes 0 element!
  84.     112    48   use-ghost 1path reset-path   for-foes 1 element!
  85.     256    144  use-ghost 2path reset-path   for-foes 2 element!
  86. ;
  87.  
  88. \ ************
  89. : reset-scampy
  90.     176   128   use-scampy   for-scampy 0 element!
  91. ;
  92.  
  93.  
  94. \ ***********
  95. : reset-rocks
  96.     208     80      use-rocks   for-rocks 0 element!
  97.     288      16      use-rocks   for-rocks 1 element!
  98. ;
  99.  
  100.  
  101. 50  start-time !
  102. 25 more-time  !
  103.