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.000 < prev    next >
Text File  |  1990-01-01  |  1KB  |  90 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. ~ IJKIJKIJKIJKIJKIJKIJ~
  17. ~ J     "! "! "!     K~
  18. ~ K" N  MMM  MMM  N" I~
  19. ~ I  !  !"!( !"!  N !J~
  20. ~ J "N  MMM  MMM  N" K~
  21. ~ K  !   !" ( !"!    I~
  22. ~ I" N  MMM  MMM  N! J~
  23. ~ J  !  !"!( !"!  N "K~
  24. ~ K "N  MMM  MMM  N! I~
  25. ~ J      !"!   !"    J~
  26. ~ IJKIJKIJKIJKIJKIKJIK~
  27.  
  28.  
  29. current-chamber <chamber> !
  30.  
  31.  
  32. 41    #fruit !
  33. 2     #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. s h s h s h s h
  40. s h s h s h s h
  41. s h s h s h s h
  42. s h s h s h s h
  43.  
  44. n h n h n h n h
  45. n h n h n h n h
  46. n h n h n h n h
  47. n h n h n h n h
  48. n h n h n h n h
  49. n h n h n h n h
  50.  
  51. 96 :path 0path
  52.  
  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. w h w h w h w h
  57. w h w h w h w h
  58. w h w h w h w h
  59.  
  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. e h e h e h e h 
  64. e h e h e h e h 
  65. e h e h e h e h 
  66. 96 :path 1path
  67.  
  68.  
  69. \ ***********
  70. : reset-foes
  71.      48     32   use-ghost 0path reset-path   for-foes 0 element!
  72.     192    80   use-skull 1path reset-path   for-foes 1 element!
  73. ;
  74.  
  75. \ ************
  76. : reset-scampy
  77.     16   16   use-scampy   for-scampy 0 element!
  78. ;
  79.  
  80.  
  81. \ ***********
  82. : reset-rocks
  83.     16     80      use-rocks   for-rocks 0 element!
  84.     288      16      use-rocks   for-rocks 1 element!
  85. ;
  86.  
  87.  
  88. 50  start-time !
  89. 25 more-time  !
  90.