Fixed empty parameters issue

This changes the list implementation for params. Recommendation
is to update this for add-ons that make use of this.

Author: McTwist

client.cs

@@ -1,7 +1,7 @@
 //
 // EventScript Client
 // Author: McTwist (9845)
-// Date: 2018-01-15
+// Date: 2018-02-06
 //
 // Contains the client version of transforming an EventScript list object
 // into either readable script or usable events.
@@ -73,7 +73,7 @@ function EventScriptClient_save()
 		// Output event
 		%outputEventName = %event.getObject(%n++).getValue();
 
-		%params = "";
+		%params = 0;
 
 		// Parameters
 		for (%n++; %n < %event.getCount(); %n++)
@@ -99,7 +99,8 @@ SPC atof(%param.getObject(1).getValue())
 			default:
 				%val = %param.getValue();
 			}
-			%params = (%params !$= "") ? %params TAB %val : %val;
+			%params[%params] = %val;
+			%params++;
 		}
 
 		// Store into list
@@ -110,6 +111,8 @@ SPC atof(%param.getObject(1).getValue())
 		%list.value[%i, "NTName"] = %NTName;
 		%list.value[%i, "outputEventName"] = %outputEventName;
 		%list.value[%i, "params"] = %params;
+		for (%m = 0; %m < %params; %m++)
+			%list.value[%i, "params", %m] = %params[%m];
 		%list.count++;
 	}
 
@@ -150,7 +153,9 @@ function EventScriptClient_load(%script)
 		%targetName = %list.value[%i, "targetName"];
 		%NTName = %list.value[%i, "NTName"];
 		%outputEventName = %list.value[%i, "outputEventName"];
-		%params = %list.value[%i, "params"];
+		%params = %list.value[%i, "params"] | 0;
+		for (%m = 0; %m < %params; %m++)
+			%params[%m] = %list.value[%i, "params", %m];
 
 		%event = WrenchEvents_Box.getObject(WrenchEvents_Box.getCount() - 1);
 		%n = -1;
@@ -236,7 +241,7 @@ function EventScriptClient_load(%script)
 		%event.getObject(%n).setSelected(%outputEventIdx);
 		%n++;
 
-		if (getFieldCount(%params) != (%event.getCount() - %n))
+		if (%params != (%event.getCount() - %n))
 		{
 			EventScriptClient_error("Error :: Invalid amount of parameters for output event \"" @ %outputEventName @ "\" on line " @ %line);
 			$WrenchEventLoading = 0;
@@ -248,7 +253,7 @@ function EventScriptClient_load(%script)
 		{
 			%param = %event.getObject(%n);
 
-			%par = getField(%params, %m++);
+			%par = %params[%m++];
 
 			switch$ (%param.getClassName())
 			{

script.cs

@@ -1,7 +1,7 @@
 // ======================
 // EventScript
 // Author: McTwist (9845)
-// Version: 1.4.20180115
+// Version: 1.5.20180206
 // ======================
 // EventScript is a script language designed for an easier conversion
 // between the in-game event system and a text version that can be used
@@ -550,8 +550,10 @@ function EventScript_fromScript(%script, %error)
 				%data = strReplace(%data, "\\\"", "\"");
 				%data = strReplace(%data, "\\\\", "\\");
 
-				// Append list (Dependency)
-				%list.value[%list.count, "params"] = pushBack(%list.value[%list.count, "params"], %data, "\t");
+				// Append list
+				%list.value[%list.count, "params"] |= 0;
+				%list.value[%list.count, "params", %list.value[%list.count, "params"]] = %data;
+				%list.value[%list.count, "params"]++;
 
 				%i = %n;
 
@@ -669,8 +671,10 @@ function EventScript_fromScript(%script, %error)
 
 				%data = trim(getSubStr(%script, %i, %n - %i));
 
-				// Append list (Dependency)
-				%list.value[%list.count, "params"] = pushBack(%list.value[%list.count, "params"], %data, "\t");
+				// Append list
+				%list.value[%list.count, "params"] |= 0;
+				%list.value[%list.count, "params", %list.value[%list.count, "params"]] = %data;
+				%list.value[%list.count, "params"]++;
 
 				%i = %n;
 
@@ -929,7 +933,7 @@ function EventScript_fromScript(%script, %error)
 			}
 		}
 
-		%list.value[%index, "params"] = setField(%list.value[%index, "params"], %param, %params);
+		%list.value[%index, "params", %param] = %params;
 	}
 
 	return %list;
