Triggers

function POMMusicList takes nothing returns real
local string array music
local string list
local integer a=0
local integer b
local real duration=0.00
local integer max=43
    set music[0] = "Sound\\Music\\mp3Music\\ArthasTheme.mp3"
    set music[1] = "Sound\\Music\\mp3Music\\BloodElfTheme.mp3"
    set music[2] = "Sound\\Music\\mp3Music\\Comradeship.mp3"
    set music[3] = "Sound\\Music\\mp3Music\\Credits.mp3"
    set music[4] = "Sound\\Music\\mp3Music\\DarkAgents.mp3"
    set music[5] = "Sound\\Music\\mp3Music\\DarkVictory.mp3"
    set music[6] = "Sound\\Music\\mp3Music\\Doom.mp3"
    set music[7] = "Sound\\Music\\mp3Music\\HeroicVictory.mp3"
    set music[8] = "Sound\\Music\\mp3Music\\Human1.mp3"
    set music[9] = "Sound\\Music\\mp3Music\\Human2.mp3"
    set music[10] = "Sound\\Music\\mp3Music\\Human3.mp3"
    set music[11] = "Sound\\Music\\mp3Music\\HumanDefeat.mp3"
    set music[12] = "Sound\\Music\\mp3Music\\HumanVictory.mp3"
    set music[13] = "Sound\\Music\\mp3Music\\HumanX1.mp3"
    set music[14] = "Sound\\Music\\mp3Music\\IllidansTheme.mp3"
    set music[15] = "Sound\\Music\\mp3Music\\LichKingTheme.mp3"
    set music[16] = "Sound\\Music\\mp3Music\\Mainscreen.mp3"
    set music[17] = "Sound\\Music\\mp3Music\\NagaTheme.mp3"
    set music[18] = "Sound\\Music\\mp3Music\\NightElf1.mp3"
    set music[19] = "Sound\\Music\\mp3Music\\NightElf2.mp3"
    set music[20] = "Sound\\Music\\mp3Music\\NightElf3.mp3"
    set music[21] = "Sound\\Music\\mp3Music\\NightElfDefeat.mp3"
    set music[22] = "Sound\\Music\\mp3Music\\NightElfVictory.mp3"
    set music[23] = "Sound\\Music\\mp3Music\\NightElfX1.mp3"
    set music[24] = "Sound\\Music\\mp3Music\\Orc1.mp3"
    set music[25] = "Sound\\Music\\mp3Music\\Orc2.mp3"
    set music[26] = "Sound\\Music\\mp3Music\\Orc3.mp3"
    set music[27] = "Sound\\Music\\mp3Music\\OrcDefeat.mp3"
    set music[28] = "Sound\\Music\\mp3Music\\OrcTheme.mp3"
    set music[29] = "Sound\\Music\\mp3Music\\OrcVictory.mp3"
    set music[30] = "Sound\\Music\\mp3Music\\OrcX1.mp3"
    set music[31] = "Sound\\Music\\mp3Music\\PursuitTheme.mp3"
    set music[32] = "Sound\\Music\\mp3Music\\SadMystery.mp3"
    set music[33] = "Sound\\Music\\mp3Music\\Tension.mp3"
    set music[34] = "Sound\\Music\\mp3Music\\TragicConfrontation.mp3"
    set music[35] = "Sound\\Music\\mp3Music\\Undead1.mp3"
    set music[36] = "Sound\\Music\\mp3Music\\Undead2.mp3"
    set music[37] = "Sound\\Music\\mp3Music\\Undead3.mp3"
    set music[38] = "Sound\\Music\\mp3Music\\UndeadDefeat.mp3"
    set music[39] = "Sound\\Music\\mp3Music\\UndeadVictory.mp3"
    set music[40] = "Sound\\Music\\mp3Music\\UndeadX1.mp3"
    set music[41] = "Sound\\Music\\mp3Music\\War2IntroMusic.mp3"
    set music[42] = "Sound\\Music\\mp3Music\\War3XMainScreen.mp3"
    set music[43] = "Sound\\Music\\mp3Music\\PH1.mp3"
    loop
        exitwhen a>=4
        set a=a+1
        set b=GetRandomInt(0, max)
        set  duration=duration+GetSoundFileDurationBJ(music[b])

        if a==1 then
            set list=music[b]
        else
            set list=list+";"+music[b]
        endif
        if not (b==max) then
            set music[b]=music[max]
        endif
        set max=max-1
    endloop
    call SetMapMusicRandomBJ( list )
    return(duration)
endfunction