Renegade/Code/Scripts/Toolkit.cpp

/*
**	Command & Conquer Renegade(tm)
**	Copyright 2025 Electronic Arts Inc.
**
**	This program is free software: you can redistribute it and/or modify
**	it under the terms of the GNU General Public License as published by
**	the Free Software Foundation, either version 3 of the License, or
**	(at your option) any later version.
**
**	This program is distributed in the hope that it will be useful,
**	but WITHOUT ANY WARRANTY; without even the implied warranty of
**	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
**	GNU General Public License for more details.
**
**	You should have received a copy of the GNU General Public License
**	along with this program.  If not, see <http://www.gnu.org/licenses/>.
*/

/******************************************************************************
*
* FILE
*     Toolkit.cpp
*
* DESCRIPTION
*     Designer Toolkit for Mission Construction - Debug and Notation Subset
*
* PROGRAMMER
*     Design Team
*
* VERSION INFO
*     $Author: Dan_e $
*     $Revision: 185 $
*     $Modtime: 3/15/02 12:53p $
*     $Archive: /Commando/Code/Scripts/Toolkit.cpp $
*
******************************************************************************/

#include "toolkit.h"
#include "mission1.h"

/* GENERAL TOOLKIT INFORMATION

  1. All toolkit systems are listed in categories of system type: Actions, Explosions, etc.
  2. All toolkit systems are sub-categorized in the order of functions, then interfaces.
  3. The following Parameter Standardization is used for all scripts, and is not repeated.
  Each script has the appropriate parameters from this list, always in this order:

  SCRIPT PARAMETER	DESCRIPTION									SCRIPT TYPES

  Start_Now			Set this to 1 to activate upon creation.	Triggers and Controllers
  Receive_Type		Custom expected for activation/deactivation	Triggers and Controllers
  Receive_Param_On	Custom Parameter to activate this script	Triggers and Controllers
  Receive_Param_Off	Custom Parameter to deactivate this script	Triggers and Controllers

  Target_ID			The ID of the object to receive a custom.	Triggers Only
  Send_Type			The Custom Type to send to the object.		Triggers Only
  Send_Param		The Custom Paramter to send to the object.	Triggers Only
  Min_Delay			The minimum wait time for the custom.		Triggers Only
  Max_Delay			The maximum wait time for the custom.		Triggers Only

  Action_Priority	Priority level of the action applied.		Action Controllers Only
  Action_ID			The ID of the action applied.				Action Controllers Only

  (varies)			Various required parameters for the script	Triggers and Controllers

  Debug_Mode		Set this to 1 for debug information.		Triggers and Controllers
*/

/******************************************************************************
*
*	Toolkit Script Debuggers
*
******************************************************************************/

DECLARE_SCRIPT(M00_Debug_Text_File_RMV, "Description=Object:string, Filename=DebugLog.txt:string")
{
	const char *filename, *desc;
	FILE *file;
	time_t start_time, current_time;

	char* Reason_Lookup(ActionCompleteReason reason)
	{
		char* reasons[] = {
			"ACTION_COMPLETE_NORMAL",
			"ACTION_COMPLETE_LOW_PRIORITY",
			"ACTION_COMPLETE_PATH_BAD_START",
			"ACTION_COMPLETE_PATH_BAD_DEST",
			"ACTION_COMPLETE_MOVE_NO_PROGRESS_MADE",
			"ACTION_COMPLETE_ATTACK_OUT_OF_RANGE"
		};
		return reasons[(int)reason];
	}

	void Created(GameObject * obj)
	{
		current_time = time(NULL);
		desc = Get_Parameter("Description");
		filename = Get_Parameter("Filename");
		file = fopen(filename, "wt");
		
		fprintf(file, "%s [ID %d] created.\n", desc, Commands->Get_ID(obj));
	}

	void Custom(GameObject * obj, int type, int param, GameObject * sender)
	{
		current_time = time(NULL);
		fprintf(file, "%s [ID %d] received custom event of type %d and param %d.  Sender was object %d.   %3.1f sec.\n", desc, Commands->Get_ID(obj), type, param, Commands->Get_ID(sender), difftime(current_time, start_time));
	}

	void Damaged(GameObject * obj, GameObject * damager, float amount)
	{
		current_time = time(NULL);
		fprintf(file, "%s [ID %d] damaged by object %d.   %3.1f sec.\n", desc, Commands->Get_ID(obj), Commands->Get_ID(damager), difftime(current_time, start_time));
	}

	void Sound_Heard( GameObject * obj, const CombatSound & sound )
	{
	//	fprintf(file, "%s [ID %d] heard a sound.   %3.1f sec.\n", desc, Commands->Get_ID(obj), current_time);
	}
	
	void Enemy_Seen( GameObject * obj, GameObject * enemy)
	{
		current_time = time(NULL);
		fprintf(file, "%s [ID %d] saw enemy: object %d.   %3.1f sec.\n", desc, Commands->Get_ID(obj), Commands->Get_ID(enemy), difftime(current_time, start_time));
	}

	void Action_Complete(GameObject * obj, int action_id, ActionCompleteReason reason)
	{
		current_time = time(NULL);
		fprintf(file, "Action %d complete on %s [ID %d] -- Reason: %s.   %3.1f sec.\n", action_id, desc, Commands->Get_ID(obj), Reason_Lookup(reason), difftime(current_time, start_time));
	}

	void Killed(GameObject * obj, GameObject * killer)
	{
		current_time = time(NULL);
		fprintf(file, "%s [ID %d] killed by object %d.   %3.1f sec.\n", desc, Commands->Get_ID(obj), Commands->Get_ID(killer), difftime(current_time, start_time));
	}

	void Destroyed(GameObject * obj)
	{
		fclose(file);
	}
};

/******************************************************************************
*
*	Other Scripts
*
******************************************************************************/

#if 0

DECLARE_SCRIPT(M00_Activate_Weapon_At_Object_On_Frame_RMV, "Frame:int, Primary_Weapon=1:int, Duration:float, Target_ID:int, Start_Timer_ID:int, Stop_Timer_ID")
{
	float frame;
	bool primary;
	float duration;
	int start_id;
	int stop_id;
	int target_id;
	GameObject *target;

	void Created(GameObject * obj)
	{
		frame = (float)Get_Int_Parameter("Frame");
		primary = (Get_Int_Parameter("Primary_Weapon") == 1) ? true : false;
		duration = Get_Float_Parameter("Duration");
		start_id = Get_Int_Parameter("Start_Timer_ID");
		stop_id = Get_Int_Parameter("Stop_Timer_ID");
		target_id = Get_Int_Parameter("Target_ID");
		target = Commands->Get_A_Star(Vector3(0.0f,0.0f,0.0f));
		if (target_id > 0)
			target = Commands->Find_Object(target_id);
		Commands->Start_Timer(obj, this, frame/30, start_id);
	}

	void Timer_Expired(GameObject * obj, int timer_id)
	{
		if (timer_id == start_id)
		{
			Vector3 position = Commands->Get_Position(target);
			Commands->Trigger_Weapon(obj, true, position, primary);
			Commands->Start_Timer(obj, this, duration, stop_id);
		}
		if (timer_id == stop_id)
		{
			Vector3 position = Commands->Get_Position(target);
			Commands->Trigger_Weapon(obj, false, position, primary);
		}
	}
};

DECLARE_SCRIPT(M00_Activate_Weapon_At_Object_On_Timer_RMV, "Delay:float, Primary_Weapon=1:int, Duration:float, Target_ID:int, Start_Timer_ID:int, Stop_Timer_ID:int")
{
	float time;
	bool primary;
	float duration;
	int start_id;
	int stop_id;
	int target_id;
	GameObject *target;
	
	void Created(GameObject * obj)
	{
		time = Get_Float_Parameter("Delay");
		primary = (Get_Int_Parameter("Primary_Weapon") == 1) ? true : false;
		duration = Get_Float_Parameter("Duration");
		start_id = Get_Int_Parameter("Start_Timer_ID");
		stop_id = Get_Int_Parameter("Stop_Timer_ID");
		target_id = Get_Int_Parameter("Target_ID");
		target = Commands->Get_A_Star(Vector3(0.0f,0.0f,0.0f));
		if (target_id > 0)
			target = Commands->Find_Object(target_id);
		Commands->Start_Timer(obj, this, time, start_id);
	}

	void Timer_Expired(GameObject * obj, int timer_id)
	{
		if (timer_id == start_id)
		{
			Vector3 position = Commands->Get_Position(target);
			Commands->Trigger_Weapon(obj, true, position, primary);
			Commands->Start_Timer(obj, this, duration, stop_id);
		}
		if (timer_id == stop_id)
		{
			Vector3 position = Commands->Get_Position(target);
			Commands->Trigger_Weapon(obj, false, position, primary);
		}
	}
};

