/**
* @brief Have a pilot order it's escorts to dock.
*
* @param parent Pilot giving the order.
*/
int escorts_return( Pilot *parent )
{
int ret;
ret = escort_command( parent, ESCORT_RETURN, -1 );
if ((ret == 0) && (parent == player))
player_message("Escorts: Returning to ship.");
return ret;
}
/**
* @brief Have a pilot order it's escorts to clear orders.
*
* @param parent Pilot giving the order.
*/
int escorts_clear( Pilot *parent )
{
int ret;
ret = escort_command( parent, ESCORT_CLEAR, -1);
if ((ret == 0) && (parent == player))
player_message("Escorts: Clearing orders.");
return ret;
}
/**
* @brief Have a pilot order its escorts to clear orders.
*
* @param parent Pilot giving the order.
*/
int escorts_clear( Pilot *parent )
{
int ret;
ret = escort_command( parent, "e_clear", 0 );
if ((ret == 0) && (parent == player.p))
player_message(_("\agEscorts: \a0Clearing orders."));
return ret;
}
/**
* @brief Have a pilot order it's escorts to hold position.
*
* @param parent Pilot giving the order.
*/
int escorts_hold( Pilot *parent )
{
int ret;
ret = escort_command( parent, ESCORT_HOLD, -1 );
if ((ret == 0) && (parent == player))
player_message("Escorts: Holding position.");
return ret;
}
/**
* @brief Have a pilot order its escorts to dock.
*
* @param parent Pilot giving the order.
*/
int escorts_return( Pilot *parent )
{
int ret;
ret = escort_command( parent, "e_return", 0 );
if ((ret == 0) && (parent == player.p))
player_message(_("\agEscorts: \a0Returning to ship."));
return ret;
}
/**
* @brief Have a pilot order its escorts to hold position.
*
* @param parent Pilot giving the order.
*/
int escorts_hold( Pilot *parent )
{
int ret;
ret = escort_command( parent, "e_hold", 0 );
if ((ret == 0) && (parent == player.p))
player_message(_("\agEscorts: \a0Holding position."));
return ret;
}
/**
* @brief Have a pilot order it's escorts to attack it's target.
*
* @param parent Pilot giving the order.
*/
int escorts_attack( Pilot *parent )
{
int ret;
Pilot *t;
ret = 1;
if (parent->target != parent->id)
ret = escort_command( parent, ESCORT_ATTACK, parent->target );
if ((ret == 0) && (parent == player)) {
t = pilot_get(parent->target);
if (t != NULL)
player_message("Escorts: Attacking %s.", t->name);
}
return ret;
}
/**
* @brief Have a pilot order its escorts to jump.
*
* @param parent Pilot giving the order.
*/
int escorts_jump( Pilot *parent, JumpPoint *jp )
{
int ret;
LuaJump lj;
lj.destid = jp->targetid;
lj.srcid = cur_system->id;
lua_pushjump( naevL, lj );
ret = escort_command( parent, "hyperspace", -1 );
lua_pop(naevL, 1);
if ((ret == 0) && (parent == player.p))
player_message(_("\agEscorts: \a0Jumping."));
return ret;
}
/**
* @brief Have a pilot order its escorts to attack its target.
*
* @param parent Pilot giving the order.
*/
int escorts_attack( Pilot *parent )
{
int ret;
Pilot *t;
/* Avoid killing self. */
t = pilot_get(parent->target);
if (t == NULL)
return 1;
if (t->faction == parent->faction)
return 1;
/* Send command. */
ret = 1;
if (parent->target != parent->id) {
lua_pushpilot(naevL, parent->target);
ret = escort_command( parent, "e_attack", -1 );
lua_pop(naevL, 1);
}
if ((ret == 0) && (parent == player.p))
player_message(_("\agEscorts: \a0Attacking %s."), t->name);
return ret;
}
