int create_group_emergency_transfer_task (entity *en)
{
entity
*landing,
*new_keysite,
*new_task;
int
side,
landing_type,
sites_required;
vec3d
*pos;
ASSERT (en);
ASSERT (get_comms_model () == COMMS_MODEL_SERVER);
side = get_local_entity_int_value (en, INT_TYPE_SIDE);
pos = get_local_entity_vec3d_ptr (en, VEC3D_TYPE_POSITION);
group_terminate_all_tasks (en);
sites_required = get_local_group_member_count (en);
landing_type = group_database [get_local_entity_int_value (en, INT_TYPE_ENTITY_SUB_TYPE)].default_landing_type;
landing = get_closest_free_landing_site (landing_type, get_local_force_entity (side), pos, 0.0, NULL, sites_required);
if (landing)
{
//
// Found new keysite
//
new_keysite = get_local_entity_parent (landing, LIST_TYPE_LANDING_SITE);
if (landing_type == ENTITY_SUB_TYPE_LANDING_HELICOPTER)
{
new_task = create_transfer_task (side, ENTITY_SUB_TYPE_TASK_TRANSFER_HELICOPTER, 10.0, new_keysite, new_keysite);
}
else
{
new_task = create_transfer_task (side, ENTITY_SUB_TYPE_TASK_TRANSFER_FIXED_WING, 10.0, new_keysite, new_keysite);
}
ASSERT (new_task);
if (!assign_primary_task_to_group (en, new_task))
{
//
// Failed to assign transfer task
//
ai_log ("(TRANSFER) Failed to assign Emergency Transfer to %s", get_local_entity_string (en, STRING_TYPE_FULL_NAME));
group_kill_all_members (en);
return FALSE;
}
else
{
ai_log ("(TRANSFER) Successfully assigned Emergency Transfer to %s", get_local_entity_string (en, STRING_TYPE_FULL_NAME));
return TRUE;
}
}
else
{
//
// Failed to find alternate keysite
//
ai_log ("(TRANSFER) Failed to find Emergency Transfer keysite for %s", get_local_entity_string (en, STRING_TYPE_FULL_NAME));
group_kill_all_members (en);
return FALSE;
}
}
int assign_task_to_group (entity *group, entity *task_en, unsigned int valid_members)
{
int
sites_required;
entity_sub_types
sub_type,
group_type;
entity
*force,
*landing,
*end_keysite,
*start_keysite,
*guide,
*member;
vec3d
*pos;
task
*task_raw;
debug_assert (get_comms_model () == COMMS_MODEL_SERVER);
ASSERT (task_en);
ASSERT (group);
ASSERT (!(get_local_group_primary_task (group) && (get_local_entity_int_value (task_en, INT_TYPE_PRIMARY_TASK))));
task_raw = ( task * ) get_local_entity_data (task_en);
group_type = get_local_entity_int_value (group, INT_TYPE_ENTITY_SUB_TYPE);
member = get_local_entity_first_child (group, LIST_TYPE_MEMBER);
// don't if no members or if the group is a CARRIER
if (!member)
{
return FALSE;
}
if (get_local_entity_int_value (group, INT_TYPE_ENTITY_SUB_TYPE) == ENTITY_SUB_TYPE_GROUP_ASSAULT_SHIP)
{
if (task_raw->sub_type != ENTITY_SUB_TYPE_TASK_ENGAGE)
{
return FALSE;
}
}
//
// check for invalid tasks
//
switch (task_raw->sub_type)
{
case ENTITY_SUB_TYPE_TASK_LANDING:
case ENTITY_SUB_TYPE_TASK_LANDING_HOLDING:
case ENTITY_SUB_TYPE_TASK_TAKEOFF:
case ENTITY_SUB_TYPE_TASK_TAKEOFF_HOLDING:
{
#ifdef DEBUG
debug_fatal ("ASSIGN: Invalid task type (%s) for assign_task_to_group", get_local_entity_string (task_en, STRING_TYPE_FULL_NAME));
#endif
return FALSE;
}
}
//
// Create route
//
if (get_local_entity_int_value (group, INT_TYPE_GROUP_LIST_TYPE) == LIST_TYPE_KEYSITE_GROUP)
{
start_keysite = get_local_entity_parent (group, LIST_TYPE_KEYSITE_GROUP);
}
else
{
// start_keysite = get_closest_keysite (NUM_ENTITY_SUB_TYPE_KEYSITES, task_raw->side, get_local_entity_vec3d_ptr (group, VEC3D_TYPE_POSITION), 1.0 * KILOMETRE, NULL);
start_keysite = NULL;
}
pos = get_local_entity_vec3d_ptr (task_en, VEC3D_TYPE_STOP_POSITION);
force = get_local_force_entity ( ( entity_sides ) get_local_entity_int_value (task_en, INT_TYPE_SIDE) );
sub_type = group_database [group_type].default_landing_type;
landing = NULL;
end_keysite = NULL;
if (get_local_entity_int_value (task_en, INT_TYPE_ASSESS_LANDING))
{
ASSERT (start_keysite);
end_keysite = ( entity * ) get_local_entity_ptr_value (task_en, PTR_TYPE_RETURN_KEYSITE);
if (end_keysite)
{
//
// check end keysite has suitble free landing sites
//
if (start_keysite != end_keysite)
{
//
// if end keysite == start keysite then keysite MUST have enough sites because the aircraft are already there
//
sites_required = get_local_group_member_count (group);
if (get_keysite_landing_sites_available (end_keysite, sub_type) < sites_required)
{
//
// END keysite was specified - but no free landing sites for this group
//
return FALSE;
}
}
}
else
{
//
// No END keysite specified so return to start keysite
//
end_keysite = start_keysite;
set_local_entity_ptr_value (task_en, PTR_TYPE_RETURN_KEYSITE, end_keysite);
}
ASSERT (end_keysite);
landing = get_local_entity_landing_entity (end_keysite, group_database [get_local_entity_int_value (group, INT_TYPE_ENTITY_SUB_TYPE)].default_landing_type);
}
if (create_generic_waypoint_route (group, task_en, end_keysite, NULL, NULL, NULL, 0))
{
#if DEBUG_MODULE
debug_log ("ASSIGN: group %s (%d) assigned to task %s (%d)",
get_local_entity_string (group, STRING_TYPE_FULL_NAME),
get_local_entity_index (group),
get_local_entity_string (task_en, STRING_TYPE_FULL_NAME),
get_local_entity_index (task_en));
#endif
//
// Assign task
//
guide = push_task_onto_group_task_stack (group, task_en, valid_members);
assign_task_to_group_members (group, guide, valid_members);
return TRUE;
}
return FALSE;
}
