tron@2186: /* $Id$ */
tron@2186: 
truelight@0: #include "stdafx.h"
Darkvater@1891: #include "openttd.h"
truelight@4356: #include "functions.h"
tron@3314: #include "industry_map.h"
tron@3315: #include "station_map.h"
tron@507: #include "table/strings.h"
tron@679: #include "map.h"
tron@1209: #include "tile.h"
truelight@0: #include "vehicle.h"
truelight@0: #include "command.h"
truelight@0: #include "news.h"
truelight@0: #include "station.h"
Darkvater@2435: #include "waypoint.h"
truelight@0: #include "town.h"
truelight@0: #include "industry.h"
truelight@0: #include "player.h"
peter1138@3701: #include "airport.h"
tron@337: #include "sound.h"
tron@2159: #include "variables.h"
tron@2535: #include "table/sprites.h"
rubidium@4261: #include "date.h"
truelight@0: 
tron@1048: static void DisasterClearSquare(TileIndex tile)
truelight@0: {
tron@2639: 	if (!EnsureNoVehicle(tile)) return;
truelight@0: 
tron@1214: 	switch (GetTileType(tile)) {
tron@1048: 		case MP_RAILWAY:
Darkvater@4845: 			if (IsHumanPlayer(GetTileOwner(tile)) && !IsRailWaypoint(tile)) {
KUDr@3900: 				PlayerID p = _current_player;
KUDr@3900: 				_current_player = OWNER_WATER;
KUDr@3900: 				DoCommand(tile, 0, 0, DC_EXEC, CMD_LANDSCAPE_CLEAR);
KUDr@3900: 				_current_player = p;
KUDr@3900: 			}
tron@1048: 			break;
truelight@0: 
tron@1048: 		case MP_HOUSE: {
Darkvater@2435: 			PlayerID p = _current_player;
tron@1048: 			_current_player = OWNER_NONE;
tron@3491: 			DoCommand(tile, 0, 0, DC_EXEC, CMD_LANDSCAPE_CLEAR);
tron@1048: 			_current_player = p;
tron@1048: 			break;
tron@1048: 		}
tron@1048: 
tron@1048: 		case MP_TREES:
tron@1048: 		case MP_CLEAR:
truelight@0: 			DoClearSquare(tile);
tron@1048: 			break;
tron@1048: 
tron@1048: 		default:
tron@1048: 			break;
truelight@0: 	}
truelight@0: }
truelight@0: 
rubidium@4344: static const SpriteID _disaster_images_1[] = {0xF41, 0xF41, 0xF41, 0xF41, 0xF41, 0xF41, 0xF41, 0xF41};
rubidium@4344: static const SpriteID _disaster_images_2[] = {0xF44, 0xF44, 0xF44, 0xF44, 0xF44, 0xF44, 0xF44, 0xF44};
rubidium@4344: static const SpriteID _disaster_images_3[] = {0xF4E, 0xF4E, 0xF4E, 0xF4E, 0xF4E, 0xF4E, 0xF4E, 0xF4E};
rubidium@4344: static const SpriteID _disaster_images_4[] = {0xF46, 0xF46, 0xF47, 0xF47, 0xF48, 0xF48, 0xF49, 0xF49};
rubidium@4344: static const SpriteID _disaster_images_5[] = {0xF4A, 0xF4A, 0xF4B, 0xF4B, 0xF4C, 0xF4C, 0xF4D, 0xF4D};
rubidium@4344: static const SpriteID _disaster_images_6[] = {0xF50, 0xF50, 0xF50, 0xF50, 0xF50, 0xF50, 0xF50, 0xF50};
rubidium@4344: static const SpriteID _disaster_images_7[] = {0xF51, 0xF51, 0xF51, 0xF51, 0xF51, 0xF51, 0xF51, 0xF51};
rubidium@4344: static const SpriteID _disaster_images_8[] = {0xF52, 0xF52, 0xF52, 0xF52, 0xF52, 0xF52, 0xF52, 0xF52};
rubidium@4344: static const SpriteID _disaster_images_9[] = {0xF3E, 0xF3E, 0xF3E, 0xF3E, 0xF3E, 0xF3E, 0xF3E, 0xF3E};
truelight@0: 
truelight@0: static const SpriteID * const _disaster_images[] = {
rubidium@4344: 	_disaster_images_1, _disaster_images_1,
rubidium@4344: 	_disaster_images_2, _disaster_images_2,
rubidium@4344: 	_disaster_images_3, _disaster_images_3,
rubidium@4344: 	_disaster_images_8, _disaster_images_8, _disaster_images_9,
rubidium@4344: 	_disaster_images_6, _disaster_images_6,
rubidium@4344: 	_disaster_images_7, _disaster_images_7,
rubidium@4344: 	_disaster_images_4, _disaster_images_5,
truelight@0: };
truelight@0: 
truelight@0: static void DisasterVehicleUpdateImage(Vehicle *v)
truelight@0: {
truelight@0: 	int img = v->u.disaster.image_override;
truelight@0: 	if (img == 0)
truelight@0: 		img = _disaster_images[v->subtype][v->direction];
truelight@0: 	v->cur_image = img;
truelight@0: }
truelight@0: 
tron@3157: static void InitializeDisasterVehicle(Vehicle* v, int x, int y, byte z, Direction direction, byte subtype)
truelight@0: {
truelight@0: 	v->type = VEH_Disaster;
truelight@0: 	v->x_pos = x;
truelight@0: 	v->y_pos = y;
truelight@0: 	v->z_pos = z;
tron@1980: 	v->tile = TileVirtXY(x, y);
truelight@0: 	v->direction = direction;
truelight@0: 	v->subtype = subtype;
truelight@0: 	v->x_offs = -1;
truelight@0: 	v->y_offs = -1;
truelight@0: 	v->sprite_width = 2;
truelight@0: 	v->sprite_height = 2;
truelight@0: 	v->z_height = 5;
truelight@0: 	v->owner = OWNER_NONE;
truelight@0: 	v->vehstatus = VS_UNCLICKABLE;
truelight@0: 	v->u.disaster.image_override = 0;
tron@555: 	v->current_order.type = OT_NOTHING;
tron@555: 	v->current_order.flags = 0;
tron@4527: 	v->current_order.dest = 0;
truelight@0: 
truelight@0: 	DisasterVehicleUpdateImage(v);
truelight@0: 	VehiclePositionChanged(v);
truelight@0: 	BeginVehicleMove(v);
truelight@0: 	EndVehicleMove(v);
truelight@0: }
truelight@0: 
truelight@0: static void DeleteDisasterVeh(Vehicle *v)
truelight@0: {
truelight@0: 	DeleteVehicleChain(v);
truelight@0: }
truelight@0: 
truelight@0: static void SetDisasterVehiclePos(Vehicle *v, int x, int y, byte z)
truelight@0: {
truelight@0: 	Vehicle *u;
truelight@0: 
truelight@0: 	BeginVehicleMove(v);
truelight@0: 	v->x_pos = x;
truelight@0: 	v->y_pos = y;
truelight@0: 	v->z_pos = z;
tron@1980: 	v->tile = TileVirtXY(x, y);
truelight@0: 
truelight@0: 	DisasterVehicleUpdateImage(v);
truelight@0: 	VehiclePositionChanged(v);
truelight@0: 	EndVehicleMove(v);
truelight@0: 
truelight@0: 	if ( (u=v->next) != NULL) {
rubidium@4249: 		int safe_x = clamp(x, 0, MapMaxX() * TILE_SIZE);
rubidium@4249: 		int safe_y = clamp(y - 1, 0, MapMaxY() * TILE_SIZE);
truelight@0: 		BeginVehicleMove(u);
truelight@193: 
truelight@0: 		u->x_pos = x;
rubidium@4249: 		u->y_pos = y - 1 - (max(z - GetSlopeZ(safe_x, safe_y), 0) >> 3);
rubidium@4249: 		safe_y = clamp(u->y_pos, 0, MapMaxY() * TILE_SIZE);
rubidium@4249: 		u->z_pos = GetSlopeZ(safe_x, safe_y);
truelight@0: 		u->direction = v->direction;
truelight@0: 
truelight@0: 		DisasterVehicleUpdateImage(u);
truelight@0: 		VehiclePositionChanged(u);
truelight@0: 		EndVehicleMove(u);
truelight@0: 
truelight@0: 		if ( (u=u->next) != NULL) {
truelight@0: 			BeginVehicleMove(u);
truelight@0: 			u->x_pos = x;
truelight@0: 			u->y_pos = y;
truelight@0: 			u->z_pos = z + 5;
truelight@0: 			VehiclePositionChanged(u);
truelight@0: 			EndVehicleMove(u);
truelight@0: 		}
truelight@0: 	}
truelight@0: }
truelight@0: 
truelight@0: 
truelight@0: static void DisasterTick_Zeppeliner(Vehicle *v)
truelight@0: {
truelight@0: 	GetNewVehiclePosResult gp;
truelight@0: 	Station *st;
truelight@0: 	int x,y;
truelight@0: 	byte z;
tron@1977: 	TileIndex tile;
truelight@0: 
truelight@0: 	++v->tick_counter;
truelight@0: 
tron@4527: 	if (v->current_order.dest < 2) {
truelight@0: 		if (v->tick_counter&1)
truelight@0: 			return;
truelight@0: 
truelight@0: 		GetNewVehiclePos(v, &gp);
truelight@193: 
truelight@0: 		SetDisasterVehiclePos(v, gp.x, gp.y, v->z_pos);
truelight@0: 
tron@4527: 		if (v->current_order.dest == 1) {
truelight@0: 			if (++v->age == 38) {
tron@4527: 				v->current_order.dest = 2;
truelight@0: 				v->age = 0;
truelight@0: 			}
truelight@0: 
truelight@0: 			if ((v->tick_counter&7)==0) {
tron@1359: 				CreateEffectVehicleRel(v, 0, -17, 2, EV_SMOKE);
truelight@0: 			}
tron@4527: 		} else if (v->current_order.dest == 0) {
truelight@0: 			tile = v->tile; /**/
truelight@0: 
tron@1212: 			if (IsValidTile(tile) &&
tron@1212: 					IsTileType(tile, MP_STATION) &&
tron@3338: 					IsAirport(tile) &&
Darkvater@4845: 					IsHumanPlayer(GetTileOwner(tile))) {
tron@4527: 				v->current_order.dest = 1;
truelight@0: 				v->age = 0;
truelight@0: 
tron@3315: 				SetDParam(0, GetStationIndex(tile));
truelight@0: 				AddNewsItem(STR_B000_ZEPPELIN_DISASTER_AT,
truelight@0: 					NEWS_FLAGS(NM_THIN, NF_VIEWPORT|NF_VEHICLE, NT_ACCIDENT, 0),
truelight@0: 					v->index,
truelight@0: 					0);
truelight@0: 			}
truelight@0: 		}
celestar@3421: 		if (v->y_pos >= ((int)MapSizeY() + 9) * TILE_SIZE - 1)
truelight@0: 			DeleteDisasterVeh(v);
truelight@0: 		return;
truelight@193: 	}
truelight@193: 
tron@4527: 	if (v->current_order.dest > 2) {
truelight@0: 		if (++v->age <= 13320)
truelight@0: 			return;
truelight@193: 
truelight@0: 		tile = v->tile; /**/
truelight@0: 
tron@1212: 		if (IsValidTile(tile) &&
tron@1212: 				IsTileType(tile, MP_STATION) &&
tron@3338: 				IsAirport(tile) &&
Darkvater@4845: 				IsHumanPlayer(GetTileOwner(tile))) {
tron@3315: 			st = GetStationByTile(tile);
truelight@0: 			CLRBITS(st->airport_flags, RUNWAY_IN_block);
truelight@0: 		}
truelight@0: 
truelight@0: 		SetDisasterVehiclePos(v, v->x_pos, v->y_pos, v->z_pos);
truelight@0: 		DeleteDisasterVeh(v);
truelight@0: 		return;
truelight@0: 	}
truelight@0: 
truelight@0: 	x = v->x_pos;
truelight@0: 	y = v->y_pos;
truelight@0: 	z = GetSlopeZ(x,y);
truelight@0: 	if (z < v->z_pos)
truelight@0: 		z = v->z_pos - 1;
truelight@0: 	SetDisasterVehiclePos(v, x, y, z);
truelight@0: 
truelight@0: 	if (++v->age == 1) {
tron@1359: 		CreateEffectVehicleRel(v, 0, 7, 8, EV_EXPLOSION_LARGE);
tron@541: 		SndPlayVehicleFx(SND_12_EXPLOSION, v);
tron@2535: 		v->u.disaster.image_override = SPR_BLIMP_CRASHING;
truelight@0: 	} else if (v->age == 70) {
tron@2535: 		v->u.disaster.image_override = SPR_BLIMP_CRASHED;
truelight@0: 	} else if (v->age <= 300) {
truelight@0: 		if (!(v->tick_counter&7)) {
truelight@0: 			uint32 r = Random();
truelight@0: 
truelight@0: 			CreateEffectVehicleRel(v,
tron@2140: 				GB(r, 0, 4) - 7,
tron@2140: 				GB(r, 4, 4) - 7,
tron@2140: 				GB(r, 8, 3) + 5,
tron@1359: 				EV_EXPLOSION_SMALL);
truelight@0: 		}
truelight@0: 	} else if (v->age == 350) {
tron@4527: 		v->current_order.dest = 3;
truelight@0: 		v->age = 0;
truelight@0: 	}
truelight@0: 
truelight@0: 	tile = v->tile;/**/
tron@1212: 	if (IsValidTile(tile) &&
tron@1212: 			IsTileType(tile, MP_STATION) &&
tron@3338: 			IsAirport(tile) &&
Darkvater@4845: 			IsHumanPlayer(GetTileOwner(tile))) {
tron@3315: 		st = GetStationByTile(tile);
truelight@0: 		SETBITS(st->airport_flags, RUNWAY_IN_block);
truelight@0: 	}
truelight@0: }
truelight@0: 
truelight@0: // UFO starts in the middle, and flies around a bit until it locates
truelight@0: // a road vehicle which it targets.
truelight@0: static void DisasterTick_UFO(Vehicle *v)
truelight@0: {
truelight@0: 	GetNewVehiclePosResult gp;
truelight@0: 	Vehicle *u;
truelight@0: 	uint dist;
truelight@0: 	byte z;
truelight@0: 
tron@2535: 	v->u.disaster.image_override = (++v->tick_counter & 8) ? SPR_UFO_SMALL_SCOUT_DARKER : SPR_UFO_SMALL_SCOUT;
truelight@193: 
tron@4527: 	if (v->current_order.dest == 0) {
truelight@193: // fly around randomly
celestar@3421: 		int x = TileX(v->dest_tile) * TILE_SIZE;
celestar@3421: 		int y = TileY(v->dest_tile) * TILE_SIZE;
celestar@3421: 		if (abs(x - v->x_pos) + abs(y - v->y_pos) >= TILE_SIZE) {
truelight@0: 			v->direction = GetDirectionTowards(v, x, y);
truelight@0: 			GetNewVehiclePos(v, &gp);
truelight@0: 			SetDisasterVehiclePos(v, gp.x, gp.y, v->z_pos);
truelight@0: 			return;
truelight@0: 		}
truelight@0: 		if (++v->age < 6) {
ludde@2051: 			v->dest_tile = RandomTile();
truelight@0: 			return;
truelight@0: 		}
tron@4527: 		v->current_order.dest = 1;
truelight@0: 
truelight@0: 		FOR_ALL_VEHICLES(u) {
Darkvater@4845: 			if (u->type == VEH_Road && IsHumanPlayer(u->owner)) {
truelight@0: 				v->dest_tile = u->index;
truelight@0: 				v->age = 0;
truelight@0: 				return;
truelight@0: 			}
truelight@0: 		}
truelight@0: 
truelight@0: 		DeleteDisasterVeh(v);
truelight@0: 	} else {
truelight@0: // target a vehicle
truelight@919: 		u = GetVehicle(v->dest_tile);
truelight@0: 		if (u->type != VEH_Road) {
truelight@0: 			DeleteDisasterVeh(v);
truelight@0: 			return;
truelight@0: 		}
truelight@0: 
truelight@0: 		dist = abs(v->x_pos - u->x_pos) + abs(v->y_pos - u->y_pos);
truelight@0: 
celestar@3421: 		if (dist < TILE_SIZE && !(u->vehstatus&VS_HIDDEN) && u->breakdown_ctr==0) {
truelight@0: 			u->breakdown_ctr = 3;
truelight@0: 			u->breakdown_delay = 140;
truelight@0: 		}
truelight@0: 
truelight@0: 		v->direction = GetDirectionTowards(v, u->x_pos, u->y_pos);
truelight@0: 		GetNewVehiclePos(v, &gp);
truelight@193: 
truelight@0: 		z = v->z_pos;
celestar@3421: 		if (dist <= TILE_SIZE && z > u->z_pos) z--;
truelight@0: 		SetDisasterVehiclePos(v, gp.x, gp.y, z);
truelight@193: 
truelight@0: 		if (z <= u->z_pos && (u->vehstatus&VS_HIDDEN)==0) {
truelight@0: 			v->age++;
truelight@0: 			if (u->u.road.crashed_ctr == 0) {
truelight@0: 				u->u.road.crashed_ctr++;
truelight@0: 				u->vehstatus |= VS_CRASHED;
truelight@0: 
truelight@0: 				AddNewsItem(STR_B001_ROAD_VEHICLE_DESTROYED,
truelight@0: 					NEWS_FLAGS(NM_THIN, NF_VIEWPORT|NF_VEHICLE, NT_ACCIDENT, 0),
truelight@0: 					u->index,
truelight@0: 					0);
truelight@0: 			}
truelight@0: 		}
truelight@0: 
truelight@0: // destroy?
truelight@0: 		if (v->age > 50) {
tron@1359: 			CreateEffectVehicleRel(v, 0, 7, 8, EV_EXPLOSION_LARGE);
tron@541: 			SndPlayVehicleFx(SND_12_EXPLOSION, v);
truelight@0: 			DeleteDisasterVeh(v);
truelight@0: 		}
truelight@0: 	}
truelight@0: }
truelight@0: 
truelight@0: static void DestructIndustry(Industry *i)
truelight@0: {
tron@1977: 	TileIndex tile;
truelight@0: 
tron@2026: 	for (tile = 0; tile != MapSize(); tile++) {
tron@3314: 		if (IsTileType(tile, MP_INDUSTRY) && GetIndustryIndex(tile) == i->index) {
belugas@3495: 			ResetIndustryConstructionStage(tile);
truelight@0: 			MarkTileDirtyByTile(tile);
truelight@0: 		}
truelight@0: 	}
truelight@0: }
truelight@0: 
truelight@0: // Airplane which destroys an oil refinery
truelight@0: static void DisasterTick_2(Vehicle *v)
truelight@0: {
truelight@0: 	GetNewVehiclePosResult gp;
truelight@193: 
truelight@0: 	v->tick_counter++;
tron@555: 	v->u.disaster.image_override =
tron@4527: 		(v->current_order.dest == 1 && v->tick_counter & 4) ? SPR_F_15_FIRING : 0;
truelight@193: 
truelight@0: 	GetNewVehiclePos(v, &gp);
truelight@0: 	SetDisasterVehiclePos(v, gp.x, gp.y, v->z_pos);
truelight@0: 
truelight@0: 	if (gp.x < -160) {
truelight@0: 		DeleteDisasterVeh(v);
truelight@0: 		return;
truelight@0: 	}
truelight@0: 
tron@4527: 	if (v->current_order.dest == 2) {
truelight@0: 		if (!(v->tick_counter&3)) {
truelight@919: 			Industry *i = GetIndustry(v->dest_tile);
celestar@3421: 			int x = TileX(i->xy) * TILE_SIZE;
celestar@3421: 			int y = TileY(i->xy) * TILE_SIZE;
truelight@0: 			uint32 r = Random();
truelight@0: 
truelight@0: 			CreateEffectVehicleAbove(
tron@2140: 				GB(r,  0, 6) + x,
tron@2140: 				GB(r,  6, 6) + y,
tron@2140: 				GB(r, 12, 4),
tron@1359: 				EV_EXPLOSION_SMALL);
truelight@0: 
truelight@0: 			if (++v->age >= 55)
tron@4527: 				v->current_order.dest = 3;
truelight@0: 		}
tron@4527: 	} else if (v->current_order.dest == 1) {
truelight@0: 		if (++v->age == 112) {
truelight@0: 			Industry *i;
truelight@0: 
tron@4527: 			v->current_order.dest = 2;
truelight@0: 			v->age = 0;
truelight@0: 
truelight@919: 			i = GetIndustry(v->dest_tile);
truelight@0: 			DestructIndustry(i);
truelight@0: 
tron@534: 			SetDParam(0, i->town->index);
truelight@0: 			AddNewsItem(STR_B002_OIL_REFINERY_EXPLOSION, NEWS_FLAGS(NM_THIN,NF_VIEWPORT|NF_TILE,NT_ACCIDENT,0), i->xy, 0);
tron@541: 			SndPlayTileFx(SND_12_EXPLOSION, i->xy);
truelight@0: 		}
tron@4527: 	} else if (v->current_order.dest == 0) {
truelight@0: 		int x,y;
tron@1977: 		TileIndex tile;
tron@3314: 		uint ind;
truelight@0: 
celestar@3421: 		x = v->x_pos - 15 * TILE_SIZE;
truelight@0: 		y = v->y_pos;
truelight@0: 
celestar@3421: 		if ( (uint)x > MapMaxX() * TILE_SIZE - 1)
truelight@0: 			return;
truelight@0: 
tron@1980: 		tile = TileVirtXY(x, y);
tron@1035: 		if (!IsTileType(tile, MP_INDUSTRY))
truelight@0: 			return;
truelight@0: 
tron@3314: 		ind = GetIndustryIndex(tile);
tron@3314: 		v->dest_tile = ind;
truelight@0: 
truelight@919: 		if (GetIndustry(ind)->type == IT_OIL_REFINERY) {
tron@4527: 			v->current_order.dest = 1;
truelight@0: 			v->age = 0;
truelight@0: 		}
truelight@0: 	}
truelight@0: }
truelight@0: 
truelight@0: // Helicopter which destroys a factory
truelight@0: static void DisasterTick_3(Vehicle *v)
truelight@0: {
truelight@0: 	GetNewVehiclePosResult gp;
truelight@0: 
truelight@0: 	v->tick_counter++;
tron@555: 	v->u.disaster.image_override =
tron@4527: 		(v->current_order.dest == 1 && v->tick_counter & 4) ? SPR_AH_64A_FIRING : 0;
truelight@0: 
truelight@0: 	GetNewVehiclePos(v, &gp);
truelight@0: 	SetDisasterVehiclePos(v, gp.x, gp.y, v->z_pos);
truelight@0: 
celestar@3421: 	if (gp.x > (int)MapSizeX() * TILE_SIZE + 9 * TILE_SIZE - 1) {
truelight@0: 		DeleteDisasterVeh(v);
truelight@0: 		return;
truelight@0: 	}
truelight@0: 
tron@4527: 	if (v->current_order.dest == 2) {
truelight@0: 		if (!(v->tick_counter&3)) {
truelight@919: 			Industry *i = GetIndustry(v->dest_tile);
celestar@3421: 			int x = TileX(i->xy) * TILE_SIZE;
celestar@3421: 			int y = TileY(i->xy) * TILE_SIZE;
truelight@0: 			uint32 r = Random();
truelight@0: 
truelight@0: 			CreateEffectVehicleAbove(
tron@2140: 				GB(r,  0, 6) + x,
tron@2140: 				GB(r,  6, 6) + y,
tron@2140: 				GB(r, 12, 4),
tron@1359: 				EV_EXPLOSION_SMALL);
truelight@0: 
truelight@0: 			if (++v->age >= 55)
tron@4527: 				v->current_order.dest = 3;
truelight@0: 		}
tron@4527: 	} else if (v->current_order.dest == 1) {
truelight@0: 		if (++v->age == 112) {
truelight@0: 			Industry *i;
truelight@0: 
tron@4527: 			v->current_order.dest = 2;
truelight@0: 			v->age = 0;
truelight@0: 
truelight@919: 			i = GetIndustry(v->dest_tile);
truelight@0: 			DestructIndustry(i);
truelight@0: 
tron@534: 			SetDParam(0, i->town->index);
truelight@0: 			AddNewsItem(STR_B003_FACTORY_DESTROYED_IN_SUSPICIOUS, NEWS_FLAGS(NM_THIN,NF_VIEWPORT|NF_TILE,NT_ACCIDENT,0), i->xy, 0);
tron@541: 			SndPlayTileFx(SND_12_EXPLOSION, i->xy);
truelight@0: 		}
tron@4527: 	} else if (v->current_order.dest == 0) {
truelight@0: 		int x,y;
tron@1977: 		TileIndex tile;
tron@3314: 		uint ind;
truelight@0: 
celestar@3421: 		x = v->x_pos - 15 * TILE_SIZE;
truelight@0: 		y = v->y_pos;
truelight@0: 
celestar@3421: 		if ( (uint)x > MapMaxX() * TILE_SIZE - 1)
truelight@0: 			return;
truelight@0: 
tron@1980: 		tile = TileVirtXY(x, y);
tron@1035: 		if (!IsTileType(tile, MP_INDUSTRY))
truelight@0: 			return;
truelight@0: 
tron@3314: 		ind = GetIndustryIndex(tile);
tron@3314: 		v->dest_tile = ind;
truelight@0: 
truelight@919: 		if (GetIndustry(ind)->type == IT_FACTORY) {
tron@4527: 			v->current_order.dest = 1;
truelight@0: 			v->age = 0;
truelight@0: 		}
truelight@0: 	}
truelight@0: }
truelight@0: 
truelight@0: // Helicopter rotor blades
truelight@0: static void DisasterTick_3b(Vehicle *v)
truelight@0: {
truelight@0: 	if (++v->tick_counter & 1)
truelight@0: 		return;
truelight@0: 
tron@2535: 	if (++v->cur_image > SPR_ROTOR_MOVING_3) v->cur_image = SPR_ROTOR_MOVING_1;
truelight@0: 
truelight@0: 	VehiclePositionChanged(v);
truelight@0: 	BeginVehicleMove(v);
truelight@0: 	EndVehicleMove(v);
truelight@0: }
truelight@0: 
truelight@0: // Big UFO which lands on a piece of rail.
truelight@0: // Will be shot down by a plane
truelight@0: static void DisasterTick_4(Vehicle *v)
truelight@0: {
truelight@0: 	GetNewVehiclePosResult gp;
truelight@0: 	byte z;
truelight@0: 	Vehicle *u,*w;
truelight@0: 	Town *t;
tron@1977: 	TileIndex tile;
tron@1977: 	TileIndex tile_org;
truelight@0: 
truelight@0: 	v->tick_counter++;
truelight@0: 
tron@4527: 	if (v->current_order.dest == 1) {
tron@3645: 		int x = TileX(v->dest_tile) * TILE_SIZE + TILE_SIZE / 2;
tron@3645: 		int y = TileY(v->dest_tile) * TILE_SIZE + TILE_SIZE / 2;
truelight@0: 		if (abs(v->x_pos - x) + abs(v->y_pos - y) >= 8) {
truelight@0: 			v->direction = GetDirectionTowards(v, x, y);
truelight@0: 
truelight@0: 			GetNewVehiclePos(v, &gp);
truelight@0: 			SetDisasterVehiclePos(v, gp.x, gp.y, v->z_pos);
truelight@0: 			return;
truelight@0: 		}
truelight@0: 
truelight@0: 		z = GetSlopeZ(v->x_pos, v->y_pos);
truelight@0: 		if (z < v->z_pos) {
truelight@0: 			SetDisasterVehiclePos(v, v->x_pos, v->y_pos, v->z_pos - 1);
truelight@0: 			return;
truelight@0: 		}
truelight@0: 
tron@4527: 		v->current_order.dest = 2;
truelight@0: 
truelight@0: 		FOR_ALL_VEHICLES(u) {
truelight@0: 			if (u->type == VEH_Train || u->type == VEH_Road) {
celestar@3421: 				if (abs(u->x_pos - v->x_pos) + abs(u->y_pos - v->y_pos) <= 12 * TILE_SIZE) {
truelight@0: 					u->breakdown_ctr = 5;
truelight@0: 					u->breakdown_delay = 0xF0;
truelight@0: 				}
truelight@0: 			}
truelight@0: 		}
truelight@0: 
truelight@0: 		t = ClosestTownFromTile(v->dest_tile, (uint)-1);
tron@534: 		SetDParam(0, t->index);
truelight@0: 		AddNewsItem(STR_B004_UFO_LANDS_NEAR,
truelight@0: 			NEWS_FLAGS(NM_THIN, NF_VIEWPORT|NF_TILE, NT_ACCIDENT, 0),
truelight@0: 			v->tile,
truelight@0: 			0);
truelight@0: 
truelight@0: 		u = ForceAllocateSpecialVehicle();
truelight@0: 		if (u == NULL) {
truelight@0: 			DeleteDisasterVeh(v);
truelight@0: 			return;
truelight@0: 		}
truelight@0: 
celestar@3421: 		InitializeDisasterVehicle(u, -6 * TILE_SIZE, v->y_pos, 135, DIR_SW, 11);
truelight@0: 		u->u.disaster.unk2 = v->index;
truelight@0: 
truelight@0: 		w = ForceAllocateSpecialVehicle();
truelight@0: 		if (w == NULL)
truelight@0: 			return;
truelight@0: 
truelight@0: 		u->next = w;
celestar@3421: 		InitializeDisasterVehicle(w, -6 * TILE_SIZE, v->y_pos, 0, DIR_SW, 12);
tron@4175: 		w->vehstatus |= VS_SHADOW;
tron@4527: 	} else if (v->current_order.dest < 1) {
truelight@193: 
celestar@3421: 		int x = TileX(v->dest_tile) * TILE_SIZE;
celestar@3421: 		int y = TileY(v->dest_tile) * TILE_SIZE;
celestar@3421: 		if (abs(x - v->x_pos) + abs(y - v->y_pos) >= TILE_SIZE) {
truelight@0: 			v->direction = GetDirectionTowards(v, x, y);
truelight@0: 			GetNewVehiclePos(v, &gp);
truelight@0: 			SetDisasterVehiclePos(v, gp.x, gp.y, v->z_pos);
truelight@0: 			return;
truelight@0: 		}
truelight@0: 
truelight@0: 		if (++v->age < 6) {
ludde@2051: 			v->dest_tile = RandomTile();
truelight@0: 			return;
truelight@0: 		}
tron@4527: 		v->current_order.dest = 1;
truelight@0: 
ludde@2051: 		tile_org = tile = RandomTile();
truelight@0: 		do {
tron@1035: 			if (IsTileType(tile, MP_RAILWAY) &&
tron@3269: 					IsPlainRailTile(tile) &&
Darkvater@4845: 					IsHumanPlayer(GetTileOwner(tile))) {
tron@1901: 				break;
tron@3269: 			}
truelight@0: 			tile = TILE_MASK(tile+1);
truelight@0: 		} while (tile != tile_org);
truelight@0: 		v->dest_tile = tile;
truelight@0: 		v->age = 0;
tron@4077: 	} else {
truelight@0: 		return;
tron@4077: 	}
truelight@0: }
truelight@0: 
truelight@0: // The plane which will shoot down the UFO
truelight@0: static void DisasterTick_4b(Vehicle *v)
truelight@0: {
truelight@0: 	GetNewVehiclePosResult gp;
truelight@0: 	Vehicle *u;
truelight@0: 	int i;
truelight@0: 
truelight@0: 	v->tick_counter++;
truelight@0: 
truelight@0: 	GetNewVehiclePos(v, &gp);
truelight@0: 	SetDisasterVehiclePos(v, gp.x, gp.y, v->z_pos);
truelight@0: 
celestar@3421: 	if (gp.x > (int)MapSizeX() * TILE_SIZE + 9 * TILE_SIZE - 1) {
truelight@0: 		DeleteDisasterVeh(v);
truelight@0: 		return;
truelight@0: 	}
truelight@0: 
tron@4527: 	if (v->current_order.dest == 0) {
truelight@919: 		u = GetVehicle(v->u.disaster.unk2);
celestar@3421: 		if (abs(v->x_pos - u->x_pos) > TILE_SIZE)
truelight@0: 			return;
tron@4527: 		v->current_order.dest = 1;
truelight@0: 
tron@1359: 		CreateEffectVehicleRel(u, 0, 7, 8, EV_EXPLOSION_LARGE);
tron@541: 		SndPlayVehicleFx(SND_12_EXPLOSION, u);
truelight@0: 
truelight@0: 		DeleteDisasterVeh(u);
truelight@0: 
tron@2952: 		for (i = 0; i != 80; i++) {
truelight@0: 			uint32 r = Random();
truelight@0: 			CreateEffectVehicleAbove(
tron@2140: 				GB(r, 0, 6) + v->x_pos - 32,
tron@2140: 				GB(r, 5, 6) + v->y_pos - 32,
truelight@0: 				0,
tron@1359: 				EV_EXPLOSION_SMALL);
truelight@0: 		}
truelight@0: 
tron@1981: 		BEGIN_TILE_LOOP(tile, 6, 6, v->tile - TileDiffXY(3, 3))
truelight@0: 			tile = TILE_MASK(tile);
truelight@0: 			DisasterClearSquare(tile);
tron@1981: 		END_TILE_LOOP(tile, 6, 6, v->tile - TileDiffXY(3, 3))
truelight@0: 	}
truelight@0: }
truelight@0: 
truelight@0: // Submarine handler
truelight@0: static void DisasterTick_5_and_6(Vehicle *v)
truelight@0: {
truelight@0: 	uint32 r;
truelight@0: 	GetNewVehiclePosResult gp;
tron@1977: 	TileIndex tile;
truelight@0: 
truelight@0: 	v->tick_counter++;
truelight@0: 
truelight@0: 	if (++v->age > 8880) {
truelight@0: 		VehiclePositionChanged(v);
truelight@0: 		BeginVehicleMove(v);
truelight@0: 		EndVehicleMove(v);
truelight@0: 		DeleteVehicle(v);
truelight@0: 		return;
truelight@0: 	}
truelight@0: 
tron@4077: 	if (!(v->tick_counter & 1)) return;
truelight@0: 
Darkvater@4559: 	tile = v->tile + TileOffsByDiagDir(DirToDiagDir(v->direction));
truelight@0: 	if (IsValidTile(tile) &&
truelight@159: 			(r=GetTileTrackStatus(tile,TRANSPORT_WATER),(byte)(r+(r >> 8)) == 0x3F) &&
truelight@0: 			!CHANCE16(1,90)) {
truelight@0: 		GetNewVehiclePos(v, &gp);
truelight@0: 		SetDisasterVehiclePos(v, gp.x, gp.y, v->z_pos);
truelight@0: 		return;
truelight@0: 	}
truelight@0: 
tron@3160: 	v->direction = ChangeDir(v->direction, GB(Random(), 0, 1) ? DIRDIFF_90RIGHT : DIRDIFF_90LEFT);
truelight@0: }
truelight@0: 
truelight@0: 
truelight@0: static void DisasterTick_NULL(Vehicle *v) {}
truelight@0: typedef void DisasterVehicleTickProc(Vehicle *v);
truelight@0: 
truelight@0: static DisasterVehicleTickProc * const _disastervehicle_tick_procs[] = {
truelight@0: 	DisasterTick_Zeppeliner,DisasterTick_NULL,
truelight@0: 	DisasterTick_UFO,DisasterTick_NULL,
truelight@0: 	DisasterTick_2,DisasterTick_NULL,
truelight@0: 	DisasterTick_3,DisasterTick_NULL,DisasterTick_3b,
truelight@0: 	DisasterTick_4,DisasterTick_NULL,
truelight@0: 	DisasterTick_4b,DisasterTick_NULL,
truelight@0: 	DisasterTick_5_and_6,
truelight@0: 	DisasterTick_5_and_6,
truelight@0: };
truelight@0: 
truelight@0: 
truelight@0: void DisasterVehicle_Tick(Vehicle *v)
truelight@0: {
truelight@0: 	_disastervehicle_tick_procs[v->subtype](v);
truelight@0: }
truelight@0: 
truelight@0: 
truelight@0: void OnNewDay_DisasterVehicle(Vehicle *v)
truelight@0: {
truelight@0: 	// not used
truelight@0: }
truelight@0: 
tron@1093: typedef void DisasterInitProc(void);
truelight@0: 
truelight@0: // Zeppeliner which crashes on a small airport
tron@1093: static void Disaster0_Init(void)
truelight@0: {
truelight@0: 	Vehicle *v = ForceAllocateSpecialVehicle(), *u;
truelight@0: 	Station *st;
truelight@0: 	int x;
truelight@0: 
tron@4077: 	if (v == NULL) return;
truelight@0: 
tron@4077: 	/* Pick a random place, unless we find a small airport */
tron@3645: 	x = TileX(Random()) * TILE_SIZE + TILE_SIZE / 2;
truelight@919: 
truelight@919: 	FOR_ALL_STATIONS(st) {
truelight@4346: 		if (st->airport_tile != 0 &&
truelight@0: 				st->airport_type <= 1 &&
Darkvater@4845: 				IsHumanPlayer(st->owner)) {
celestar@3421: 			x = (TileX(st->xy) + 2) * TILE_SIZE;
truelight@0: 			break;
truelight@0: 		}
truelight@0: 	}
truelight@0: 
tron@3157: 	InitializeDisasterVehicle(v, x, 0, 135, DIR_SE, 0);
truelight@0: 
truelight@0: 	// Allocate shadow too?
truelight@0: 	u = ForceAllocateSpecialVehicle();
truelight@0: 	if (u != NULL) {
truelight@0: 		v->next = u;
tron@3157: 		InitializeDisasterVehicle(u, x, 0, 0, DIR_SE, 1);
tron@4175: 		u->vehstatus |= VS_SHADOW;
truelight@0: 	}
truelight@0: }
truelight@0: 
tron@1093: static void Disaster1_Init(void)
truelight@0: {
truelight@0: 	Vehicle *v = ForceAllocateSpecialVehicle(), *u;
truelight@0: 	int x;
truelight@0: 
tron@4077: 	if (v == NULL) return;
truelight@0: 
tron@3645: 	x = TileX(Random()) * TILE_SIZE + TILE_SIZE / 2;
truelight@0: 
tron@3157: 	InitializeDisasterVehicle(v, x, 0, 135, DIR_SE, 2);
tron@1981: 	v->dest_tile = TileXY(MapSizeX() / 2, MapSizeY() / 2);
truelight@0: 	v->age = 0;
truelight@0: 
truelight@0: 	// Allocate shadow too?
truelight@0: 	u = ForceAllocateSpecialVehicle();
truelight@0: 	if (u != NULL) {
truelight@0: 		v->next = u;
tron@3157: 		InitializeDisasterVehicle(u, x, 0, 0, DIR_SE, 3);
tron@4175: 		u->vehstatus |= VS_SHADOW;
truelight@0: 	}
truelight@0: }
truelight@0: 
tron@1093: static void Disaster2_Init(void)
truelight@0: {
truelight@0: 	Industry *i, *found;
truelight@0: 	Vehicle *v,*u;
truelight@0: 	int x,y;
truelight@0: 
truelight@830: 	found = NULL;
truelight@830: 
truelight@830: 	FOR_ALL_INDUSTRIES(i) {
truelight@4346: 		if (i->type == IT_OIL_REFINERY &&
tron@4077: 				(found == NULL || CHANCE16(1, 2))) {
truelight@0: 			found = i;
truelight@0: 		}
truelight@0: 	}
truelight@0: 
tron@4077: 	if (found == NULL) return;
truelight@0: 
truelight@0: 	v = ForceAllocateSpecialVehicle();
tron@4077: 	if (v == NULL) return;
truelight@0: 
celestar@3421: 	x = (MapSizeX() + 9) * TILE_SIZE - 1;
celestar@3421: 	y = TileY(found->xy) * TILE_SIZE + 37;
truelight@0: 
tron@3157: 	InitializeDisasterVehicle(v, x, y, 135, DIR_NE, 4);
truelight@0: 
truelight@0: 	u = ForceAllocateSpecialVehicle();
truelight@0: 	if (u != NULL) {
truelight@0: 		v->next = u;
tron@3157: 		InitializeDisasterVehicle(u, x, y, 0, DIR_SE, 5);
tron@4175: 		u->vehstatus |= VS_SHADOW;
truelight@0: 	}
truelight@0: }
truelight@0: 
tron@1093: static void Disaster3_Init(void)
truelight@0: {
truelight@0: 	Industry *i, *found;
truelight@0: 	Vehicle *v,*u,*w;
truelight@0: 	int x,y;
truelight@0: 
truelight@830: 	found = NULL;
truelight@830: 
truelight@830: 	FOR_ALL_INDUSTRIES(i) {
truelight@4346: 		if (i->type == IT_FACTORY &&
truelight@0: 				(found==NULL || CHANCE16(1,2))) {
truelight@0: 			found = i;
truelight@0: 		}
truelight@0: 	}
truelight@0: 
tron@4077: 	if (found == NULL) return;
truelight@0: 
truelight@0: 	v = ForceAllocateSpecialVehicle();
tron@4077: 	if (v == NULL) return;
truelight@0: 
celestar@3421: 	x = -16 * TILE_SIZE;
celestar@3421: 	y = TileY(found->xy) * TILE_SIZE + 37;
truelight@0: 
tron@3157: 	InitializeDisasterVehicle(v, x, y, 135, DIR_SW, 6);
truelight@0: 
truelight@0: 	u = ForceAllocateSpecialVehicle();
truelight@0: 	if (u != NULL) {
truelight@0: 		v->next = u;
tron@3157: 		InitializeDisasterVehicle(u, x, y, 0, DIR_SW, 7);
tron@4175: 		u->vehstatus |= VS_SHADOW;
truelight@0: 
truelight@0: 		w = ForceAllocateSpecialVehicle();
truelight@0: 		if (w != NULL) {
truelight@0: 			u->next = w;
tron@3157: 			InitializeDisasterVehicle(w, x, y, 140, DIR_SW, 8);
truelight@0: 		}
truelight@0: 	}
truelight@0: }
truelight@0: 
tron@1093: static void Disaster4_Init(void)
truelight@0: {
truelight@0: 	Vehicle *v = ForceAllocateSpecialVehicle(), *u;
truelight@0: 	int x,y;
truelight@0: 
tron@2639: 	if (v == NULL) return;
truelight@0: 
tron@3645: 	x = TileX(Random()) * TILE_SIZE + TILE_SIZE / 2;
truelight@0: 
celestar@3421: 	y = MapMaxX() * TILE_SIZE - 1;
tron@3157: 	InitializeDisasterVehicle(v, x, y, 135, DIR_NW, 9);
tron@1981: 	v->dest_tile = TileXY(MapSizeX() / 2, MapSizeY() / 2);
truelight@0: 	v->age = 0;
truelight@0: 
truelight@0: 	// Allocate shadow too?
truelight@0: 	u = ForceAllocateSpecialVehicle();
truelight@0: 	if (u != NULL) {
truelight@0: 		v->next = u;
tron@3157: 		InitializeDisasterVehicle(u, x, y, 0, DIR_NW, 10);
tron@4175: 		u->vehstatus |= VS_SHADOW;
truelight@0: 	}
truelight@0: }
truelight@0: 
truelight@0: // Submarine type 1
tron@1093: static void Disaster5_Init(void)
truelight@0: {
truelight@0: 	Vehicle *v = ForceAllocateSpecialVehicle();
truelight@0: 	int x,y;
tron@3157: 	Direction dir;
truelight@0: 	uint32 r;
truelight@0: 
tron@2639: 	if (v == NULL) return;
truelight@0: 
truelight@0: 	r = Random();
tron@3645: 	x = TileX(r) * TILE_SIZE + TILE_SIZE / 2;
truelight@0: 
tron@3157: 	if (r & 0x80000000) {
tron@3645: 		y = MapMaxX() * TILE_SIZE - TILE_SIZE / 2 - 1;
tron@3157: 		dir = DIR_NW;
tron@3157: 	} else {
tron@3645: 		y = TILE_SIZE / 2;
tron@3157: 		dir = DIR_SE;
tron@3157: 	}
tron@3157: 	InitializeDisasterVehicle(v, x, y, 0, dir, 13);
truelight@0: 	v->age = 0;
truelight@0: }
truelight@0: 
truelight@0: // Submarine type 2
tron@1093: static void Disaster6_Init(void)
truelight@0: {
truelight@0: 	Vehicle *v = ForceAllocateSpecialVehicle();
truelight@0: 	int x,y;
tron@3157: 	Direction dir;
truelight@0: 	uint32 r;
truelight@0: 
tron@2639: 	if (v == NULL) return;
truelight@0: 
truelight@0: 	r = Random();
tron@3645: 	x = TileX(r) * TILE_SIZE + TILE_SIZE / 2;
truelight@0: 
tron@3157: 	if (r & 0x80000000) {
tron@3645: 		y = MapMaxX() * TILE_SIZE - TILE_SIZE / 2 - 1;
tron@3157: 		dir = DIR_NW;
tron@3157: 	} else {
tron@3645: 		y = TILE_SIZE / 2;
tron@3157: 		dir = DIR_SE;
tron@3157: 	}
tron@3157: 	InitializeDisasterVehicle(v, x, y, 0, dir, 14);
truelight@0: 	v->age = 0;
truelight@0: }
truelight@0: 
tron@1093: static void Disaster7_Init(void)
truelight@0: {
tron@2642: 	int index = GB(Random(), 0, 4);
tron@2648: 	uint m;
truelight@193: 
tron@2648: 	for (m = 0; m < 15; m++) {
tron@2989: 		const Industry* i;
tron@2989: 
truelight@830: 		FOR_ALL_INDUSTRIES(i) {
truelight@4346: 			if (i->type == IT_COAL_MINE && --index < 0) {
tron@534: 				SetDParam(0, i->town->index);
truelight@193: 				AddNewsItem(STR_B005_COAL_MINE_SUBSIDENCE_LEAVES,
tron@1981: 					NEWS_FLAGS(NM_THIN,NF_VIEWPORT|NF_TILE,NT_ACCIDENT,0), i->xy + TileDiffXY(1, 1), 0);
truelight@193: 
truelight@0: 				{
tron@1977: 					TileIndex tile = i->xy;
Darkvater@4559: 					TileIndexDiff step = TileOffsByDiagDir(GB(Random(), 0, 2));
tron@2648: 					uint n;
tron@1977: 
Darkvater@2674: 					for (n = 0; n < 30; n++) {
truelight@0: 						DisasterClearSquare(tile);
truelight@0: 						tile = TILE_MASK(tile + step);
tron@2648: 					}
truelight@0: 				}
truelight@0: 				return;
truelight@0: 			}
truelight@0: 		}
tron@2648: 	}
truelight@0: }
truelight@0: 
truelight@0: static DisasterInitProc * const _disaster_initprocs[] = {
truelight@0: 	Disaster0_Init,
truelight@0: 	Disaster1_Init,
truelight@0: 	Disaster2_Init,
truelight@0: 	Disaster3_Init,
truelight@0: 	Disaster4_Init,
truelight@0: 	Disaster5_Init,
truelight@0: 	Disaster6_Init,
truelight@0: 	Disaster7_Init,
truelight@0: };
truelight@0: 
tron@2655: static const struct {
rubidium@4293: 	Year min;
rubidium@4293: 	Year max;
tron@2655: } _dis_years[] = {
rubidium@4293: 	{ 1930, 1955 },
rubidium@4293: 	{ 1940, 1970 },
rubidium@4293: 	{ 1960, 1990 },
rubidium@4293: 	{ 1970, 2000 },
rubidium@4293: 	{ 2000, 2100 },
rubidium@4293: 	{ 1940, 1965 },
rubidium@4293: 	{ 1975, 2010 },
rubidium@4293: 	{ 1950, 1985 }
truelight@0: };
truelight@0: 
truelight@0: 
tron@1093: static void DoDisaster(void)
truelight@0: {
tron@2639: 	byte buf[lengthof(_dis_years)];
tron@2639: 	uint i;
tron@2639: 	uint j;
truelight@0: 
tron@2639: 	j = 0;
tron@2639: 	for (i = 0; i != lengthof(_dis_years); i++) {
rubidium@4293: 		if (_cur_year >= _dis_years[i].min && _cur_year < _dis_years[i].max) buf[j++] = i;
truelight@0: 	}
truelight@0: 
tron@2639: 	if (j == 0) return;
truelight@0: 
tron@2637: 	_disaster_initprocs[buf[RandomRange(j)]]();
truelight@0: }
truelight@0: 
truelight@0: 
tron@1093: static void ResetDisasterDelay(void)
truelight@0: {
tron@2484: 	_disaster_delay = GB(Random(), 0, 9) + 730;
truelight@0: }
truelight@0: 
tron@1093: void DisasterDailyLoop(void)
truelight@0: {
tron@2639: 	if (--_disaster_delay != 0) return;
truelight@0: 
truelight@0: 	ResetDisasterDelay();
truelight@0: 
tron@2639: 	if (_opt.diff.disasters != 0) DoDisaster();
truelight@0: }
truelight@0: 
tron@1093: void StartupDisasters(void)
tron@1093: {
truelight@0: 	ResetDisasterDelay();
truelight@0: }