globals
    sound array Massiv
    integer Slot = 0
endglobals

function AddSound takes sound S returns nothing
    set Massiv[Slot] = S
    loop
        exitwhen Slot > 8190 or Massiv[Slot] == null
        set Slot = Slot + 1
    endloop
endfunction

function RemoveSound takes sound S returns nothing
    local integer i = Slot-1
    loop   
        exitwhen i < 0
        if Massiv[i] == S then 
            set Massiv[i] = null
            if i < Slot then
                set Slot = i
            endif
        endif
        set i = i - 1
    endloop
endfunction

function B2I takes boolean W, integer A, integer B returns integer
 if W then
  return B
 else
  return A
 endif
endfunction

function SetData takes integer Data returns nothing
 if udg_Num > 8000 then
  set udg_Num = udg_Num - 1
  set udg_Ints[udg_Index[udg_Num]] = Data
  set udg_Index[Data] = udg_Index[udg_Num]
 else
  set udg_Ints[udg_NextFreeInt] = Data
  set udg_Index[Data] = udg_NextFreeInt
  set udg_NextFreeInt = udg_NextFreeInt + 1
 endif
endfunction

function GetData takes integer Data returns integer
 set udg_Index[udg_Num] = udg_Index[Data]
 set udg_Num = udg_Num + 1
 return udg_Index[Data]
endfunction

function RemoveData takes integer Data returns nothing
 set udg_Ints[GetData(Data)] = 0
endfunction

function AddSnd2Group takes sound Sound returns integer
    set udg_snd_index = udg_snd_index + 1
    set udg_snd_archive[udg_snd_index] = Sound
    set udg_snd_adress[udg_snd_index] = udg_snd_index
    return udg_snd_index
endfunction

function RemoveSndFromGroup takes integer Index returns nothing
    set udg_snd_archive[Index] = set udg_snd_archive[udg_snd_index]
    set udg_snd_adress[Index] = set udg_snd_adress[udg_snd_index]
    set udg_snd_archive[udg_snd_index] = null
    set udg_snd_adress[udg_snd_index] = 0
endfunction

function GetSndById takes integer Index returns sound
    local integer i = 1
    loop
      exitwhen i > udg_snd_index or i == udg_snd_adress[ i ]
        set i = i + 1
    endloop
    return udg_snd_archive[ i ]
endfunction