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