Multimedia Clips/SelectSoftPublishing-StockClips-MultimediaClips-WinMac.bin/pc/CATALOG/DA.DIR/00002_handlers.ls

Text File | 2006-01-01 | 1.3 KB | 48 lines

on hSetupMovie
  global gSlideShowSprite, gCount, gQuitSprite, gQuitCast, gMainMenuButtonSprite, gMainMenuButtonCast
  set gSlideShowSprite to 2
  set the movieRate of sprite gSlideShowSprite to 0
  set the movieTime of sprite gSlideShowSprite to 0
  set gCount to the startTime of sprite gSlideShowSprite / 4
  set gQuitSprite to 48
  set gQuitCast to the castNum of sprite gQuitSprite
  set gMainMenuButtonSprite to 47
  set gMainMenuButtonCast to the castNum of sprite gMainMenuButtonSprite
end

on hChangeSlide
  global gCount, gSlideShowSprite, lastSlide
  set gCount to gCount + 1
  if the movieTime of sprite gSlideShowSprite = (the stopTime of sprite gSlideShowSprite - 4) then
    set gCount to (the startTime of sprite gSlideShowSprite + 4) / 4
    set the movieTime of sprite gSlideShowSprite to gCount * 4
  else
    set the movieTime of sprite gSlideShowSprite to gCount * 4
  end if
  updateStage()
end

on hWasteTime
  global gMainMenuButtonCast, gQuitCast
  repeat while the timer < 240
    if the mouseUp = 0 then
      if the mouseCast = gMainMenuButtonCast then
        exit repeat
      else
        if the mouseCast = gQuitCast then
          exit repeat
        end if
      end if
    end if
    hCheckMusicPlaying()
  end repeat
end

on hCheckMusicPlaying
  if soundBusy(1) then
    nothing()
  else
    sound playFile 1, "MUSIC.AIF"
  end if
end