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.009 < prev    next >
Text File  |  1990-01-01  |  3KB  |  165 lines
  1. \ ************************
  2. \ **  SHAREWARE NOTICE  **
  3. \ ************************
  4.  
  5. \ If you have gotten this far, thank you for playing this demo
  6. \ of an original gobble game, Skampy.
  7.  
  8. : level ;
  9.  
  10.  
  11. medium-res
  12. my-emit-off
  13.  
  14. create current-chamber
  15.  
  16. ~ PPPPPPPPP  PPPPPPPPP~
  17. ~ P    c           b P~
  18. ~ P a          c     P~
  19. ~ P      b         a P~
  20. ~ P  a       b       P~
  21. ~ P c    a       c   P~
  22. ~ P          a       P~
  23. ~ P   b          b   P~
  24. ~ P b     a          P~
  25. ~ P    c          c aP~
  26. ~ PPPPPPPPPPPPPPPPPPPP~
  27.  
  28. current-chamber <chamber> !
  29.  
  30. 2  #fruit !
  31. 1  #foes !
  32. 0  #rocks !
  33.  
  34. s h s h s h s h 
  35. 08 :path 0path
  36.  
  37. \ ********
  38. : use-goon'
  39.     0 0   ['] .skull   ['] skull  3  |scampy|  still still 
  40. ;
  41.  
  42.  
  43. \ **********
  44. : reset-foes
  45.     160 016  use-goon' 0path reset-path   for-foes 0 element!
  46.     ;
  47.  
  48.  
  49. \ *********
  50. : final-lap
  51.         frame off
  52.      reset-foes  reset-sounds
  53.     game-mode   .scoreboard
  54.     build-background   wipe-foreground
  55.     060 0 do
  56.         .world   .foes
  57.         sound-task
  58.         frame-finished
  59.         +frame
  60.     loop
  61.     present-foes frame-finished
  62.     present-foes frame-finished
  63.     80000 slower
  64.     ;
  65.  
  66.  
  67. \ ********
  68. : ((.))ert
  69. \ (  slowness --  )
  70.     0 +noise  0 +tone
  71.     15 0 volume   200 0 frequency   31 noise-pitch   10 0 step-size
  72.     55 0 do
  73.         200 i + 0 frequency
  74.         15  i 5 / -   0 volume
  75.         dup slower
  76.     loop
  77.     drop
  78.     0 -noise   0 -tone   0 0 volume
  79.     40000 slower
  80. ;
  81.  
  82.  
  83. \ ******
  84. : hi!
  85.     11 #row !  23 #collumn !  ." )*%& !!!!"   2000 ((.))ert
  86.  
  87.     80000 slower
  88. ;
  89.  
  90.  
  91. \ *********
  92. : .end-text
  93.     0 #row !   0 #collumn !     
  94.     ."   THANK YOU FOR TRYING THE SKAMPY DEMO  "    my-cr
  95.     ."  IF YOU WANT THE FULL VERSION INCLUDING "    my-cr
  96.     ."  50 LEVELS PLEASE READ THE READ.ME FILE "    my-cr
  97.         ."                                         "    my-cr
  98.     ."              //////////                 "    my-cr
  99.     ."           ///          ///              "    my-cr
  100.     ."         //   ___    >>>   //            "    my-cr
  101.     ."        /    _ / _  > / >    /           "    my-cr
  102.     ."       /      ___    >>>      /          "    my-cr
  103.     ."       /   /              /   /          "    my-cr
  104.     ."        /   ///        ///   /           "    my-cr
  105.     ."         //    ////////    //            "    my-cr
  106.     ."           ///          ///              "    my-cr    
  107.     ."              //////////                 "    my-cr
  108.     ;
  109.  
  110.  
  111. \ *****
  112. : glow
  113.     copy-pallet
  114.     0   <new-pallet>   7 2*   +  !
  115.     0   <new-pallet>   9 2*   +  w!
  116.     0 +tone   1 +tone
  117.     06 0 step-size  06 1 step-size
  118.     14 0 volume   14 1 volume
  119.     03 0 do
  120.         06 i - 0 step-size   06 i - 1 step-size
  121.         4095 0 do
  122.             i <new-pallet> 7 2* +  w!
  123.             i <new-pallet> 8 2* +  w!
  124.             i <new-pallet> 9 2* +  w!
  125.             <new-pallet> change-pallet
  126.             i 256 mod  0 frequency
  127.             256 i 256 mod -  1 frequency        
  128.         loop
  129.     loop
  130.     scampy-pallet
  131.     0 -tone   1 -tone
  132.     ;
  133.  
  134.  
  135. \ **********
  136. : clear-lines
  137. \ (  #rows  --  )
  138.     0 do
  139.     i #row !   0 #collumn !  ."                                         "
  140.     loop
  141. ;
  142.  
  143. 80 time !
  144.  
  145. \ ***************
  146. : congratulations
  147.     introduce
  148.     final-lap
  149.     hi!
  150.     1 clear-lines
  151.     glow
  152.     .end-text
  153.     2400000 slower
  154.     5 clear-lines
  155.     .scoreboard
  156.     2 #row !   6 #collumn !   ." THANK YOU FOR PLAYING SKAMPY "
  157.     4 #row !   2 #collumn !   ." PRESS FIRE BUTTON TO RESTART PROGRAM"
  158.     90000 slower
  159.     begin  interrogate  button1  until
  160.     \_save-score  attract-mode
  161. ;
  162.  
  163.  
  164. congratulations
  165.