DECLARE_SCRIPT(M00_Activate_Weapon_At_Location_On_Frame_RMV, "Frame:int, Primary_Weapon=1:int, Duration:float, Target:vector3, Start_Timer_ID:int, Stop_Timer_ID")
{
	float frame;
	bool primary;
	float duration;
	int start_id;
	int stop_id;
	Vector3 target;
	
	void Created(GameObject * obj)
	{
		frame = (float)Get_Int_Parameter("Frame");
		primary = (Get_Int_Parameter("Primary_Weapon") == 1) ? true : false;
		duration = Get_Float_Parameter("Duration");
		start_id = Get_Int_Parameter("Start_Timer_ID");
		stop_id = Get_Int_Parameter("Stop_Timer_ID");
		target = Get_Vector3_Parameter("Target");
		Commands->Start_Timer(obj, this, frame/30, start_id);
	}

	void Timer_Expired(GameObject * obj, int timer_id)
	{
		if (timer_id == start_id)
		{
			Commands->Trigger_Weapon(obj, true, target, primary);
			Commands->Start_Timer(obj, this, duration, stop_id);
		}
		if (timer_id == stop_id)
		{
			Commands->Trigger_Weapon(obj, false, target, primary);
		}
	}
};

DECLARE_SCRIPT(M00_Activate_Weapon_At_Location_On_Timer_RMV, "Delay:float, Primary_Weapon=1:int, Duration:float, Target:vector3, Start_Timer_ID:int, Stop_Timer_ID:int")
{
	float time;
	bool primary;
	float duration;
	int start_id;
	int stop_id;
	Vector3 target;
	
	void Created(GameObject * obj)
	{
		time = Get_Float_Parameter("Delay");
		primary = (Get_Int_Parameter("Primary_Weapon") == 1) ? true : false;
		duration = Get_Float_Parameter("Duration");
		start_id = Get_Int_Parameter("Start_Timer_ID");
		stop_id = Get_Int_Parameter("Stop_Timer_ID");
		target = Get_Vector3_Parameter("Target");
		Commands->Start_Timer(obj, this, time, start_id);
	}

	void Timer_Expired(GameObject * obj, int timer_id)
	{
		if (timer_id == start_id)
		{
			Commands->Trigger_Weapon(obj, true, target, primary);
			Commands->Start_Timer(obj, this, duration, stop_id);
		}
		if (timer_id == stop_id)
		{
			Commands->Trigger_Weapon(obj, false, target, primary);
		}
	}
};

#endif

DECLARE_SCRIPT(M00_Disable_Physical_Collision_JDG, "")
{
	void Created( GameObject * obj ) 
	{
		Commands->Disable_Physical_Collisions ( obj );
	}
};

DECLARE_SCRIPT(M00_Enable_Physical_Collision_JDG, "")
{
	void Created( GameObject * obj ) 
	{
		Commands->Enable_Collisions ( obj );
	}
};

DECLARE_SCRIPT(M00_C130_Explosion, "")
{
	void Killed(GameObject * obj, GameObject * killer)
	{
		Commands->Create_Explosion_At_Bone("Explosion_Cargo_Plane", obj, "BODYMAIN");
		//JDG updated this script due to explosion preset name change--07/27/2001
	}
};

DECLARE_SCRIPT(M00_Monitor_Attached_Primary, "")
{

	bool object_detached;
	int attached_object_id;

	enum{OBJECT_DETACHED};

	// Register variables to be Auto-Saved
	// All variables must have a unique ID, less than 256, that never changes
	REGISTER_VARIABLES()
	{
		SAVE_VARIABLE( object_detached, 1 );
		
	}

	void Created (GameObject * obj)
	{
		object_detached = false;
		attached_object_id = 0;
	}

	void Custom (GameObject * obj, int type, int param, GameObject * sender)
	{
		ActionParamsStruct params;
		if(type == M00_CUSTOM_OBJECT_ATTACHED_PRIMARY)
		{
			attached_object_id = Commands->Get_ID(sender);
			Commands->Start_Timer (obj, this, param / 30.0f, OBJECT_DETACHED);
		}
		
	}

	void Timer_Expired(GameObject * obj, int timer_id)
	{
		if (timer_id == OBJECT_DETACHED)
		{
			object_detached = true;
		}
		
	}

	void Killed (GameObject * obj, GameObject * killer)
	{
		if(!object_detached)
		{
			Commands->Apply_Damage( Commands->Find_Object(attached_object_id), 10000.0f, "DEATH");
		}
	}
	
};

/***********************************************************************************************************
The two following scripts are a controller and a script for a gerneric barrel explosion chain rection.
You only need to place the controller in your level and enter the Vector3's and barrel types as editor parameters
See Joe G for further details
****************************************************************************************************************/

