globals
     integer array Hero
     unit array Player_Hero
endglobals

function Trig_All_Random_Actions takes nothing returns nothing
     integer i = 0
     integer j = 0
      
     set udg_Hero[1] = 'E000'
     set udg_Hero[2] = 'E008'
     set udg_Hero[3] = 'E001'
     set udg_Hero[4] = 'E005'
     set udg_Hero[5] = 'H000'
     set udg_Hero[6] = 'H003'
     set udg_Hero[7] = 'H00H'
     set udg_Hero[8] = 'H009'
     set udg_Hero[9] = 'H008'
      
     if (IsPlayerInForce(GetLocalPlayer(), bj_FORCE_ALL_PLAYERS)) then
     DisplayTextToPlayer(GetLocalPlayer(), 0, 0, ( GetPlayerName(GetTriggerPlayer()) + ( " выбрал " + "|cFF008AFFAll Random|r" ) ))
     endif
      
     loop
         exitwhen i > 9
         if (GetPlayerSlotState(Player(i)) == PLAYER_SLOT_STATE_PLAYING) then
          
             loop
                 exitwhen Hero[j] != 0
                 set j = GetRandomInt(1, 9)
             endloop
              
             Player_Hero[i] = CreateUnitAtLoc(Player(i), udg_Hero[j], GetStartLocationLoc(GetPlayerStartLocation(Player(i))), 180.00)
              
             if (GetLocalPlayer() == Player(i)) then
             SetCameraPosition(GetLocationX(GetStartLocationLoc(GetPlayerStartLocation(GetLocalPlayer()))), GetLocationY(GetStartLocationLoc(GetPlayerStartLocation(GetLocalPlayer()))))
             endif
              
             if (IsPlayerInForce(GetLocalPlayer(), bj_FORCE_ALL_PLAYERS)) then
             DisplayTextToPlayer(GetLocalPlayer(), 0, 0, (udg_Player_Colors[GetPlayerId(Player(i)) + 1] + ( GetPlayerName(Player(i)) + "|r" ) ) + ( " выбрал " + GetUnitName(Player_Hero[i])))
             endif
          
         i += 1
     endloop
      
     call DisableTrigger( GetTriggeringTrigger() )
endfunction

function InitTrig_All_Random takes nothing returns nothing
     set gg_trg_All_Random = CreateTrigger(  )
     call TriggerRegisterPlayerChatEvent( gg_trg_All_Random, Player(1), "-ar", true )
     call TriggerAddAction( gg_trg_All_Random, function Trig_All_Random_Actions )
endfunction

function FirstOfPlaying takes nothing returns player
     local integer i = 0
     local player p
       
     loop
         exitwhen i > 11
         set p = Player(i)
         if GetPlayerSlotState(p) == PLAYER_SLOT_STATE_PLAYING and GetPlayerController(p) == MAP_CONTROL_USER then
             set i = 11     
         endif
         set i = i + 1
     endloop
       
     return p
endfunction

