home *** CD-ROM | disk | FTP | other *** search
/ Enter 2003: The Beautiful Scenery / enter-parhaat-2003.iso / files / frendz.exe / frendz.dcr / Scripts_40.ls < prev    next >
Encoding:
Text File  |  2002-12-31  |  770 b   |  42 lines
  1. global gSoundEnabled, gMouseOverSound, gMacSound
  2.  
  3. on exitFrame me
  4.   if gSoundEnabled then
  5.     if gMouseOverSound then
  6.       cn = member("SoundOffDown").number
  7.     else
  8.       cn = member("SoundOffUp").number
  9.     end if
  10.   else
  11.     if gMouseOverSound then
  12.       cn = member("SoundOnDown").number
  13.     else
  14.       cn = member("SoundOnUp").number
  15.     end if
  16.   end if
  17.   sn = me.spriteNum
  18.   sprite(sn).memberNum = cn
  19. end
  20.  
  21. on mouseEnter me
  22.   puppetSound(2, "s_mouseover")
  23.   gMouseOverSound = 1
  24.   cursor(280)
  25. end
  26.  
  27. on mouseLeave me
  28.   gMouseOverSound = 0
  29.   cursor(-1)
  30. end
  31.  
  32. on mouseUp
  33.   gSoundEnabled = not gSoundEnabled
  34.   if gSoundEnabled then
  35.     set the soundLevel to gMacSound
  36.     sound(8).play(member("goofy"))
  37.   else
  38.     set the soundLevel to 0
  39.     sound(8).stop()
  40.   end if
  41. end
  42.