home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 21 / CTROM21A.mdf / mmm / digi.dxr / 00030_main.ls < prev    next >
Encoding:
Text File  |  1999-09-27  |  2.1 KB  |  52 lines
  1. global chapterlijst, pijl, back, focus, autotimer, pijl2, entert
  2.  
  3. on startMovie
  4.   clearGlobals()
  5.   preloadMember(337, 345)
  6.   puppetSound(1, cast("canyon_introscherm_low"))
  7.   entert = "<1"
  8.   autotimer = 300
  9.   pijl = 0
  10.   pijl2 = 0
  11.   back = 0
  12.   focus = 0
  13.   chapterlijst = []
  14. end
  15.  
  16. on maakchaptersActief
  17.   add(chapterlijst, new(script("chapters"), 20, "l1 id", "l1 hi", "l1 md", "h1", 4, "ho1"))
  18.   add(chapterlijst, new(script("chapters"), 21, "l2 id", "l2 hi", "l2 md", "h2", 4, "ho2"))
  19.   add(chapterlijst, new(script("chapters"), 22, "l3 id", "l3 hi", "l3 md", "h3", 4, "ho3"))
  20.   add(chapterlijst, new(script("chapters"), 23, "l4 id", "l4 hi", "l4 md", "h4", 4, "ho4"))
  21.   add(chapterlijst, new(script("chapters"), 24, "l5 id", "l5 hi", "l5 md", "h5", 4, "ho5"))
  22.   add(chapterlijst, new(script("chapters"), 25, "l6 id", "l6 hi", "l6 md", "h6", 4, "ho6"))
  23.   add(chapterlijst, new(script("chapters"), 26, "l7 id", "l7 hi", "l7 md", "h7", 4, "ho2"))
  24.   add(chapterlijst, new(script("chapters"), 27, "l8 id", "l8 hi", "l8 md", "h8", 4, "ho3"))
  25.   add(chapterlijst, new(script("chapters"), 28, "l9 id", "l9 hi", "l9 md", "h9", 4, "ho4"))
  26.   add(chapterlijst, new(script("chapters"), 29, "l10 id", "l10 hi", "l10 md", "h10", 4, "ho5"))
  27. end
  28.  
  29. on maakScrollpijl dir, waardeRechts, waardeMidden, waardeLinks, flag
  30.   if dir = "left" then
  31.     pijl = new(script("mover"), 13, "left id", "left hi", "left md", "moveleft", 16, "prev id", "prev hi", waardeRechts, waardeMidden, waardeLinks, flag)
  32.   else
  33.     pijl = new(script("mover"), 14, "right id", "right hi", "right md", "moveright", 17, "next id", "next hi", waardeRechts, waardeMidden, waardeLinks, flag)
  34.   end if
  35. end
  36.  
  37. on maakScrollpijl2 dir, waardeRechts, waardeMidden, waardeLinks, flag
  38.   put EMPTY
  39.   if dir = "left" then
  40.     pijl2 = new(script("mover"), 13, "left id", "left hi", "left md", "moveleft", 16, "prev id", "prev hi", waardeRechts, waardeMidden, waardeLinks, flag)
  41.   else
  42.     pijl2 = new(script("mover"), 14, "right id", "right hi", "right md", "moveright", 17, "next id", "next hi", waardeRechts, waardeMidden, waardeLinks, flag)
  43.   end if
  44. end
  45.  
  46. on depuppet
  47.   repeat with x = 4 to 100
  48.     puppetSprite(x, 0)
  49.   end repeat
  50.   updateStage()
  51. end
  52.