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.006 < prev    next >
Text File  |  1990-01-01  |  1KB  |  68 lines
  1. \ *********************
  2. \ *****  LEVEL 4  *****
  3. \ *********************
  4.  
  5. \ Scampy by the Forth Games Workshop
  6.  
  7. \ *******************
  8.  
  9. : level ;
  10.  
  11.  
  12. \ ********************
  13. create current-chamber
  14.  
  15. ~ WXYZWXYZWXYZWXYZWXYZ~
  16. ~ X Z! !Z ! !  W !(! W~
  17. ~ Y+0 ! W  ! ! Z  !  X~
  18. ~ ZWXYZ00      Y2WXYZY~
  19. ~ W ! !  YX  YZ!  !  Z~
  20. ~ XYZW !  *   W   ZYXW~
  21. ~ Y ! !  WX1ZWX  !   X~
  22. ~ ZWXYZ22 ! !  11WZW Y~
  23. ~ W! !)!Y  ! ! X ! ! Z~
  24. ~ X.) ! X !  - Y  !, Y~
  25. ~ YZWXYZWXYZWXYZWXYZWX~
  26.  
  27. current-chamber <chamber> !
  28.  
  29.  
  30. 30    #fruit !
  31. 04    #foes  !
  32. 2     #rocks !
  33.  
  34.  
  35.  
  36. e h e h e h e h
  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. w h w h w h w h
  42. 48 :path 0path
  43.  
  44.  
  45. \ ***********
  46. : reset-foes
  47.      128   080  use-ghost 0path reset-path   for-foes 0 element!
  48.       016   016  use-goon n don't  for-foes 1 element!
  49.     288   144  use-goon n don't  for-foes 2 element!
  50.     288   16   use-goon n don't  for-foes 3 element!
  51. ;
  52.  
  53.  
  54. \ ************
  55. : reset-scampy
  56.     112   16  use-scampy   for-scampy 0 element!
  57. ;
  58.  
  59.  
  60. \ ***********
  61. : reset-rocks
  62.     144 064     use-rocks   for-rocks 0 element!
  63.     016 064     use-rocks   for-rocks 1 element!
  64. ;
  65.  
  66. 25 start-time !
  67. 40 more-time !
  68.