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