DECLARE_SCRIPT(M00_5MetalBarrels_ChainRxn_Controller_JDG, "Barrel01_Location:vector3, Barrel01_Type (1-8):int, Barrel01_Facing = 0:float, Barrel02_Location:vector3, Barrel02_Type (1-8):int, Barrel02_Facing = 0:float, Barrel03_Location:vector3, Barrel03_Type (1-8):int, Barrel03_Facing = 0:float, Barrel04_Location:vector3, Barrel04_Type (1-8):int, Barrel04_Facing = 0:float, Barrel05_Location:vector3, Barrel05_Type (1-8):int, Barrel05_Facing = 0:float")
{
	Vector3 barrel_01_location;
	Vector3 barrel_02_location;
	Vector3 barrel_03_location;
	Vector3 barrel_04_location;
	Vector3 barrel_05_location;

	int barrel_01_type;
	int barrel_02_type;
	int barrel_03_type;
	int barrel_04_type;
	int barrel_05_type;

	int barrel_01_id;
	int barrel_02_id;
	int barrel_03_id;
	int barrel_04_id;
	int barrel_05_id;

	float barrel_01_facing;
	float barrel_02_facing;
	float barrel_03_facing;
	float barrel_04_facing;
	float barrel_05_facing;

	REGISTER_VARIABLES()
	{
		SAVE_VARIABLE(barrel_01_location, 1);
		SAVE_VARIABLE(barrel_02_location, 2);
		SAVE_VARIABLE(barrel_03_location, 3);
		SAVE_VARIABLE(barrel_04_location, 4);
		SAVE_VARIABLE(barrel_05_location, 5);
		SAVE_VARIABLE(barrel_01_type, 6);
		SAVE_VARIABLE(barrel_02_type, 7);
		SAVE_VARIABLE(barrel_03_type, 8);
		SAVE_VARIABLE(barrel_04_type, 9);
		SAVE_VARIABLE(barrel_05_type, 10);
		SAVE_VARIABLE(barrel_01_id, 11);
		SAVE_VARIABLE(barrel_02_id, 12);
		SAVE_VARIABLE(barrel_03_id, 13);
		SAVE_VARIABLE(barrel_04_id, 14);
		SAVE_VARIABLE(barrel_05_id, 15);
		SAVE_VARIABLE(barrel_01_facing, 16);
		SAVE_VARIABLE(barrel_02_facing, 17);
		SAVE_VARIABLE(barrel_03_facing, 18);
		SAVE_VARIABLE(barrel_04_facing, 19);
		SAVE_VARIABLE(barrel_05_facing, 20);
	}

	void Created( GameObject * obj ) 
	{
		barrel_01_location = Get_Vector3_Parameter("Barrel01_Location");
		barrel_02_location = Get_Vector3_Parameter("Barrel02_Location");
		barrel_03_location = Get_Vector3_Parameter("Barrel03_Location");
		barrel_04_location = Get_Vector3_Parameter("Barrel04_Location");
		barrel_05_location = Get_Vector3_Parameter("Barrel05_Location");
		barrel_01_type = Get_Int_Parameter("Barrel01_Type (1-8)");
		barrel_01_type -= 1;
		barrel_02_type = Get_Int_Parameter("Barrel02_Type (1-8)");
		barrel_02_type -= 1;
		barrel_03_type = Get_Int_Parameter("Barrel03_Type (1-8)");
		barrel_03_type -= 1;
		barrel_04_type = Get_Int_Parameter("Barrel04_Type (1-8)");
		barrel_04_type -= 1;
		barrel_05_type = Get_Int_Parameter("Barrel05_Type (1-8)");
		barrel_05_type -= 1;
		barrel_01_facing = Get_Float_Parameter("Barrel01_Facing");
		barrel_02_facing = Get_Float_Parameter("Barrel02_Facing");
		barrel_03_facing = Get_Float_Parameter("Barrel03_Facing");
		barrel_04_facing = Get_Float_Parameter("Barrel04_Facing");
		barrel_05_facing = Get_Float_Parameter("Barrel05_Facing");

		char *simple_barrels[8] = 
		{
			"Simple_MetalDrum_01",
			"Simple_MetalDrum_02",
			"Simple_MetalDrum_03",
			"Simple_MetalDrum_04",
			"Simple_MetalDrum_05",
			"Simple_MetalDrum_06",
			"Simple_MetalDrum_07",
			"Simple_MetalDrum_08",
		};

		char *barrels_animations[8] = 
		{
			"DSP_METDRUM01.DSP_METDRUM01",
			"DSP_METDRUM02.DSP_METDRUM02",
			"DSP_METDRUM03.DSP_METDRUM03",
			"DSP_METDRUM04.DSP_METDRUM04",
			"DSP_METDRUM05.DSP_METDRUM05",
			"DSP_METDRUM06.DSP_METDRUM06",
			"DSP_METDRUM07.DSP_METDRUM07",
			"DSP_METDRUM08.DSP_METDRUM08",
		};

		int controller_id = Commands->Get_ID ( obj );
		char controller[16];
		sprintf (controller, "%d", controller_id);

		GameObject * barrel_01 = Commands->Create_Object ( simple_barrels[barrel_01_type], barrel_01_location );
		Commands->Set_Animation_Frame ( barrel_01, barrels_animations[barrel_01_type], 0 );
		barrel_01_id = Commands->Get_ID ( barrel_01 );
		Commands->Set_Facing ( barrel_01, barrel_01_facing );
		Commands->Attach_Script(barrel_01, "M00_ChainRxn_Barrel_JDG", controller);

		GameObject * barrel_02 = Commands->Create_Object ( simple_barrels[barrel_02_type], barrel_02_location );
		Commands->Set_Animation_Frame ( barrel_02, barrels_animations[barrel_02_type ], 0 );
		barrel_02_id = Commands->Get_ID ( barrel_02 );
		Commands->Set_Facing ( barrel_02, barrel_02_facing );
		Commands->Attach_Script(barrel_02, "M00_ChainRxn_Barrel_JDG", controller);

		GameObject * barrel_03 = Commands->Create_Object ( simple_barrels[barrel_03_type], barrel_03_location );
		Commands->Set_Animation_Frame ( barrel_03, barrels_animations[barrel_03_type], 0 );
		barrel_03_id = Commands->Get_ID ( barrel_03 );
		Commands->Set_Facing ( barrel_03, barrel_03_facing );
		Commands->Attach_Script(barrel_03, "M00_ChainRxn_Barrel_JDG", controller);

		GameObject * barrel_04 = Commands->Create_Object ( simple_barrels[barrel_04_type], barrel_04_location );
		Commands->Set_Animation_Frame ( barrel_04, barrels_animations[barrel_04_type], 0 );
		barrel_04_id = Commands->Get_ID ( barrel_04 );
		Commands->Set_Facing ( barrel_04, barrel_04_facing );
		Commands->Attach_Script(barrel_04, "M00_ChainRxn_Barrel_JDG", controller);

		GameObject * barrel_05 = Commands->Create_Object ( simple_barrels[barrel_05_type], barrel_05_location );
		Commands->Set_Animation_Frame ( barrel_05, barrels_animations[barrel_05_type], 0 );
		barrel_05_id = Commands->Get_ID ( barrel_05 );
		Commands->Set_Facing ( barrel_05, barrel_05_facing );
		Commands->Attach_Script(barrel_05, "M00_ChainRxn_Barrel_JDG", controller);
	}

	void Custom( GameObject * obj, int type, int param, GameObject * sender ) 
	{
		if (type == 0)
		{
			if (param == M01_IVE_BEEN_KILLED_JDG)
			{
				GameObject * barrel_01 = Commands->Find_Object ( barrel_01_id );
				GameObject * barrel_02 = Commands->Find_Object ( barrel_02_id );
				GameObject * barrel_03 = Commands->Find_Object ( barrel_03_id );
				GameObject * barrel_04 = Commands->Find_Object ( barrel_04_id );
				GameObject * barrel_05 = Commands->Find_Object ( barrel_05_id );

				if (sender == barrel_01)//barrel 01 has been destroyed--tell #2 to self destruct
				{
					Commands->Send_Custom_Event ( obj, barrel_01, barrel_01_type, M01_MODIFY_YOUR_ACTION_JDG, 0 );

					if (barrel_02 != NULL)
					{
						float delayTimer = Commands->Get_Random ( 0.25f, 0.5f );
						Commands->Send_Custom_Event ( obj, barrel_02, barrel_02_type, M01_MODIFY_YOUR_ACTION_JDG, delayTimer );
					}
				}

				else if (sender == barrel_02)//barrel 02 has been destroyed--tell #1 and #3 to self destruct
				{
					Commands->Send_Custom_Event ( obj, barrel_02, barrel_02_type, M01_MODIFY_YOUR_ACTION_JDG, 0 );

					if (barrel_01 != NULL)
					{
						float delayTimer = Commands->Get_Random ( 0.25f, 0.5f );
						Commands->Send_Custom_Event ( obj, barrel_01, barrel_01_type, M01_MODIFY_YOUR_ACTION_JDG, delayTimer );
					}

					if (barrel_03 != NULL)
					{
						float delayTimer = Commands->Get_Random ( 0.25f, 0.5f );
						Commands->Send_Custom_Event ( obj, barrel_03, barrel_03_type, M01_MODIFY_YOUR_ACTION_JDG, delayTimer );
					}
				}

				else if (sender == barrel_03)//barrel 03 has been destroyed--tell #2 and #4 to self destruct
				{
					Commands->Send_Custom_Event ( obj, barrel_03, barrel_03_type, M01_MODIFY_YOUR_ACTION_JDG, 0 );

					if (barrel_02 != NULL)
					{
						float delayTimer = Commands->Get_Random ( 0.25f, 0.5f );
						Commands->Send_Custom_Event ( obj, barrel_02, barrel_02_type, M01_MODIFY_YOUR_ACTION_JDG, delayTimer );
					}

					if (barrel_04 != NULL)
					{
						float delayTimer = Commands->Get_Random ( 0.25f, 0.5f );
						Commands->Send_Custom_Event ( obj, barrel_04, barrel_04_type, M01_MODIFY_YOUR_ACTION_JDG, delayTimer );
					}
				}

				else if (sender == barrel_04)//barrel 04 has been destroyed--tell #3 and #5 to self destruct
				{
					Commands->Send_Custom_Event ( obj, barrel_04, barrel_04_type, M01_MODIFY_YOUR_ACTION_JDG, 0 );

					if (barrel_03 != NULL)
					{
						float delayTimer = Commands->Get_Random ( 0.25f, 0.5f );
						Commands->Send_Custom_Event ( obj, barrel_03, barrel_03_type, M01_MODIFY_YOUR_ACTION_JDG, delayTimer );
					}

					if (barrel_05 != NULL)
					{
						float delayTimer = Commands->Get_Random ( 0.25f, 0.5f );
						Commands->Send_Custom_Event ( obj, barrel_05, barrel_05_type, M01_MODIFY_YOUR_ACTION_JDG, delayTimer );
					}
				}

				else if (sender == barrel_05)//barrel 05 has been destroyed--tell #4 to self destruct
				{
					Commands->Send_Custom_Event ( obj, barrel_05, barrel_05_type, M01_MODIFY_YOUR_ACTION_JDG, 0 );

					if (barrel_04 != NULL)
					{
						float delayTimer = Commands->Get_Random ( 0.25f, 0.5f );
						Commands->Send_Custom_Event ( obj, barrel_04, barrel_04_type, M01_MODIFY_YOUR_ACTION_JDG, delayTimer );
					}
				}
			}
		}
	}
};

DECLARE_SCRIPT(M00_ChainRxn_Barrel_JDG, "Controller_ID :int")
{
	int controller_id;
	bool deadYet;

	REGISTER_VARIABLES()
	{
		SAVE_VARIABLE(controller_id, 1);
		SAVE_VARIABLE(deadYet, 2);
	}

	void Created( GameObject * obj ) 
	{
		deadYet = false;
		controller_id = Get_Int_Parameter("Controller_ID");
	}

	void Damaged( GameObject * obj, GameObject * damager, float amount ) 
	{
		if (obj && deadYet == false && damager == STAR)
		{
			Commands->Set_Health ( obj, 0.25f );

			GameObject * controller = Commands->Find_Object ( controller_id );
			if (controller != NULL)
			{
				Commands->Send_Custom_Event ( obj, controller, 0, M01_IVE_BEEN_KILLED_JDG, 0 );
			}
		}

		else
		{
			Commands->Set_Health ( obj, 0.25f );
		}
	}

	void Custom( GameObject * obj, int type, int param, GameObject * sender ) 
	{
		if (param == M01_MODIFY_YOUR_ACTION_JDG && deadYet == false)//you've been ordered to blow up--DO IT!
		{
			deadYet = true;
			int number = type;
			Vector3 myPosition = Commands->Get_Position ( obj );
			Commands->Create_Explosion ( "Explosion_Mine_Remote_01", myPosition, NULL );

			char *barrels_animations[8] = 
			{
				"DSP_METDRUM01.DSP_METDRUM01",//there's no #1 yet
				"DSP_METDRUM02.DSP_METDRUM02",
				"DSP_METDRUM03.DSP_METDRUM03",
				"DSP_METDRUM04.DSP_METDRUM04",
				"DSP_METDRUM05.DSP_METDRUM05",
				"DSP_METDRUM06.DSP_METDRUM06",//there's no #6 yet
				"DSP_METDRUM07.DSP_METDRUM07",
				"DSP_METDRUM08.DSP_METDRUM08",
			};

			int barrels_endframe[8] = 
			{
				28,//1
				15,//2
				20,//3
				8,//4
				8,//5
				27,//6
				8,//7
				8,//8
			};

			Commands->Set_Animation ( obj, barrels_animations[number], false, NULL, 0, barrels_endframe[number] );
			Commands->Set_Health ( obj, 0.25f );

			GameObject * controller = Commands->Find_Object ( controller_id );
			if (controller != NULL)
			{
				Commands->Send_Custom_Event ( obj, controller, 0, M01_IVE_BEEN_KILLED_JDG, 0 );
			}
		}
	}
};


