function MeleeStartingVisibility takes nothing returns nothing
      // Start by setting the ToD.
      call SetFloatGameState(GAME_STATE_TIME_OF_DAY, bj_MELEE_STARTING_TOD)

      // call FogMaskEnable(true)
      // call FogEnable(true)
endfunction

function MeleeStartingHeroLimit takes nothing returns nothing
      local integer index

      set index = 0
      loop
          // max heroes per player
          call SetPlayerMaxHeroesAllowed(bj_MELEE_HERO_LIMIT, Player(index))

          // each player is restricted to a limit per hero type as well
          call ReducePlayerTechMaxAllowed(Player(index), 'Hamg', bj_MELEE_HERO_TYPE_LIMIT)
          call ReducePlayerTechMaxAllowed(Player(index), 'Hmkg', bj_MELEE_HERO_TYPE_LIMIT)
          call ReducePlayerTechMaxAllowed(Player(index), 'Hpal', bj_MELEE_HERO_TYPE_LIMIT)
          call ReducePlayerTechMaxAllowed(Player(index), 'Hblm', bj_MELEE_HERO_TYPE_LIMIT)

          call ReducePlayerTechMaxAllowed(Player(index), 'Obla', bj_MELEE_HERO_TYPE_LIMIT)
          call ReducePlayerTechMaxAllowed(Player(index), 'Ofar', bj_MELEE_HERO_TYPE_LIMIT)
          call ReducePlayerTechMaxAllowed(Player(index), 'Otch', bj_MELEE_HERO_TYPE_LIMIT)
          call ReducePlayerTechMaxAllowed(Player(index), 'Oshd', bj_MELEE_HERO_TYPE_LIMIT)

          call ReducePlayerTechMaxAllowed(Player(index), 'Edem', bj_MELEE_HERO_TYPE_LIMIT)
          call ReducePlayerTechMaxAllowed(Player(index), 'Ekee', bj_MELEE_HERO_TYPE_LIMIT)
          call ReducePlayerTechMaxAllowed(Player(index), 'Emoo', bj_MELEE_HERO_TYPE_LIMIT)
          call ReducePlayerTechMaxAllowed(Player(index), 'Ewar', bj_MELEE_HERO_TYPE_LIMIT)

          call ReducePlayerTechMaxAllowed(Player(index), 'Udea', bj_MELEE_HERO_TYPE_LIMIT)
          call ReducePlayerTechMaxAllowed(Player(index), 'Udre', bj_MELEE_HERO_TYPE_LIMIT)
          call ReducePlayerTechMaxAllowed(Player(index), 'Ulic', bj_MELEE_HERO_TYPE_LIMIT)
          call ReducePlayerTechMaxAllowed(Player(index), 'Ucrl', bj_MELEE_HERO_TYPE_LIMIT)

          call ReducePlayerTechMaxAllowed(Player(index), 'Npbm', bj_MELEE_HERO_TYPE_LIMIT)
          call ReducePlayerTechMaxAllowed(Player(index), 'Nbrn', bj_MELEE_HERO_TYPE_LIMIT)
          call ReducePlayerTechMaxAllowed(Player(index), 'Nngs', bj_MELEE_HERO_TYPE_LIMIT)
          call ReducePlayerTechMaxAllowed(Player(index), 'Nplh', bj_MELEE_HERO_TYPE_LIMIT)
          call ReducePlayerTechMaxAllowed(Player(index), 'Nbst', bj_MELEE_HERO_TYPE_LIMIT)
          call ReducePlayerTechMaxAllowed(Player(index), 'Nalc', bj_MELEE_HERO_TYPE_LIMIT)
          call ReducePlayerTechMaxAllowed(Player(index), 'Ntin', bj_MELEE_HERO_TYPE_LIMIT)
          call ReducePlayerTechMaxAllowed(Player(index), 'Nfir', bj_MELEE_HERO_TYPE_LIMIT)

          set index = index + 1
          exitwhen index == bj_MAX_PLAYERS
      endloop
endfunction

function MeleeGrantHeroItems takes nothing returns nothing
      local integer index
      local trigger trig

      // Initialize the twinked hero counts.
      set index = 0
      loop
          set bj_meleeTwinkedHeroes[index] = 0

          set index = index + 1
          exitwhen index == bj_MAX_PLAYER_SLOTS
      endloop

      // Register for an event whenever a hero is trained, so that we can give
      // him/her their starting items.
      set index = 0
      loop
          set trig = CreateTrigger()
          call TriggerRegisterPlayerUnitEvent(trig, Player(index), EVENT_PLAYER_UNIT_TRAIN_FINISH, filterMeleeTrainedUnitIsHeroBJ)
          call TriggerAddAction(trig, function MeleeGrantItemsToTrainedHero)

          set index = index + 1
          exitwhen index == bj_MAX_PLAYERS
      endloop

      // Register for an event whenever a neutral hero is hired, so that we
      // can give him/her their starting items.
      set trig = CreateTrigger()
      call TriggerRegisterPlayerUnitEvent(trig, Player(PLAYER_NEUTRAL_PASSIVE), EVENT_PLAYER_UNIT_SELL, filterMeleeTrainedUnitIsHeroBJ)
      call TriggerAddAction(trig, function MeleeGrantItemsToHiredHero)

      // Flag that we are giving starting items to heroes, so that the melee
      // starting units code can create them as necessary.
      set bj_meleeGrantHeroItems = true
