(svn r11985) -Feature[FS#1697, newGRF]: Implement var 8F(random bits) during callback 28 (Industry location permissibility)

src/newgrf_industries.cpp

@@ -465,6 +465,9 @@ uint32 IndustryLocationGetVariable(const ResolverObject *object, byte variable,
 
 		/* Square of Euclidian distance from town */
 		case 0x8D: return min(DistanceSquare(industry->town->xy, tile), 65535);
+
+		/* 32 random bits */
+		case 0x8F: return Random();
 	}
 
 	/* None of the special ones, so try the general ones */