/* M00_Advanced_Guard_Tower

  This script handles the functionality of the Advanced Guard Tower in both single and multiplayer
  environments. Attach this script to the AGT Building Controller, and center the building
  controller directly on the top of the tower roof.

  When created this script:
  - Creates four guard tower machine guns at the corners of the building
  - Attaches another script to the machine guns to allow them enemy_seen capability.
  - Creates a missile object at the top of the building.
  - Attaches another script to the missile object to allow it to respond to the guns.

  - The guns use enemy_seen to spot, and inform the missile when it is time to fire.

*/

DECLARE_SCRIPT (M00_Advanced_Guard_Tower, "")
{
	int missile_id;
	int gun_01_id;
	int gun_02_id;
	int gun_03_id;
	int gun_04_id;
	bool can_fire;

	//Adding unneeded save/load variables just to be safe -- 2/12/2002 JDG.
	REGISTER_VARIABLES()
	{
		SAVE_VARIABLE(missile_id, 1);
		SAVE_VARIABLE(gun_01_id, 2);
		SAVE_VARIABLE(gun_02_id, 3);
		SAVE_VARIABLE(gun_03_id, 4);
		SAVE_VARIABLE(gun_04_id, 5);
		SAVE_VARIABLE(can_fire, 6);
	}

	void Created (GameObject* obj)
	{
		can_fire = true;
		Commands->Enable_Hibernation (obj, false);
		missile_id = 0;
		gun_01_id = 0;
		gun_02_id = 0;
		gun_03_id = 0;
		gun_04_id = 0;

		// Create the four guns associated with this object.

		Vector3 my_location = Commands->Get_Position (obj);
		Vector3 gun_01_pos = my_location;
		Vector3 gun_02_pos = my_location;
		Vector3 gun_03_pos = my_location;
		Vector3 gun_04_pos = my_location;
		Vector3 missile_loc = my_location;

		missile_loc.Z += 6.0f;

		gun_01_pos.X = gun_01_pos.X + 5.179f;
		gun_01_pos.Y = gun_01_pos.Y - 4.239f;
		gun_01_pos.Z = gun_01_pos.Z - 9.0f;

		gun_02_pos.X = gun_02_pos.X + 5.161f;
		gun_02_pos.Y = gun_02_pos.Y + 3.272f;
		gun_02_pos.Z = gun_02_pos.Z - 9.0f;
		
		gun_03_pos.X = gun_03_pos.X - 4.491f;
		gun_03_pos.Y = gun_03_pos.Y + 3.257f;
		gun_03_pos.Z = gun_03_pos.Z - 9.0f;

		gun_04_pos.X = gun_04_pos.X - 5.133f;
		gun_04_pos.Y = gun_04_pos.Y - 4.366f;
		gun_04_pos.Z = gun_04_pos.Z - 9.0f;

		GameObject * missile_object = Commands->Create_Object ("GDI_AGT", missile_loc);
		if (missile_object)
		{
			Commands->Attach_Script (missile_object, "M00_Advanced_Guard_Tower_Missile", "");
			missile_id = Commands->Get_ID (missile_object);
		}
		GameObject * gun_01 = Commands->Create_Object ("GDI_Ceiling_Gun_AGT", gun_01_pos);
		if (gun_01)
		{
			Commands->Attach_Script (gun_01, "M00_Advanced_Guard_Tower_Gun", "");
			gun_01_id = Commands->Get_ID (gun_01);
		}
		GameObject * gun_02 = Commands->Create_Object ("GDI_Ceiling_Gun_AGT", gun_02_pos);
		if (gun_02)
		{
			Commands->Attach_Script (gun_02, "M00_Advanced_Guard_Tower_Gun", "");
			gun_02_id = Commands->Get_ID (gun_02);
		}
		GameObject * gun_03 = Commands->Create_Object ("GDI_Ceiling_Gun_AGT", gun_03_pos);
		if (gun_03)
		{
			Commands->Attach_Script (gun_03, "M00_Advanced_Guard_Tower_Gun", "");
			gun_03_id = Commands->Get_ID (gun_03);
		}
		GameObject * gun_04 = Commands->Create_Object ("GDI_Ceiling_Gun_AGT", gun_04_pos);
		if (gun_04)
		{
			Commands->Attach_Script (gun_04, "M00_Advanced_Guard_Tower_Gun", "");
			gun_04_id = Commands->Get_ID (gun_04);
		}
		Commands->Start_Timer (obj, this, 1.0f, 1);
		Commands->Start_Timer (obj, this, 1.0f, 2);
	}

	void Killed( GameObject * obj, GameObject * killer ) 
	{
		//telling AGT guns that AGT has been killed (2/12/2002 JDG)
		GameObject * gun_01 = Commands->Find_Object (gun_01_id);
		GameObject * gun_02 = Commands->Find_Object (gun_02_id);
		GameObject * gun_03 = Commands->Find_Object (gun_03_id);
		GameObject * gun_04 = Commands->Find_Object (gun_04_id);

		if (gun_01 != NULL)
		{
			Commands->Send_Custom_Event (obj, gun_01, 3, 0, 0);//tells gun 01 to reset action and lets him know AGT is dead -- JDG 2/12/02
		}

		if (gun_02 != NULL)
		{
			Commands->Send_Custom_Event (obj, gun_02, 3, 0, 0);//tells gun 02 to reset action and lets him know AGT is dead -- JDG 2/12/02
		}

		if (gun_03 != NULL)
		{
			Commands->Send_Custom_Event (obj, gun_03, 3, 0, 0);//tells gun 03 to reset action and lets him know AGT is dead -- JDG 2/12/02
		}

		if (gun_04 != NULL)
		{
			Commands->Send_Custom_Event (obj, gun_04, 3, 0, 0);//tells gun 04 to reset action and lets him know AGT is dead -- JDG 2/12/02
		}
	}

	void Timer_Expired (GameObject * obj, int timer_id)
	{
		GameObject * gun_01 = Commands->Find_Object (gun_01_id);
		GameObject * gun_02 = Commands->Find_Object (gun_02_id);
		GameObject * gun_03 = Commands->Find_Object (gun_03_id);
		GameObject * gun_04 = Commands->Find_Object (gun_04_id);
		if (timer_id == 1)
		{
			if (gun_01)
			{
				Commands->Send_Custom_Event (obj, gun_01, 1, missile_id);
			}
			if (gun_02)
			{
				Commands->Send_Custom_Event (obj, gun_02, 1, missile_id);
			}
			if (gun_03)
			{
				Commands->Send_Custom_Event (obj, gun_03, 1, missile_id);
			}
			if (gun_04)
			{
				Commands->Send_Custom_Event (obj, gun_04, 1, missile_id);
			}
		}
		else if (timer_id == 2)
		{
			float health = Commands->Get_Health (obj);
			bool power = Commands->Get_Building_Power (obj);
			if ((!health) || (!power))
			{
				if (gun_01)
				{
					Commands->Send_Custom_Event (obj, gun_01, 2, 0);
				}
				if (gun_02)
				{
					Commands->Send_Custom_Event (obj, gun_02, 2, 0);
				}
				if (gun_03)
				{
					Commands->Send_Custom_Event (obj, gun_03, 2, 0);
				}
				if (gun_04)
				{
					Commands->Send_Custom_Event (obj, gun_04, 2, 0);
				}
			}
			else if ((power) && (can_fire))
			{
				if (gun_01)
				{
					Commands->Send_Custom_Event (obj, gun_01, 2, 1);
				}
				if (gun_02)
				{
					Commands->Send_Custom_Event (obj, gun_02, 2, 1);
				}
				if (gun_03)
				{
					Commands->Send_Custom_Event (obj, gun_03, 2, 1);
				}
				if (gun_04)
				{
					Commands->Send_Custom_Event (obj, gun_04, 2, 1);
				}
			}
			Commands->Start_Timer (obj, this, 1.0f, 2);
		}
	}

	void Custom (GameObject * obj, int type, int param, GameObject * sender)
	{
		GameObject * gun_01 = Commands->Find_Object (gun_01_id);
		GameObject * gun_02 = Commands->Find_Object (gun_02_id);
		GameObject * gun_03 = Commands->Find_Object (gun_03_id);
		GameObject * gun_04 = Commands->Find_Object (gun_04_id);
		if (type == 1)
		{
			can_fire = true;
			if (gun_01)
			{
				Commands->Send_Custom_Event (obj, gun_01, 2, 1);
			}
			if (gun_02)
			{
				Commands->Send_Custom_Event (obj, gun_02, 2, 1);
			}
			if (gun_03)
			{
				Commands->Send_Custom_Event (obj, gun_03, 2, 1);
			}
			if (gun_04)
			{
				Commands->Send_Custom_Event (obj, gun_04, 2, 1);
			}
		}
		else if (!type)
		{
			can_fire = false;
			if (gun_01)
			{
				Commands->Send_Custom_Event (obj, gun_01, 2, 0);
			}
			if (gun_02)
			{
				Commands->Send_Custom_Event (obj, gun_02, 2, 0);
			}
			if (gun_03)
			{
				Commands->Send_Custom_Event (obj, gun_03, 2, 0);
			}
			if (gun_04)
			{
				Commands->Send_Custom_Event (obj, gun_04, 2, 0);
			}
		}
	}
};


