12.10.9    Play a Wave File every 3 seconds for 1 minute

Two Scripts:

One closes if already open, initializes and calls SCRLOOP command.

 

# Script One

catch {MCISEND {close warn}

}

MCISEND "open autodest.wav type WaveAudio alias warn wait"

SCRLOOP playwarning3.scr,3.0,20

# initialize count down

SETVAL analog1=60

Second script plays the wave and counts down.

 

# Script Two - playwarning.scr

MCISEND {play warn from 1}

#countdown

set x [GETVAL analog1]

SETVAL analog1=[expr $x - 3]