-- LUA Script - precede every function and global member with lowercase name of script + '_main'

soundtest_flag = 0

function soundtest_init(e)
end

function soundtest_main(e)
 PlayerDist = GetPlayerDistance(e)
 if PlayerDist<400 then
  if soundtest_flag==0 then
   LoopSound(e,0)
   ActivateIfUsed(e)
   soundtest_flag = 1
  else
   SetSoundVolume(100-(PlayerDist/15))
  end
 else
  StopSound(e)
  soundtest_flag = 0
 end
end