Add native VScript_CreateInstance

Author: FortyTwoFortyTwo

scripting/include/vscript.inc

@@ -466,6 +466,17 @@ native HSCRIPT VScript_CreateScope(const char[] name, HSCRIPT parent = HSCRIPT_R
  */
 native HSCRIPT VScript_CreateTable();
 
+/**
+ * Creates a new HSCRIPT instance, this is only to be used on non-entity script class that needs it's script instance created
+ * @note You may need to manually set property to an instance to point where the newly created hscript are at
+ *
+ * @param class            Script class an instance uses
+ * @param instance         Instance pointer address to use
+ * 
+ * @return                 HSCRIPT of an instance, null if could not create one.
+ */
+native HSCRIPT VScript_CreateInstance(VScriptClass class, Address instance);
+
 /**
  * Get all the classes used for vscript
  * 
@@ -695,6 +706,7 @@ public void __pl_vscript_SetNTVOptional()
 	MarkNativeAsOptional("VScript_CompileScriptFile");
 	MarkNativeAsOptional("VScript_CreateScope");
 	MarkNativeAsOptional("VScript_CreateTable");
+	MarkNativeAsOptional("VScript_CreateInstance");
 	MarkNativeAsOptional("VScript_GetAllClasses");
 	MarkNativeAsOptional("VScript_GetClass");
 	MarkNativeAsOptional("VScript_CreateClass");

scripting/vscript.sp

@@ -2,7 +2,7 @@
 
 #include "include/vscript.inc"
 
-#define PLUGIN_VERSION			"1.9.2"
+#define PLUGIN_VERSION			"1.10.0"
 #define PLUGIN_VERSION_REVISION	"manual"
 
 char g_sOperatingSystem[16];
@@ -126,6 +126,7 @@ public APLRes AskPluginLoad2(Handle hMyself, bool bLate, char[] sError, int iLen
 	CreateNative("VScript_CompileScriptFile", Native_CompileScriptFile);
 	CreateNative("VScript_CreateScope", Native_CreateScope);
 	CreateNative("VScript_CreateTable", Native_CreateTable);
+	CreateNative("VScript_CreateInstance", Native_CreateInstance);
 	CreateNative("VScript_GetAllClasses", Native_GetAllClasses);
 	CreateNative("VScript_GetClass", Native_GetClass);
 	CreateNative("VScript_CreateClass", Native_CreateClass);
@@ -858,6 +859,11 @@ public any Native_CreateTable(Handle hPlugin, int iNumParams)
 	return HScript_CreateTable();
 }
 
+public any Native_CreateInstance(Handle hPlugin, int iNumParams)
+{
+	return HScript_CreateInstance(GetNativeCell(1), GetNativeCell(2));
+}
+
 public any Native_GetAllClasses(Handle hPlugin, int iNumParams)
 {
 	ArrayList aList = List_GetAllClasses().Clone();

scripting/vscript/hscript.sp

@@ -5,6 +5,7 @@ static Handle g_hSDKCallGetValue;
 static Handle g_hSDKCallSetValue;
 static Handle g_hSDKCallReleaseValue;
 static Handle g_hSDKCallClearValue;
+static Handle g_hSDKCallRegisterInstance;
 static Handle g_hSDKCallGetInstanceValue;
 static Handle g_hSDKCallReleaseScope;
 static Handle g_hSDKCallReleaseScript;
@@ -18,6 +19,7 @@ void HScript_LoadGamedata(GameData hGameData)
 	g_hSDKCallSetValue = CreateSDKCall(hGameData, "IScriptVM", "SetValue", SDKType_Bool, SDKType_PlainOldData, SDKType_String, SDKType_PlainOldData);
 	g_hSDKCallReleaseValue = CreateSDKCall(hGameData, "IScriptVM", "ReleaseValue", _, SDKType_PlainOldData);
 	g_hSDKCallClearValue = CreateSDKCall(hGameData, "IScriptVM", "ClearValue", SDKType_Bool, SDKType_PlainOldData, SDKType_String);
+	g_hSDKCallRegisterInstance = CreateSDKCall(hGameData, "IScriptVM", "RegisterInstance", SDKType_PlainOldData, SDKType_PlainOldData, SDKType_PlainOldData);
 	g_hSDKCallGetInstanceValue = CreateSDKCall(hGameData, "IScriptVM", "GetInstanceValue", SDKType_PlainOldData, SDKType_PlainOldData, SDKType_PlainOldData);
 	g_hSDKCallReleaseScope = CreateSDKCall(hGameData, "IScriptVM", "ReleaseScope", _, SDKType_PlainOldData);
 	g_hSDKCallReleaseScript = CreateSDKCall(hGameData, "IScriptVM", "ReleaseScript", _, SDKType_PlainOldData);
@@ -38,6 +40,11 @@ HSCRIPT HScript_CreateTable()
 	return pHScript;
 }
 
+HSCRIPT HScript_CreateInstance(VScriptClass pClass, Address pInstance)
+{
+	return SDKCall(g_hSDKCallRegisterInstance, GetScriptVM(), pClass, pInstance);
+}
+
 int HScript_GetKeyValue(HSCRIPT pHScript, int iIterator, ScriptVariant_t pKey, ScriptVariant_t pValue)
 {
 	return SDKCall(g_hSDKCallGetKeyValue, GetScriptVM(), pHScript, iIterator, pKey.Address, pValue.Address);