Sound activaor Camera script

[ger4]

This should be simple, but I can' work out how to do it. The film projector sound for the camera starts ok when I activate the object, but when I activate it again, i will not switch off.

 

Any suggestions would be much appreciated.

 

 

scn AAAOldCameraScript

 

short doonce

 

ref camera

 

string_var soundstring

 

Begin onActivate

set camera to GetSelf

let soundstring := $AAACameraFilm

 

if eval ((camera.GetSoundPlaying $soundstring))

camera.SetLoopSound AMBDripLP01

camera.Update3D

else

;set camera to GetSelf

;AAAOldCameraAct.SetLoopSound AAACameraFilm

camera.SetLoopSound AAACameraFilm

camera.Update3D

endif

 

 

 

end

[TDA]

Would not it be easier  just to turn on and off the  sound source ( camera- switcher and  the sound source as object )?

 

 

scn CAMERAscript

 

begin onactivate

if soundREF.GetDistance CAMERA>11111 ; the start dummy cell for soundREFs

soundREF.DISABLE

endif

 

if soundREF.GetDisabled==1

 

 

soundREF.moveto CAMERA

soundREF.ENABLE

 

 

else

soundREF.DISABLE

endif

 

 

ACTIVATE

end