Initial import

scripts/clutter.cpp

@@ -0,0 +1,692 @@
+// clutter.cpp
+// 0.1
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include "osiris_import.h"
+#include "osiris_common.h"
+#include "osiris_vector.h"
+
+#ifdef _MSC_VER		//Visual C++ Build
+#define STDCALL		__stdcall
+#define STDCALLPTR	*STDCALL
+#else				//Non-Visual C++ Build
+#define STDCALL __attribute__((stdcall))
+#define STDCALLPTR	STDCALL*
+#endif
+
+#ifdef __cplusplus
+extern "C"{
+#endif
+char	STDCALL InitializeDLL(tOSIRISModuleInit *func_list);
+void	STDCALL ShutdownDLL(void);
+int     STDCALL GetGOScriptID(char *name,ubyte isdoor);
+void	STDCALLPTR CreateInstance(int id);
+void	STDCALL DestroyInstance(int id,void *ptr);
+short	STDCALL CallInstanceEvent(int id,void *ptr,int event,tOSIRISEventInfo *data);
+int		STDCALL SaveRestoreState( void *file_ptr, ubyte saving_state );
+#ifdef __cplusplus
+}
+#endif
+
+int String_table_size = 0;
+char **String_table = NULL;
+static char *_Error_string = "!!ERROR MISSING STRING!!";
+static char *_Empty_string = "";
+char *GetStringFromTable(int index)
+{
+	if( (index<0) || (index>=String_table_size) )
+		return _Error_string;
+	if(!String_table[index])
+		return _Empty_string;
+		return String_table[index];
+}
+#define TXT(x) GetStringFromTable(x)
+
+#define ID_FRAGCRATE	0
+#define ID_NAPALMBARREL	1
+#define ID_ALIENCUPLINK	2
+#define ID_TNTHIGHYIELD	3
+#define ID_TNTMEDYIELD	4
+#define ID_FALLINGROCK	5
+#define ID_LAVAROCK		6
+
+typedef struct
+{
+	int id;
+	char *name;
+}tScriptInfo;
+
+tScriptInfo ScriptIDs[] = 
+{
+	{ID_FRAGCRATE,"fragcrate"},
+	{ID_NAPALMBARREL,"napalmbarrel"},
+	{ID_ALIENCUPLINK,"Aliencuplink"},
+	{ID_TNTHIGHYIELD,"TNTCrateHighYield"},
+	{ID_TNTMEDYIELD,"TNTCrateMediumYield"},
+	{ID_FALLINGROCK,"FallingRock"},
+	{ID_LAVAROCK,"LavaRock"}
+};
+
+
+int NumScriptIDs = sizeof(ScriptIDs)/sizeof(tScriptInfo);
+
+class ClutterScript
+{
+public:
+	virtual short CallEvent(int event,tOSIRISEventInfo *data)
+	{
+		return CONTINUE_CHAIN|CONTINUE_DEFAULT;
+	}
+};
+
+class FragCrate : public ClutterScript
+{
+public:
+	short CallEvent(int event,tOSIRISEventInfo *data);
+};
+
+class NapalmBarrel : public ClutterScript
+{
+public:
+	short CallEvent(int event,tOSIRISEventInfo *data);
+};
+
+class AliencuplinkScript : public ClutterScript
+{
+public:
+	short CallEvent(int event,tOSIRISEventInfo *data);
+};
+
+typedef struct
+{
+	vector last_vel;
+	float lifetime;
+}tTNTHighYield;
+class TNTHighYield : public ClutterScript
+{
+public:
+	TNTHighYield(){memory = NULL;}
+	short CallEvent(int event,tOSIRISEventInfo *data);
+	tTNTHighYield *memory;
+};
+
+class TNTMedYield : public ClutterScript
+{
+public:
+	TNTMedYield(){memory = NULL;}
+	short CallEvent(int event,tOSIRISEventInfo *data);
+	float *memory;
+};
+
+typedef struct
+{
+	float lifeleft;
+}tFallingRock;
+class FallingRock : public ClutterScript
+{
+public:
+	FallingRock(){memory=NULL;}
+	short CallEvent(int event,tOSIRISEventInfo *data);
+	tFallingRock *memory;
+};
+class LavaRock : public ClutterScript
+{
+public:
+	LavaRock(){memory=NULL;}
+	short CallEvent(int event,tOSIRISEventInfo *data);
+	tFallingRock *memory;
+};
+
+
+//	InitializeDLL
+//	Purpose:
+//		This function gets called when the DLL first gets loaded.  It will only be called once (until the
+//	DLL is unloaded).  Passed in is a struct of data passed from the game needed for the DLL to interact
+//	with D3.  Usually this function will just call osicommon_Initialize(), which sets up the imported
+//	functions.  However, you can alloc some memory or whatever in this function, and free it in ShutdownDLL().
+//	Note: You cannot call any imported functions until osicommon_Initialize() is called.
+//	Returns 1 if initialization went ok, 0 if there was an error and the DLL should not be loaded.
+char STDCALL InitializeDLL(tOSIRISModuleInit *func_list)
+{
+	osicommon_Initialize((tOSIRISModuleInit *)func_list);
+	String_table_size = func_list->string_count;
+	String_table = func_list->string_table;
+	if(func_list->game_checksum!=CHECKSUM)
+	{ 
+		mprintf(0,"Game-Checksum FAIL!!! (%ul!=%ul)\n",func_list->game_checksum,CHECKSUM);
+		mprintf(0,"RECOMPILE YOUR SCRIPTS!!!\n");
+		return 0;
+	}
+	return 1;
+}
+
+//	ShutdownDLL
+//	Purpose:
+//		This function is called right before a DLL is about to be unloaded from memory.  You can free
+//	any unfree'd memory, or anything else you need to do.  Don't worry about destroying any instances
+//	of scripts, as they will all be automatically destroyed before this function is called.  The
+//	same goes for any memory allocated with Scrpt_MemAlloc(), as this will automatically be freed
+//	when a scripts instance is destroyed.
+void STDCALL ShutdownDLL(void)
+{
+}
+
+//	GetGOScriptID
+//	Purpose:
+//		Given the name of the object (from it's pagename), this function will search through it's
+//	list of General Object Scripts for a script with a matching name (to see if there is a script
+//	for that type/id of object within this DLL).  If a matching scriptname is found, a UNIQUE ID
+//	is to be returned back to Descent 3.  This ID will be used from here on out for all future
+//	interaction with the DLL.  Since doors are not part of the generic object's, it's possible
+//	for a door to have the same name as a generic object (OBJ_POWERUP, OBJ_BUILDING, OBJ_CLUTTER
+//	or OBJ_ROBOT), therefore, a 1 is passed in for isdoor if the given object name refers to a
+//	door, else it is a 0.  The return value is the unique identifier, else -1 if the script
+//	does not exist in the DLL.
+int STDCALL GetGOScriptID(char *name,ubyte isdoor)
+{
+	if(!isdoor)
+	{
+		for(int i=0;i<NumScriptIDs;i++)
+		{
+			if(!stricmp(name,ScriptIDs[i].name))
+				return ScriptIDs[i].id;
+		}
+	}
+	
+	return -1;
+}
+
+//	CreateInstance
+//	Purpose:
+//		Given an ID from a call to GetGOScriptID(), this function will create a new instance for that
+//	particular script (by allocating and initializing memory, etc.).  A pointer to this instance
+//	is to be returned back to Descent 3.  This pointer will be passed around, along with the ID
+//	for CallInstanceEvent() and DestroyInstance().  Return NULL if there was an error.
+void STDCALLPTR CreateInstance(int id)
+{
+	switch(id)
+	{
+	case ID_FRAGCRATE:
+		return new FragCrate;
+		break;
+	case ID_NAPALMBARREL:
+		return new NapalmBarrel;
+		break;
+	case ID_ALIENCUPLINK:
+		return new AliencuplinkScript;
+		break;
+	case ID_TNTHIGHYIELD:
+		return new TNTHighYield;
+		break;
+	case ID_TNTMEDYIELD:
+		return new TNTMedYield;
+		break;
+	case ID_FALLINGROCK:
+		return new FallingRock;
+		break;
+	case ID_LAVAROCK:
+		return new LavaRock;
+		break;
+	};
+	return NULL;
+}
+
+//	DestroyInstance
+//	Purpose:
+//		Given an ID, and a pointer to a particular instance of a script, this function will delete and
+//	destruct all information associated with that script, so it will no longer exist.
+void STDCALL DestroyInstance(int id,void *ptr)
+{
+	switch(id)
+	{
+	case ID_FRAGCRATE:
+		delete ((FragCrate *)ptr);
+		break;
+	case ID_NAPALMBARREL:
+		delete ((NapalmBarrel *)ptr);
+		break;
+	case ID_ALIENCUPLINK:
+		delete ((AliencuplinkScript *)ptr);
+		break;
+	case ID_TNTHIGHYIELD:
+		delete ((TNTHighYield *)ptr);
+		break;
+	case ID_TNTMEDYIELD:
+		delete ((TNTMedYield *)ptr);
+		break;
+	case ID_FALLINGROCK:
+		delete ((FallingRock *)ptr);
+		break;
+	case ID_LAVAROCK:
+		delete ((LavaRock *)ptr);
+		break;
+	};
+}
+
+//	CallInstanceEvent
+//	Purpose:
+//		Given an ID, a pointer to a script instance, an event and a pointer to the struct of
+//	information about the event, this function will translate who this event belongs to and
+//	passes the event to that instance of the script to be handled.  Return a combination of
+//	CONTINUE_CHAIN and CONTINUE_DEFAULT, to give instructions on what to do based on the
+//	event. CONTINUE_CHAIN means to continue through the chain of scripts (custom script, level
+//	script, mission script, and finally default script).  If CONTINUE_CHAIN is not specified,
+//	than the chain is broken and those scripts of lower priority will never get the event.  Return
+//	CONTINUE_DEFAULT in order to tell D3 if you want process the normal action that is built into
+//	the game for that event.  This only pertains to certain events.  If the chain continues
+//	after this script, than the CONTINUE_DEFAULT setting will be overridden by lower priority
+//	scripts return value.
+short STDCALL CallInstanceEvent(int id,void *ptr,int event,tOSIRISEventInfo *data)
+{
+	return ((ClutterScript *)ptr)->CallEvent(event,data);
+}
+
+//	SaveRestoreState
+//	Purpose:
+//		This function is called when Descent 3 is saving or restoring the game state.  In this function
+//	you should save/restore any global data that you want preserved through load/save (which includes
+//	demos).  You must be very careful with this function, corrupting the file (reading or writing too
+//	much or too little) may be hazardous to the game (possibly making it impossible to restore the
+//	state).  It would be best to use version information to keep older versions of saved states still
+//	able to be used.  IT IS VERY IMPORTANT WHEN SAVING THE STATE TO RETURN THE NUMBER OF _BYTES_ WROTE
+//	TO THE FILE.  When restoring the data, the return value is ignored.  saving_state is 1 when you should
+//	write data to the file_ptr, 0 when you should read in the data.
+int STDCALL SaveRestoreState( void *file_ptr, ubyte saving_state )
+{
+	return 0;
+}
+
+int GetObjectType(int object)
+{
+	msafe_struct ms;
+	ms.objhandle = object;
+	MSafe_GetValue(MSAFE_OBJECT_TYPE,&ms);
+
+	return ms.type;
+}
+
+int GetObjectID(int object)
+{
+	msafe_struct ms;
+	ms.objhandle = object;
+	MSafe_GetValue(MSAFE_OBJECT_ID,&ms);
+
+	return ms.id;
+}
+
+
+short FragCrate::CallEvent(int event,tOSIRISEventInfo *data)
+{
+	switch(event)
+	{
+	case EVT_DESTROY:
+		vector pos;
+		float mag;
+		int weapon_id;
+		int handle;
+		int i;
+		int room;
+
+		Obj_Value(data->me_handle, VF_GET, OBJV_I_ROOMNUM, &room);
+		Obj_Value(data->me_handle, VF_GET, OBJV_V_POS, &pos);			
+		weapon_id = Wpn_FindID("fragbarrel");
+
+		handle = Obj_Create(OBJ_WEAPON, weapon_id, room, &pos, NULL, data->me_handle);
+		
+		break;
+	}
+	return CONTINUE_CHAIN|CONTINUE_DEFAULT;
+}
+
+short NapalmBarrel::CallEvent(int event,tOSIRISEventInfo *data)
+{
+	switch(event)
+	{
+	case EVT_DESTROY:
+		vector pos;
+		float mag;
+		int weapon_id;
+		int handle;
+		int i;
+		int room;
+		matrix o,orient;
+
+		Obj_Value(data->me_handle, VF_GET, OBJV_M_ORIENT, &o);
+		Obj_Value(data->me_handle, VF_GET, OBJV_I_ROOMNUM, &room);
+		Obj_Value(data->me_handle, VF_GET, OBJV_V_POS, &pos);
+
+		orient.uvec = o.fvec;
+		orient.rvec = o.rvec;
+		orient.fvec = -o.uvec;
+
+		weapon_id = Wpn_FindID("napalmbarrel");
+		//weapon_id = Wpn_FindID("napalmrocket");
+
+		handle = Obj_Create(OBJ_WEAPON, weapon_id, room, &pos, &orient, data->me_handle);
+
+		// Set direction
+		vector v;
+		float amount_r,amount_u;
+		amount_r = (float(rand())-float(RAND_MAX)/2.0f)/float(RAND_MAX);
+		amount_u = (float(rand())-float(RAND_MAX)/2.0f)/float(RAND_MAX);
+		v = amount_r*orient.rvec + amount_u*orient.uvec + orient.fvec;
+		vm_VectorNormalize(&v);
+		v *= 30.0f;
+		//v = orient.fvec*30.0f;
+		Obj_Value(handle,VF_SET,OBJV_V_VELOCITY,&v);
+		
+		break;
+	}
+	return CONTINUE_CHAIN|CONTINUE_DEFAULT;
+}
+
+short AliencuplinkScript::CallEvent(int event,tOSIRISEventInfo *data)
+{
+  switch(event) 
+  {
+  case EVT_AI_INIT:
+	  int handle,id,room;
+	  vector pos;
+	  id = Obj_FindID("Aliencuplinkhousing");
+
+	  if(id!=-1)
+	  {
+		  Obj_Value(data->me_handle, VF_GET, OBJV_I_ROOMNUM, &room);
+		  Obj_Value(data->me_handle, VF_GET, OBJV_V_POS, &pos);
+	
+		  handle = Obj_Create(OBJ_CLUTTER,id,room,&pos,NULL,data->me_handle);
+		  
+		  Obj_AttachObjectAP(data->me_handle,0,handle,0,1);
+	  }
+	break;
+  }
+  return CONTINUE_CHAIN|CONTINUE_DEFAULT;
+}
+
+void ObjectDamage(int object,float amount,int killer=OBJECT_HANDLE_NONE);
+void ObjectDamage(int object,float amount,int killer)
+{
+	msafe_struct mstruct;
+
+	mstruct.objhandle = object;
+	mstruct.killer_handle = killer;
+	mstruct.damage_type = GD_SCRIPTED;
+	mstruct.amount = amount;
+
+	MSafe_CallFunction(MSAFE_OBJECT_DAMAGE_OBJECT, &mstruct);
+}
+
+float GetObjectShields(int object)
+{
+	msafe_struct mstruct;
+
+	mstruct.objhandle = object;
+	MSafe_GetValue(MSAFE_OBJECT_SHIELDS,&mstruct);
+
+	return mstruct.shields;
+}
+
+short TNTMedYield::CallEvent(int event,tOSIRISEventInfo *data)
+{
+	switch(event) 
+	{
+	case EVT_CREATED:
+		{
+			int i;
+			tOSIRISMEMCHUNK ch;
+			ch.id = 4;
+			ch.size = sizeof(float);
+			ch.my_id.type = OBJECT_SCRIPT;
+			ch.my_id.objhandle = data->me_handle;
+
+			memory = (float *)Scrpt_MemAlloc(&ch);
+			*memory = -1.0f;
+		}break;
+
+	case EVT_MEMRESTORE:
+		{
+			memory = (float *)data->evt_memrestore.memory_ptr;
+		}break;
+
+
+	case EVT_INTERVAL:
+		{
+			vector vel;
+			float vel_val;
+			float last_vel;
+			float delta_vel;
+			float frametime;
+			float accel;
+
+			Obj_Value(data->me_handle,VF_GET,OBJV_V_VELOCITY,&vel);
+			vel_val = vm_GetMagnitude(&vel);
+
+			frametime = Game_GetFrameTime();
+			last_vel = *memory;
+
+			if(last_vel!=-1.0f)
+			{
+				delta_vel = vel_val - last_vel;
+				accel = delta_vel / frametime;
+
+				if(accel<=0.0002f)
+				{
+					//blow him up
+					Obj_Kill(data->me_handle, OBJECT_HANDLE_NONE, 1000.0f, DF_BLAST_RING | DF_LOSES_ANTIGRAV | DF_EXPL_MEDIUM | DF_FIREBALL | DF_BREAKS_APART | DF_DEBRIS_SMOKES, 0.0f, 0.0f);
+				}
+			}
+			
+			*memory = vel_val;
+		}break;
+	}
+
+	return CONTINUE_CHAIN|CONTINUE_DEFAULT;
+}
+
+
+short TNTHighYield::CallEvent(int event,tOSIRISEventInfo *data)
+{
+	switch(event) 
+	{
+	case EVT_CREATED:
+		{
+			int i;
+			tOSIRISMEMCHUNK ch;
+			ch.id = 4;
+			ch.size = sizeof(tTNTHighYield);
+			ch.my_id.type = OBJECT_SCRIPT;
+			ch.my_id.objhandle = data->me_handle;
+
+			memory = (tTNTHighYield *)Scrpt_MemAlloc(&ch);
+			vm_MakeZero(&memory->last_vel);
+			memory->lifetime = 0;
+
+		}break;
+
+	case EVT_MEMRESTORE:
+		{
+			memory = (tTNTHighYield *)data->evt_memrestore.memory_ptr;
+		}break;
+
+	case EVT_INTERVAL:
+		{
+			vector vel;
+			vector diff_vel;
+			float vel_val;
+			float delta_vel;
+			float frametime;
+			float accel;
+
+			Obj_Value(data->me_handle,VF_GET,OBJV_V_VELOCITY,&vel);
+			vel_val = vm_GetMagnitude(&vel);
+
+			frametime = Game_GetFrameTime();
+			diff_vel = vel - (memory->last_vel);
+			memory->lifetime += frametime;
+
+			delta_vel = vm_GetMagnitude(&diff_vel);
+			
+			accel = fabs(delta_vel / frametime);
+
+			bool case1 = (accel>=40.0f && vel_val>35.0f && memory->last_vel.y<-6.0f)?true:false;
+			bool case2 = (accel>100.0f && vel_val>50.0f)?true:false;
+			bool case3 = (accel>1500.0f && memory->last_vel.y<-5.0f)?true:false;
+
+			if( case1 || case2 || case3 )
+			{
+				if(case1)
+					mprintf(0,"Case 1\n");
+				if(case2)
+					mprintf(0,"Case 2\n");
+				if(case3)
+					mprintf(0,"Case 3\n");
+
+				//blow him up
+				mprintf(0,"accel: %.2f vel: %.2f\n",accel,vel_val);
+				if(memory->lifetime >= 7.0f)
+				{
+					Obj_Kill(data->me_handle, OBJECT_HANDLE_NONE, 1000.0f, DF_BLAST_RING | DF_LOSES_ANTIGRAV | DF_EXPL_MEDIUM | DF_FIREBALL | DF_BREAKS_APART | DF_DEBRIS_SMOKES, 0.0f, 0.0f);
+				}
+			}
+			
+			memory->last_vel = vel;
+		}break;
+
+	case EVT_DESTROY:
+		{
+			//see if we are within distance of the rock pile to destroy
+			int close_obj_list[32];
+			int roomnum;
+			int rockpile_id;
+			float amount;
+			vector pos;
+
+			Obj_Value(data->me_handle, VF_GET, OBJV_I_ROOMNUM, &roomnum);
+			Obj_Value(data->me_handle, VF_GET, OBJV_V_POS, &pos);
+			int num_objects = AI_GetNearbyObjs(&pos,roomnum,30.0f,close_obj_list,32,false,false,false,true);
+
+			rockpile_id = Obj_FindID("TNTrockwall");
+
+			for(int i=0;i<num_objects;i++)
+			{
+				int type,id;
+
+				type = GetObjectType(close_obj_list[i]);
+				id = GetObjectID(close_obj_list[i]);
+
+				if(type == OBJ_CLUTTER && id == rockpile_id )
+				{
+					//destroy the wall
+					Obj_Kill(close_obj_list[i], data->me_handle, 1000.0f, DF_BLAST_RING | DF_LOSES_ANTIGRAV | DF_EXPL_MEDIUM | DF_FIREBALL | DF_BREAKS_APART | DF_DEBRIS_SMOKES, 0.0f, 0.0f);
+				}
+			}
+			
+		}break;
+	}
+
+	return CONTINUE_CHAIN|CONTINUE_DEFAULT;
+
+}
+
+short FallingRock::CallEvent(int event,tOSIRISEventInfo *data)
+{
+	switch(event) 
+	{
+	case EVT_CREATED:
+		{
+			int i;
+			tOSIRISMEMCHUNK ch;
+			ch.id = 4;
+			ch.size = sizeof(tFallingRock);
+			ch.my_id.type = OBJECT_SCRIPT;
+			ch.my_id.objhandle = data->me_handle;
+
+			memory = (tFallingRock *)Scrpt_MemAlloc(&ch);
+			memory->lifeleft = 10.0f;
+		}break;
+
+	case EVT_MEMRESTORE:
+		{
+			memory = (tFallingRock *)data->evt_memrestore.memory_ptr;
+		}break;
+
+
+	case EVT_INTERVAL:
+		{
+			if(memory)
+			{
+				memory->lifeleft -= data->evt_interval.frame_time;
+
+				if(memory->lifeleft<=0)
+				{
+					//destroy the wall
+					Obj_Kill(data->me_handle, OBJECT_HANDLE_NONE, 1000.0f, DF_EXPL_SMALL | DF_FIREBALL | DF_DEBRIS_SMOKES, 0.0f, 0.0f);
+				}
+			}
+		}break;
+	}
+
+	return CONTINUE_CHAIN|CONTINUE_DEFAULT;
+}
+
+short LavaRock::CallEvent(int event,tOSIRISEventInfo *data)
+{
+	switch(event) 
+	{
+	case EVT_CREATED:
+		{
+			int i;
+			tOSIRISMEMCHUNK ch;
+			ch.id = 4;
+			ch.size = sizeof(tFallingRock);
+			ch.my_id.type = OBJECT_SCRIPT;
+			ch.my_id.objhandle = data->me_handle;
+
+			memory = (tFallingRock *)Scrpt_MemAlloc(&ch);
+			memory->lifeleft = 20.0f;
+
+			// Set it on fire!
+			msafe_struct mstruct;
+			mstruct.objhandle = data->me_handle;
+			mstruct.longevity = 25.0f;
+			mstruct.interval = 0.0f;
+			mstruct.ithandle = OBJECT_HANDLE_NONE;
+			MSafe_CallFunction(MSAFE_OBJECT_SETONFIRE,&mstruct);
+
+		}break;
+
+	case EVT_MEMRESTORE:
+		{
+			memory = (tFallingRock *)data->evt_memrestore.memory_ptr;
+		}break;
+
+	case EVT_COLLIDE:
+		{
+			// Set it on fire!
+			msafe_struct mstruct;
+			mstruct.objhandle = data->evt_collide.it_handle;
+			mstruct.longevity = 2.0f;
+			mstruct.interval = 2.0f;
+			mstruct.ithandle = data->me_handle;
+			MSafe_CallFunction(MSAFE_OBJECT_SETONFIRE,&mstruct);
+
+		}break;
+
+	case EVT_INTERVAL:
+		{
+			if(memory)
+			{
+				memory->lifeleft -= data->evt_interval.frame_time;
+
+				if(memory->lifeleft<=0)
+				{
+					//destroy the wall
+					Obj_Kill(data->me_handle, OBJECT_HANDLE_NONE, 1000.0f, DF_EXPL_SMALL | DF_FIREBALL | DF_DEBRIS_SMOKES, 0.0f, 0.0f);
+				}
+			}
+		}break;
+	}
+
+	return CONTINUE_CHAIN|CONTINUE_DEFAULT;
+}