function GetPlayerNameColored takes player p returns string
        local playercolor col=GetPlayerColor(p)
        local string r=GetPlayerName(p)
        if GetPlayerId(p) == 12 then
            set r="the |CFF333429"+r+"|r"
        elseif GetPlayerId(p) == 13 then
            set r="the |cffc1c1ff"+r+"|r"
        elseif GetPlayerId(p) == 14 then
            set r="the |CFF333429"+r+"|r"
        elseif GetPlayerId(p) == 15 then
            set r="the |CFF333429"+r+"|r"
        elseif col == PLAYER_COLOR_RED then
            set r="|CFFFF0303"+r+"|r"
        elseif col == PLAYER_COLOR_BLUE then
            set r="|CFF0042FF"+r+"|r"
        elseif col == PLAYER_COLOR_CYAN then
            set r="|CFF1CE6B9"+r+"|r"
        elseif col == PLAYER_COLOR_PURPLE then
            set r="|CFF540081"+r+"|r"
        elseif col == PLAYER_COLOR_YELLOW then
            set r="|CFFFFFC00"+r+"|r"
        elseif col == PLAYER_COLOR_ORANGE then
            set r="|CFFFE8A0E"+r+"|r"
        elseif col == PLAYER_COLOR_GREEN then
            set r="|CFF20C000"+r+"|r"
        elseif col == PLAYER_COLOR_PINK then
            set r="|cffff80c0"+r+"|r"
        elseif col == PLAYER_COLOR_LIGHT_GRAY then
            set r="|CFF959697"+r+"|r"
        elseif col == PLAYER_COLOR_LIGHT_BLUE then
            set r="|CFF7FBFF1"+r+"|r"
        elseif col == PLAYER_COLOR_AQUA then
            set r="|cFF106246"+r+"|r"
        elseif col == PLAYER_COLOR_BROWN then
            set r="|cFF4E2A04"+r+"|r"
        else
            set r=""
        endif
        set col=null
        return r
endfunction

function IsHeroTypeAvailable takes integer min, integer max returns boolean
     local integer i = min
      
     loop
         exitwhen i > max
         if LoadBoolean(udg_hash,GetUnitTypeId(udg_Hero[i]),0) != true then
             return true
         endif
         set i = i + 1
     endloop
     return false
endfunction

function PickRandomUnitType takes integer min, integer max returns integer
     local integer rnd
     local integer utype
      
     // Кто-то может ввести min большее, чем max. Не стоит его за это корить,
     // мы просто поменяем их местами, чтобы избежать проблем.
     if min > max then
         set rnd = min
         set max = min
         set min = rnd
     endif
      
     if IsHeroTypeAvailable(min,max) then
         // Этот цикл обязательно возвратит нам тип юнита, так как первое условие
         // исключает его бесконечность.
         loop
             set rnd = GetRandomInt(min,max)
             set utype = GetUnitTypeId(udg_Hero[rnd])
             if LoadBoolean(udg_hash,utype,0) != true then
                 call SaveBoolean(udg_hash,utype,0,true)
                 return utype
             endif
         endloop
     else
         call DisplayTextToPlayer(GetLocalPlayer(),0,0,"|cffffcc00Ошибка - доступных типов героев меньше, чем игроков.|r")
     endif
     return 0
endfunction

function Trig_All_Random_Actions takes nothing returns nothing
     local integer i = 0
     local real x
     local real y
     local unit u
     local player p
      
     call DisplayTextToPlayer(GetLocalPlayer(),0,0,GetPlayerNameColored(GetTriggerPlayer()) + " включил |cFF008AFFAll Random|r")
       
     loop
         exitwhen i > 11
         set p = Player(i)
         if GetPlayerSlotState(p) == PLAYER_SLOT_STATE_PLAYING then
             set x = GetStartLocationX(GetPlayerStartLocation(p))
             set y = GetStartLocationY(GetPlayerStartLocation(p))
             if GetLocalPlayer() == p then
                 call PanCameraToTimed(x,y,0.)     
             endif
             set u = CreateUnit(p,PickRandomUnitType(1,9),x,y,180.)
             call DisplayTextToPlayer(GetLocalPlayer(),0,0,GetPlayerNameColored(p) + " выбрал " + GetUnitName(u))
             call SetPlayerTechMaxAllowed(p,'HERO',0)
         endif
         set i = i + 1
     endloop
       
     call DisableTrigger(GetTriggeringTrigger())     
     set p = null
endfunction

function InitTrig_All_Random takes nothing returns nothing
      set gg_trg_All_Random = CreateTrigger()
      call TriggerRegisterPlayerChatEvent(gg_trg_All_Random,FirstOfPlaying(),"-ar",true)
      call TriggerAddAction(gg_trg_All_Random,function Trig_All_Random_Actions)
endfunction