Initial commit

DATA/SCRIPTS/AI/SPACEMODE/FIREDEATHSTAR.LUA

@@ -0,0 +1,67 @@
+--/////////////////////////////////////////////////////////////////////////////////////////////////
+--  (c) Galyana's Ultimate Empire at War Modifications
+--  
+--     ******    ***        *** ************           ***         ***
+--    *      *    *          *   *         *            *           *
+--   *        *   *          *   *                      *           *
+--  *         *   *          *   *                      *           *
+--  *             *          *   *    *         **** *  *           *
+--  *             *          *   ******        *    *   *           *
+--  *      ****   *          *   *    *       *     *   *    ***    *
+--  *         *   *          *   *           *      *   *     *     *
+--   *        *    *        *    *           *      *    *    *    *
+--    *      *      *      *     *         *  *    **     *   *   *
+--     ******        ******     ************   **** **     *******
+--/////////////////////////////////////////////////////////////////////////////////////////////////
+-- 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: GUEaW/Data/Scripts/AI/SpaceMode/FireDeathStar.LUA
+--
+-- Original Editor: Giovanni Galyana
+--
+--   Final Edit By: Giovanni Galyana
+--
+--            Date: 7 March, 2019
+--
+--       Revisions: 0
+--
+--/////////////////////////////////////////////////////////////////////////////////////////////////
+
+require("pgevents")
+
+function Definitions()
+	DebugMessage("%s -- In Definitions", tostring(Script))
+
+	Category = "Fire_Death_Star"
+	IgnoreTarget = true
+	TaskForce = 
+	{
+		{
+			"MainForce"
+			, "TaskForceRequired"
+		}
+	}
+	
+	DebugMessage("%s -- Done Definitions", tostring(Script))
+end
+
+function MainForce_Thread()
+	BlockOnCommand(MainForce.Produce_Force())
+
+	ds = Find_First_Object("Death_Star_II")
+	while not TestValid(ds) do
+		-- Death star isn't present, hang this plan indefinately
+		Sleep(100)
+	end
+
+	repeat
+		Sleep(1)
+	until ds.Is_Tactical_Superweapon_Ready() and (Evaluate_In_Galactic_Context("Want_To_Fire_DS", PlayerObject) ~= 0)
+
+	ds.Fire_Tactical_Superweapon()
+
+	Sleep(30)
+
+	ScriptExit()
+end