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.004 < prev    next >
Text File  |  1990-01-01  |  1KB  |  68 lines
  1.  
  2. \ *********************
  3. \ *****  LEVEL 2  *****
  4. \ *********************
  5.  
  6. \ Scampy by the Forth Games Workshop
  7.  
  8. \ *******************
  9.  
  10. : level ;
  11.  
  12.  
  13. \ ********************
  14. create current-chamber
  15.  
  16. ~ NGGGGGGGGGGGGGGGGGGN~
  17. ~ N$($'$ $ $ $ $ $ $ N~
  18. ~ N G H G H  G H G H$N~
  19. ~ N$          )      N~
  20. ~ N H G H G  H G H G$N~
  21. ~ N$   .             N~
  22. ~ N G H G H  G H G H$N~
  23. ~ N$            )    N~
  24. ~ N H G H G  H G H G$N~
  25. ~ N$ $       $ $ $ $ N~
  26. ~ NGGGGGGGGGGGGGGGGGGN~
  27.  
  28. current-chamber <chamber> !
  29.  
  30.  
  31. 22    #fruit !
  32. 04     #foes  !
  33. 3     #rocks !
  34.  
  35.  
  36.  
  37. w w w w h h h h
  38. e e e e h h h h
  39. e e e e h h h h
  40. w w w w h h h h
  41. 32 :path 0path
  42.  
  43.  
  44. \ ***********
  45. : reset-foes
  46.     96    144  use-ghost 0path reset-path  for-foes 0 element!    
  47.     16    16   use-goon n don't  for-foes 1 element!
  48.       16    144  use-goon n don't  for-foes 2 element!
  49.     288   144  use-goon n don't  for-foes 3 element!
  50.     288   16   use-goon n don't  for-foes 4 element!
  51. ;
  52.  
  53.  
  54. \ ************
  55. : reset-scampy
  56.     144   80  use-scampy   for-scampy 0 element!
  57. ;
  58.  
  59.  
  60. \ ***********
  61. : reset-rocks
  62.     144 64      use-rocks   for-rocks 0 element!
  63.     144 96      use-rocks   for-rocks 1 element!
  64.     128 80      use-rocks   for-rocks 2 element!
  65. ;
  66.  
  67. 40 start-time !
  68.