function PlaySoundEx takes string s, boolean is3d, real x, real y returns nothing
    local sound snd = CreateSound(s,false,is3d,true,10,10,"CombatSoundsEAX")
    if is3d then
        call SetSoundPosition(snd,x,y,10.0)
        call SetSoundDistances(snd,600,10000)
        call SetSoundDistanceCutoff(snd,2100)
        call SetSoundConeAngles(snd,0.0,0.0,127)
        call SetSoundConeOrientation(snd,0.0,0.0,0.0)
    endif
    call SetSoundChannel(snd,5)
    call SetSoundVolume(snd,127)
    call StartSound(snd)
    call KillSoundWhenDone(snd)
    set snd = null
endfunction