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.002 < prev    next >
Text File  |  1990-01-01  |  1KB  |  73 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. ~ ffffffffffffffffffff~
  17. ~ f   *+,((())) ###  f~
  18. ~ f   d d  d   d  d  f~
  19. ~ f   e######1 ()*+, f~
  20. ~ f e e-d#d#d10022dd f~
  21. ~ f e e  ##$#% ####  f~
  22. ~ f e eaa#ffff ddd d f~
  23. ~ f##################f~
  24. ~ f a bbbbb  ccccc e f~
  25. ~ f                  f~
  26. ~ ffffffffffffffffffff~
  27.  
  28.  
  29. current-chamber <chamber> !
  30.  
  31.  
  32. 39    #fruit !
  33. 3     #foes  !
  34. 2     #rocks !
  35.  
  36.  
  37. e h e h e h e h
  38. e h e h e h e h
  39. w h w h w h w h
  40. w h w h w h w h
  41. 32 :path 0path
  42.  
  43. s s s s 
  44. w w w w w w w w
  45. n n n n n n n n
  46. e e e e e e e e
  47. s s s s
  48. 32 :path 1path
  49.  
  50.  
  51. \ ***********
  52. : reset-foes
  53.     288   144   use-goon                for-foes 0 element!
  54.      16    144   use-ghost 0path reset-path   for-foes 1 element!
  55.     144    64   use-skull 1path reset-path   for-foes 2 element!
  56. ;
  57.  
  58. \ ************
  59. : reset-scampy
  60.     48   48   use-scampy   for-scampy 0 element!
  61. ;
  62.  
  63.  
  64. \ ***********
  65. : reset-rocks
  66.     16    16    use-rocks   for-rocks 0 element!
  67.     32      16      use-rocks   for-rocks 1 element!
  68. ;
  69.  
  70.  
  71. 30  start-time !
  72. 25 more-time  !
  73.