Files
SoaFE/DATA/SCRIPTS/AI/PATHBONUSFORDISTANTTARGETS.LUA
2026-02-28 14:00:45 -06:00

94 lines
3.2 KiB
Lua

-- $Id: //depot/Projects/StarWars_Steam/FOC/Run/Data/Scripts/AI/PathBonusForDistantTargets.lua#1 $
--/////////////////////////////////////////////////////////////////////////////////////////////////
--
-- (C) Petroglyph Games, Inc.
--
--
-- ***** ** * *
-- * ** * * *
-- * * * * *
-- * * * * * * * *
-- * * *** ****** * ** **** *** * * * ***** * ***
-- * ** * * * ** * ** ** * * * * ** ** ** *
-- *** ***** * * * * * * * * ** * * * *
-- * * * * * * * * * * * * * * *
-- * * * * * * * * * * ** * * * *
-- * ** * * ** * ** * * ** * * * *
-- ** **** ** * **** ***** * ** *** * *
-- * * *
-- * * *
-- * * *
-- * * * *
-- **** * *
--
--/////////////////////////////////////////////////////////////////////////////////////////////////
-- C O N F I D E N T I A L S O U R C E C O D E -- D O N O T D I S T R I B U T E
--/////////////////////////////////////////////////////////////////////////////////////////////////
--
-- $File: //depot/Projects/StarWars_Steam/FOC/Run/Data/Scripts/AI/PathBonusForDistantTargets.lua $
--
-- Original Author: Steve_Copeland
--
-- $Author: Brian_Hayes $
--
-- $Change: 637819 $
--
-- $DateTime: 2017/03/22 10:16:16 $
--
-- $Revision: #1 $
--
--/////////////////////////////////////////////////////////////////////////////////////////////////
require("pgevents")
-- Tell the script pooling system to pre-cache this number of scripts.
ScriptPoolCount = 1
--
--
--
function Definitions()
DebugMessage("%s -- In Definitions", tostring(Script))
Category = "Distant_System_Path_Bonus"
IgnoreTarget = true
TaskForce =
{
{
"EmptyForce"
, "TaskForceRequired"
}
}
DebugMessage("%s -- Done Definitions", tostring(Script))
planet_list = nil
markup_table = {}
end
function EmptyForce_Thread()
EmptyForce.Set_As_Goal_System_Removable(false)
planet_list = FindPlanet.Get_All_Planets()
while true do
for i,planet in pairs(planet_list) do
if TestValid(planet) then
path_start = _FindStageArea(PlayerObject, planet, EmptyForce)
if path_start then
path = Find_Path(PlayerObject, path_start, planet)
value = (EvaluatePerception("GenericPlanetValue", PlayerObject, planet)
+ EvaluatePerception("Is_Neglected_By_My_Opponent_Space", PlayerObject, planet)) / 2
markup_table[planet] = Apply_Markup(PlayerObject, path, value, markup_table[planet])
end
else
planet_list[i] = nil
end
Sleep(1)
end
end
end