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.008 < prev    next >
Text File  |  1990-01-01  |  1KB  |  58 lines
  1. \ *********************
  2. \ *****  LEVEL 6  *****
  3. \ *********************
  4.  
  5. \ Scampy by the Forth Games Workshop
  6.  
  7. \ *******************
  8.  
  9. : level ;
  10.  
  11.  
  12. \ ********************
  13. create current-chamber
  14.  
  15. ~ 789;778;>>>>789;>>>7~
  16. ~ >                  >~
  17. ~ >  """"""""""""""  >~
  18. ~ >  !!!!!!!!!!!!!!  >~
  19. ~ >  !!!!      !!!!  >~
  20. ~ >  !!!!      !!!!  >~
  21. ~ >  !!!!      !!!!  >~
  22. ~ >  """"""""""""""  >~
  23. ~ >  !!!!!!!!!!!!!!  >~
  24. ~ >                  >~
  25. ~ 79;;;;;;789>>>>9899>~
  26.  
  27. current-chamber <chamber> !
  28.  
  29.  
  30. 80    #fruit !
  31. 04    #foes  !
  32. 2     #rocks !
  33.  
  34.  
  35. \ ***********
  36. : reset-foes
  37.       016   016  use-goon n don't  for-foes 0 element!
  38.       016   144  use-goon n don't  for-foes 1 element!
  39.     288   144  use-goon n don't  for-foes 2 element!
  40.     288   016  use-goon n don't  for-foes 3 element!
  41. ;
  42.  
  43.  
  44. \ ************
  45. : reset-scampy
  46.     144   80  use-scampy   for-scampy 0 element!
  47. ;
  48.  
  49.  
  50. \ ***********
  51. : reset-rocks
  52.     144 64      use-rocks   for-rocks 0 element!
  53.     144 96      use-rocks   for-rocks 1 element!
  54.     128 80      use-rocks   for-rocks 0 element!
  55. ;
  56.  
  57. 40 start-time !
  58.