Checks for sound card and disables the screen saver. End director restores the screen saver.
--Code by Chuck Neal
--Chuck@mediamacros.coc
on prepareDirector
global gOldSSav, gOldVolume
--Check Sound Card
if baSoundCard( ) = 0 then
set continue = baMsgBox( "You do not appear to have a soundcard installed. No audio will be heard if you choose to continue. Click OK to continue without sound or cancel to exit.", "Continue?" , "OKCancel", "Stop" , 2 )
if continue = "Cancel" then quit
end if
--Disable Screen Saver, save settings
set gOldSSav = baSetScreenSaver( "" )
--Hide taskbar
baHideTaskBar(true)
--Normalize Audio Volume (50%) Works best with volume control in program
set gOldVolume = baGetVolume( "wave" )
baSetVolume( "wave" , 50 )
end
on endDirector
global gOldSSav, gOldVolume
baSetScreenSaver (gOldSSav)
baHideTaskBar(false)
baSetVolume( "wave" , gOldVolume)
end
Contact
MMI
36 South Court Sq
Suite 300
Newnan, GA 30263
USA