DECLARE_SCRIPT (M00_Advanced_Guard_Tower_Gun, "")
{
	int missile_object;
	bool agt_is_dead;

	//Adding unneeded save/load variables just to be safe -- 2/12/2002 JDG.
	REGISTER_VARIABLES()
	{
		SAVE_VARIABLE(missile_object, 1);
		SAVE_VARIABLE(agt_is_dead, 2);
	}

	void Created (GameObject * obj)
	{
		Commands->Set_Shield_Type (obj, "Blamo");
		Commands->Enable_Hibernation (obj, false);
		Commands->Innate_Enable (obj);
		Commands->Enable_Enemy_Seen (obj, true);
		missile_object = 0;
		agt_is_dead = false;
	}

	void Enemy_Seen (GameObject * obj, GameObject * enemy)
	{
		if (agt_is_dead == false)
		{
			GameObject * missile_obj = Commands->Find_Object (missile_object);
			if (missile_obj)
			{
				int enemy_id = Commands->Get_ID (enemy);
				Commands->Send_Custom_Event (obj, missile_obj, 1, enemy_id);
			}
			Vector3 my_loc = Commands->Get_Position (obj);
			Vector3 enemy_loc = Commands->Get_Position (enemy);
			float distance = Commands->Get_Distance (my_loc, enemy_loc);
			if (distance > 20.0f)
			{
				ActionParamsStruct params;
				params.Set_Basic(this, 100, 1);
				params.Set_Attack(enemy, 300.0f, 0.0f, true);
				params.AttackCheckBlocked = false;
				Commands->Action_Attack(obj, params);
				Commands->Start_Timer (obj, this, 10.0f, 1);
			}
		}
	}

	void Timer_Expired (GameObject * obj, int timer_id)
	{
		if (timer_id == 1)
		{
			Commands->Action_Reset (obj, 100.0f);
		}
	}

	void Custom (GameObject * obj, int type, int param, GameObject * sender)
	{
		if (type == 1)
		{
			missile_object = param;
		}
		else if (type == 2)
		{
			if (param == 0)
			{
				Commands->Enable_Enemy_Seen (obj, false);
			}
			else
			{
				Commands->Enable_Enemy_Seen (obj, true);
			}
		}

		else if (type == 3)//AGT has been killed...reset your action and prevent further firing -- 02/12/2002 JDG
		{
			agt_is_dead = true;
			Commands->Action_Reset (obj, 100.0f);
		}
	}
};


DECLARE_SCRIPT (M00_Advanced_Guard_Tower_Missile, "")
{
	bool firing;

	void Created (GameObject * obj)
	{
		Commands->Set_Is_Rendered (obj, false);
		Commands->Enable_Hibernation (obj, false);
		firing = false;
	}

	void Custom (GameObject * obj, int type, int param, GameObject * sender)
	{
		if (type == 1)
		{
			GameObject * enemy = Commands->Find_Object (param);
			if (enemy)
			{
				Vector3 my_position = Commands->Get_Position (obj);
				Vector3 enemy_position = Commands->Get_Position (enemy);
				float distance = Commands->Get_Distance (my_position, enemy_position);
				if (distance > 30.0f)
				{
					if (!firing)
					{
						firing = true;
						ActionParamsStruct params;
						params.Set_Basic(this, 100, 1);
						params.Set_Attack(enemy, 300.0f, 0.0f, true);
						params.AttackCheckBlocked = false;
						Commands->Action_Attack(obj, params);
						Commands->Start_Timer (obj, this, 1.0f, 1);
					}
				}
			}
		}
	}

	void Timer_Expired (GameObject * obj, int timer_id)
	{
		if (timer_id == 1)
		{
			Commands->Action_Reset (obj, 100);
			firing = false;
		}
	}
};


DECLARE_SCRIPT (M00_Purchase_Terminal_GDI, "")
{
	void Poked (GameObject * obj, GameObject * poker)
	{
		Commands->Display_GDI_Player_Terminal ();
	}
};

DECLARE_SCRIPT (M00_Purchase_Terminal_NOD, "")
{
	void Poked (GameObject * obj, GameObject * poker)
	{
		Commands->Display_NOD_Player_Terminal ();
	}
};


DECLARE_SCRIPT (M00_Purchase_Terminal_Mutant, "")
{
	void Poked (GameObject * obj, GameObject * poker)
	{
		Commands->Display_Mutant_Player_Terminal ();
	}
};


DECLARE_SCRIPT (M00_Nod_Turret, "")
{
	int token_01_id;
	int token_02_id;
	int token_03_id;

	REGISTER_VARIABLES()
	{
		SAVE_VARIABLE (token_01_id, 1);
		SAVE_VARIABLE (token_02_id, 2);
		SAVE_VARIABLE (token_03_id, 3);
	}

	void Created (GameObject * obj)
	{
		Commands->Enable_Hibernation (obj, false);
		Commands->Innate_Enable (obj);
		Commands->Enable_Enemy_Seen (obj, true);

		Vector3 my_position = Commands->Get_Position (obj);
		Vector3 token_01_pos = my_position;
		Vector3 token_02_pos = my_position;
		Vector3 token_03_pos = my_position;

		token_01_pos.X -= 10.0f;
		token_01_pos.Y -= 10.0f;
		token_01_pos.Z += 2.0f;

		token_02_pos.X += 10.0f;
		token_02_pos.Z += 2.0f;

		token_03_pos.X += 10.0f;
		token_03_pos.Y -= 10.0f;
		token_03_pos.Z += 2.0f;

		GameObject * token_01 = Commands->Create_Object ("Invisible_Object", token_01_pos);
		if (token_01)
		{
			token_01_id = Commands->Get_ID (token_01);
		}
		token_01 = Commands->Create_Object ("Invisible_Object", token_02_pos);
		if (token_01)
		{
			token_02_id = Commands->Get_ID (token_01);
		}
		token_01 = Commands->Create_Object ("Invisible_Object", token_03_pos);
		if (token_01)
		{
			token_03_id = Commands->Get_ID (token_01);
		}
		Commands->Start_Timer (obj, this, 10.0f, 1);
	}

	void Timer_Expired (GameObject * obj, int timer_id)
	{
		if (timer_id == 1)
		{
			int rnd_num = Get_Int_Random(0,2);
			switch (rnd_num)
			{
			case (0):
				{
					GameObject * token_01 = Commands->Find_Object (token_01_id);
					if (token_01)
					{
						ActionParamsStruct params;
						params.Set_Basic(this, 70, 1);
						params.Set_Attack(token_01, 0.0f, 0.0f, true);
						Commands->Action_Attack(obj, params);
					}
					break;
				}
			case (1):
				{
					GameObject * token_02 = Commands->Find_Object (token_02_id);
					if (token_02)
					{
						ActionParamsStruct params;
						params.Set_Basic(this, 70, 1);
						params.Set_Attack(token_02, 0.0f, 0.0f, true);
						Commands->Action_Attack(obj, params);
					}
					break;
				}
			default:
				{
					GameObject * token_03 = Commands->Find_Object (token_03_id);
					if (token_03)
					{
						ActionParamsStruct params;
						params.Set_Basic(this, 70, 1);
						params.Set_Attack(token_03, 0.0f, 0.0f, true);
						Commands->Action_Attack(obj, params);
					}
				}
			}
			Commands->Start_Timer (obj, this, 10.0f, 1);
		}
		else if (timer_id == 2)
		{
			Commands->Action_Reset (obj, 100.0f);
		}
	}

	void Enemy_Seen (GameObject * obj, GameObject * enemy)
	{
		Vector3 target_pos = Commands->Get_Position (enemy);

		target_pos.Z -= 0.5f;

		ActionParamsStruct params;
		params.Set_Basic(this, 100, 2);
		params.Set_Attack(target_pos, 300.0f, 0.0f, true);
		params.AttackCheckBlocked = false;
		Commands->Action_Attack(obj, params);
		Commands->Start_Timer (obj, this, 2.0f, 2);
	}

	void Killed(GameObject * obj, GameObject * killer)
	{
		Vector3 myPositon = Commands->Get_Position ( obj );
		float myFacing  = Commands->Get_Facing ( obj );

		GameObject * destroyedTurret = Commands->Create_Object ( "Nod_Turret_Destroyed", myPositon);
		Commands->Set_Facing ( destroyedTurret, myFacing );
	}

	void Action_Complete (GameObject * obj, int action_id, ActionCompleteReason complete_reason)
	{
		if (action_id == 2)
		{
			Commands->Action_Reset (obj, 100.0f);
		}
	}
};


