scope HeroSelection initializer InitHeroSelection

function HeroCreation takes player p, integer id returns nothing
set PlayerHeroes[GetPlayerId(p)] = CreateUnit(p,id, -400,1800, 45)
    if GetLocalPlayer() == p then
    call ClearSelection()
    call SelectUnit(PlayerHeroes[GetPlayerId(p)], true)
    call SetCameraPosition(-400,1800)
    call SetCameraBounds(-288.0, 768.0, -288.0, 2016.0, 992.0, 2016.0, 992.0, 768.0)
     if IsPlayerInForce(GetLocalPlayer(), Binders) then
      call DisplayTimedTextToPlayer(GetLocalPlayer(), 0, 0, 10, GetPlayerNameColored(p)+"|cff5F9EA0"+" has chosen the "+GetObjectName(id)+"."+"|r")
     endif
    endif
endfunction

function HeroRepickActions  takes nothing returns nothing
local player p = GetTriggerPlayer()
if PlayerHeroes[GetPlayerId(p)] != null then
call RemoveUnit(PlayerHeroes[GetPlayerId(p)])
if GetLocalPlayer() == p then
call SetCameraBounds(-3392.0, 1760.0, -3392.0, 1760.0, -2880.0, 2400.0, -2880.0, 1760.0)
call SetCameraPosition(-3100,2000)
set PlayerHeroes[GetPlayerId(p)] = null
endif
else 
set p = null
return  
endif
set p = null
endfunction

function HeroRandomActions takes nothing returns nothing
if PlayerHeroes[GetPlayerId(GetTriggerPlayer())] == null then
call HeroCreation(GetTriggerPlayer(), HeroId[GetRandomInt(0, 5)])
else 
return  
endif
endfunction

function HeroSelectActions takes nothing returns nothing
call HeroCreation(GetOwningPlayer(GetSoldUnit()), GetUnitTypeId(GetSoldUnit()))
call RemoveUnit(GetSoldUnit())
endfunction

function RemoveHeroSelection takes nothing returns nothing
local integer i = 0
call TimerDialogDisplay(TempTimerDialog, false)
set TempTimerDialog = null
call ReleaseTimer(TempTimer)
loop
exitwhen i>3
if PlayerHeroes[i] == null and IsPlayerInForce(Player(i), Binders) then
call HeroCreation(Player(i), HeroId[GetRandomInt(0, 5)])
endif
set i=i+1
endloop
call DisableTrigger(Repick)
call DisableTrigger(Random)
call DisableTrigger(HeroSelect)
call DestroyTrigger(Repick)
call DestroyTrigger(Random)
call DestroyTrigger(HeroSelect)
endfunction

function HeroSelectionTimer takes nothing returns nothing
set TempTimer = NewTimer()
set TempTimerDialog = CreateTimerDialog(TempTimer)
call TimerDialogSetTitle(TempTimerDialog, "Choose a hero.")
call TimerDialogDisplay(TempTimerDialog, true)
call TimerStart(TempTimer, 45, false, function RemoveHeroSelection)
endfunction
//===========================================================================
function InitHeroSelection takes nothing returns nothing
    local trigger tr = CreateTrigger()
    local integer i = 0
    set HeroSelect = CreateTrigger()
    set Repick = CreateTrigger()
    set Random = CreateTrigger()
    call TriggerRegisterTimerEvent(tr, 0.2, false)
    call TriggerAddAction(tr, function HeroSelectionTimer)
    call TriggerRegisterAnyUnitEventBJ( HeroSelect, EVENT_PLAYER_UNIT_SELL)
    call TriggerAddAction( HeroSelect, function HeroSelectActions )
    loop 
    exitwhen i>3
    call TriggerRegisterPlayerChatEvent( Random, Player(i), "-random", true)
    call TriggerRegisterPlayerChatEvent( Repick, Player(i), "-repick", true)
    set i = i+1
    endloop
    call TriggerAddAction( Random, function HeroRandomActions)
    call TriggerAddAction( Repick, function HeroRepickActions)
endfunction
endscope

scope GameStart initializer InitGameStart

function GameStartActions takes nothing returns nothing
    if IsPlayerInForce(GetLocalPlayer(), Binders) then 
    call DisplayTimedTextToPlayer(GetLocalPlayer(), 0, 0, 45.0, "|cff5F9EA0"+"Welcome to Binders!"+"|r")
    call DisplayTimedTextToPlayer(GetLocalPlayer(), 0, 0, 45.0, "|cff5F9EA0"+"You have 45 seconds to select a hero."+"|r")
    call SetCameraBounds(-3392.0, 1760.0, -3392.0, 1760.0, -2880.0, 2400.0, -2880.0, 1760.0)
    endif
    call FogEnable(false)
    call FogMaskEnable(false)
    endfunction
//===========================================================================
function InitGameStart takes nothing returns nothing
    local trigger tr = CreateTrigger()
    call TriggerRegisterTimerEvent(tr, 0.1, false)
    call TriggerAddAction(tr,function GameStartActions )
endfunction
endscope

function GameStartActions takes nothing returns nothing
local integer i = 0
loop
 exitwhen i>3
    if IsPlayerInForce(Player(i), Binders) then 
    call DisplayTimedTextToPlayer(Player(i), 0, 0, 45.0, "|cff5F9EA0"+"Welcome to Binders!"+"|r")
    call DisplayTimedTextToPlayer(Player(i), 0, 0, 45.0, "|cff5F9EA0"+"You have 45 seconds to select a hero."+"|r")
    set i = i+1
    endloop
    if IsPlayerInForce(GetLocalPlayer(), Binders) then
    call SetCameraBounds(-3392.0, 1760.0, -3392.0, 1760.0, -2880.0, 2400.0, -2880.0, 1760.0)
    endif
    call FogEnable(false)
    call FogMaskEnable(false)
    endfunction

function HeroRepickActions  takes nothing returns nothing
local player p = GetTriggerPlayer()
if PlayerHeroes[GetPlayerId(p)] != null then
call RemoveUnit(PlayerHeroes[GetPlayerId(p)])
set PlayerHeroes[GetPlayerId(p)] = null
if GetLocalPlayer() == p then
call SetCameraBounds(-3392.0, 1760.0, -3392.0, 1760.0, -2880.0, 2400.0, -2880.0, 1760.0)
call SetCameraPosition(-3100,2000)
endif
else 
set p = null
return  
endif
set p = null
endfunction