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 / TOPPER < prev   
Text File  |  1990-01-01  |  1KB  |  93 lines
  1. \ **************
  2. \ **  TOPPER  **
  3. \ **************
  4.  
  5. \ This is for Scampy
  6. \ Jason Damisch
  7. \ Forth Games Workshop
  8.  
  9. \ Hydrogen Funnycars
  10.  
  11.  
  12. : topper ;
  13.  
  14.  
  15. decimal
  16.  
  17.  
  18. \ *************
  19. : reset-players
  20.     reset-scampy
  21.     reset-foes
  22.     reset-rocks
  23. ;
  24.  
  25.  
  26. \ *********************
  27. : \_next-level
  28.     #fruit @ 1 < if
  29.         <stun-foes>
  30.         -1 #fruit +!
  31.     then
  32.     #fruit @ -30 = if
  33.         next-level
  34.     then
  35. ;
  36.  
  37.  
  38. \ ***************
  39. : reset-variables
  40.     <4or0> off
  41.     thrown off    
  42. ;
  43.  
  44.  
  45. \ *********
  46. : new-level
  47.     reset-players
  48.     reset-sounds
  49.     game-mode
  50.     .scoreboard
  51.     .go
  52.     +step
  53.     reset-variables
  54. ;
  55.  
  56.  
  57. \ **** 
  58. : go
  59.     new-level
  60.     build-background
  61.     begin
  62.         .world
  63.         wipe-foreground
  64.         defend
  65.         .rocks     .foes   .scampy
  66.         rock-behaviours   foe-behaviours   scampy-behaviour
  67.         sound-task
  68.         frame-finished
  69.         \_next-level
  70.         \_keys
  71.         clock
  72.         +frame
  73.     again
  74. ;
  75.  
  76.  
  77. ' go <go> !
  78.  
  79.  
  80. \ *******
  81. : proceed 
  82.     rp0 @ rp!
  83.     sp0 @ sp!
  84.       sp0 @   32 + 'tib ! [compile] [ close-files
  85.     expect-fopen in-file !
  86.     introduce
  87.     go
  88. ;
  89.  
  90. start-time @ 30 * time !    \ part of game code, don't delete!
  91.  
  92.  proceed
  93.