DECLARE_SCRIPT(M00_Nod_Obelisk_CNC, "Controller_ID=0:int")
{
	int obelisk_id;

	REGISTER_VARIABLES()
	{
		SAVE_VARIABLE (obelisk_id, 1);
	}

	void Created (GameObject * obj)
	{
		obelisk_id = 0;
		Vector3 my_location = Commands->Get_Position (obj);
		my_location.Z += 45.0f;
		GameObject * obelisk = 	Commands->Create_Object ("Nod_Obelisk", my_location);
		if (obelisk)
		{
			Commands->Attach_Script (obelisk, "M00_Obelisk_Weapon_CNC", "");
			Commands->Start_Timer (obj, this, 1.0f, 1);
			obelisk_id = Commands->Get_ID (obelisk);
			// Send Obelisk Weapon ID to controller identified through parameter Controller_ID
			Commands->Send_Custom_Event (obj, Commands->Find_Object(Get_Int_Parameter("Controller_ID")), M00_OBELISK_WEAPON_ID, Commands->Get_ID(obelisk), 0);
		}
	}

	void Killed( GameObject * obj, GameObject * killer ) 
	{
		GameObject * obelisk = Commands->Find_Object(obelisk_id);
		if (obelisk != NULL)
		{
			Commands->Send_Custom_Event (obj, obelisk, 3, 0, 0);//this custom tells the obelisk weapon that the obelisk has been destroyed -- 02/12/2002 JDG
		}
	}

	void Timer_Expired (GameObject * obj, int timer_id)
	{
		if (timer_id == 1)
		{
			float health = Commands->Get_Health (obj);
			bool power = Commands->Get_Building_Power (obj);
			if ((!health) || (!power))
			{
				GameObject * obelisk = Commands->Find_Object (obelisk_id);
				if (obelisk)
				{
					Commands->Send_Custom_Event (obj, obelisk, 1, 0);
				}
			}
			else if (power)
			{
				GameObject * obelisk = Commands->Find_Object (obelisk_id);
				if (obelisk)
				{
					Commands->Send_Custom_Event (obj, obelisk, 1, 1);
				}
			}
			Commands->Start_Timer (obj, this, 1.0f, 1);
		}
	}

	void Custom (GameObject * obj, int type, int param, GameObject * sender)
	{
		if ((type == 1) && (param == 1))
		{
			// Custom received to destroy obelisk weapon.

			GameObject * obelisk = Commands->Find_Object (obelisk_id);
			if (obelisk)
			{
				Commands->Destroy_Object (obelisk);
			}
		}
	}
};


DECLARE_SCRIPT (M00_Obelisk_Weapon_CNC, "")
{
	bool able_to_fire;
	int current_target;
	int powerup_effect_id;
	float range;

	bool obelisk_is_dead;//adding bool trying to eliminate lingering firing bug -- 02/12/2002 JDG

	REGISTER_VARIABLES()
	{
		SAVE_VARIABLE (able_to_fire, 1);
		SAVE_VARIABLE (current_target, 2);
		SAVE_VARIABLE (powerup_effect_id, 3);
		SAVE_VARIABLE (range, 4);
		SAVE_VARIABLE (obelisk_is_dead, 5);
	}

	void Created (GameObject * obj)
	{
		obelisk_is_dead = false;
		range = 150.0f;
		powerup_effect_id = 0;
		current_target = 0;
		able_to_fire = true;
		Commands->Set_Player_Type (obj, SCRIPT_PLAYERTYPE_NOD);
		Commands->Set_Is_Rendered (obj, false);
		Commands->Enable_Enemy_Seen (obj, true);
		Commands->Enable_Hibernation (obj, false);
		Commands->Innate_Enable (obj);
		Vector3 my_position = Commands->Get_Position (obj);
		GameObject * effect = Commands->Create_Object ("Obelisk Effect", my_position);
		if (effect)
		{
			powerup_effect_id = Commands->Get_ID (effect);
			Commands->Set_Animation_Frame (effect, "OBL_POWERUP.OBL_POWERUP", 0);
		}
	}

	void Enemy_Seen(GameObject * obj, GameObject *enemy )
	{
		if (obelisk_is_dead == false)//adding extra safety check here -- 02/12/2002 JDG
		{
			int enemy_id = Commands->Get_ID (enemy);
			Commands->Send_Custom_Event (obj, obj, 2, enemy_id);
		}
	}

	void Custom (GameObject * obj, int type, int param, GameObject * sender)
	{
		if (type == 1)
		{
			if (param == 0)
			{
				Commands->Enable_Enemy_Seen (obj, false);
				able_to_fire = false;
				ActionParamsStruct params;
				params.Set_Basic (this, 100, 0);
				params.Set_Attack (obj, 0.0f, 0.0f, true);
				Commands->Action_Attack (obj, params);
				Commands->Action_Reset (obj, 100.0f);
				Destroy_Obelisk_Effect ();
			}
			else
			{
				Commands->Enable_Enemy_Seen (obj, true);
				able_to_fire = true;
			}
		}
		else if (type == 2)
		{
			if (obelisk_is_dead == false)//adding extra safety check here -- 02/12/2002 JDG
			{
				if (able_to_fire)
				{
					GameObject * target_obj = Commands->Find_Object (param);
					if (target_obj)
					{
						Vector3 enemy_position = Commands->Get_Position (target_obj);
						Vector3 my_position = Commands->Get_Position (obj);
						float distance = Commands->Get_Distance (my_position, enemy_position);
						enemy_position.Z = 0.0f;
						my_position.Z = 0.0f;
						float difference = Commands->Get_Distance (my_position, enemy_position);
						if ((difference > 15.0f) && (distance < range))
						{
							current_target = param;
							able_to_fire = false;
							Commands->Start_Timer (obj, this, 2.0f, 1);
							GameObject * effect = Commands->Find_Object (powerup_effect_id);
							if (effect)
							{
								Commands->Set_Animation_Frame (effect, "OBL_POWERUP.OBL_POWERUP", 1);
							}
							my_position.Z -= 20.0f;
							Commands->Create_Sound ("Obelisk_Warm_Up", my_position, obj);
						}
						else
						{
							Destroy_Obelisk_Effect ();
							Commands->Action_Reset (obj, 100.0f);
						}
					}
				}
			}
		}

		else if (type == 3)//obelisk has been killed, reset action and prevent further firing -- 02/12/2002 JDG
		{
			obelisk_is_dead = true;
			Destroy_Obelisk_Effect ();
			Commands->Action_Reset (obj, 100.0f);
		}
	}

	void Timer_Expired (GameObject * obj, int timer_id)
	{
		if (obelisk_is_dead == false)//adding extra safety check here -- 02/12/2002 JDG
		{
			if (timer_id == 1)
			{
				GameObject * target_obj = Commands->Find_Object (current_target);
				if (target_obj)
				{
					Vector3 my_position = Commands->Get_Position (obj);
					Vector3 enemy_position = Commands->Get_Position (target_obj);
					float distance = Commands->Get_Distance (my_position, enemy_position);
					enemy_position.Z = 0.0f;
					my_position.Z = 0.0f;
					float difference = Commands->Get_Distance (my_position, enemy_position);
					if ((difference > 15.0f) && (distance < range))
					{
						ActionParamsStruct params;
						params.Set_Basic (this, 100, 0);
						params.Set_Attack (target_obj, range, 0.0f, true);
						Commands->Action_Attack (obj, params);
						current_target = 0;
						Commands->Start_Timer (obj, this, 2.0f, 2);
					}
					else
					{
						Destroy_Obelisk_Effect ();
						Commands->Action_Reset (obj, 100.0f);
						able_to_fire = true;
					}
				}
				else
				{
					Destroy_Obelisk_Effect ();
					Commands->Action_Reset (obj, 100.0f);
					able_to_fire = true;
				}
			}
			else if (timer_id == 2)
			{
				Destroy_Obelisk_Effect ();
				able_to_fire = true;
			}
		}
	}

	void Destroy_Obelisk_Effect (void)
	{
		if (powerup_effect_id)
		{
			GameObject * effect = Commands->Find_Object (powerup_effect_id);
			if (effect)
			{
				Commands->Set_Animation_Frame (effect, "OBL_POWERUP.OBL_POWERUP", 0);
			}
		}
	}
};


