1

/* $Id$ */

     2

     3

/** @file ai_road.cpp handles the functions of the AIRoad class */

     4

     5

#include "ai_road.hpp"

     6

#include "../../command.h"

     7

#include "../../road_map.h"

     8

#include "../../station_map.h"

     9

    10

bool AIRoad::IsRoadTile(TileIndex tile)

    11

{

    12

	/* Outside of the map */

    13

	if (tile >= ::MapSize()) return false;

    14

    15

	return (::IsTileType(tile, MP_STREET) && ::GetRoadTileType(tile) != ROAD_TILE_DEPOT) ||

    16

			this->IsDriveThroughRoadStationTile(tile);

    17

}

    18

    19

bool AIRoad::IsRoadDepotTile(TileIndex tile)

    20

{

    21

	/* Outside of the map */

    22

	if (tile >= ::MapSize()) return false;

    23

    24

	return ::IsTileType(tile, MP_STREET) && ::GetRoadTileType(tile) == ROAD_TILE_DEPOT;

    25

}

    26

    27

bool AIRoad::IsRoadStationTile(TileIndex tile)

    28

{

    29

	/* Outside of the map */

    30

	if (tile >= ::MapSize()) return false;

    31

    32

	return ::IsRoadStopTile(tile);

    33

}

    34

    35

bool AIRoad::IsDriveThroughRoadStationTile(TileIndex tile)

    36

{

    37

	/* Outside of the map */

    38

	if (tile >= ::MapSize()) return false;

    39

    40

	return ::IsDriveThroughStopTile(tile);

    41

}

    42

    43

bool AIRoad::AreRoadTilesConnected(TileIndex t1, TileIndex t2)

    44

{

    45

	/* Outside of the map */

    46

	if (t1 >= ::MapSize() || t2 >= ::MapSize()) return false;

    47

    48

	/* Tiles not neighbouring */

    49

	if ((abs((int)::TileX(t1) - (int)::TileX(t2)) + abs((int)::TileY(t1) - (int)::TileY(t2))) != 1) return false;

    50

    51

	RoadBits r1 = ::GetAnyRoadBits(t1, ROADTYPE_ROAD);

    52

	RoadBits r2 = ::GetAnyRoadBits(t2, ROADTYPE_ROAD);

    53

    54

	DiagDirection dir_1 = (DiagDirection)((::TileX(t1) == ::TileX(t2)) ? (::TileY(t1) < ::TileY(t2) ? 2 : 0) : (::TileX(t1) < ::TileX(t2) ? 1 : 3));

    55

	DiagDirection dir_2 = ::ReverseDiagDir(dir_1);

    56

    57

	return HASBIT(r1, dir_1) && HASBIT(r2, dir_2);

    58

}

    59

    60

int32 AIRoad::GetNeighbourRoadCount(TileIndex tile)

    61

{

    62

	/* Outside of the map */

    63

	if (tile >= ::MapSize()) return false;

    64

    65

	int32 neighbour = 0;

    66

    67

	if (::IsTileType(tile + ::TileDiffXY(-1, 0), MP_STREET) && ::GetRoadTileType(tile + ::TileDiffXY(-1, 0)) != ROAD_TILE_DEPOT) neighbour++;

    68

	if (::IsTileType(tile + ::TileDiffXY( 1, 0), MP_STREET) && ::GetRoadTileType(tile + ::TileDiffXY( 1, 0)) != ROAD_TILE_DEPOT) neighbour++;

    69

	if (::IsTileType(tile + ::TileDiffXY( 0,-1), MP_STREET) && ::GetRoadTileType(tile + ::TileDiffXY( 0,-1)) != ROAD_TILE_DEPOT) neighbour++;

    70

	if (::IsTileType(tile + ::TileDiffXY( 0, 1), MP_STREET) && ::GetRoadTileType(tile + ::TileDiffXY( 0, 1)) != ROAD_TILE_DEPOT) neighbour++;

    71

    72

	return neighbour;

    73

}

    74

    75

TileIndex AIRoad::GetRoadDepotFrontTile(TileIndex depot)

    76

{

    77

	if (!this->IsRoadDepotTile(depot)) return INVALID_TILE;

    78

    79

	return depot + ::TileOffsByDiagDir(::GetRoadDepotDirection(depot));

    80

}

    81

    82

