home *** CD-ROM | disk | FTP | other *** search
/ PC go! 1996 July / Image.iso / mrmore / mrmore.dir / 00009.ls < prev    next >
Encoding:
Text File  |  1996-04-11  |  399 b   |  17 lines
  1. on mouseUp
  2.   global gbPlayTheMusic, gnMusicSprite, gbSpeaker
  3.   if gbPlayTheMusic then
  4.     StopSound(1)
  5.     set gbPlayTheMusic to 0
  6.     set gbSpeaker to 0
  7.   else
  8.     set gbPlayTheMusic to 1
  9.   end if
  10.   set the puppet of sprite gnMusicSprite to 1
  11.   set s to " an!"
  12.   if gbPlayTheMusic then
  13.     set s to " aus!"
  14.   end if
  15.   set the castNum of sprite gnMusicSprite to the number of cast ("Musik" & s)
  16. end
  17.