DECLARE_SCRIPT(M00_Nod_Obelisk, "Controller_ID=0:int")
{
	int obelisk_id;

	REGISTER_VARIABLES()
	{
		SAVE_VARIABLE (obelisk_id, 1);
	}

	void Created (GameObject * obj)
	{
		obelisk_id = 0;
		Vector3 my_location = Commands->Get_Position (obj);
		my_location.Z += 45.0f;
		GameObject * obelisk = 	Commands->Create_Object ("Nod_Obelisk", my_location);
		if (obelisk)
		{
			Commands->Attach_Script (obelisk, "M00_Obelisk_Weapon", "");
			Commands->Start_Timer (obj, this, 1.0f, 1);
			obelisk_id = Commands->Get_ID (obelisk);
			// Send Obelisk Weapon ID to controller identified through parameter Controller_ID
			int controller_id = Get_Int_Parameter("Controller_ID");
			Commands->Send_Custom_Event (obj, Commands->Find_Object(controller_id), M00_OBELISK_WEAPON_ID, Commands->Get_ID(obelisk), 4.0f);
		}
	}

	void Timer_Expired (GameObject * obj, int timer_id)
	{
		if (timer_id == 1)
		{
			float health = Commands->Get_Health (obj);
			bool power = Commands->Get_Building_Power (obj);
			if ((!health) || (!power))
			{
				GameObject * obelisk = Commands->Find_Object (obelisk_id);
				if (obelisk)
				{
					Commands->Send_Custom_Event (obj, obelisk, 1, 0);
				}
			}
			else if (power)
			{
				GameObject * obelisk = Commands->Find_Object (obelisk_id);
				if (obelisk)
				{
					Commands->Send_Custom_Event (obj, obelisk, 1, 1);
				}
			}
			Commands->Start_Timer (obj, this, 1.0f, 1);
		}
	}

	void Custom (GameObject * obj, int type, int param, GameObject * sender)
	{
		if ((type == 1) && (param == 1))
		{
			// Custom received to destroy obelisk weapon.

			GameObject * obelisk = Commands->Find_Object (obelisk_id);
			if (obelisk)
			{
				Commands->Destroy_Object (obelisk);
			}
		}
	}
};


DECLARE_SCRIPT (M00_Obelisk_Weapon, "")
{
	bool able_to_fire;
	int current_target;
	int powerup_effect_id;

	REGISTER_VARIABLES()
	{
		SAVE_VARIABLE (able_to_fire, 1);
		SAVE_VARIABLE (current_target, 2);
		SAVE_VARIABLE (powerup_effect_id, 3);
	}

	void Created (GameObject * obj)
	{
		powerup_effect_id = 0;
		current_target = 0;
		able_to_fire = true;
		Commands->Set_Player_Type (obj, SCRIPT_PLAYERTYPE_NOD);
		Commands->Set_Is_Rendered (obj, false);
		Commands->Enable_Enemy_Seen (obj, true);
		Commands->Enable_Hibernation (obj, false);
		Commands->Innate_Enable (obj);
		Vector3 my_position = Commands->Get_Position (obj);
		GameObject * effect = Commands->Create_Object ("Obelisk Effect", my_position);
		if (effect)
		{
			powerup_effect_id = Commands->Get_ID (effect);
			Commands->Set_Animation_Frame (effect, "OBL_POWERUP.OBL_POWERUP", 0);
		}
	}

	void Enemy_Seen(GameObject * obj, GameObject *enemy )
	{
		int enemy_id = Commands->Get_ID (enemy);
		Commands->Send_Custom_Event (obj, obj, 2, enemy_id);
	}

	void Custom (GameObject * obj, int type, int param, GameObject * sender)
	{
		if (type == 1)
		{
			if (param == 0)
			{
				Commands->Enable_Enemy_Seen (obj, false);
				able_to_fire = false;
				ActionParamsStruct params;
				params.Set_Basic (this, 100, 0);
				params.Set_Attack (obj, 0.0f, 0.0f, true);
				Commands->Action_Attack (obj, params);
				Commands->Action_Reset (obj, 100.0f);
				Destroy_Obelisk_Effect ();
			}
			else
			{
				Commands->Enable_Enemy_Seen (obj, true);
				able_to_fire = true;
			}
		}
		else if (type == 2)
		{
			if (able_to_fire)
			{
				GameObject * target_obj = Commands->Find_Object (param);
				if (target_obj)
				{
					Vector3 enemy_position = Commands->Get_Position (target_obj);
					Vector3 my_position = Commands->Get_Position (obj);
					float distance = Commands->Get_Distance (my_position, enemy_position);
					enemy_position.Z = 0.0f;
					my_position.Z = 0.0f;
					float difference = Commands->Get_Distance (my_position, enemy_position);
					if ((difference > 15.0f) && (distance < 70.0f))
					{
						current_target = param;
						able_to_fire = false;
						Commands->Start_Timer (obj, this, 2.5f, 1);
						GameObject * effect = Commands->Find_Object (powerup_effect_id);
						if (effect)
						{
							Commands->Set_Animation_Frame (effect, "OBL_POWERUP.OBL_POWERUP", 1);
						}
						my_position.Z -= 20.0f;
						Commands->Create_Sound ("Obelisk_Warm_Up", my_position, obj);
					}
					else
					{
						Destroy_Obelisk_Effect ();
						Commands->Action_Reset (obj, 100.0f);
					}
				}
			}
		}
	}

	void Timer_Expired (GameObject * obj, int timer_id)
	{
		if (timer_id == 1)
		{
			GameObject * target_obj = Commands->Find_Object (current_target);
			if (target_obj)
			{
				Vector3 my_position = Commands->Get_Position (obj);
				Vector3 enemy_position = Commands->Get_Position (target_obj);
				float distance = Commands->Get_Distance (my_position, enemy_position);
				enemy_position.Z = 0.0f;
				my_position.Z = 0.0f;
				float difference = Commands->Get_Distance (my_position, enemy_position);
				if ((difference > 15.0f) && (distance < 70.0f))
				{
					ActionParamsStruct params;
					params.Set_Basic (this, 100, 0);
					params.Set_Attack (target_obj, 150.0f, 0.0f, true);
					Commands->Action_Attack (obj, params);
					current_target = 0;
					Commands->Start_Timer (obj, this, 2.0f, 2);
				}
				else
				{
					Destroy_Obelisk_Effect ();
					Commands->Action_Reset (obj, 100.0f);
					able_to_fire = true;
				}
			}
			else
			{
				Destroy_Obelisk_Effect ();
				Commands->Action_Reset (obj, 100.0f);
				able_to_fire = true;
			}
		}
		else if (timer_id == 2)
		{
			Destroy_Obelisk_Effect ();
			able_to_fire = true;
		}
	}

	void Destroy_Obelisk_Effect (void)
	{
		if (powerup_effect_id)
		{
			GameObject * effect = Commands->Find_Object (powerup_effect_id);
			if (effect)
			{
				Commands->Set_Animation_Frame (effect, "OBL_POWERUP.OBL_POWERUP", 0);
			}
		}
	}
};

DECLARE_SCRIPT (M00_Select_Empty_Hands, "On_Created=1:int")
{

	void Created (GameObject * obj)
	{
		bool on_created = (Get_Int_Parameter("On_Created") == 1) ? true : false;
		if(on_created)
		{
			Commands->Select_Weapon(obj, NULL );
		}
	}

	void Custom (GameObject * obj, int type, int param, GameObject * sender)
	{
		if(type == M00_SELECT_EMPTY_HANDS)
		{
			Commands->Select_Weapon(obj, NULL );
		}
	}
};

DECLARE_SCRIPT(M00_ArmorMedal_TextMessage_JDG, "")
{
	void Custom( GameObject * obj, int type, int param, GameObject * sender ) 
	{
		if ( type == CUSTOM_EVENT_POWERUP_GRANTED ) 
		{
			Commands->Set_HUD_Help_Text ( IDS_M00DSGN_DSGN1009I1DSGN_TXT, TEXT_COLOR_OBJECTIVE_PRIMARY );
		}
	}
};

DECLARE_SCRIPT(M00_HealthMedal_TextMessage_JDG, "")
{
	void Custom( GameObject * obj, int type, int param, GameObject * sender ) 
	{
		if ( type == CUSTOM_EVENT_POWERUP_GRANTED ) 
		{
			Commands->Set_HUD_Help_Text ( IDS_M00DSGN_DSGN1008I1DSGN_TXT, TEXT_COLOR_OBJECTIVE_PRIMARY );
		}
	}
};

DECLARE_SCRIPT(M00_Change_L3Mutant_RadarMarker_JDG, "")
{
	void Created( GameObject * obj ) 
	{
		Commands->Set_Obj_Radar_Blip_Color ( obj, RADAR_BLIP_COLOR_MUTANT );
	}
};

