home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 February / WPCFEB97.ISO / multi / times / data / intro.dir / 00099.ls < prev    next >
Encoding:
Text File  |  1996-08-27  |  888 b   |  36 lines
  1. on mouseDown
  2.   set mh to the mouseH
  3.   set sph to the locH of sprite 7
  4.   set unitWidth to 16
  5.   set offsetH to 0
  6.   set offsetV to 0
  7.   set whichVol to (mh - sph - (offsetH - unitWidth)) / unitWidth
  8.   puppetSprite(6, 1)
  9.   set the castNum of sprite 6 to 92 + whichVol
  10.   updateStage()
  11.   if whichVol = 1 then
  12.     set the volume of sound 1 to 100
  13.     set the volume of sound 2 to 40
  14.     puppetSound("beep.wav")
  15.     updateStage()
  16.   end if
  17.   if whichVol = 2 then
  18.     set the volume of sound 1 to 150
  19.     set the volume of sound 2 to 60
  20.     puppetSound("beep.wav")
  21.     updateStage()
  22.   end if
  23.   if whichVol = 3 then
  24.     set the volume of sound 1 to 200
  25.     set the volume of sound 2 to 80
  26.     puppetSound("beep.wav")
  27.     updateStage()
  28.   end if
  29.   if whichVol = 4 then
  30.     set the volume of sound 1 to 255
  31.     set the volume of sound 2 to 100
  32.     puppetSound("beep.wav")
  33.     updateStage()
  34.   end if
  35. end
  36.