Added LUA support:

Control over rain and ambient light, as well as light fixtures
 Ability to change number of static enemies in a sector
 Ability to create enemy groups and set their waypoints
 Ability to set soldier APs, change stance, and change level


git-svn-id: https://ja2svn.mooo.com/source/ja2/trunk/GameSource/ja2_v1.13/Build@1529 3b4a5df2-a311-0410-b5c6-a8a6f20db521

lua/lua_env.cpp

@@ -0,0 +1,87 @@
+#include "Lua Interpreter.h"
+#include "environment.h"
+
+#define ENVIRONMENT_CLASS "ja2_EnvironmentClass"
+
+static int LuaGetRainVal( lua_State *L )
+{
+	lua_pushinteger( L, guiEnvWeather);
+	return 1;
+}
+
+static int LuaSetRainVal( lua_State *L )
+{
+	int newrain = luaL_checkinteger( L, 3);
+	luaL_argcheck( L, newrain >= 0 && newrain <= 2, 2, "The rain must be between 0 and 2" );
+	if (newrain == 0)
+	{
+		EnvEndRainStorm();
+	}
+	else
+	{
+		EnvBeginRainStorm( (UINT8)(newrain-1));
+	}
+	return 0;
+}
+
+static int LuaGetAmbient( lua_State *L )
+{
+	lua_pushinteger( L, gubEnvLightValue);
+	return 1;
+}
+
+static int LuaSetAmbient( lua_State *L )
+{
+	int newambient = luaL_checkinteger( L, 3);
+	luaL_argcheck( L, newambient >= 0 && newambient <= 255, 2, "The ambience must be between 0 and 255" );
+	gubEnvLightValue = (UINT8)newambient;
+	if( !gfBasement && !gfCaves )
+		gfDoLighting		 = TRUE;
+	return 0;
+}
+
+static int LuaSetNightLights( lua_State *L )
+{
+	int newprime = luaL_checkinteger( L, 1);
+	if (newprime)
+	{
+		TurnOnNightLights();
+	}
+	else
+	{
+		TurnOffNightLights();
+	}
+	return 0;
+}
+
+static int LuaSetPrimeLights( lua_State *L )
+{
+	int newprime = luaL_checkinteger( L, 1);
+	if (newprime)
+	{
+		TurnOnPrimeLights();
+	}
+	else
+	{
+		TurnOffPrimeLights();
+	}
+	return 0;
+}
+
+static LuaAttrib Environment[] = {
+	{ "rain", LuaGetRainVal, LuaSetRainVal },
+	{ "ambient", LuaGetAmbient, LuaSetAmbient },
+	{ "nightlights", NULL, NULL, LuaSetNightLights },
+	{ "primelights", NULL, NULL, LuaSetPrimeLights },
+	{ NULL, },
+};
+
+
+void LuaEnvironmentSetup(lua_State *L)
+{
+	// Create the environment object
+	lua_newtable( L);
+	CreateLuaClass( L, ENVIRONMENT_CLASS, Environment );
+	lua_setmetatable( L, -2);
+	lua_setglobal( L, "Environment"); // We also want this class to be known to the script
+}