DECLARE_SCRIPT(M00_SSM_DLS, "")
{
	int ssm_missile_id;
	bool launched;

	// Register variables to be Auto-Saved
	// All variables must have a unique ID, less than 256, that never changes
	REGISTER_VARIABLES()
	{
		SAVE_VARIABLE( ssm_missile_id, 1 );
		SAVE_VARIABLE( launched, 2 );
	}

	void Created (GameObject * obj)
	{
		launched = false;

		GameObject * ssm_missile = Commands->Create_Object_At_Bone(obj, "Saveable_Invisible_Object", "V_LAUNCHER");
		Commands->Set_Model(ssm_missile, "V_AG_NOD_SSM_MS");
		Commands->Attach_To_Object_Bone(ssm_missile, obj, "V_LAUNCHER");
		ssm_missile_id = Commands->Get_ID(ssm_missile);
	}

	void Custom(GameObject * obj, int type, int param, GameObject * sender)
	{
		if(type == M00_LAUNCH_SSM)
		{
			Commands->Set_Animation(obj, "V_NOD_SSM.V_NOD_SSM", 0);
			Commands->Set_Animation(Commands->Find_Object(ssm_missile_id), "v_nod_ssm_Missl.v_nod_ssm_Missl", 0);

			Commands->Start_Timer(obj, this, 7.0f, 66000);
		}
	}

	void Timer_Expired (GameObject *obj, int Timer_ID)
	{
		if (Timer_ID == 66000)
		{
			launched = true;
		}
	}

	void Killed (GameObject *obj, GameObject *killer)
	{
		if (!launched)
		{
			Commands->Destroy_Object (Commands->Find_Object (ssm_missile_id));
		}
	}
	
};

DECLARE_SCRIPT(M00_Generic_Conv_DME, "ConvName:string")
{
	void Created (GameObject *obj)
	{
		int id = Commands->Create_Conversation(Get_Parameter( "ConvName" ), 99, 2000, false);
		Commands->Join_Conversation(obj, id);
		Commands->Start_Conversation(id, 100000);
		Commands->Monitor_Conversation(obj, id);
	}
};

DECLARE_SCRIPT (M00_Damage_Modifier_DME, "Damage_multiplier:float, Star_Modifier=1:int, NotStar_Modifier=1:int, Killable_By_Star=1:int, Killable_by_NotStar=1:int")
{
	float current_health, last_health, damage_tally;
	int star_killable, notStar_killable;
	int star_modifier, notStar_modifier;
	bool mod_on;

	REGISTER_VARIABLES()
	{
		SAVE_VARIABLE( current_health, 1 );
		SAVE_VARIABLE( last_health, 2 );
		SAVE_VARIABLE( damage_tally, 3 );
		SAVE_VARIABLE( star_killable, 4 );
		SAVE_VARIABLE( notStar_killable, 5 );
		SAVE_VARIABLE( star_modifier, 6 );
		SAVE_VARIABLE( notStar_modifier, 7 );
		SAVE_VARIABLE( mod_on, 8 );
	}

	void Created (GameObject *obj)
	{
		mod_on = true;
		last_health = Commands->Get_Health (obj);
		damage_tally = 0;
		star_killable = Get_Int_Parameter("Killable_By_Star");
		notStar_killable = Get_Int_Parameter("Killable_ByNotStar");
		star_modifier = Get_Int_Parameter("Star_Modifier");
		notStar_modifier = Get_Int_Parameter("NotStar_Modifier");
	}

	void Custom (GameObject *obj, int type, int param, GameObject *sender)
	{
		if (type == M00_ENABLE_DAMAGE_MOD)
		{
			if (param == 1)
			{
				mod_on = true;
			}
			if (param == 0)
			{
				mod_on = false;
			}
		}
	}		

	void Damaged( GameObject * obj, GameObject * damager, float amount ) 
	{
		if (mod_on)
		{
			float damage;

			if ((!star_modifier && damager == STAR && star_killable) || (!notStar_modifier && damager != STAR && notStar_killable))
			{
				last_health = Commands->Get_Health (obj);
			}

			if ((star_modifier && damager == STAR && star_killable) || (notStar_modifier && damager != STAR && notStar_killable))
			{
				current_health = Commands->Get_Health (obj);
				if (current_health == 0) 
				{
					damage = ((last_health - current_health) + damage_tally);
				}

				else
				{
					damage = (last_health - current_health);
				}
				float mod_damage = (damage * (Get_Float_Parameter("Damage_multiplier")));
				damage_tally += mod_damage;
				
				Commands->Set_Health (obj, (last_health - mod_damage));
				last_health = Commands->Get_Health (obj);
				current_health = Commands->Get_Health (obj);
			}

			if ((star_modifier && damager == STAR && !star_killable) || (notStar_modifier && damager != STAR && !notStar_killable))
			{
				current_health = Commands->Get_Health (obj);
				if (current_health == 0) 
				{
					damage = ((last_health - current_health));
				}

				else
				{
					damage = (last_health - current_health);
				}
				float mod_damage = (damage * (Get_Float_Parameter("Damage_multiplier")));
				
				Commands->Set_Health (obj, (last_health - mod_damage));
				last_health = Commands->Get_Health (obj);
				current_health = Commands->Get_Health (obj);
			}
		}
	}
};


DECLARE_SCRIPT (M00_Base_Defense, "MinAttackDistance=0:int, MaxAttackDistance=300:int, AttackTimer=10:int")
{
	int token_01_id;
	int token_02_id;
	int token_03_id;
	int player_type;

	REGISTER_VARIABLES()
	{
		SAVE_VARIABLE (token_01_id, 1);
		SAVE_VARIABLE (token_02_id, 2);
		SAVE_VARIABLE (token_03_id, 3);
		SAVE_VARIABLE (player_type, 4);
	}

	void Created (GameObject * obj)
	{
		// find out what my team preset is.
		player_type = Commands->Get_Player_Type( obj );
		Commands->Debug_Message( "***** Player Type Saved *****\n" );


		Commands->Enable_Hibernation (obj, false);
		Commands->Innate_Enable (obj);
		Commands->Enable_Enemy_Seen (obj, true);

		Vector3 my_position = Commands->Get_Position (obj);
		Vector3 token_01_pos = my_position;
		Vector3 token_02_pos = my_position;
		Vector3 token_03_pos = my_position;

		token_01_pos.X -= 10.0f;
		token_01_pos.Y -= 10.0f;
		token_01_pos.Z += 2.0f;

		token_02_pos.X += 10.0f;
		token_02_pos.Z += 2.0f;

		token_03_pos.X += 10.0f;
		token_03_pos.Y -= 10.0f;
		token_03_pos.Z += 2.0f;

		GameObject * token_01 = Commands->Create_Object ("Invisible_Object", token_01_pos);
		if (token_01)
		{
			token_01_id = Commands->Get_ID (token_01);
		}
		token_01 = Commands->Create_Object ("Invisible_Object", token_02_pos);
		if (token_01)
		{
			token_02_id = Commands->Get_ID (token_01);
		}
		token_01 = Commands->Create_Object ("Invisible_Object", token_03_pos);
		if (token_01)
		{
			token_03_id = Commands->Get_ID (token_01);
		}
		Commands->Start_Timer (obj, this, 10.0f, 1);
	}

	void Timer_Expired (GameObject * obj, int timer_id)
	{
		if (timer_id == 1)
		{
			int rnd_num = Get_Int_Random(0,2);
			switch (rnd_num)
			{
			case (0):
				{
					GameObject * token_01 = Commands->Find_Object (token_01_id);
					if (token_01)
					{
						ActionParamsStruct params;
						params.Set_Basic(this, 70, 1);
						params.Set_Attack(token_01, 0.0f, 0.0f, true);
						Commands->Action_Attack(obj, params);
					}
					break;
				}
			case (1):
				{
					GameObject * token_02 = Commands->Find_Object (token_02_id);
					if (token_02)
					{
						ActionParamsStruct params;
						params.Set_Basic(this, 70, 1);
						params.Set_Attack(token_02, 0.0f, 0.0f, true);
						Commands->Action_Attack(obj, params);
					}
					break;
				}
			default:
				{
					GameObject * token_03 = Commands->Find_Object (token_03_id);
					if (token_03)
					{
						ActionParamsStruct params;
						params.Set_Basic(this, 70, 1);
						params.Set_Attack(token_03, 0.0f, 0.0f, true);
						Commands->Action_Attack(obj, params);
					}
				}
			}
			Commands->Start_Timer (obj, this, 10.0f, 1);
		}
		else if (timer_id == 2)
		{
			Commands->Action_Reset (obj, 100.0f);
		}
	}

	void Enemy_Seen (GameObject * obj, GameObject * enemy)
	{

		Vector3 my_loc = Commands->Get_Position (obj);
		Vector3 enemy_loc = Commands->Get_Position (enemy);
		float distance = Commands->Get_Distance (my_loc, enemy_loc);
		if (distance > Get_Int_Parameter("MinAttackDistance") )
		{
			ActionParamsStruct params;
			params.Set_Basic(this, 100, 2);
			params.Set_Attack(enemy, Get_Int_Parameter("MaxAttackDistance"), 0.0f, true);
			params.AttackCheckBlocked = false;
			Commands->Action_Attack(obj, params);
			Commands->Start_Timer (obj, this, Get_Int_Parameter( "AttackTimer"), 2);
		}
	}

	void Action_Complete (GameObject * obj, int action_id, ActionCompleteReason complete_reason)
	{
		if (action_id == 2)
		{
			Commands->Action_Reset (obj, 100.0f);
		}
	}

	void Exited (GameObject* obj, GameObject* exiter) 
	{
		// set team back to my preset.
		Commands->Set_Player_Type( obj, player_type );
		Commands->Debug_Message( "***** Player Type Exited *****\n" );
	}
};