home *** CD-ROM | disk | FTP | other *** search
/ FHM 100 Bombázó Ajándék CD / fhm_hu_1997.iso / fhm.exe / fhm.dxr / 00005_toggle_music.ls < prev    next >
Encoding:
Text File  |  2001-03-18  |  384 b   |  20 lines
  1. on mouseUp
  2.   global ismusic
  3.   ismusic = not ismusic
  4.   if offset("button_equalizer", (the member of sprite the clickOn).name) then
  5.     tmp = -1
  6.   else
  7.     tmp = 1
  8.   end if
  9.   sprite(the clickOn).visible = 0
  10.   sprite(the clickOn + tmp).visible = 1
  11.   if ismusic then
  12.     sound playFile 1, the moviePath & "data\music.wav"
  13.   else
  14.     sound fadeOut 1, 3 * 60
  15.   end if
  16. end
  17.  
  18. on mouseDown
  19. end
  20.