endfunction

function MeleeStartingResources takes nothing returns nothing
      local integer index
      local player  indexPlayer
      local version v
      local integer startingGold
      local integer startingLumber

      set v = VersionGet()
      if (v == VERSION_REIGN_OF_CHAOS) then
          set startingGold = bj_MELEE_STARTING_GOLD_V0
          set startingLumber = bj_MELEE_STARTING_LUMBER_V0
      else
          set startingGold = bj_MELEE_STARTING_GOLD_V1
          set startingLumber = bj_MELEE_STARTING_LUMBER_V1
      endif

      // Set each player's starting resources.
      set index = 0
      loop
          set indexPlayer = Player(index)
          if (GetPlayerSlotState(indexPlayer) == PLAYER_SLOT_STATE_PLAYING) then
              call SetPlayerState(indexPlayer, PLAYER_STATE_RESOURCE_GOLD, startingGold)
              call SetPlayerState(indexPlayer, PLAYER_STATE_RESOURCE_LUMBER, startingLumber)
          endif

          set index = index + 1
          exitwhen index == bj_MAX_PLAYERS
      endloop
endfunction

function MeleeClearExcessUnits takes nothing returns nothing
      local integer index
      local real    locX
      local real    locY
      local player  indexPlayer

      set index = 0
      loop
          set indexPlayer = Player(index)

          // If the player slot is being used, clear any nearby creeps.
          if (GetPlayerSlotState(indexPlayer) == PLAYER_SLOT_STATE_PLAYING) then
              set locX = GetStartLocationX(GetPlayerStartLocation(indexPlayer))
              set locY = GetStartLocationY(GetPlayerStartLocation(indexPlayer))

              call MeleeClearNearbyUnits(locX, locY, bj_MELEE_CLEAR_UNITS_RADIUS)
          endif

          set index = index + 1
          exitwhen index == bj_MAX_PLAYERS
      endloop
endfunction

function MeleeStartingUnits takes nothing returns nothing
      local integer  index
      local player   indexPlayer
      local location indexStartLoc
      local race     indexRace

      call Preloader( "scripts\\SharedMelee.pld" )

      set index = 0
      loop
          set indexPlayer = Player(index)
          if (GetPlayerSlotState(indexPlayer) == PLAYER_SLOT_STATE_PLAYING) then
              set indexStartLoc = GetStartLocationLoc(GetPlayerStartLocation(indexPlayer))
              set indexRace = GetPlayerRace(indexPlayer)

              // Create initial race-specific starting units
              if (indexRace == RACE_HUMAN) then
                  call MeleeStartingUnitsHuman(indexPlayer, indexStartLoc, true, true, true)
              elseif (indexRace == RACE_ORC) then
                  call MeleeStartingUnitsOrc(indexPlayer, indexStartLoc, true, true, true)
              elseif (indexRace == RACE_UNDEAD) then
                  call MeleeStartingUnitsUndead(indexPlayer, indexStartLoc, true, true, true)
              elseif (indexRace == RACE_NIGHTELF) then
                  call MeleeStartingUnitsNightElf(indexPlayer, indexStartLoc, true, true, true)
              else
                  call MeleeStartingUnitsUnknownRace(indexPlayer, indexStartLoc, true, true, true)
              endif
          endif

          set index = index + 1
          exitwhen index == bj_MAX_PLAYERS
      endloop
        
endfunction

function MeleeStartingAI takes nothing returns nothing
      local integer index
      local player  indexPlayer
      local race    indexRace

      set index = 0
      loop
          set indexPlayer = Player(index)
          if (GetPlayerSlotState(indexPlayer) == PLAYER_SLOT_STATE_PLAYING) then
              set indexRace = GetPlayerRace(indexPlayer)
              if (GetPlayerController(indexPlayer) == MAP_CONTROL_COMPUTER) then
                  // Run a race-specific melee AI script.
                  if (indexRace == RACE_HUMAN) then
                      call PickMeleeAI(indexPlayer, "human.ai", null, null)
                  elseif (indexRace == RACE_ORC) then
                      call PickMeleeAI(indexPlayer, "orc.ai", null, null)
                  elseif (indexRace == RACE_UNDEAD) then
                      call PickMeleeAI(indexPlayer, "undead.ai", null, null)
                      call RecycleGuardPosition(bj_ghoul[index])
                  elseif (indexRace == RACE_NIGHTELF) then
                      call PickMeleeAI(indexPlayer, "elf.ai", null, null)
                  else
                      // Unrecognized race.
                  endif
                  call ShareEverythingWithTeamAI(indexPlayer)
              endif
          endif

          set index = index + 1
          exitwhen index == bj_MAX_PLAYERS
      endloop
