home *** CD-ROM | disk | FTP | other *** search
/ DigitalVision: Cats & Dogs / DigitalVision: Cats & Dogs - Disc 1.iso / pc / s_saver / dv_onlin.exe / dv_onlin.dcr / Internal_11_a to b.ls < prev    next >
Encoding:
Text File  |  2000-07-28  |  1.3 KB  |  66 lines
  1. global gTrect, gsound
  2.  
  3. on buildLocList rect1, rect2, numsteps
  4.   locList = []
  5.   increment = (rect2 - rect1) / float(numsteps)
  6.   pTrect = rect1
  7.   repeat with a = 1 to numsteps
  8.     pTrect = pTrect + increment
  9.     append(locList, pTrect)
  10.   end repeat
  11.   gTrect = VOID
  12.   return locList
  13. end
  14.  
  15. on gSeprator
  16.   sep = member("seperator").char[1]
  17.   return sep
  18. end
  19.  
  20. on thecursor x
  21.   case x of
  22.     #norm:
  23.       cursor([member("norm"), member("norm mask")])
  24.     #roll:
  25.       cursor([member("hand"), member("hand mask")])
  26.   end case
  27. end
  28.  
  29. on startMovie me
  30.   set the keyDownScript to "quit"
  31.   repeat with a = 1 to count(the soundDeviceList)
  32.     device = (the soundDeviceList)[a]
  33.     if device contains "macromix" then
  34.       put device
  35.       the soundDevice = device
  36.       exit repeat
  37.     end if
  38.   end repeat
  39.   puppetSound(1, 1)
  40.   puppetSound(2, 1)
  41.   if getPref("dv.txt") = VOID then
  42.     gsound = string(3)
  43.     SetPref("dv.txt", string(gsound))
  44.   else
  45.     gsound = getPref("dv.txt")
  46.   end if
  47.   changesoundmode()
  48. end
  49.  
  50. on stopMovie
  51.   SetPref("dv.txt", string(gsound))
  52.   gsound = VOID
  53. end
  54.  
  55. on changesoundmode
  56.   tvol = gsound * 36
  57.   set the volume of sound 1 to tvol
  58.   set the volume of sound 2 to tvol
  59. end
  60.  
  61. on makesound channel, castname
  62.   if integer(gsound) >= 1 then
  63.     puppetSound(channel, castname)
  64.   end if
  65. end
  66.