@@ -955,6 +959,8 @@ function EventScript_toScript(%list)
 		%NTName = %list.value[%i, "NTName"];
 		%outputEventName = %list.value[%i, "outputEventName"];
 		%params = %list.value[%i, "params"];
+		for (%m = 0; %m < %params; %m++)
+			%params[%m] = %list.value[%i, "params", %m];
 
 		// Enabled
 		%script = %script @ "[" @ (%enabled ? "x" : " ") @ "]";
@@ -976,7 +982,7 @@ function EventScript_toScript(%list)
 		%script = %script @ " -> " @ %outputEventName;
 
 		// Parameters
-		%count = getFieldCount(%params);
+		%count = %params;
 		if (%count > 0)
 			%script = %script @ "(";
 
@@ -985,7 +991,7 @@ function EventScript_toScript(%list)
 			if (%n != 0)
 				%script = %script @ ", ";
 
-			%param = getField(%params, %n);
+			%param = %params[%n];
 
 			// Check if number
 			if ((%param + 0) $= %param)

server.cs

@@ -1,7 +1,7 @@
 //
 // EventScript Server
 // Author: McTwist (9845)
-// Date: 2017-11-19
+// Date: 2018-02-06
 //
 // Contains the server version of transforming an EventScript list object
 // into either readable script or usable events.
@@ -44,7 +44,7 @@ function EventScriptServer_save(%brick)
 		%paramCount = outputEvent_GetNumParametersFromIdx(%targetClass, %brick.eventOutputIdx[%i]);
 		%paramList = $OutputEvent_parameterList[%targetClass, %brick.eventOutputIdx[%i]];
 
-		%params = "";
+		%params = 0;
 		for (%n = 0; %n < %paramCount; %n++)
 		{
 			%paramField = getField(%paramList, %n);
@@ -76,10 +76,13 @@ function EventScriptServer_save(%brick)
 				%param = getColorIDTable(%param);
 			}
 
-			%params = setField(%params, %n, %param);
+			%params[%n] = %param;
 		}
+		%params = %paramCount;
 
 		%list.value[%i, "params"] = %params;
+		for (%m = 0; %m < %params; %m++)
+			%list.value[%i, "params", %m] = %params[%m];
 
 		%list.count++;
 	}
@@ -118,7 +121,9 @@ function EventScriptServer_load(%brick, %script)
 		%targetName = %list.value[%i, "targetName"];
 		%NTName = %list.value[%i, "NTName"];
 		%outputEventName = %list.value[%i, "outputEventName"];
-		%params = %list.value[%i, "params"];
+		%params = %list.value[%i, "params"] | 0;
+		for (%m = 0; %m < %params; %m++)
+			%params[%m] = %list.value[%i, "params", %m];
 
 		// Enabled
 		%brick.eventEnabled[%brick.numEvents] = !!%enabled;
@@ -179,7 +184,7 @@ function EventScriptServer_load(%brick, %script)
 		// Parameters
 		%paramCount = outputEvent_GetNumParametersFromIdx(%targetClass, %outputEventIdx);
 		%paramList = $OutputEvent_parameterList[%targetClass, %outputEventIdx];
-		%count = getFieldCount(%params);
+		%count = %params;
 		if (%paramCount != %count)
 		{
 			error("EventScriptServer_load :: Invalid amount of parameters for \"" @ %outputEventName @ "\" on line " @ %line);
@@ -189,7 +194,7 @@ function EventScriptServer_load(%brick, %script)
 		for (%n = 0; %n <= %count; %n++)
 		{
 			%paramField = getField(%paramList, %n);
-			%param = getField(%params, %n);
+			%param = %params[%n];
 
 			// Translate parameter
 			switch$ (strlwr(getWord(%paramField, 0)))