1

/* $Id$ */

     2

     3

/** @file ai_object.cpp handles the commands-related functions of the AIObject class */

     4

     5

#include "ai_object.hpp"

     6

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

     7

#include "../../player.h"

     8

#include "../ai.h"

    10

    11

bool AIObject::CmdFailed(int32 res)

    12

{

    13

	return ::CmdFailed(res);

    14

}

    15

    16

bool AIObject::CmdSucceeded(int32 res)

    17

{

    18

	return !::CmdFailed(res);

    19

}

    20

    21

int32 AIObject::DoCommand(TileIndex tile, uint32 p1, uint32 p2, uint32 flags, uint procc)

    22

{

    23

	PlayerID old_lp;

    24

	int32 res = 0;

    25

	const char* tmp_cmdtext;

    26

    27

	/* The test already resets _cmd_text, so backup the pointer */

    28

	tmp_cmdtext = _cmd_text;

    29

    30

	/* First, do a test-run to see if we can do this */

    31

	res = ::DoCommand(tile, p1, p2, flags & ~DC_EXEC, procc);

    32

	/* The command failed, or you didn't want to execute, or you are quering, return */

    33

	if (this->CmdFailed(res) || !(flags & DC_EXEC) || (flags & DC_QUERY_COST)) return res;

    34

    35

	/* Restore _cmd_text */

    36

	_cmd_text = tmp_cmdtext;

    37

    38

	/* If we did a DC_EXEC, and the command did not return an error, execute it

    39

	 * over the network */

    40

	if (flags & DC_AUTO)     procc |= CMD_AUTO;

    41

	if (flags & DC_NO_WATER) procc |= CMD_NO_WATER;

    42

    43

#ifdef ENABLE_NETWORK

    44

	/* Send the command */

    45

	if (_networking) {

    46

		/* NetworkSend_Command needs _local_player to be set correctly, so

    47

		 * adjust it, and put it back right after the function */

    48

		old_lp = _local_player;

    49

		_local_player = _current_player;

    50

		::NetworkSend_Command(tile, p1, p2, procc, CcAI);

    51

		_local_player = old_lp;

    52

    53

		/* Suspend the AI till the command is really executed */

    54

		AI_SuspendPlayer(_current_player, -1);

    55

		/* Check if the callback still agrees with us, else return error */

    56

		if (!AI_GetCallbackResult(_current_player)) res = CMD_ERROR;

    57

	} else {

    58

#else

    59

	{

    60

#endif

    61

		/* For SinglePlayer we execute the command immediatly */

    62

		::DoCommandP(tile, p1, p2, NULL, procc);

    63

		/* Suspend the AI player for 1 tick, so it simulates MultiPlayer */

    64

		AI_SuspendPlayer(_current_player, 1);

    65

	}

    66

    67

	return res;

    68

}