New test gm scripts to help with positioning populace npcs

Data/scripts/commands/gm/setpopulacepos.lua

@@ -0,0 +1,32 @@
+require("global");
+
+properties = {
+    permissions = 0,
+    parameters = "sffff",
+    description = "Moves an actor into a new position instantly",
+}
+
+function onTrigger(player, argc, name, posX, posY, posZ, rotation)
+
+	local actor;
+
+	if (name == nil) then
+		player:SendMessage(0x20, "", "No name provided.");
+		return;
+	end	
+
+    local pos = player:GetPos();
+    local x = posX or pos[1];
+    local y = posY or pos[2];
+    local z = posZ or pos[3];
+    local rot = rotation or pos[4];
+				
+	actor = player.CurrentArea:FindActorInZoneByUniqueID(name);
+	if (actor ~= nil) then
+		actor:SetPos(x,y,z,rot,true);
+		player:SendMessage(0x20, "", string.format("Moved %s @ %f, %f, %f, %f", name, x, y, z, rot));
+	else
+		player:SendMessage(0x20, "", string.format("Could not find %s.", name));
+	end	
+	
+end