1

/* $Id$ */

     2

     3

#include "ai_marine.hpp"

     4

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

     5

#include "../../variables.h"

     6

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

     7

#include "../../water_map.h"

     8

     9

    10

/* static */ bool AIMarine::IsWaterDepotTile(TileIndex tile)

    11

{

    12

	/* Outside of the map */

    13

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

    14

    15

	return ::IsTileType(tile, MP_WATER) && ::GetWaterTileType(tile) == WATER_TILE_DEPOT;

    16

}

    17

    18

/* static */ bool AIMarine::IsDockTile(TileIndex tile)

    19

{

    20

	/* Outside of the map */

    21

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

    22

    23

	return ::IsTileType(tile, MP_STATION) && ::IsDock(tile);

    24

}

    25

    26

/* static */ bool AIMarine::IsBuoyTile(TileIndex tile)

    27

{

    28

	/* Outside of the map */

    29

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

    30

    31

	return ::IsTileType(tile, MP_STATION) && ::IsBuoy(tile);

    32

}

    33

    34

/* static */ bool AIMarine::IsLockTile(TileIndex tile)

    35

{

    36

	/* Outside of the map */

    37

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

    38

    39

	return ::IsTileType(tile, MP_WATER) && ::GetWaterTileType(tile) == WATER_TILE_LOCK;

    40

}

    41

    42

/* static */ bool AIMarine::IsCanalTile(TileIndex tile)

    43

{

    44

	/* Outside of the map */

    45

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

    46

    47

	return ::IsTileType(tile, MP_WATER) && ::IsCanal(tile);

    48

}

    49

    50

bool AIMarine::BuildWaterDepot(TileIndex tile, bool vertical)

    51

{

    52

	/* Outside of the map */

    53

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

    54

    55

	return this->DoCommand(tile, vertical, 0, CMD_BUILD_SHIP_DEPOT, false);

    56

}

    57

    58

bool AIMarine::BuildDock(TileIndex tile)

    59

{

    60

	/* Outside of the map */

    61

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

    62

    63

	return this->DoCommand(tile, 1, 0, CMD_BUILD_DOCK, false);

    64

}

    65

    66

bool AIMarine::BuildBuoy(TileIndex tile)

    67

{

    68

	/* Outside of the map */

    69

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

    70

    71

	return this->DoCommand(tile, 0, 0, CMD_BUILD_BUOY, false);

    72

}

    73

    74

bool AIMarine::BuildLock(TileIndex tile)

    75

{

    76

	/* Outside of the map */

    77

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

    78

    79

	return this->DoCommand(tile, 0, 0, CMD_BUILD_LOCK, false);

    80

}

    81

    82

bool AIMarine::BuildCanal(TileIndex tile)

    83

{

    84

	/* Outside of the map */

    85

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

    86

    87

	return this->DoCommand(tile, tile, 0, CMD_BUILD_CANAL, false);

    88

}

    89

    90

bool AIMarine::RemoveWaterDepot(TileIndex tile)

    91

{

    92

	/* Outside of the map */

    93

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

    94

    95

	/* Not a water depot tile */

    96

	if (!IsWaterDepotTile(tile)) return false;

    97

    98

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

    99

}

   100

   101

bool AIMarine::RemoveDock(TileIndex tile)

   102

{

   103

	/* Outside of the map */

   104

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

   105

   106

	/* Not a dock tile */

   107

	if (!IsDockTile(tile)) return false;

   108

   109

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

   110

}

   111

   112

bool AIMarine::RemoveBuoy(TileIndex tile)

   113

{

   114

	/* Outside of the map */

   115

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

   116

   117

	/* Not a buoy tile */

   118

	if (!IsBuoyTile(tile)) return false;

   119

   120

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

   121

}

   122

   123

bool AIMarine::RemoveLock(TileIndex tile)

   124

{

   125

	/* Outside of the map */

   126

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

   127

   128

	/* Not a lock tile */

   129

	if (!IsLockTile(tile)) return false;

   130

   131

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

   132

}

   133

   134

bool AIMarine::RemoveCanal(TileIndex tile)

   135

{

   136

	/* Outside of the map */

   137

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

   138

   139

	/* Not a canal tile */

   140

	if (!IsCanalTile(tile)) return false;

   141

   142

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

   143

}