home *** CD-ROM | disk | FTP | other *** search
/ Undercover - Rock on Multimedia 2 / UNDERCOVER2.BIN / main.dir / 00278_Script_278 < prev    next >
Text File  |  1996-01-27  |  846b  |  38 lines
  1. on exitFrame
  2.   global gTimeOut, gRollover, gSndExtn, gLatch2, gLatch3, gCurrentPath, gMusicPlaying
  3.   
  4.   if not gLatch2 and rollover(11) then
  5.     sound stop 1
  6.     set gMusicPlaying = false
  7.     sound playFile 1, gCurrentPath & (line 5 of field "montel") & gSndExtn
  8.     set gLatch2 = true
  9.     set gLatch3 = false
  10.     go the frame
  11.   end if
  12.   
  13.   if not gLatch3 and rollover(12) then
  14.     sound stop 1
  15.     set gMusicPlaying = false
  16.     sound playFile 1, gCurrentPath & (line 6 of field "montel") & gSndExtn
  17.     set gLatch3 = true
  18.     set gLatch2 = false
  19.     go the frame
  20.   end if
  21.   
  22.   if not soundBusy(1) then
  23.     playMusic
  24.   end if
  25.   
  26.   go the frame
  27.   
  28. end
  29.  
  30. on mouseDown
  31.   global gMusicPlaying
  32.   if not gMusicPlaying then
  33.     sound stop 1
  34.     playMusic
  35.   end if
  36.   global gRollover
  37.   go marker(-1) + gRollover -9
  38. end