function SecondHeartbeat takes nothing returns nothing
    local sound snd = CreateSound("HEART.wav",false,false,false,10,10,"")
    call SetSoundChannel(snd,0)
    call SetSoundVolume(snd,117)
    call SetSoundPitch(snd,1)
    call StartSound(snd)
    call KillSoundWhenDone(snd)
    set snd = null

    //call BJDebugMsg("Beat 2")
endfunction

function Trig_Heartbeat_Actions takes nothing returns nothing
  local timer t = GetExpiredTimer()
  local sound snd
  local integer i = 0

  loop
  exitwhen i > 11
     if t == udg_HeartbeatTimer[i] then
       set snd = CreateSound("HEART.wav",false,false,false,10,10,"")
       call SetSoundChannel(snd,0)
       call SetSoundVolume(snd,127)
       call SetSoundPitch(snd,1)
       call StartSound(snd)
       call KillSoundWhenDone(snd)

       call TimerStart(udg_HeartbeatTimer[i],1,false,null)
       call TimerStart(udg_HeartbeatTimer2[i],0.34,false,function SecondHeartbeat)

       //call BJDebugMsg("Beat 1")
     endif
  set i = i + 1
  endloop
  set t = null
  set snd = null
endfunction

//===========================================================================
function InitTrig_Heartbeat takes nothing returns nothing
  local integer i = 0
  set gg_trg_Heartbeat = CreateTrigger()

  loop
  exitwhen i > 11
    set udg_HeartbeatTrig[i] = CreateTrigger()
    call TriggerRegisterTimerExpireEvent(udg_HeartbeatTrig[i],udg_HeartbeatTimer[i])
    call TriggerAddAction(udg_HeartbeatTrig[i], function Trig_Heartbeat_Actions)
  set i = i + 1
  endloop
endfunction