135 lines
5.4 KiB
Lua
135 lines
5.4 KiB
Lua
-- $Id: //depot/Projects/StarWars_Steam/FOC/Run/Data/Scripts/GameObject/JGS_FunctionLib.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/GameObject/JGS_FunctionLib.lua $
|
|
--
|
|
-- Original Author: Jeff_Stewart
|
|
--
|
|
-- $Author: Brian_Hayes $
|
|
--
|
|
-- $Change: 637819 $
|
|
--
|
|
-- $DateTime: 2017/03/22 10:16:16 $
|
|
--
|
|
-- $Revision: #1 $
|
|
--
|
|
--/////////////////////////////////////////////////////////////////////////////////////////////////
|
|
|
|
|
|
-- this function is used to send units on a neverending hunt for underworld units
|
|
-- Usage: Create_Thread("Hunt_Underworld",attack_list)
|
|
-- where attack_list is a list of units to send on the hunt. for a single unit, use:
|
|
-- Usage: Create_Thread("Hunt_Underworld",{single_unit})
|
|
function Hunt_Underworld(attack_list)
|
|
local enemy_player = Find_Player("Underworld")
|
|
while true do
|
|
if not VictoryStarted and not DefeatStarted then
|
|
for k, unit in pairs(attack_list) do
|
|
if TestValid(unit) then
|
|
if not unit.Get_Owner().Is_Human() then
|
|
local closest_enemy = Find_Nearest(unit, enemy_player, true)
|
|
if TestValid(closest_enemy) then
|
|
unit.Attack_Move(closest_enemy)
|
|
end
|
|
end
|
|
end
|
|
end
|
|
end
|
|
Sleep(4)
|
|
end
|
|
end
|
|
|
|
function Set_Hint_At_Object(locobj)
|
|
--locobj.Play_SFX_Event("SFX_UMP_EmpireKesselAlarm")
|
|
locobj.Highlight(true)
|
|
Add_Radar_Blip(locobj, "somename")
|
|
end
|
|
|
|
function Remove_Hint_At_Object(objloc)
|
|
objloc.Highlight(false)
|
|
Remove_Radar_Blip("somename")
|
|
end
|
|
|
|
-- The following function is a waypoint patrol should be used like so:
|
|
-- Create_Thread("Rebel_Patrol_Points", hint)
|
|
-- hint is the name shared by the objects that follow the patrol path, as well as the patrol paths themselves
|
|
-- all patrol points (ex JGS_PATHPOINT_1) must be present and named properly for the script to work
|
|
-- it is extremely limited to only nine waypoints, but does allow for multiple patrols to be going on at once
|
|
function Rebels_Patrol_Points(hint)
|
|
underworld_player = Find_Player("Underworld")
|
|
rebel_player = Find_Player("Rebel")
|
|
local pursuing_target = false
|
|
local unitlist = Find_All_Objects_With_Hint(tostring(hint))
|
|
one = Find_Hint("JGS_PATHPOINT_1", tostring(hint))
|
|
two = Find_Hint("JGS_PATHPOINT_2", tostring(hint))
|
|
three = Find_Hint("JGS_PATHPOINT_3", tostring(hint))
|
|
four = Find_Hint("JGS_PATHPOINT_4", tostring(hint))
|
|
five = Find_Hint("JGS_PATHPOINT_5", tostring(hint))
|
|
six = Find_Hint("JGS_PATHPOINT_6", tostring(hint))
|
|
seven = Find_Hint("JGS_PATHPOINT_7", tostring(hint))
|
|
eight = Find_Hint("JGS_PATHPOINT_8", tostring(hint))
|
|
nine = Find_Hint("JGS_PATHPOINT_9", tostring(hint))
|
|
local pathlist = { one, two, three, four, five, six, seven, eight, nine }
|
|
local pathtarget = 1
|
|
local incremented = false
|
|
while not pursuing_target do
|
|
if not VictoryStarted and not DefeatStarted then
|
|
pathpoint = nil
|
|
while not TestValid(pathpoint) do
|
|
if pathtarget > 9 then
|
|
pathtarget = 1
|
|
end
|
|
pathpoint = pathlist[pathtarget]
|
|
if not TestValid(pathpoint) then
|
|
pathtarget = pathtarget + 1
|
|
end
|
|
end
|
|
incremented = false
|
|
for k, unit in pairs(unitlist) do
|
|
if TestValid(unit) and unit.Get_Owner() == rebel_player then
|
|
unit.Attack_Move(pathpoint.Get_Position())
|
|
--MessageBox("%s", tostring(pathpoint.Get_Type().Get_Name()))
|
|
--MessageBox("%s testing...", tostring(unit.Get_Type().Get_Name()))
|
|
if unitlist[k].Get_Distance(pathpoint) < 150 then
|
|
if not incremented then
|
|
pathtarget = pathtarget + 1
|
|
incremented = true
|
|
--MessageBox("%s new point", tostring(hint))
|
|
end
|
|
end
|
|
closest_enemy = Find_Nearest(unitlist[k], underworld_player, true)
|
|
if unitlist[k].Get_Distance(closest_enemy) < 100 then
|
|
--pursuing_target = true
|
|
end
|
|
end
|
|
end
|
|
end
|
|
Sleep(2)
|
|
end
|
|
--Create_Thread("Hunt_Underworld",unitlist)
|
|
end
|