1

/* $Id$ */

     2

     3

/** @file ai_marine.cpp Implementation of AIMarine. */

     4

     5

#include "ai_marine.hpp"

     6

#include "../../openttd.h"

     7

#include "../../command_type.h"

     8

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

     9

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

    10

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

    11

#include "../../tile_cmd.h"

    12

    13

    14

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

    15

{

    16

	if (!::IsValidTile(tile)) return false;

    17

    18

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

    19

}

    20

    21

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

    22

{

    23

	if (!::IsValidTile(tile)) return false;

    24

    25

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

    26

}

    27

    28

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

    29

{

    30

	if (!::IsValidTile(tile)) return false;

    31

    32

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

    33

}

    34

    35

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

    36

{

    37

	if (!::IsValidTile(tile)) 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

	if (!::IsValidTile(tile)) return false;

    45

    46

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

    47

}

    48

    49

/* static */ bool AIMarine::AreWaterTilesConnected(TileIndex t1, TileIndex t2)

    50

{

    51

	if (!::IsValidTile(t1)) return false;

    52

	if (!::IsValidTile(t2)) return false;

    53

    54

	/* Tiles not neighbouring */

    55

	if (::DistanceManhattan(t1, t2) != 1) return false;

    56

	if (t1 > t2) Swap(t1, t2);

    57

    58

	uint32 gtts1 = ::GetTileTrackStatus(t1, TRANSPORT_WATER, 0);

    59

	uint32 gtts2 = ::GetTileTrackStatus(t2, TRANSPORT_WATER, 0);

    60

    61

	/* Ship can't travel on one of the tiles. */

    62

	if (gtts1 == 0 || gtts2 == 0) return false;

    63

    64

	DiagDirection to_other_tile = (TileX(t1) == TileX(t2)) ? DIAGDIR_SE : DIAGDIR_SW;

    65

    66

	/* Check whether we can 'leave' the tile at the border and 'enter' the other tile at the border */

    67

	return (gtts1 & DiagdirReachesTrackdirs(ReverseDiagDir(to_other_tile))) != 0 && (gtts2 & DiagdirReachesTrackdirs(to_other_tile)) != 0;

    68

}

    69

    70

/* static */ bool AIMarine::BuildWaterDepot(TileIndex tile, bool vertical)

    71

{

    72

	EnforcePrecondition(false, ::IsValidTile(tile));

    73

    74

	return AIObject::DoCommand(tile, vertical, 0, CMD_BUILD_SHIP_DEPOT, false);

    75

}

    76

    77

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

    78

{

    79

	EnforcePrecondition(false, ::IsValidTile(tile));

    80

    81

	return AIObject::DoCommand(tile, 1, 0, CMD_BUILD_DOCK, false);

    82

}

    83

    84

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

    85

{

    86

	EnforcePrecondition(false, ::IsValidTile(tile));

    87

    88

	return AIObject::DoCommand(tile, 0, 0, CMD_BUILD_BUOY, false);

    89

}

    90

    91

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

    92

{

    93

	EnforcePrecondition(false, ::IsValidTile(tile));

    94

    95

	return AIObject::DoCommand(tile, 0, 0, CMD_BUILD_LOCK, false);

    96

}

    97

    98

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

    99

{

   100

	EnforcePrecondition(false, ::IsValidTile(tile));

   101

   102

	return AIObject::DoCommand(tile, tile, 0, CMD_BUILD_CANAL, false);

   103

}

   104

   105

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

   106

{

   107

	EnforcePrecondition(false, ::IsValidTile(tile));

   108

	EnforcePrecondition(false, IsWaterDepotTile(tile));

   109

   110

	return AIObject::DoCommand(tile, 0, 0, CMD_LANDSCAPE_CLEAR, false);

   111

}

   112

   113

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

   114

{

   115

	EnforcePrecondition(false, ::IsValidTile(tile));

   116

	EnforcePrecondition(false, IsDockTile(tile));

   117

   118

	return AIObject::DoCommand(tile, 0, 0, CMD_LANDSCAPE_CLEAR, false);

   119

}

   120

   121

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

   122

{

   123

	EnforcePrecondition(false, ::IsValidTile(tile));

   124

	EnforcePrecondition(false, IsBuoyTile(tile));

   125

   126

	return AIObject::DoCommand(tile, 0, 0, CMD_LANDSCAPE_CLEAR, false);

   127

}

   128

   129

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

   130

{

   131

	EnforcePrecondition(false, ::IsValidTile(tile));

   132

	EnforcePrecondition(false, IsLockTile(tile));

   133

   134

	return AIObject::DoCommand(tile, 0, 0, CMD_LANDSCAPE_CLEAR, false);

   135

}

   136

   137

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

   138

{

   139

	EnforcePrecondition(false, ::IsValidTile(tile));

   140

	EnforcePrecondition(false, IsCanalTile(tile));

   141

   142

	return AIObject::DoCommand(tile, 0, 0, CMD_LANDSCAPE_CLEAR, false);

   143

}