Walls created by Stone Prison are now diggable

Added rng.normalFloat() function


git-svn-id: http://svn.net-core.org/repos/t-engine4@1011 51575b47-30f0-44d4-a5cc-537603b46e54

game/modules/tome/data/talents/spells/earth.lua

@@ -144,6 +144,11 @@ newTalent{
 							game.level.map:redisplay()
 						end
 					end,
+					dig = function(src, x, y, old)
+						game.level:removeEntity(old)
+						game.level.map:redisplay()
+						return nil, old.old_feat
+					end,
 					summoner_gain_exp = true,
 					summoner = self,
 				}

src/core_lua.c

@@ -1598,6 +1598,40 @@ static int rng_normal(lua_State *L)
 	return 1;
 }
 
+/*
+ * Generate a random floating-point number of NORMAL distribution
+ *
+ * Uses the Box-Muller transform.
+ *
+ */
+static int rng_normal_float(lua_State *L)
+{
+	static const double TWOPI = 6.2831853071795862;
+	static bool stored = FALSE;
+	static double z0;
+	static double z1;
+	double mean = luaL_checknumber(L, 1);
+	double std = luaL_checknumber(L, 2);
+	double u1;
+	double u2;
+	if (stored == FALSE)
+	{
+		u1 = genrand_real1();
+		u2 = genrand_real1();
+		u1 = sqrt(-2 * log(u1));
+		z0 = u1 * cos(TWOPI * u2);
+		z1 = u1 * sin(TWOPI * u2);
+		lua_pushnumber(L, (z0*std)+mean);
+		stored = TRUE;
+	}
+	else
+	{
+		lua_pushnumber(L, (z1*std)+mean);
+		stored = FALSE;
+	}
+	return 1;
+}
+
 static const struct luaL_reg rnglib[] =
 {
 	{"__call", rng_call},
@@ -1608,6 +1642,7 @@ static const struct luaL_reg rnglib[] =
 	{"chance", rng_chance},
 	{"percent", rng_percent},
 	{"normal", rng_normal},
+	{"normalFloat", rng_normal_float},
 	{"float", rng_float},
 	{NULL, NULL},
 };