home *** CD-ROM | disk | FTP | other *** search
/ Reflux 1: The Becoming / Reflux.iso / shared.dxr / 00456_SHARED.ls next >
Encoding:
Text File  |  1995-05-01  |  1.4 KB  |  65 lines
  1. on startMovie
  2.   global gPageNumber, gMusic, gReadMe, gPerspective
  3.   set gPerspective to 1
  4.   setAnimationSpeed()
  5. end
  6.  
  7. on setAnimationSpeed
  8.   global s5, s10, s15, s20, s40, s45, s60, s100, s1, s2, s3, s4
  9.   set s5 to 90
  10.   set s10 to s5 / 2
  11.   set s15 to s5 / 3
  12.   set s20 to s5 / 4
  13.   set s40 to s5 / 8
  14.   set s45 to s5 / 9
  15.   set s60 to s5 / 12
  16.   set s100 to s5 / 20
  17.   set s1 to s5 * 5
  18.   set s2 to s5 * 4
  19.   set s3 to s5 * 3
  20.   set s4 to s5 * 2
  21. end
  22.  
  23. on SetPuppets state
  24.   puppetSprite(2, state)
  25.   puppetSprite(3, state)
  26.   puppetSprite(4, state)
  27.   puppetSprite(5, state)
  28.   puppetSprite(6, state)
  29.   puppetSprite(7, state)
  30.   puppetSprite(8, state)
  31.   puppetSprite(21, state)
  32.   puppetSprite(22, state)
  33.   puppetSprite(23, state)
  34.   puppetSprite(24, state)
  35.   puppetSprite(26, state)
  36.   puppetSprite(27, state)
  37.   puppetSprite(28, state)
  38.   puppetSprite(29, state)
  39.   puppetSprite(30, state)
  40.   puppetSprite(31, state)
  41.   puppetSprite(32, state)
  42.   puppetSprite(33, state)
  43.   puppetSprite(34, state)
  44.   puppetSprite(35, state)
  45.   puppetSprite(36, state)
  46.   puppetSprite(37, state)
  47.   puppetSprite(38, state)
  48.   puppetSprite(39, state)
  49.   puppetSprite(40, state)
  50.   puppetSprite(41, state)
  51.   puppetSprite(42, state)
  52.   puppetSprite(43, state)
  53.   puppetSprite(44, state)
  54.   puppetSprite(45, state)
  55.   puppetSprite(46, state)
  56.   puppetSprite(47, state)
  57.   puppetSprite(2, 1)
  58.   puppetSprite(3, 1)
  59.   puppetSprite(4, 1)
  60.   puppetSprite(5, 1)
  61.   puppetSprite(6, 1)
  62.   puppetSprite(7, 1)
  63.   puppetSprite(8, 1)
  64. end
  65.