Initial import

scripts/scripttest1.cpp

@@ -0,0 +1,278 @@
+// scripttest1.cpp
+// 0.1
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include "osiris_import.h"
+#include "osiris_common.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 GetTriggerScriptID(int trigger_room, int trigger_face );
+int		STDCALL GetCOScriptList( int **list, int **id_list );
+int		STDCALL SaveRestoreState( void *file_ptr, ubyte saving_state );
+#ifdef __cplusplus
+}
+#endif
+
+// ==========================
+// Script class definitions//
+// ==========================
+#define ID_SHIELD_ORB		0x00	//shield id
+#define MAX_IDS				0x01	//maximum number of GOS IDs
+
+#define ID_CUST_SHIELD_ORB	0x01
+#define ID_MY_TRIGGER		0x02
+#define ID_MY_DOOR			0x03
+
+typedef struct{
+	int id;
+	char *name;
+}tScriptInfo;
+
+tScriptInfo ScriptInfo[MAX_IDS] = {
+	{ID_SHIELD_ORB,"Shield"}
+};
+
+class BaseObjScript
+{
+public:
+	BaseObjScript();
+	~BaseObjScript();
+	virtual short CallEvent(int event,tOSIRISEventInfo *data);
+protected:
+	bool called;
+};
+
+class MyTrigger
+{
+public:
+	short CallEvent(int event,tOSIRISEventInfo *data);
+};
+
+class MyDoor
+{
+public:
+	short CallEvent(int event,tOSIRISEventInfo *data);
+};
+
+//------------------
+// Shield orb script
+//------------------
+class ShieldOrb : public BaseObjScript
+{
+public:
+	short CallEvent(int event,tOSIRISEventInfo *data);
+};
+
+class CustomShieldOrb : public BaseObjScript
+{
+public:
+	short CallEvent(int event,tOSIRISEventInfo *data);
+};
+
+
+char STDCALL InitializeDLL(tOSIRISModuleInit *func_list)
+{
+	osicommon_Initialize((tOSIRISModuleInit *)func_list);
+	return 1;
+}
+
+void STDCALL ShutdownDLL(void)
+{
+}
+
+int STDCALL GetGOScriptID(char *name,ubyte isdoor)
+{
+	if(!isdoor){
+		for( int i = 0; i < MAX_IDS ; i++ ){
+			if(!stricmp(name,ScriptInfo[i].name)){
+				return ScriptInfo[i].id;
+			}
+		}
+	}else{
+		if(!stricmp("MARK'S OLD DOOR",name))
+			return ID_MY_DOOR;
+	}
+	return -1;
+}
+
+void STDCALLPTR CreateInstance(int id)
+{
+	switch(id){
+	case ID_SHIELD_ORB:
+		return new ShieldOrb;
+		break;
+	case ID_CUST_SHIELD_ORB:
+		return new CustomShieldOrb;
+		break;
+	case ID_MY_TRIGGER:
+		return new MyTrigger;
+		break;
+	case ID_MY_DOOR:
+		return new MyDoor;
+		break;
+	default:
+		mprintf(0,"SCRIPT: Illegal ID (%d)\n",id);
+		break;
+	};
+	return NULL;
+}
+
+void STDCALL DestroyInstance(int id,void *ptr)
+{
+	switch(id){
+	case ID_SHIELD_ORB:
+		delete ((ShieldOrb *)ptr);
+		break;
+	case ID_CUST_SHIELD_ORB:
+		delete ((CustomShieldOrb *)ptr);
+		break;
+	case ID_MY_TRIGGER:
+		delete ((MyTrigger *)ptr);
+		break;
+	case ID_MY_DOOR:
+		delete ((MyDoor *)ptr);
+		break;
+	default:
+		mprintf(0,"SCRIPT: Illegal ID (%d)\n",id);
+		break;
+	};
+}
+
+short STDCALL CallInstanceEvent(int id,void *ptr,int event,tOSIRISEventInfo *data)
+{
+	switch(id){
+	case ID_SHIELD_ORB:
+	case ID_CUST_SHIELD_ORB:
+		return ((BaseObjScript *)ptr)->CallEvent(event,data);
+		break;
+	case ID_MY_TRIGGER:
+		return ((MyTrigger *)ptr)->CallEvent(event,data);
+	case ID_MY_DOOR:
+		return ((MyDoor *)ptr)->CallEvent(event,data);		
+	default:
+		mprintf(0,"SCRIPT: Illegal ID (%d)\n",id);
+		break;
+	};
+
+	return CONTINUE_CHAIN|CONTINUE_DEFAULT;
+}
+
+int	STDCALL GetTriggerScriptID(int trigger_room,int trigger_face)
+{
+	if(trigger_room==2 && trigger_face==1){
+		return ID_MY_TRIGGER;
+	}
+	return -1;
+}
+
+int	STDCALL GetCOScriptList( int **list, int **id_list )
+{
+	static int cust_handle_list[1] = {0x403};
+	static int cust_id_list[1] = {ID_CUST_SHIELD_ORB};
+
+	*list = cust_handle_list;
+	*id_list = cust_id_list;
+	return 1;
+}
+
+//	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;
+}
+
+//============================================
+// Script Implementation
+//============================================
+BaseObjScript::BaseObjScript()
+{
+	called = false;
+}
+
+BaseObjScript::~BaseObjScript()
+{
+}
+
+short BaseObjScript::CallEvent(int event,tOSIRISEventInfo *data)
+{
+	mprintf(0,"BaseObjScript::CallEvent()\n");
+	return CONTINUE_CHAIN|CONTINUE_DEFAULT;
+}
+
+// --------------
+// Shield orb
+// --------------
+short ShieldOrb::CallEvent(int event,tOSIRISEventInfo *data)
+{
+	switch(event){
+	case EVT_COLLIDE:
+		if(!called){
+			mprintf(0,"Collide with LEVEL shield\n");
+			called = true;
+		}break;
+	}
+	return CONTINUE_CHAIN|CONTINUE_DEFAULT;
+}
+
+short CustomShieldOrb::CallEvent(int event,tOSIRISEventInfo *data)
+{
+	switch(event){
+	case EVT_COLLIDE:
+		if(!called){
+			mprintf(0,"Collide with CUSTOM shield\n");
+			called = true;
+		}break;
+	}
+	return CONTINUE_CHAIN|CONTINUE_DEFAULT;
+}
+
+short MyTrigger::CallEvent(int event,tOSIRISEventInfo *data)
+{
+	mprintf(0,"TRIGGER: %d\n",event);
+	return CONTINUE_CHAIN|CONTINUE_DEFAULT;
+}
+
+short MyDoor::CallEvent(int event,tOSIRISEventInfo *data)
+{
+	switch(event){
+	case EVT_COLLIDE:
+		{
+			msafe_struct mo;
+			mo.objhandle = data->me_handle;			
+			MSafe_GetValue(MSAFE_OBJECT_ID,&mo);
+			
+			mo.doorway_index = mo.id;
+			mprintf(0,"Activating doorway %d\n",mo.id);
+			MSafe_CallFunction(MSAFE_DOOR_ACTIVATE,&mo);
+
+		}break;
+	};
+	return CONTINUE_CHAIN|CONTINUE_DEFAULT;
+
+}