home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 21 / CTROM21A.mdf / mmm / demos.dxr / 00118_main.ls < prev    next >
Encoding:
Text File  |  1999-09-27  |  1.9 KB  |  44 lines
  1. global hydrolijst, Shadowslijst, entert, Revoltlijst
  2.  
  3. on startMovie
  4.   puppetSound(1, cast("demos"))
  5.   entert = "<1"
  6.   hydrolijst = []
  7.   Revoltlijst = []
  8.   Shadowslijst = []
  9. end
  10.  
  11. on maakDehydrosActief cu
  12.   add(hydrolijst, new(script("cb"), 4, "b1 id", "b1 hi", "b1 md", "h1"))
  13.   add(hydrolijst, new(script("cb"), 5, "b2 id", "b2 hi", "b2 md", "h2"))
  14.   add(hydrolijst, new(script("cb"), 6, "b3 id", "b3 hi", "b3 md", "h3"))
  15.   add(hydrolijst, new(script("cb"), 7, "b4 id", "b4 hi", "b4 md", "h4"))
  16. end
  17.  
  18. on maakDeShadowsActief cu
  19.   add(Shadowslijst, new(script("mcb"), 14, "shadow1 id", "shadow1 hi", "shadow1 md", "h4"))
  20.   add(Shadowslijst, new(script("mcb"), 15, "shadow2 id", "shadow2 hi", "shadow2 md", "h4a"))
  21.   add(Shadowslijst, new(script("mcb"), 16, "shadow3 id", "shadow3 hi", "shadow3 md", "h4b"))
  22.   add(Shadowslijst, new(script("mcb"), 17, "shadow4 id", "shadow4 hi", "shadow4 md", "h4c"))
  23.   add(Shadowslijst, new(script("mcb"), 18, "shadow5 id", "shadow5 hi", "shadow5 md", "h4d"))
  24.   add(Shadowslijst, new(script("mcb"), 19, "shadow6 id", "shadow6 hi", "shadow6 md", "h4e"))
  25.   add(Shadowslijst, new(script("mcb"), 20, "shadow7 id", "shadow7 hi", "shadow7 md", "h4f"))
  26. end
  27.  
  28. on maakDeRevoltActief cu
  29.   add(Revoltlijst, new(script("mcb"), 14, "Revolt1 id", "Revolt1 hi", "Revolt1 md", "h2"))
  30.   add(Revoltlijst, new(script("mcb"), 15, "Revolt2 id", "Revolt2 hi", "Revolt2 md", "h2a"))
  31.   add(Revoltlijst, new(script("mcb"), 16, "Revolt3 id", "Revolt3 hi", "Revolt3 md", "h2b"))
  32.   add(Revoltlijst, new(script("mcb"), 17, "Revolt4 id", "Revolt4 hi", "Revolt4 md", "h2c"))
  33.   add(Revoltlijst, new(script("mcb"), 18, "Revolt5 id", "Revolt5 hi", "Revolt5 md", "h2d"))
  34.   add(Revoltlijst, new(script("mcb"), 19, "Revolt6 id", "Revolt6 hi", "Revolt6 md", "h2e"))
  35.   add(Revoltlijst, new(script("mcb"), 20, "Revolt7 id", "Revolt7 hi", "Revolt7 md", "h2f"))
  36. end
  37.  
  38. on depuppet
  39.   repeat with x = 1 to 100
  40.     puppetSprite(x, 0)
  41.   end repeat
  42.   updateStage()
  43. end
  44.