home *** CD-ROM | disk | FTP | other *** search
/ PC Home 49 / PC_Home_Issue_49.iso / e-on / main.dir / 00009.ls < prev    next >
Encoding:
Text File  |  1996-02-10  |  1.2 KB  |  78 lines
  1. on startMovie
  2.   global ktout
  3.   set ktout to 0
  4.   set the keyDownScript to "volume"
  5.   preLoadCast(31, 45)
  6.   preLoadCast(2, 4)
  7. end
  8.  
  9. on volume
  10.   if the key = "2" then
  11.     set the soundLevel to the soundLevel + 1
  12.   end if
  13.   if the key = "1" then
  14.     set the soundLevel to the soundLevel - 1
  15.   end if
  16. end
  17.  
  18. on kroll
  19.   if rollOver(15) then
  20.     go("deviceL")
  21.     exit
  22.   end if
  23.   if rollOver(16) then
  24.     go("deviceM")
  25.     exit
  26.   end if
  27.   if rollOver(17) then
  28.     go("deviceR")
  29.     exit
  30.   end if
  31. end
  32.  
  33. on devLRoll
  34.   if not rollOver(15) then
  35.     sound stop 2
  36.     set the volume of sound 1 to 255
  37.     go("mflash2")
  38.     exit
  39.   end if
  40.   if the mouseDown then
  41.     puppetSound(2, cast "clik")
  42.     updateStage()
  43.     go(1, "DevL00.dir")
  44.     exit
  45.   end if
  46. end
  47.  
  48. on devMRoll
  49.   if not rollOver(16) then
  50.     sound stop 2
  51.     set the volume of sound 1 to 255
  52.     go("mflash2")
  53.     exit
  54.   end if
  55.   if the mouseDown then
  56.     preLoadCast(101)
  57.     puppetSound(2, cast "clik")
  58.     updateStage()
  59.     go("goM")
  60.     exit
  61.   end if
  62. end
  63.  
  64. on devRRoll
  65.   if not rollOver(17) then
  66.     sound stop 2
  67.     set the volume of sound 1 to 255
  68.     go("mflash2")
  69.     exit
  70.   end if
  71.   if the mouseDown then
  72.     puppetSound(2, cast "clik")
  73.     updateStage()
  74.     go(1, "DevR00.dir")
  75.     exit
  76.   end if
  77. end
  78.