Add freezing effect stage 1 in NOv6 (#158)

* Add freezing effect in NOv6

aregion.cpp

@@ -1564,6 +1564,12 @@ void ARegion::write_text_report(ostream &f, Faction *fac, int month, ARegionList
 			f << temp.const_str() << "\n";
 		}
 
+		// Freezing effect
+		if (weather == W_BLIZZARD && !clearskies) {
+			temp = "There was an unnatural freezing last month.";
+			f << temp.const_str() << "\n";
+		}
+
 #if 0
 		f << "\nElevation is " << elevation << ".\n";
 		f << "Humidity is " << humidity << ".\n";
@@ -1954,8 +1960,12 @@ int ARegion::MoveCost(int movetype, ARegion *fromRegion, int dir, AString *road)
 	int cost = 1;
 	if (Globals->WEATHER_EXISTS) {
 		cost = 2;
-		if (weather == W_BLIZZARD) return 10;
-		if (weather == W_NORMAL || clearskies) cost = 1;
+		if (weather == W_NORMAL || clearskies) {
+			cost = 1;
+		}
+	}
+	if (weather == W_BLIZZARD && !clearskies) {
+		return 4;
 	}
 	if (movetype == M_SWIM) {
 		cost = (TerrainDefs[type].movepoints * cost);

genrules.cpp

@@ -2726,10 +2726,8 @@ int Game::GenRules(const AString &rules, const AString &css, const AString &intr
 		  << "structure which allows transportation of items.  The structures which allow this are: ";
 		last = -1;
 		comma = 0;
-		int j = 0;
 		for (int i = 0; i < NOBJECTS; i++) {
 			if (!(ObjectDefs[i].flags & ObjectType::TRANSPORT)) continue;
-			j++;
 			if (last == -1) {
 				last = i;
 				continue;

monthorders.cpp

@@ -266,6 +266,12 @@ Location *Game::Do1SailOrder(ARegion *reg, Object *fleet, Unit *cap)
 			newreg = reg->neighbors[x->dir];
 		}
 		cost = 1;
+
+		// Blizzard effect
+		if (newreg && newreg->weather == W_BLIZZARD && !newreg->clearskies) {
+			cost = 4;
+		}
+
 		if (Globals->WEATHER_EXISTS) {
 			if (newreg && newreg->weather != W_NORMAL &&
 					!newreg->clearskies)

neworigins/extra.cpp

@@ -728,6 +728,29 @@ Faction *Game::CheckVictory()
 		}
 	}
 
+	if (TurnNumber() >= 29) { // 29 is just a number to avoid breaking snapshots
+		// Freezing effect
+		forlist_reuse(&regions) {
+			ARegion *r = (ARegion *) elem;
+
+			// No effect for regions with clear skies
+			if (r->clearskies) {
+				continue;
+			}
+
+			// Check if regions in freezing zome in surface
+			if (r->zloc == ARegionArray::LEVEL_SURFACE && (r->yloc <= 0 || r->yloc >= 71)) {
+				r->Pillage();
+				r->SetWeather(W_BLIZZARD);
+				printf("Freeze (%d,%d) region in %s of %s\n",
+					r->xloc, r->yloc, r->name->Str(), TerrainDefs[TerrainDefs[r->type].similar_type].name
+				);
+			}
+
+			// TODO: Check if regions in freezing zome in UW
+		}
+	}
+
 	return NULL;
 }