endfunction

function MeleeInitVictoryDefeat takes nothing returns nothing
      local trigger    trig
      local integer    index
      local player     indexPlayer

      // Create a timer window for the "finish soon" timeout period, it has no timer
      // because it is driven by real time (outside of the game state to avoid desyncs)
      set bj_finishSoonTimerDialog = CreateTimerDialog(null)

      // Set a trigger to fire when we receive a "finish soon" game event
      set trig = CreateTrigger()
      call TriggerRegisterGameEvent(trig, EVENT_GAME_TOURNAMENT_FINISH_SOON)
      call TriggerAddAction(trig, function MeleeTriggerTournamentFinishSoon)

      // Set a trigger to fire when we receive a "finish now" game event
      set trig = CreateTrigger()
      call TriggerRegisterGameEvent(trig, EVENT_GAME_TOURNAMENT_FINISH_NOW)
      call TriggerAddAction(trig, function MeleeTriggerTournamentFinishNow)

      // Set up each player's mortality code.
      set index = 0
      loop
          set indexPlayer = Player(index)

          // Make sure this player slot is playing.
          if (GetPlayerSlotState(indexPlayer) == PLAYER_SLOT_STATE_PLAYING) then
              set bj_meleeDefeated[index] = false
              set bj_meleeVictoried[index] = false

              // Create a timer and timer window in case the player is crippled.
              set bj_playerIsCrippled[index] = false
              set bj_playerIsExposed[index] = false
              set bj_crippledTimer[index] = CreateTimer()
              set bj_crippledTimerWindows[index] = CreateTimerDialog(bj_crippledTimer[index])
              call TimerDialogSetTitle(bj_crippledTimerWindows[index], MeleeGetCrippledTimerMessage(indexPlayer))

              // Set a trigger to fire whenever a building is cancelled for this player.
              set trig = CreateTrigger()
              call TriggerRegisterPlayerUnitEvent(trig, indexPlayer, EVENT_PLAYER_UNIT_CONSTRUCT_CANCEL, null)
              call TriggerAddAction(trig, function MeleeTriggerActionConstructCancel)

              // Set a trigger to fire whenever a unit dies for this player.
              set trig = CreateTrigger()
              call TriggerRegisterPlayerUnitEvent(trig, indexPlayer, EVENT_PLAYER_UNIT_DEATH, null)
              call TriggerAddAction(trig, function MeleeTriggerActionUnitDeath)

              // Set a trigger to fire whenever a unit begins construction for this player
              set trig = CreateTrigger()
              call TriggerRegisterPlayerUnitEvent(trig, indexPlayer, EVENT_PLAYER_UNIT_CONSTRUCT_START, null)
              call TriggerAddAction(trig, function MeleeTriggerActionUnitConstructionStart)

              // Set a trigger to fire whenever this player defeats-out
              set trig = CreateTrigger()
              call TriggerRegisterPlayerEvent(trig, indexPlayer, EVENT_PLAYER_DEFEAT)
              call TriggerAddAction(trig, function MeleeTriggerActionPlayerDefeated)

              // Set a trigger to fire whenever this player leaves
              set trig = CreateTrigger()
              call TriggerRegisterPlayerEvent(trig, indexPlayer, EVENT_PLAYER_LEAVE)
              call TriggerAddAction(trig, function MeleeTriggerActionPlayerLeft)

              // Set a trigger to fire whenever this player changes his/her alliances.
              set trig = CreateTrigger()
              call TriggerRegisterPlayerAllianceChange(trig, indexPlayer, ALLIANCE_PASSIVE)
              call TriggerRegisterPlayerStateEvent(trig, indexPlayer, PLAYER_STATE_ALLIED_VICTORY, EQUAL, 1)
              call TriggerAddAction(trig, function MeleeTriggerActionAllianceChange)
          else
              set bj_meleeDefeated[index] = true
              set bj_meleeVictoried[index] = false

              // Handle leave events for observers
              if (IsPlayerObserver(indexPlayer)) then
                  // Set a trigger to fire whenever this player leaves
                  set trig = CreateTrigger()
                  call TriggerRegisterPlayerEvent(trig, indexPlayer, EVENT_PLAYER_LEAVE)
                  call TriggerAddAction(trig, function MeleeTriggerActionPlayerLeft)
              endif
          endif

          set index = index + 1
          exitwhen index == bj_MAX_PLAYERS
      endloop

      // Test for victory / defeat at startup, in case the user has already won / lost.
      // Allow for a short time to pass first, so that the map can finish loading.
      call TimerStart(CreateTimer(), 2.0, false, function MeleeTriggerActionAllianceChange)
endfunction