/=========------Sound Function-------============
function normal_sound takes string s, real x, real y returns nothing
    local sound snd = CreateSound(s, false, true, true, 10, 10, "CombatSoundsEAX")
    call SetSoundChannel(snd, 40)
    call SetSoundVolume(snd, 127)
    call SetSoundPitch(snd, 1)
    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)
    call SetSoundPosition(snd, x, y, 50)
    call StartSound(snd)
    call KillSoundWhenDone(snd)
    set snd = null
endfunction

/подгрузка звука 3D
function PreloadSound3D_snd takes string s returns nothing 
    local sound snd = CreateSound(s,false,true,true,10,10,"CombatSoundsEAX")
    call SetSoundChannel(snd,5)
    call SetSoundVolume(snd,127)
    call SetSoundPitch(snd, 1)
    call SetSoundDistances(snd,999999,99999)
    call SetSoundDistanceCutoff(snd,99999)
    call SetSoundConeAngles(snd,0.0,0.0,127)
    call SetSoundConeOrientation(snd,0.0,0.0,0.0)
    call SetSoundPosition(snd,0.0,0.0,50.0)
    call StartSound(snd)
    call StopSound(snd, false, false)
    set snd = null
endfunction

function PlaySnd takes unit uCaster, unit uTarg, integer Id returns nothing
local integer RndSnd
    if Id == 1 then
    	elseif Id == 2 or Id == 12 then
    	set RndSnd = GetRandomInt(1,3)
    if RndSnd == 1 then
   	 call normal_sound("MetalLightSliceMetal1.wav",GetUnitX(uCaster), GetUnitY(uCaster))
    elseif RndSnd == 2 then
   	 call normal_sound("MetalLightSliceMetal2.wav",GetUnitX(uCaster), GetUnitY(uCaster))
    elseif RndSnd == 3 then
  	  call normal_sound("MetalLightSliceMetal3.wav",GetUnitX(uCaster), GetUnitY(uCaster))
    endif
    elseif Id == 3 or Id == 13 then
 	   call normal_sound("MetalMediumBashStone1.wav",GetUnitX(uCaster), GetUnitY(uCaster))
    endif
endfunction