TileIndex AIRoad::GetRoadStationFrontTile(TileIndex station)

    83

{

    84

	if (!this->IsRoadStationTile(station)) return INVALID_TILE;

    85

    86

	return station + ::TileOffsByDiagDir(::GetRoadStopDir(station));

    87

}

    88

    89

TileIndex AIRoad::GetDriveThroughBackTile(TileIndex station)

    90

{

    91

	if (!this->IsDriveThroughRoadStationTile(station)) return INVALID_TILE;

    92

    93

	return station + ::TileOffsByDiagDir(::ReverseDiagDir(::GetRoadStopDir(station)));

    94

}

    95

    96

bool AIRoad::BuildRoad(TileIndex start, TileIndex end)

    97

{

    98

	/* Outside of the map */

    99

	if (start >= ::MapSize() || end >= ::MapSize() || start == end) return false;

   100

	/* Not on one line */

   101

	if (TileX(start) != TileX(end) &&

   102

			TileY(start) != TileY(end)) return false;

   103

   104

	return this->DoCommand(end, start, (TileY(start) != TileY(end) ? 4 : 0) | (start < end ? 1 : 2) | (ROADTYPE_ROAD << 3), CMD_BUILD_LONG_ROAD);

   105

}

   106

   118

bool AIRoad::BuildRoadDepot(TileIndex tile, TileIndex front)

   119

{

   120

	/* Outside of the map */

   121

	if (tile >= ::MapSize() || tile == front) return false;

   122

   123

	uint entrance_dir = (TileX(tile) == TileX(front)) ? (TileY(tile) < TileY(front) ? 1 : 3) : (TileX(tile) < TileX(front) ? 2 : 0);

   124

   125

	return this->DoCommand(tile, entrance_dir, ROADTYPE_ROAD << 2, CMD_BUILD_ROAD_DEPOT);

   126

}

   127

   128

bool AIRoad::BuildRoadStation(TileIndex tile, TileIndex front, bool truck, bool drive_through)

   129

{

   130

	/* Outside of the map */

   131

	if (tile >= ::MapSize() || tile == front) return false;

   132

   133

	uint entrance_dir;

   134

	if (drive_through) {

   135

		entrance_dir = TileY(tile) != TileY(front);

   136

	} else {

   137

		entrance_dir = (TileX(tile) == TileX(front)) ? (TileY(tile) < TileY(front) ? 1 : 3) : (TileX(tile) < TileX(front) ? 2 : 0);

   138

	}

   139

   140

	return this->DoCommand(tile, entrance_dir, (drive_through ? 2 : 0) | (truck ? 1 : 0) | (ROADTYPES_ROAD << 2), CMD_BUILD_ROAD_STOP);

   141

}

   142

   143

bool AIRoad::RemoveRoad(TileIndex start, TileIndex end)

   144

{

   145

	/* Outside of the map */

   146

	if (start >= ::MapSize() || end >= ::MapSize()) return false;

   147

	/* Not on one line */

   148

	if (TileX(start) != TileX(end) &&

   149

			TileY(start) != TileY(end)) return false;

   150

   151

	return this->DoCommand(end, start, (TileY(start) != TileY(end) ? 4 : 0) | (start < end ? 1 : 2) | (ROADTYPE_ROAD << 3), CMD_REMOVE_LONG_ROAD);

   152

}

   153

   165

bool AIRoad::RemoveRoadDepot(TileIndex tile)

   166

{

   167

	/* Outside of the map */

   168

	if (tile >= ::MapSize()) return false;

   169

   170

	/* Not a road depot tile */

   171

	if (!IsTileType(tile, MP_STREET) || GetRoadTileType(tile) != ROAD_TILE_DEPOT) return false;

   172

   173

	return this->DoCommand(tile, 0, 0, CMD_LANDSCAPE_CLEAR);

   174

}

   175

   176

bool AIRoad::RemoveRoadStation(TileIndex tile)

   177

{

   178

	/* Outside of the map */

   179

	if (tile >= ::MapSize()) return false;

   180

   181

	/* Not a road station tile */

   182

	if (!IsTileType(tile, MP_STATION) || !IsRoadStop(tile)) return false;

   183

   184

	return this->DoCommand(tile, 0, GetRoadStopType(tile), CMD_REMOVE_ROAD_STOP);

   185

}