Freespace 1 support

[taylor/freespace2.git] / src / hud / hudtarget.cpp

/*
 * Copyright (C) Volition, Inc. 1999.  All rights reserved.
 *
 * All source code herein is the property of Volition, Inc. You may not sell 
 * or otherwise commercially exploit the source or things you created based on
 * the source.
 */

/*
 * $Logfile: /Freespace2/code/Hud/HUDtarget.cpp $
 * $Revision$
 * $Date$
 * $Author$
 *
 * C module to provide HUD targeting functions
 *
 * $Log$
 * Revision 1.5  2003/05/25 02:30:42  taylor
 * Freespace 1 support
 *
 * Revision 1.4  2002/06/17 06:33:09  relnev
 * ryan's struct patch for gcc 2.95
 *
 * Revision 1.3  2002/06/09 04:41:21  relnev
 * added copyright header
 *
 * Revision 1.2  2002/05/07 03:16:45  theoddone33
 * The Great Newline Fix
 *
 * Revision 1.1.1.1  2002/05/03 03:28:09  root
 * Initial import.
 *
 * 
 * 43    11/01/99 11:22a Jefff
 * some weapon name translations
 * 
 * 42    9/15/99 1:59p Mikek
 * Fix bug in targeting due to Alt-Y (target last ship sending
 * transmission).  Was just bogus code in the call to
 * hud_restore_subsystem_target().pm.
 * 
 * 41    9/08/99 11:42p Andsager
 * Remove maximum target distance check when finding enemy target
 * 
 * 40    9/07/99 11:26p Andsager
 * Fix "r" targeting key, making evaluate_ship_as_closest_target() and
 * hud_target_live_turret() consider if turret is targeting player
 * 
 * 39    9/01/99 12:58a Andsager
 * Make all targeting keys able to choose turret on BIG|HUGE ships
 * 
 * 38    8/24/99 2:55p Andsager
 * Add new prioritized turret selection code.
 * 
 * 37    8/18/99 10:59p Andsager
 * Enable "b" key to target bombers.
 * 
 * 36    8/17/99 8:32p Jefff
 * fixes to auto-speed/target so it looks much better in the nebula
 * 
 * 35    8/17/99 7:15p Jefff
 * auto-target & auto-speed text drawn in code
 * 
 * 34    8/04/99 9:54a Andsager
 * Auto target turrets on big ships.
 * 
 * 33    8/02/99 4:03p Andsager
 * target closest favors beams and flak
 * 
 * 32    8/01/99 12:39p Dave
 * Added HUD contrast control key (for nebula).
 * 
 * 31    7/30/99 11:10a Andsager
 * Modify hud_target_closest() to consider turrets against all ships, not
 * just player
 * 
 * 30    7/15/99 5:41p Andsager
 * Clean up demo build
 * 
 * 29    7/15/99 9:20a Andsager
 * FS2_DEMO initial checkin
 * 
 * 28    7/09/99 12:00a Andsager
 * Added target box with distance for remote detonate weapons
 * 
 * 27    7/07/99 4:31p Andsager
 * Make closest_attacking_hostile guage respect stealth.  Kill a bunch of
 * goto's.
 * 
 * 26    7/01/99 11:44a Dave
 * Updated object sound system to allow multiple obj sounds per ship.
 * Added hit-by-beam sound. Added killed by beam sound.
 * 
 * 25    6/17/99 9:04a Andsager
 * Fix hack
 * 
 * 24    6/16/99 5:32p Andsager
 * HACK temp fix
 * 
 * 23    6/15/99 9:24a Andsager
 * Make hotkeys work with stealth
 * 
 * 22    6/10/99 3:43p Dave
 * Do a better job of syncing text colors to HUD gauges.
 * 
 * 21    6/09/99 2:55p Andsager
 * Allow multiple asteroid subtypes (of large, medium, small) and follow
 * family.
 * 
 * 20    6/08/99 8:35a Jasenw
 * new coords for new lead indicator
 * 
 * 19    6/07/99 4:20p Andsager
 * Add HUD color for tagged object.  Apply to target and radar.
 * 
 * 18    6/02/99 3:23p Andsager
 * Make AI aware of team visibility.  Allow player targeting with team
 * visibility info.  Make stealth ships not targetable by AI in nebula
 * unless tagged.
 * 
 * 17    5/24/99 9:00a Andsager
 * modify target next/prev live turret only when turret has a weapon
 * 
 * 16    4/20/99 6:39p Dave
 * Almost done with artillery targeting. Added support for downloading
 * images on the PXO screen.
 * 
 * 15    2/25/99 4:19p Dave
 * Added multiplayer_beta defines. Added cd_check define. Fixed a few
 * release build warnings. Added more data to the squad war request and
 * response packets.
 * 
 * 14    1/27/99 3:02p Anoop
 * Fixed 640 HUD afterburner and weapon energy gauge.
 * 
 * 13    1/25/99 5:03a Dave
 * First run of stealth, AWACS and TAG missile support. New mission type
 * :)
 * 
 * 12    1/07/99 10:07a Jasen
 * coords
 * 
 * 11    1/07/99 9:06a Jasen
 * coords
 * 
 * 10    1/06/99 2:24p Dave
 * Stubs and release build fixes.
 * 
 * 9     12/29/98 7:21p Dave
 * Put in a bunch of missing hi-res coord globalizations.
 * 
 * 8     12/29/98 2:29p Jasen
 * added new coords for some 1024 HUD stuff.
 * 
 * 7     12/28/98 3:17p Dave
 * Support for multiple hud bitmap filenames for hi-res mode.
 * 
 * 5     12/21/98 5:03p Dave
 * Modified all hud elements to be multi-resolution friendly.
 * 
 * 4     11/05/98 4:18p Dave
 * First run nebula support. Beefed up localization a bit. Removed all
 * conditional compiles for foreign versions. Modified mission file
 * format.
 * 
 * 3     10/13/98 9:28a Dave
 * Started neatening up freespace.h. Many variables renamed and
 * reorganized. Added AlphaColors.[h,cpp]
 * 
 * 2     10/07/98 10:53a Dave
 * Initial checkin.
 * 
 * 1     10/07/98 10:49a Dave
 * 
 * 407   9/21/98 9:27a Dave
 * Special case code to draw Cluster Bomb as Cluster on the HUD.
 * 
 * 406   8/28/98 3:28p Dave
 * EMP effect done. AI effects may need some tweaking as required.
 * 
 * 405   8/25/98 1:48p Dave
 * First rev of EMP effect. Player side stuff basically done. Next comes
 * AI code.
 * 
 * 404   6/12/98 4:52p Hoffoss
 * Added support for special characters in in forgeign languages.
 * 
 * 403   6/09/98 5:17p Lawrance
 * French/German localization
 * 
 * 402   6/09/98 10:31a Hoffoss
 * Created index numbers for all xstr() references.  Any new xstr() stuff
 * added from here on out should be added to the end if the list.  The
 * current list count can be found in FreeSpace.cpp (search for
 * XSTR_SIZE).
 * 
 * 401   5/27/98 1:24p Allender
 * make targeting dots work (as well as other targeting features) properly
 * in multiplayer.  Don't query for CD when entering debrief in
 * multiplayer
 * 
 * 400   5/27/98 1:20p Mike
 * Fix bug in target nearest ship attacking target.
 * 
 */

#include "hud.h"
#include "hudlock.h"
#include "hudtarget.h"
#include "hudreticle.h"
#include "object.h"
#include "ship.h"
#include "2d.h"
#include "3d.h"
#include "3dinternal.h"
#include "line.h"
#include "linklist.h"
#include "model.h"
#include "math.h"
#include "weapon.h"
#include "player.h"
#include "freespace.h"  // for flFrametime
#include "ai.h"
#include "timer.h"
#include "sound.h"
#include "missionparse.h"
#include "player.h"     // for MAX_PLAYERS
#include "hudets.h"
#include "hudbrackets.h"
#include "gamesnd.h"
#include "eventmusic.h"
#include "debris.h"
#include "missionmessage.h"
#include "key.h"
#include "ai.h"
#include "hudtargetbox.h"
#include "bmpman.h"
#include "subsysdamage.h"
#include "hudshield.h"
#include "missionhotkey.h"
#include "asteroid.h"
#include "jumpnode.h"
#include "multi.h"
#include "emp.h"
#include "alphacolors.h"
#include "localize.h"
#include "awacs.h"
#include "hudartillery.h"

// If any of these bits in the ship->flags are set, ignore this ship when targetting
int TARGET_SHIP_IGNORE_FLAGS = (SF_EXPLODED|SF_DEPART_WARP|SF_DYING|SF_ARRIVING_STAGE_1|SF_HIDDEN_FROM_SENSORS);

// Global values for the target bracket width and height, used for debugging
int Hud_target_w, Hud_target_h;

// offscreen triangle that point the the off-screen target
float Offscreen_tri_base[GR_NUM_RESOLUTIONS] = {
        6.0f,
        9.5f
};
float Offscreen_tri_height[GR_NUM_RESOLUTIONS] = {
        7.0f,
        11.0f
};
float Max_offscreen_tri_seperation[GR_NUM_RESOLUTIONS] = {
        10.0f,
        16.0f
};
float Max_front_seperation[GR_NUM_RESOLUTIONS] = {
        10.0f,
        16.0f
};

// The following variables are global to this file, and do not need to be persistent from frame-to-frame
// This means the variables are not player-specific
static int Target_in_reticle = 0;

extern object obj_used_list;            // dummy node in linked list of active objects
extern char *Cargo_names[];

// shader is used to shade the target box 
shader Training_msg_glass;

// the target triangle (that orbits the reticle) dimensions
float Target_triangle_base[GR_NUM_RESOLUTIONS] = {
        6.0f,
        9.5f
};
float Target_triangle_height[GR_NUM_RESOLUTIONS] = {
        7.0f,
        11.0f
};

// stuff for hotkey targeting lists
htarget_list htarget_items[MAX_HOTKEY_TARGET_ITEMS];
htarget_list htarget_free_list;

// coordinates and widths used to render the HUD afterburner energy gauge
int Aburn_coords[GR_NUM_RESOLUTIONS][4] = {
        { // GR_640
                171, 265, 60, 60
        },
        { // GR_1024
                274, 424, 86, 96
        }
};

// coordinates and widths used to render the HUD weapons energy gauge
int Wenergy_coords[GR_NUM_RESOLUTIONS][4] = {
        { // GR_640
                416, 265, 60, 60
        },
        { // GR_1024
                666, 424, 86, 96
        }
};

#define MIN_DISTANCE_TO_CONSIDER_THREAT 1500    // min distance to show hostile warning triangle

//////////////////////////////////////////////////////////////////////////
// lists for target in reticle cycling
//////////////////////////////////////////////////////////////////////////
#define RL_USED         (1<<0)
#define RL_USE_DOT      (1<<1)  // use dot product result, not distance

typedef struct _reticle_list {
        _reticle_list   *next, *prev;
        object                  *objp;
        float                           dist, dot;
        int                             flags;
} reticle_list;

#define                 RESET_TARGET_IN_RETICLE 750
int                             Reticle_save_timestamp;
reticle_list    Reticle_cur_list;
reticle_list    Reticle_save_list;
#define                 MAX_RETICLE_TARGETS     50
reticle_list    Reticle_list[MAX_RETICLE_TARGETS];

//////////////////////////////////////////////////////////////////////////
// used for closest target cycling
//////////////////////////////////////////////////////////////////////////
#define TL_RESET                        1500
#define TURRET_RESET    1000
static int Tl_hostile_reset_timestamp;
static int Tl_friendly_reset_timestamp;
static int Target_next_uninspected_object_timestamp;
static int Target_newest_ship_timestamp;
static int Target_next_turret_timestamp;

// animation frames for the hud targeting gauges
// frames:      0       =>              out of range lead
//                              1       =>              in range lead
float Lead_indicator_half[GR_NUM_RESOLUTIONS][2] = {
        { // GR_640
                8.0f,           // half-width
                8.0f                    // half-height
        },
        { // GR_1024
                13.0f,          // half-width
                13.0f                   // half-height
        }
};
hud_frames Lead_indicator_gauge;
int Lead_indicator_gauge_loaded = 0;
char Lead_fname[GR_NUM_RESOLUTIONS][MAX_FILENAME_LEN] = {
        "lead1",
        "2_lead1"
};

// animation frames for the afterburner gauge and the weapon energy gauge
// frames:      0       =>              afterburner dark
//                              1       =>              afterburner light
//                              2       =>              gun energy dark
//                              3       =>              gun energy light
hud_frames Energy_bar_gauges;
int Energy_bar_gauges_loaded = 0;
char Energy_fname[GR_NUM_RESOLUTIONS][MAX_FILENAME_LEN] = {
        "energy2",
        "2_energy2"
};
int Weapon_energy_text_coords[GR_NUM_RESOLUTIONS][2] = {
        { // GR_640
                439, 318
        },
        { // GR_1024
                708, 509
        }
};

// animation frames for the countermeasures gauge
// frames:      0       =>              background
hud_frames Cmeasure_gauge;
int Cmeasure_gauge_loaded = 0;
int Cm_coords[GR_NUM_RESOLUTIONS][2] = {
        { // GR_640
                497, 343
        },
        { // GR_1024
                880, 602
        }
};
int Cm_text_coords[GR_NUM_RESOLUTIONS][2] = {
        { // GR_640
                533, 347
        },
        { // GR_1024
                916, 606
        }
};
int Cm_text_val_coords[GR_NUM_RESOLUTIONS][2] = {
        { // GR_640
                506, 347
        },
        { // GR_1024
                889, 606
        }
};
char Cm_fname[GR_NUM_RESOLUTIONS][MAX_FILENAME_LEN] = {
        "countermeasure1",
        "countermeasure1"
};

// animation frames for the auto-target and auto-match_speed icons
// frames:      0       =>              auto-target off
//                              1       =>              auto-target on
//                              2       =>              auto-match-speed on 
//                              3       =>              auto-match-speed off
hud_frames Toggle_gauge;
int Toggle_gauge_loaded = 0;
int Toggle_target_gauge_coords[GR_NUM_RESOLUTIONS][2] = {
        { // GR_640
                577, 380
        },
        { // GR_1024
                960, 648
        }
};
int Toggle_speed_gauge_coords[GR_NUM_RESOLUTIONS][2] = {
        { // GR_640
                577, 404
        },
        { // GR_1024
                960, 672
        }
};
char Toggle_fname[GR_NUM_RESOLUTIONS][MAX_FILENAME_LEN] = {
        "toggle1",
        "toggle1"
};

#define TOGGLE_TEXT_AUTOT               0
#define TOGGLE_TEXT_TARGET              1
#define TOGGLE_TEXT_AUTOS               2
#define TOGGLE_TEXT_SPEED               3
#ifndef MAKE_FS1
static int Hud_toggle_coords[GR_NUM_RESOLUTIONS][4][2] = {
        {               // GR_640
                { 590, 382 },
                { 584, 390 },
                { 590, 406 },
                { 587, 414 }
        },
        {               // GR_1024
                { 973, 650 },
                { 967, 658 },
                { 973, 674 },
                { 970, 682 }
        }
};
#endif

static int Toggle_text_alpha = 255;


// animation files for the weapons gauge
#define NUM_WEAPON_GAUGES       5
hud_frames Weapon_gauges[NUM_WEAPON_GAUGES];
int Weapon_gauges_loaded = 0;
// for primaries
int Weapon_gauge_primary_coords[GR_NUM_RESOLUTIONS][3][2] = {
        { // GR_640
                // based on the # of primaries
                {509, 273},                             // top of weapon gauge, first frame, always
                {497, 293},                             // for the first primary
                {497, 305}                              // for the second primary
        },
        { // GR_1024
                // based on the # of primaries
                {892, 525},                             // top of weapon gauge, first frame, always
                {880, 545},                             // for the first primary
                {880, 557}                              // for the second primary
        }
};
int Weapon_gauge_secondary_coords[GR_NUM_RESOLUTIONS][5][2] = {
        { // GR_640
                // based on the # of secondaries
                {497, 318},                             // bottom of gauge, 0 secondaries
                {497, 318},                             // bottom of gauge, 1 secondaries
                {497, 317},                             // middle of gauge, 2 secondaries AND middle of gauge, 3 secondaries
                {497, 326},                             // bottom of gauge, 2 secondaries AND middle of gauge, 3 secondaries
                {497, 335}                              // bottom of gauge, 3 secondaries
        },
        { // GR_1024
                // based on the # of secondaries
                {880, 570},                             // bottom of gauge, 0 secondaries
                {880, 570},                             // bottom of gauge, 1 secondaries
                {880, 569},                             // middle of gauge, 2 secondaries AND middle of gauge, 3 secondaries
                {880, 578},                             // bottom of gauge, 2 secondaries AND middle of gauge, 3 secondaries
                {880, 587}                              // bottom of gauge, 3 secondaries
        }
};
int Weapon_title_coords[GR_NUM_RESOLUTIONS][2] = {
        { // GR_640
                518, 275
        },
        { // GR_1024
                901, 527
        }
};
int Weapon_plink_coords[GR_NUM_RESOLUTIONS][2][2] = {
        { // GR_640
                {530, 285},                             // fire-linked thingie, for the first primary
                {530, 295}                              // fire-linked thingie, for the second primary
        },
        { // GR_1024
                {913, 537},                             // fire-linked thingie, for the first primary
                {913, 547}                              // fire-linked thingie, for the second primary
        }
};
int Weapon_pname_coords[GR_NUM_RESOLUTIONS][2][2] = {
        { // GR_640
                {536, 285},                             // weapon name, first primary
                {536, 295}                              // weapon name, second primary
        },
        { // GR_1024
                {919, 537},                             // weapon name, first primary
                {919, 547}                              // weapon name, second primary
        }
};
int Weapon_slinked_x[GR_NUM_RESOLUTIONS] = {
        525,                                                    // where to draw the second thingie if this weapon is fire-linked
        908
};
int Weapon_sunlinked_x[GR_NUM_RESOLUTIONS] = {
        530,                                                    // where to draw the first thingie if this weapon is selected at all (fire-linked or not)
        913
};
int Weapon_secondary_y[GR_NUM_RESOLUTIONS][3] = {
        { // GR_640
                309,                                            // y location of where to draw text for the first secondary
                318,                                            // y location of where to draw text for the second secondary
                327                                             // y location of where to draw text for the third secondary
        },
        { // GR_1024
                561,                                            // y location of where to draw text for the third secondary
                570,                                            // y location of where to draw text for the third secondary
                579                                             // y location of where to draw text for the third secondary
        }
};
int Weapon_secondary_name_x[GR_NUM_RESOLUTIONS] = {
        536,                                                    // x location of where to draw weapon name
        919
};
int Weapon_secondary_ammo_x[GR_NUM_RESOLUTIONS] = {
        525,                                                    // x location of where to draw weapon ammo count
        908
};
int Weapon_secondary_reload_x[GR_NUM_RESOLUTIONS] = {
        615,                                                    // x location of where to draw the weapon reload time
        998
};
char *Weapon_gauge_fnames[GR_NUM_RESOLUTIONS][NUM_WEAPON_GAUGES] = 
{
//XSTR:OFF
        { // GR_640
                "weapons1",
                "weapons2",
                "weapons3",
                "weapons4",
                "weapons5"
        }, 
        { // GR_1024
                "weapons1",
                "weapons2",
                "weapons3",
                "weapons4",
                "weapons5"
        }
//XSTR:ON
};

// Flash the line for a weapon.  This normally occurs when the player tries to fire that
// weapon, but the firing fails (due to lack of energy or damaged weapons subsystem).
#define MAX_WEAPON_FLASH_LINES 7                // 3 primary and 4 secondary
typedef struct weapon_flash
{
        int flash_duration[MAX_WEAPON_FLASH_LINES];
        int flash_next[MAX_WEAPON_FLASH_LINES];
        int is_bright;
} weapon_flash;
weapon_flash Weapon_flash_info;

// Data used for the proximity warning
typedef struct homing_beep_info
{
        int     snd_handle;                             // sound handle for last played beep
        fix     last_time_played;               //      time beep was last played
        int     min_cycle_time;         // time (in ms) for fastest cycling of the sound
        int     max_cycle_time;         // time (in ms) for slowest cycling of the sound
        float min_cycle_dist;           // distance at which fastest cycling occurs 
        float max_cycle_dist;           // distance at which slowest cycling occurs
        float   precalced_interp;               // a precalculated value used in a linear interpretation
} homing_beep_info;

homing_beep_info Homing_beep = { -1, 0, 150, 1000, 30.0f, 1500.0f };

// Set at the start of a mission, used to decide how to draw the separation for the warning missile indicators
float Min_warning_missile_dist;
float   Max_warning_missile_dist;

void hud_maybe_flash_weapon(int index);                                   

// if a given object should be ignored because of AWACS effects
int hud_target_invalid_awacs(object *objp)
{
        // if objp is ship object, first check if can be targeted with team info
        if (objp->type == OBJ_SHIP) {
                if (Player_ship != NULL) {
                        if (ship_is_visible_by_team(objp->instance, Player_ship->team)) {
                                return 0;
                        }
                }
        }

        // check for invalid status
        if((Player_ship != NULL) && (awacs_get_level(objp, Player_ship) < 1.0f)){
                return 1;
        }

        // valid
        return 0;
}

ship_subsys *advance_subsys(ship_subsys *cur, int next_flag)
{
        if (next_flag) {
                return GET_NEXT(cur);
        } else {
                return GET_LAST(cur);
        }
}

// select a sorted turret subsystem on a ship if no other subsys has been selected
void hud_maybe_set_sorted_turret_subsys(ship *shipp)
{
        Assert((Player_ai->target_objnum >= 0) && (Player_ai->target_objnum < MAX_OBJECTS));
        if (!((Player_ai->target_objnum >= 0) && (Player_ai->target_objnum < MAX_OBJECTS))) {
                return;
        }
        Assert(Objects[Player_ai->target_objnum].type == OBJ_SHIP);
        if (Objects[Player_ai->target_objnum].type != OBJ_SHIP) {
                return;
        }

        if (Ship_info[shipp->ship_info_index].flags & (SIF_BIG_SHIP|SIF_HUGE_SHIP)) {
                if (shipp->last_targeted_subobject[Player_num] == NULL) {
                        hud_target_live_turret(1, 1);
                }
        }

}

// -----------------------------------------------------------------------
//      clear out the linked list of targets in the reticle
void hud_reticle_clear_list(reticle_list *rlist)
{
        reticle_list *cur;
        for ( cur = GET_FIRST(rlist); cur != END_OF_LIST(rlist); cur = GET_NEXT(cur) ) {
                cur->flags = 0;
        }
        list_init(rlist);
}

// --------------------------------------------------------------------------------------
//      hud_reticle_list_init()
void hud_reticle_list_init()
{
        int i;

        for ( i = 0; i < MAX_RETICLE_TARGETS; i++ ) {
                Reticle_list[i].flags = 0;
        }

        Reticle_save_timestamp = 1;
        list_init(&Reticle_save_list);
        list_init(&Reticle_cur_list);
}

// --------------------------------------------------------------------------------------
//      hud_check_reticle_list()
//
//
void    hud_check_reticle_list()
{
        reticle_list    *rl, *temp;

        // cull dying objects from reticle list
        rl = GET_FIRST(&Reticle_cur_list);
        while( rl !=END_OF_LIST(&Reticle_cur_list) )    {
                temp = GET_NEXT(rl);
                if ( rl->objp->flags & OF_SHOULD_BE_DEAD ) {
                        list_remove( &Reticle_cur_list, rl );
                        rl->flags = 0;
                }
                rl = temp;
        }

        if ( timestamp_elapsed(Reticle_save_timestamp) ) {
                hud_reticle_clear_list(&Reticle_save_list);
                Reticle_save_timestamp = timestamp(RESET_TARGET_IN_RETICLE);
        }
}

// --------------------------------------------------------------------------------------
//      hud_reticle_list_find_free()
//
//
int hud_reticle_list_find_free()
{
        int i;

        // find a free reticle_list element
        for ( i = 0; i < MAX_RETICLE_TARGETS; i++ ) {
                if ( !(Reticle_list[i].flags & RL_USED) ) {
                        break;
                }
        }

        if ( i == MAX_RETICLE_TARGETS ) {
//              nprintf(("Warning","Warning ==> Ran out of reticle target elements...\n"));
                return -1;
        }

        return i;
}

// --------------------------------------------------------------------------------------
//      hud_stuff_reticle_list()
//
//
#define RETICLE_DEFAULT_DIST            100000.0f
#define RETICLE_DEFAULT_DOT             1.0f
void hud_stuff_reticle_list(reticle_list *rl, object *objp, float measure, int dot_flag)
{
        if ( dot_flag ) {
                rl->dot = measure;
                rl->dist = RETICLE_DEFAULT_DIST;
                rl->flags |= RL_USE_DOT;
        }
        else {
                rl->dist = measure;
                rl->dot = RETICLE_DEFAULT_DOT;          
        }
        rl->objp = objp;
}

// --------------------------------------------------------------------------------------
//      hud_reticle_list_update()
//
//      Update Reticle_cur_list with an object that lies in the reticle
//
//      parmeters:      objp            =>              object pointer to target
//                                      measure =>              distance or dot product, depending on dot_flag
//                                      dot_flag        =>              if 0, measure is distance, if 1 measure is dot
//
void hud_reticle_list_update(object *objp, float measure, int dot_flag)
{
        reticle_list    *rl, *new_rl;
        int                             i;

        for ( rl = GET_FIRST(&Reticle_cur_list); rl != END_OF_LIST(&Reticle_cur_list); rl = GET_NEXT(rl) ) {
                if ( rl->objp == objp )
                        return;
        }

        i = hud_reticle_list_find_free();
        if ( i == -1 )
                return;

        new_rl = &Reticle_list[i];
        new_rl->flags |= RL_USED;
        hud_stuff_reticle_list(new_rl, objp, measure, dot_flag);

        int was_inserted = 0;
        
        if ( EMPTY(&Reticle_cur_list) ) {
                list_insert(&Reticle_cur_list, new_rl);
                was_inserted = 1;
        }
        else {
                for ( rl = GET_FIRST(&Reticle_cur_list); rl != END_OF_LIST(&Reticle_cur_list); rl = GET_NEXT(rl) ) {
                        if ( !dot_flag ) {      
                                // compare based on distance
                                if ( measure < rl->dist ) {
                                        list_insert_before(rl, new_rl);
                                        was_inserted = 1;
                                        break;
                                }
                        }                       
                        else {
                                // compare based on dot
                                if ( measure > rl->dot ) {
                                        list_insert_before(rl, new_rl);
                                        was_inserted = 1;
                                        break;
                                }
                        }               
                }       // end for
        }

        if ( !was_inserted ) {
                list_append(&Reticle_cur_list, new_rl);
        }
}

// --------------------------------------------------------------------------------------
//      hud_reticle_pick_target()
//
//      Pick a target from Reticle_cur_list, based on what is in Reticle_save_list
//
//
object *hud_reticle_pick_target()
{
        reticle_list    *cur_rl, *save_rl, *new_rl;
        object                  *return_objp;
        int                             in_save_list, i;

        return_objp = NULL;

        // As a first step, see if both ships and debris are in the list.  If so, cull the debris.
        int debris_in_list = 0;
        int ship_in_list = 0;
        for ( cur_rl = GET_FIRST(&Reticle_cur_list); cur_rl != END_OF_LIST(&Reticle_cur_list); cur_rl = GET_NEXT(cur_rl) ) {
                if ( (cur_rl->objp->type == OBJ_SHIP) || (cur_rl->objp->type == OBJ_JUMP_NODE) ) {
                        ship_in_list = 1;
                        continue;
                }

                if ( cur_rl->objp->type == OBJ_WEAPON ) {
                        if ( Weapon_info[Weapons[cur_rl->objp->instance].weapon_info_index].subtype == WP_MISSILE ) {
                                ship_in_list = 1;
                                continue;
                        }
                }
                        
                if ( (cur_rl->objp->type == OBJ_DEBRIS) || (cur_rl->objp->type == OBJ_ASTEROID) ) {
                        debris_in_list = 1;
                        continue;
                }
        }

        if ( ship_in_list && debris_in_list ) {
                // cull debris
                reticle_list    *rl, *next;
                
                rl = GET_FIRST(&Reticle_cur_list);
                while ( rl != &Reticle_cur_list ) {
                        next = rl->next;
                        if ( (rl->objp->type == OBJ_DEBRIS) || (rl->objp->type == OBJ_ASTEROID) ){
                                list_remove(&Reticle_cur_list,rl);
                                rl->flags = 0;
                        }
                        rl = next;
                }
        }
        
        for ( cur_rl = GET_FIRST(&Reticle_cur_list); cur_rl != END_OF_LIST(&Reticle_cur_list); cur_rl = GET_NEXT(cur_rl) ) {
                in_save_list = 0;
                for ( save_rl = GET_FIRST(&Reticle_save_list); save_rl != END_OF_LIST(&Reticle_save_list); save_rl = GET_NEXT(save_rl) ) {
                        if ( cur_rl->objp == save_rl->objp ) {
                                in_save_list = 1;
                                break;
                        }
                }

                if ( !in_save_list ) {
                        return_objp = cur_rl->objp;
                        i = hud_reticle_list_find_free();
                        if ( i == -1 )
                                break;

                        new_rl = &Reticle_list[i];
                        new_rl->flags |= RL_USED;
                        if ( cur_rl->flags & RL_USE_DOT ) {
                                hud_stuff_reticle_list(new_rl, cur_rl->objp, cur_rl->dot, 1);
                        }
                        else {
                                hud_stuff_reticle_list(new_rl, cur_rl->objp, cur_rl->dist, 0);
                        }

                        list_append(&Reticle_save_list, new_rl);
                        break;
                }
        }       // end for

        if ( return_objp == NULL && !EMPTY(&Reticle_cur_list) ) {
                        i = hud_reticle_list_find_free();
                        if ( i == -1 ) 
                                return NULL;
                        new_rl = &Reticle_list[i];
                        cur_rl = GET_FIRST(&Reticle_cur_list);
                        *new_rl = *cur_rl;
                        return_objp = cur_rl->objp;
                        hud_reticle_clear_list(&Reticle_save_list);
                        list_append(&Reticle_save_list, new_rl);
        }

        return return_objp;
}

// hud_target_hotkey_add_remove takes as it's parameter which hotkey (1-0) to add/remove the current
// target from.  This functio behaves like the Shift-<selection> does in Windows -- using shift # will toggle
// the current target in and out of the selection set.
void hud_target_hotkey_add_remove( int k, object *ctarget, int how_to_add )
{
        htarget_list *hitem, *plist;

        // don't do anything if a standalone multiplayer server
        if ( MULTIPLAYER_STANDALONE )
                return;

        if ( k < 0 || k > 7 ) {
                nprintf(("Warning", "Bogus hotkey %d sent to hud_target_hotkey_add_remove\n"));
                return;
        }

        plist = &(Players[Player_num].keyed_targets[k]);
        
        // we must operate only on ships
        if ( ctarget->type != OBJ_SHIP )
                return;

        // don't allow player into hotkey set
        if ( ctarget == Player_obj )
                return;

        // don't put dying or departing
        if ( Ships[ctarget->instance].flags & (SF_DYING|SF_DEPARTING) )
                return;

        // don't add mission file added hotkey assignments if there are player added assignments 
        // already in the list
        if ( (how_to_add == HOTKEY_MISSION_FILE_ADDED) && NOT_EMPTY(plist) ) {
                for ( hitem = GET_FIRST(plist); hitem != END_OF_LIST(plist); hitem = GET_NEXT(hitem) ) {
                        if ( hitem->how_added == HOTKEY_USER_ADDED )
                                return;
                }
        }

        // determine if the current target is currently in the set or not
        for ( hitem = GET_FIRST(plist); hitem != END_OF_LIST(plist); hitem = GET_NEXT(hitem) ) {
                if ( hitem->objp == ctarget )
                        break;
        }

        // if hitem == end of the list, then the target should be added, else it should be removed
        if ( hitem == END_OF_LIST(plist) ) {
                if ( EMPTY(&htarget_free_list) ) {
                        Int3();                 // get Allender -- no more free hotkey target items
                        return;
                }

                nprintf(("network", "Hotkey: Adding %s\n", Ships[ctarget->instance].ship_name));
                hitem = GET_FIRST( &htarget_free_list );
                list_remove( &htarget_free_list, hitem );
                list_append( plist, hitem );
                hitem->objp = ctarget;
                hitem->how_added = how_to_add;
        } else {
                nprintf(("network", "Hotkey: Removing %s\n", Ships[ctarget->instance].ship_name));
                list_remove( plist, hitem );
                list_append( &htarget_free_list, hitem );
                hitem->objp = NULL;                                                                     // for safety
        }
}

// the following function clears the hotkey set given by parameter passed in
void hud_target_hotkey_clear( int k )
{
        htarget_list *hitem, *plist, *temp;

        plist = &(Players[Player_num].keyed_targets[k]);
        hitem = GET_FIRST(plist);
        while ( hitem != END_OF_LIST(plist) ) {
                temp = GET_NEXT(hitem);
                list_remove( plist, hitem );
                list_append( &htarget_free_list, hitem );
                hitem->objp = NULL;
                hitem = temp;
        }
        if ( Players[Player_num].current_hotkey_set == k )              // clear this variable if we removed the bindings
                Players[Player_num].current_hotkey_set = -1;
}

// the next function sets the current selected set to be N.  If there is just one ship in the selection
// set, this ship will become the new target.  If there is more than one ship in the selection set,
// then the current_target will remain what it was.
void hud_target_hotkey_select( int k )
{
        int visible_count = 0;
        htarget_list *hitem, *plist, *target, *next_target, *first_target;
        int target_objnum;

        plist = &(Players[Player_num].keyed_targets[k]);
        
        if ( EMPTY( plist ) )                   // no items in list, then do nothing
                return;

        // a simple walk of the list to get the count
        for ( hitem = GET_FIRST(plist); hitem != END_OF_LIST(plist); hitem = GET_NEXT(hitem) ){
                if (awacs_get_level(hitem->objp, Player_ship, 1) > 1) {
                        visible_count++;
                }
        }

        // no visible ships in list
        if (visible_count == 0) {
                return;
        }

        // set the current target to be the "next" ship in the list.  Scan the list to see if our
        // current target is in the set.  If so, target the next ship in the list, otherwise target
        // the first
        // set  first_target - first visible item in list
        //                      target - item in list that is the player's currently selected target
        //                      next_target -   next visible item in list following target
        target_objnum = Player_ai->target_objnum;
        target = NULL;
        next_target = NULL;
        first_target = NULL;
        for ( hitem = GET_FIRST(plist); hitem != END_OF_LIST(plist); hitem = GET_NEXT(hitem) ) {
                
                if (awacs_get_level(hitem->objp, Player_ship, 1) > 1) {
                        // get the first valid target
                        if (first_target == NULL) {
                                first_target = hitem;
                        }

                        // get the next target in the list following the player currently selected target
                        if (target != NULL) {
                                next_target = hitem;
                                break;
                        }
                }

                // mark the player currently selected target
                if ( OBJ_INDEX(hitem->objp) == target_objnum ) {
                        target = hitem;
                }
        }

        // if current target is not in list, then target and next_target will be NULL
        // so we use the first found target
        if (target == NULL) {
                Assert(first_target != NULL);
                if (first_target != NULL) {
                        target = first_target;
                        next_target = first_target;
                } else {
                        // this should not happen
                        return;
                }
        }
        
        // update target if more than 1 is visible
        if (visible_count > 1) {
                // next already found (after current target in list)
                if (next_target != NULL) {
                        target = next_target;
                } else {

                // next is before current target, so search from start of list
                        for ( hitem = GET_FIRST(plist); hitem != END_OF_LIST(plist); hitem = GET_NEXT(hitem) ) {
                                if (awacs_get_level(hitem->objp, Player_ship, 1) > 1) {
                                        target = hitem;
                                        break;
                                }
                        }
                }
        }

        Assert( target != END_OF_LIST(plist) );

        if ( Player_obj != target->objp ){
                set_target_objnum( Player_ai, OBJ_INDEX(target->objp) );
        }

        Players[Player_num].current_hotkey_set = k;
}

// hud_init_targeting_colors() will initalize the shader and gradient objects used
// on the HUD
//

color HUD_color_homing_indicator;

void hud_make_shader(shader *sh, int r, int g, int b, float dimmer = 1000.0f)
{
        float rf,gf,bf,cf;

        // The m matrix converts all colors to shades of green
        float tmp = 0.0015625f * i2fl(HUD_color_alpha+1.0f) / 16.0f;

        rf = tmp*r;
        gf = tmp*r;
        bf = tmp*r;
        cf = (i2fl(r) / dimmer)*(i2fl(HUD_color_alpha) / 15.0f);

        gr_create_shader( sh, rf, gf, bf, cf );
}

void hud_init_targeting_colors()
{
        gr_init_color( &HUD_color_homing_indicator, 0x7f, 0x7f, 0 );    // yellow

        hud_make_shader(&Training_msg_glass, 61, 61, 85, 500.0f);

        hud_init_brackets();
}

void hud_keyed_targets_clear()
{
        int i;

        // clear out the keyed target list
        for (i = 0; i < MAX_KEYED_TARGETS; i++ )
                list_init( &(Players[Player_num].keyed_targets[i]) );
        Players[Player_num].current_hotkey_set = -1;

        // place all of the hoykey target items back onto the free list
        list_init( &htarget_free_list );
        for ( i = 0; i < MAX_HOTKEY_TARGET_ITEMS; i++ )
                list_append( &htarget_free_list, &htarget_items[i] );
}

// Init data used for the weapons display on the HUD
void hud_weapons_init()
{
        int i;

        Weapon_flash_info.is_bright = 0;
        for ( i = 0; i < MAX_WEAPON_FLASH_LINES; i++ ) {
                Weapon_flash_info.flash_duration[i] = 1;
                Weapon_flash_info.flash_next[i] = 1;
        }

        if ( !Weapon_gauges_loaded ) {
                for ( i = 0; i < NUM_WEAPON_GAUGES; i++ ) {
                        Weapon_gauges[i].first_frame = bm_load_animation(Weapon_gauge_fnames[gr_screen.res][i], &Weapon_gauges[i].num_frames);
                        if ( Weapon_gauges[i].first_frame < 0 ) {
                                Warning(LOCATION,"Cannot load hud ani: %s\n",Weapon_gauge_fnames[gr_screen.res][i]);
                        }
                }
                Weapon_gauges_loaded = 1;
        }
}

// init data used to play the homing "proximity warning" sound
void hud_init_homing_beep()
{
        Homing_beep.snd_handle = -1;
        Homing_beep.last_time_played  = 0;
        Homing_beep.precalced_interp = (Homing_beep.max_cycle_dist-Homing_beep.min_cycle_dist) / (Homing_beep.max_cycle_time - Homing_beep.min_cycle_time );
}

// hud_init_targeting() will set the current target to point to the dummy node
// in the object used list
//
void hud_init_targeting()
{
        Assert(Player_ai != NULL);

        // make sure there is no current target
        set_target_objnum( Player_ai, -1 );
        Player_ai->last_target = -1;
        Player_ai->last_subsys_target = NULL;
        Player_ai->last_dist = 0.0f;
        Player_ai->last_speed = 0.0f;

        hud_keyed_targets_clear();
        hud_init_missile_lock();
        hud_init_artillery();
        
        // Init the lists that hold targets in reticle (to allow cycling of targets in reticle)
        hud_reticle_list_init();
        hud_init_homing_beep();

        // Load in the frames need for the lead indicator
        if (!Lead_indicator_gauge_loaded) {
                Lead_indicator_gauge.first_frame = bm_load_animation(Lead_fname[gr_screen.res], &Lead_indicator_gauge.num_frames);
                if ( Lead_indicator_gauge.first_frame < 0 ) {
                        Warning(LOCATION,"Cannot load hud ani: %s\n", Lead_fname[gr_screen.res]);
                }
                Lead_indicator_gauge_loaded = 1;
        }

        if (!Energy_bar_gauges_loaded) {
                Energy_bar_gauges.first_frame = bm_load_animation(Energy_fname[gr_screen.res], &Energy_bar_gauges.num_frames);
                if ( Energy_bar_gauges.first_frame < 0 ) {
                        Warning(LOCATION,"Cannot load hud ani: %s\n", Energy_fname[gr_screen.res]);
                }
                Energy_bar_gauges_loaded = 1;
        }

        if (!Toggle_gauge_loaded) {
                Toggle_gauge.first_frame = bm_load_animation(Toggle_fname[gr_screen.res], &Toggle_gauge.num_frames);
                if ( Toggle_gauge.first_frame < 0 ) {
                        Warning(LOCATION,"Cannot load hud ani: %s\n", Toggle_fname[gr_screen.res]);
                }
                Toggle_gauge_loaded = 1;
        }

        if (!Cmeasure_gauge_loaded) {
                Cmeasure_gauge.first_frame = bm_load_animation(Cm_fname[gr_screen.res], &Cmeasure_gauge.num_frames);
                if ( Cmeasure_gauge.first_frame < 0 ) {
                        Warning(LOCATION,"Cannot load hud ani: %s\n", Cm_fname[gr_screen.res]);
                }
                Cmeasure_gauge_loaded = 1;
        }


        hud_weapons_init();

        Min_warning_missile_dist = 2.5f*Player_obj->radius;
        Max_warning_missile_dist = 1500.0f;

        Tl_hostile_reset_timestamp = timestamp(0);
        Tl_friendly_reset_timestamp = timestamp(0);
        Target_next_uninspected_object_timestamp = timestamp(0);
        Target_newest_ship_timestamp = timestamp(0);
        Target_next_turret_timestamp = timestamp(0);

        if(The_mission.flags & MISSION_FLAG_FULLNEB) {
                Toggle_text_alpha = 127; 
        } else {
                Toggle_text_alpha = 160;
        }


}

//      Target the next or previous subobject on the currently selected ship, based on next_flag.
void hud_target_subobject_common(int next_flag)
{
        if (Player_ai->target_objnum == -1) {
                HUD_sourced_printf(HUD_SOURCE_HIDDEN, XSTR( "No target selected.", 322));
                snd_play( &Snds[SND_TARGET_FAIL] );
                return;
        }

        if (Objects[Player_ai->target_objnum].type != OBJ_SHIP) {
                snd_play( &Snds[SND_TARGET_FAIL]);
                return;
        }

        ship_subsys     *start, *start2, *A;
        ship_subsys     *subsys_to_target=NULL;
        ship                    *target_shipp;

        target_shipp = &Ships[Objects[Player_ai->target_objnum].instance];

        if (!Player_ai->targeted_subsys) {
                start = GET_FIRST(&target_shipp->subsys_list);
        } else {
                start = Player_ai->targeted_subsys;
        }

        start2 = advance_subsys(start, next_flag);

        for ( A = start2; A != start; A = advance_subsys(A, next_flag) ) {

                if ( A == &target_shipp->subsys_list ) {
                        continue;
                }

                // ignore turrets
                if ( A->system_info->type == SUBSYSTEM_TURRET ) {
                        continue;
                }

                subsys_to_target = A;
                break;

        } // end for

        if ( subsys_to_target == NULL ) {
                snd_play( &Snds[SND_TARGET_FAIL]);
        } else {
                set_targeted_subsys(Player_ai, subsys_to_target, Player_ai->target_objnum);
                target_shipp->last_targeted_subobject[Player_num] =  Player_ai->targeted_subsys;
        }       
}

object *advance_fb(object *objp, int next_flag)
{
        if (next_flag)
                return GET_NEXT(objp);
        else
                return GET_LAST(objp);
}

//      Target the previous subobject on the currently selected ship.
//

void hud_target_prev_subobject()
{
        hud_target_subobject_common(0);
}

void hud_target_next_subobject()
{
        hud_target_subobject_common(1);
}

// hud_target_next() will set the Players[Player_num].current_target to the next target in the object
// used list whose team matches the team parameter.  The player is NOT included in the target list.
//
//      parameters:             team    => team of ship to target next.  Default value is -1, if team doesn't matter.
//

void hud_target_common(int team, int next_flag)
{
        object  *A, *start, *start2;
        ship            *shipp;
        int             is_ship, target_found = FALSE;  

        if (Player_ai->target_objnum == -1)
                start = &obj_used_list;
        else
                start = &Objects[Player_ai->target_objnum];

        start2 = advance_fb(start, next_flag);

        for ( A = start2; A != start; A = advance_fb(A, next_flag) ) {
                is_ship=0;

                if ( A == &obj_used_list ) {
                        continue;
                }

                if (A == Player_obj || ( A->type != OBJ_SHIP && A->type != OBJ_WEAPON && A->type != OBJ_JUMP_NODE) ){
                        continue;
                }

                if(hud_target_invalid_awacs(A)){
                        continue;
                }

                if ( A->type == OBJ_WEAPON ) {
                        if ( !(Weapon_info[Weapons[A->instance].weapon_info_index].wi_flags & WIF_BOMB) ){
                                continue;
                        }
                }

                if ( A->type == OBJ_SHIP ) {
                        if ( Ships[A->instance].flags & TARGET_SHIP_IGNORE_FLAGS ){
                                continue;
                        }
                        is_ship=1;
                }

                if ( vm_vec_same( &A->pos, &Eye_position ) ) {
                        continue;
                }

                if ( is_ship ) {
                        shipp = &Ships[A->instance];    // get a pointer to the ship information

                        if ( !hud_team_matches_filter(team, shipp->team) ) {
                                // if we're in multiplayer dogfight, ignore this
                                if(!((Game_mode & GM_MULTIPLAYER) && (Netgame.type_flags & NG_TYPE_DOGFIGHT))){
                                        continue;
                                }
                        }

                        if ( A == Player_obj || (shipp->flags & TARGET_SHIP_IGNORE_FLAGS) ){
                                continue;
                        }

                        // if we've reached here, it is a valid next target
                        if ( Player_ai->target_objnum != A-Objects ) {
                                target_found = TRUE;
                                set_target_objnum( Player_ai, OBJ_INDEX(A) );
                                // if ship is BIG|HUGE and last subsys is NULL, get turret
                                hud_maybe_set_sorted_turret_subsys(shipp);
                                hud_restore_subsystem_target(shipp);
                        }
                } else {
                        target_found = TRUE;
                        set_target_objnum( Player_ai, OBJ_INDEX(A) );
                }

                break;
        }

        if ( target_found == FALSE ) {
                snd_play( &Snds[SND_TARGET_FAIL] );
        }
}

void hud_target_next(int team)
{
        hud_target_common(team, 1);
}

void hud_target_prev(int team)
{
        hud_target_common(team, 0);
}

// -------------------------------------------------------------------
// advance_missile_obj()
//
missile_obj *advance_missile_obj(missile_obj *mo, int next_flag)
{
        if (next_flag){
                return GET_NEXT(mo);
        } 
        
        return GET_LAST(mo);
}

ship_obj *advance_ship(ship_obj *so, int next_flag)
{
        if (next_flag){
                return GET_NEXT(so);
        } 
        
        return GET_LAST(so);
}

ship_obj *get_ship_obj_ptr_from_index(int index);
// -------------------------------------------------------------------
// hud_target_missile()
//
// Target the closest locked missile that is locked on locked_obj
//
//      input:  source_obj      =>              pointer to object that fired weapon
//                              next_flag       =>              0 -> previous 1 -> next
//                                                                      
// NOTE: this function is only allows targeting bombs
void hud_target_missile(object *source_obj, int next_flag)
{
        missile_obj     *end, *start, *mo;
        object          *A, *target_objp;
        ai_info         *aip;
        weapon          *wp;
        weapon_info     *wip;
        int                     target_found = 0;       

        if ( source_obj->type != OBJ_SHIP )
                return;

        Assert( Ships[source_obj->instance].ai_index != -1 );
        aip = &Ai_info[Ships[source_obj->instance].ai_index];
        
        end = &Missile_obj_list;
        if (aip->target_objnum != -1) {
                target_objp = &Objects[aip->target_objnum];
                if ( target_objp->type == OBJ_WEAPON && Weapon_info[Weapons[target_objp->instance].weapon_info_index].subtype == WP_MISSILE )   {       // must be a missile
                        end = missile_obj_return_address(Weapons[target_objp->instance].missile_list_index);
                }
        }

        start = advance_missile_obj(end, next_flag);

        for ( mo = start; mo != end; mo = advance_missile_obj(mo, next_flag) ) {
                if ( mo == &Missile_obj_list ){
                        continue;
                }

                Assert(mo->objnum >= 0 && mo->objnum < MAX_OBJECTS);
                A = &Objects[mo->objnum];

                Assert(A->type == OBJ_WEAPON);
                Assert((A->instance >= 0) && (A->instance < MAX_WEAPONS));
                wp = &Weapons[A->instance];
                wip = &Weapon_info[wp->weapon_info_index];

                // only allow targeting of bombs
                if ( !(wip->wi_flags & WIF_BOMB) ) {
                        continue;
                }

                // only allow targeting of hostile bombs
                if ( (obj_team(A) == Player_ship->team) && (Player_ship->team != TEAM_TRAITOR) ) {
                        continue;
                }

                if(hud_target_invalid_awacs(A)){
                        continue;
                }

                // if we've reached here, got a new target
                target_found = TRUE;
                set_target_objnum( aip, OBJ_INDEX(A) );
                break;
        }       // end for

        if ( !target_found ) {
        // if no bomb is found, search for bombers
                ship_obj *start, *so;

                //extern ship_obj *Ship_objs;
                if ( (aip->target_objnum != -1) && (Objects[aip->target_objnum].type == OBJ_SHIP) && (Ship_info[Ships[Objects[aip->target_objnum].instance].ship_info_index].flags & SIF_BOMBER) ) {
                        int index = Ships[Objects[aip->target_objnum].instance].ship_list_index;
                        start = get_ship_obj_ptr_from_index(index);
                } else {
                        start = GET_FIRST(&Ship_obj_list);
                }

                for (so=advance_ship(start, next_flag); so!=start; so=advance_ship(so, next_flag)) {
                        object *ship_obj = &Objects[so->objnum];

                        // don't look at header
                        if (so == &Ship_obj_list) {
                                continue;
                        }

                        // only allow targeting of hostile bombs
                        if ( (obj_team(ship_obj) == Player_ship->team) && (Player_ship->team != TEAM_TRAITOR) ) {
                                continue;
                        }

                        if(hud_target_invalid_awacs(ship_obj)){
                                continue;
                        }

                        // check if ship type is bomber
                        if ( !(Ship_info[Ships[ship_obj->instance].ship_info_index].flags & SIF_BOMBER) ) {
                                continue;
                        }

                        // check if ignore
                        if ( Ships[ship_obj->instance].flags & TARGET_SHIP_IGNORE_FLAGS ){
                                continue;
                        }

                        // found a good one
                        target_found = TRUE;
                        set_target_objnum( aip, OBJ_INDEX(ship_obj) );
                        break;
                }
        }

        if ( !target_found ) {
                snd_play( &Snds[SND_TARGET_FAIL], 0.0f );
        }               
}

// Return !0 if shipp can be scanned, otherwise return 0
int hud_target_ship_can_be_scanned(ship *shipp)
{
        ship_info *sip;

        sip = &Ship_info[shipp->ship_info_index];

        // ignore cargo that has already been scanned
        if ( shipp->flags & SF_CARGO_REVEALED ) {
                return 0;
        }

        // allow ships with scannable flag set
        if ( shipp->flags & SF_SCANNABLE ) {
                return 1;
        }

        // ignore ships that don't carry cargo
        if ( !(sip->flags & (SIF_CARGO|SIF_FREIGHTER)) ) {
                return 0;
        }

        return 1;
}

// target the next/prev uninspected cargo container
void hud_target_uninspected_cargo(int next_flag)
{
        object  *A, *start, *start2;
        ship            *shipp;
        int             target_found = 0;       

        if (Player_ai->target_objnum == -1) {
                start = &obj_used_list;
        }  else {
                start = &Objects[Player_ai->target_objnum];
        }

        start2 = advance_fb(start, next_flag);

        for ( A = start2; A != start; A = advance_fb(A, next_flag) ) {
                if ( A == &obj_used_list ) {
                        continue;
                }

                if (A == Player_obj || (A->type != OBJ_SHIP) ) {
                        continue;
                }

                shipp = &Ships[A->instance];    // get a pointer to the ship information

                if ( shipp->flags & TARGET_SHIP_IGNORE_FLAGS ) {
                        continue;
                }

                // ignore all non-cargo carrying craft
                if ( !hud_target_ship_can_be_scanned(shipp) ) {
                        continue;
                }

                if(hud_target_invalid_awacs(A)){
                        continue;
                }

                // if we've reached here, it is a valid next target
                if ( Player_ai->target_objnum != OBJ_INDEX(A) ) {
                        target_found = TRUE;
                        set_target_objnum( Player_ai, OBJ_INDEX(A) );
                }
        }

        if ( target_found == FALSE ) {
                snd_play( &Snds[SND_TARGET_FAIL]);
        }
}

// target the newest ship in the area
void hud_target_newest_ship()
{
        object  *A, *player_target_objp;
        object  *newest_obj=NULL;
        ship            *shipp;
        ship_obj        *so;
        uint            current_target_arrived_time = 0xffffffff, newest_time = 0;

        if ( Player_ai->target_objnum >= 0 ) {
                player_target_objp = &Objects[Player_ai->target_objnum];
                if ( player_target_objp->type == OBJ_SHIP ) {
                        current_target_arrived_time = Ships[player_target_objp->instance].create_time;
                }
        } else {
                player_target_objp = NULL;
        }

        // If no target is selected, then simply target the closest uninspected cargo
        if ( Player_ai->target_objnum == -1 || timestamp_elapsed(Target_newest_ship_timestamp) ) {
                current_target_arrived_time = 0xffffffff;
        }

        Target_newest_ship_timestamp = timestamp(TL_RESET);

        for ( so = GET_FIRST(&Ship_obj_list); so != END_OF_LIST(&Ship_obj_list); so = GET_NEXT(so) ) {
                A = &Objects[so->objnum];
                shipp = &Ships[A->instance];    // get a pointer to the ship information

                if ( (A == Player_obj) || (shipp->flags & TARGET_SHIP_IGNORE_FLAGS) )
                        continue;

                // ignore navbuoys
                if ( Ship_info[shipp->ship_info_index].flags & SIF_NAVBUOY ) {
                        continue;
                }

                if ( A == player_target_objp ) {
                        continue;
                }

                if(hud_target_invalid_awacs(A)){
                        continue;
                }

                if ( (shipp->create_time >= newest_time) && (shipp->create_time <= current_target_arrived_time) ) {
                        newest_time = shipp->create_time;
                        newest_obj = A;
                }
        }

        if (newest_obj) {
                set_target_objnum( Player_ai, OBJ_INDEX(newest_obj) );
                // if BIG|HUGE and no selected subsystem, get sorted turret
                hud_maybe_set_sorted_turret_subsys(&Ships[newest_obj->instance]);
                hud_restore_subsystem_target(&Ships[newest_obj->instance]);
        }
        else {
                snd_play( &Snds[SND_TARGET_FAIL]);
        }
}

#define TYPE_NONE                                               0
#define TYPE_FACING_BEAM                        1
#define TYPE_FACING_FLAK                        2
#define TYPE_FACING_MISSILE             3
#define TYPE_FACING_LASER                       4
#define TYPE_NONFACING_BEAM             5
#define TYPE_NONFACING_FLAK             6
#define TYPE_NONFACING_MISSILE  7
#define TYPE_NONFACING_LASER            8
#define TYPE_NONFACING_INC                      4

typedef struct eval_next_turret {
        ship_subsys *ss;
        int type;
        float dist;
} eval_next_turret;

int sort_turret_func(const void *e1, const void *e2)
{
        eval_next_turret *p1 = (eval_next_turret*)e1;
        eval_next_turret *p2 = (eval_next_turret*)e2;

        Assert(p1->type != TYPE_NONE);
        Assert(p2->type != TYPE_NONE);

        if (p1->type != p2->type) {
                return (p1->type - p2->type);
        } else {
                float delta_dist = p1->dist - p2->dist;
                if (delta_dist < 0) {
                        return -1;
                } else if (delta_dist > 0) {
                        return 1;
                } else {
                        return 0;
                }
        }
}

// target the next/prev live turret on the current target
// auto_advance from hud_update_closest_turret
void hud_target_live_turret(int next_flag, int auto_advance, int only_player_target)
{
        ship_subsys     *A;
        ship_subsys     *live_turret=NULL;
        ship                    *target_shipp;
        object          *objp;
        eval_next_turret ent[MAX_MODEL_SUBSYSTEMS];
        int num_live_turrets = 0;

        // make sure we're targeting a ship
        if (Player_ai->target_objnum == -1 && !auto_advance) {
                snd_play(&Snds[SND_TARGET_FAIL]);
                return;
        }
        
        // only targeting subsystems on ship
        if ((Objects[Player_ai->target_objnum].type != OBJ_SHIP) && (!auto_advance)) {
                snd_play( &Snds[SND_TARGET_FAIL]);
                return;
        }

        // set some pointers
        objp = &Objects[Player_ai->target_objnum];
        target_shipp = &Ships[objp->instance];

        // set timestamp
        int timestamp_val = 0;
        if (!auto_advance) {
                timestamp_val = Target_next_turret_timestamp;
                Target_next_turret_timestamp = timestamp(TURRET_RESET);
        }

        // If no target is selected, then simply target the closest (or facing) turret
        int last_subsys_turret = FALSE;
        if (Player_ai->targeted_subsys != NULL) {
                if (Player_ai->targeted_subsys->system_info->type == SUBSYSTEM_TURRET) {
                        if (Player_ai->targeted_subsys->system_info->turret_weapon_type >= 0) {
                                last_subsys_turret = TRUE;
                        }
                }
        }

        // do we want the closest turret (or the one our ship is pointing at)
        int get_closest_turret = (auto_advance || !last_subsys_turret || timestamp_elapsed(timestamp_val));

        // initialize eval struct
        memset(ent,0, sizeof(ent));
        int use_straigh_ahead_turret = FALSE;

        // go through list of turrets
        for (A=GET_FIRST(&target_shipp->subsys_list); A!=END_OF_LIST(&target_shipp->subsys_list); A=GET_NEXT(A))  {
                // get a turret
                if (A->system_info->type == SUBSYSTEM_TURRET) {
                        // check turret has hit points and has a weapon
                        if ( (A->current_hits > 0) && (A->system_info->turret_weapon_type >= 0) ) {
                                if ( !only_player_target || (A->turret_enemy_objnum == OBJ_INDEX(Player_obj)) ) {
                                        vector gsubpos, vec_to_subsys;
                                        float distance, dot;
                                        // get world pos of subsystem and its distance
                                        get_subsystem_world_pos(objp, A, &gsubpos);
                                        distance = vm_vec_normalized_dir(&vec_to_subsys, &gsubpos, &View_position);

                                        // check if facing and in view
                                        int facing = ship_subsystem_in_sight(objp, A, &View_position, &gsubpos, 0);
                                        
                                        if (!auto_advance && get_closest_turret && !only_player_target) {
                                                // if within 3 degrees and not previous subsys, use subsys in front
                                                dot = vm_vec_dotprod(&vec_to_subsys, &Player_obj->orient.v.fvec);
                                                if ((dot > 0.9986) && facing) {
                                                        use_straigh_ahead_turret = TRUE;
                                                        break;
                                                }
                                        }

                                        // set weapon_type to allow sort of ent on type
                                        if (Weapon_info[A->system_info->turret_weapon_type].wi_flags & WIF_BEAM) {
                                                ent[num_live_turrets].type = TYPE_FACING_BEAM;
                                        } else  if (Weapon_info[A->system_info->turret_weapon_type].wi_flags & WIF_FLAK) {
                                                ent[num_live_turrets].type = TYPE_FACING_FLAK;
                                        } else {
                                                if (Weapon_info[A->system_info->turret_weapon_type].subtype == WP_MISSILE) {
                                                        ent[num_live_turrets].type = TYPE_FACING_MISSILE;
                                                } else if (Weapon_info[A->system_info->turret_weapon_type].subtype == WP_LASER) {
                                                        ent[num_live_turrets].type = TYPE_FACING_LASER;
                                                } else {
                                                        Int3();
                                                        ent[num_live_turrets].type = TYPE_FACING_LASER;
                                                }
                                        }

                                        // fill out ent struct
                                        ent[num_live_turrets].ss = A;
                                        ent[num_live_turrets].dist = distance;
                                        if (!facing) {
                                                ent[num_live_turrets].type += TYPE_NONFACING_INC;
                                        }
                                        num_live_turrets++;
                                }
                        }
                }
        }

        // sort the list if we're not using turret straigh ahead of us
        if (!use_straigh_ahead_turret) {
                qsort(ent, num_live_turrets, sizeof(eval_next_turret), sort_turret_func);
        }

        if (use_straigh_ahead_turret) {
        // use the straight ahead turret
                live_turret = A;
        } else {
        // check if we have a currently targeted turret and find its position after the sort
                int i, start_index, next_index;
                if (get_closest_turret) {
                        start_index = 0;
                } else {
                        start_index = -1;
                        for (i=0; i<num_live_turrets; i++) {
                                if (ent[i].ss == Player_ai->targeted_subsys) {
                                        start_index = i;
                                        break;
                                }
                        }
                        // check that we started with a turret
                        if (start_index == -1) {
                                start_index = 0;
                        }
                }

                // set next live turret
                if (num_live_turrets == 0) {
                        // no live turrets
                        live_turret = NULL;
                } else if (num_live_turrets == 1 || get_closest_turret) {
                        // only 1 live turret, so set it
                        live_turret = ent[0].ss;
                } else {
                        if (next_flag) {
                                // advance to next closest turret
                                next_index = start_index + 1;
                                if (next_index == num_live_turrets) {
                                        next_index = 0;
                                }
                        } else {
                                // go to next farther turret
                                next_index = start_index - 1;
                                if (next_index == -1) {
                                        next_index = num_live_turrets - 1;
                                }
                        }

                        // set the next turret to be targeted based on next_index
                        live_turret = ent[next_index].ss;
                }

                //if (live_turret) {
                        // debug info
                //      mprintf(("name %s, index: %d, type: %d\n", live_turret->system_info->subobj_name, next_index, ent[next_index].type));
                //}
        }

        if ( live_turret != NULL ) {
                set_targeted_subsys(Player_ai, live_turret, Player_ai->target_objnum);
                target_shipp->last_targeted_subobject[Player_num] = Player_ai->targeted_subsys;
        } else {
                if (!auto_advance) {
                        snd_play( &Snds[SND_TARGET_FAIL]);
                }
        }
}


// -------------------------------------------------------------------
// hud_target_closest_locked_missile()
//
// Target the closest locked missile that is locked on locked_obj
//
//      input:  locked_obj      =>              pointer to object that you want to find 
//                                                                              closest missile to
//                                                                      
void hud_target_closest_locked_missile(object *locked_obj)
{
        object          *A, *nearest_obj=NULL;
        weapon          *wp;
        weapon_info     *wip;
        float                   nearest_dist, dist;
        int                     target_found = FALSE;
        missile_obj     *mo;

        nearest_dist = 10000.0f;

        for ( mo = GET_NEXT(&Missile_obj_list); mo != END_OF_LIST(&Missile_obj_list); mo = GET_NEXT(mo) ) {
                Assert(mo->objnum >= 0 && mo->objnum < MAX_OBJECTS);
                A = &Objects[mo->objnum];

                if (A->type != OBJ_WEAPON){
                        continue;
                }

                Assert((A->instance >= 0) && (A->instance < MAX_WEAPONS));
                wp = &Weapons[A->instance];
                wip = &Weapon_info[wp->weapon_info_index];

                if ( wip->subtype != WP_MISSILE ){
                        continue;
                }

                if ( !(wip->wi_flags & (WIF_HOMING_ASPECT|WIF_HOMING_HEAT) ) ){
                        continue;
                }

                if(hud_target_invalid_awacs(A)){
                        continue;
                }

                if (wp->homing_object == locked_obj) {
                        dist = vm_vec_dist_quick(&A->pos, &locked_obj->pos);            // Find distance!

                        if (dist < nearest_dist) {
                                nearest_obj = A;
                                nearest_dist = dist;
                        }
                }
        }       // end for 

        if (nearest_dist < 10000.0f) {
                Assert(nearest_obj);
                set_target_objnum( Player_ai, OBJ_INDEX(nearest_obj) );
                target_found = TRUE;
        }

        if ( !target_found ){
                snd_play( &Snds[SND_TARGET_FAIL], 0.0f );
        }
}

//      Return bitmask of all opponents.
int opposing_team_mask(int team_mask)
{
        return ((TEAM_FRIENDLY | TEAM_NEUTRAL | TEAM_HOSTILE) & ~team_mask) | TEAM_TRAITOR;
}

// select a new target, by auto-targeting
void hud_target_auto_target_next()
{
        if ( Framecount < 2 ) {
                return;
        }

        //      No auto-targeting after dead.
        if (Game_mode & (GM_DEAD | GM_DEAD_BLEW_UP))
                return;

        int     valid_team;

        valid_team = opposing_team_mask(Player_ship->team);

        // try target closest ship attacking player
        hud_target_closest(valid_team, OBJ_INDEX(Player_obj), FALSE, TRUE );

        // if none, try targeting closest hostile fighter/bomber
        if ( Player_ai->target_objnum == -1 ){
                hud_target_closest(valid_team, -1, FALSE, TRUE);
        }

        // No fighter/bombers exists, so go ahead an target the closest hostile
        if ( Player_ai->target_objnum == -1 ){
                hud_target_closest(valid_team, -1, FALSE);
        }

        // um, ok.  Try targeting asteroids that are on a collision course for an escort ship
        if ( Player_ai->target_objnum == -1 ) {
                asteroid_target_closest_danger();
        }
}


// Given that object 'targeter' is targetting object 'targetee', 
// how far are they?   This uses the point closest to the targeter
// object on the targetee's bounding box.  So if targeter is inside
// targtee's bounding box, the distance is 0.
float hud_find_target_distance( object *targetee, object *targeter )
{
        vector tmp_pnt;

        int model_num = -1;
        
        // Which model is it?
        switch( targetee->type )        {
        case OBJ_SHIP:
                model_num = Ships[targetee->instance].modelnum;
                break;
        case OBJ_DEBRIS:
//              model_num = Debris[targetee->instance].model_num;
                break;
        case OBJ_WEAPON:
                // Don't find model_num since circles would work better
                //model_num = Weapon_info[Weapons[targetee->instance].weapon_info_index].model_num;
                break;
        case OBJ_ASTEROID:
                // Don't find model_num since circles would work better
                //model_num = Asteroid_info[Asteroids[targetee->instance].type].model_num;
                break;
        case OBJ_JUMP_NODE:
                // Don't find model_num since circles would work better
                //model_num = Jump_nodes[targetee->instance].modelnum;
                break;
        }

        float dist = 0.0f;

        // New way, that uses bounding box.     
        if ( model_num > -1 )   {
                dist = model_find_closest_point( &tmp_pnt, model_num, -1, &targetee->orient, &targetee->pos, &targeter->pos );
        }  else {
                // Old way, that uses radius.
                dist = vm_vec_dist_quick(&targetee->pos, &targeter->pos) - targetee->radius;
                if ( dist < 0.0f )      {
                        dist = 0.0f;
                }
        }
        return dist;
}

// hud_target_closest() will set the Players[Player_num].current_target to the closest
// ship to the player that matches the team passed as a paramater
//
// The current algorithm is to simply iterate through the objects and calculate the 
// magnitude of the vector that connects the player to the target. The smallest magnitude
// is tracked, and then used to locate the closest hostile ship.  Note only the square of the
// magnitude is required, since we are only comparing magnitudes
//
//      parameters:             team    => team of closest ship that should be targeted.
//                         Default value is -1, if team doesn't matter.
//
//                                              attacked_objnum => object number of ship that is being attacked
//                                              play_fail_snd   => boolean, whether to play SND_TARGET_FAIL
//                                   (needed, since function called repeatedly when auto-targeting is
//                                    enabled, and we don't want a string of fail sounds playing).
//                                   This is a default parameter with a value of TRUE
//                                              filter  => OPTIONAL parameter (default value 0): when set to TRUE, only
//                                                                              fighters and bombers are considered for new targets
//
// returns:     TRUE  ==> a target was acquired
//                              FALSE ==> no target was acquired
//
// eval target as closest struct
typedef struct esct
{
        int                             team;
        int                             filter;
        ship*                           shipp;
        float                           min_distance;
        int                             check_nearest_turret;
        int                             attacked_objnum;
        int                             check_all_turrets;
        int                             turret_attacking_target;                // check that turret is actually attacking the attacked_objnum
} esct;

// evaluate a ship (and maybe turrets) as a potential target
// check if shipp (or its turrets) is attacking attacked_objnum
// special case for player trying to select target (don't check if turrets are aimed at player)
void evaluate_ship_as_closest_target(esct *esct)
{
        int targeting_player, turret_is_attacking;
        ship_subsys *ss;
        float new_distance;

        // initialize
        esct->min_distance = FLT_MAX;
        esct->check_nearest_turret = FALSE;
        turret_is_attacking = FALSE;


        object *objp = &Objects[esct->shipp->objnum];
        Assert(objp->type == OBJ_SHIP);
        if (objp->type != OBJ_SHIP) {
                return;
        }

        // player being targeted, so we will want closest distance from player
        targeting_player = (esct->attacked_objnum == OBJ_INDEX(Player_obj));

        // filter on team, except in multiplayer
        if ( !hud_team_matches_filter(esct->team, esct->shipp->team) ) {
                // if we're in multiplayer dogfight, ignore this
                if(!((Game_mode & GM_MULTIPLAYER) && (Netgame.type_flags & NG_TYPE_DOGFIGHT))){
                        return;
                }
        }

        // check if player or ignore ship
        if ( (esct->shipp->objnum == OBJ_INDEX(Player_obj)) || (esct->shipp->flags & TARGET_SHIP_IGNORE_FLAGS) ) {
                return;
        }

        // bail if harmless
        if ( Ship_info[esct->shipp->ship_info_index].flags & SIF_HARMLESS ) {
                return;
        }

        // only look at targets that are AWACS valid
        if (hud_target_invalid_awacs(&Objects[esct->shipp->objnum])) {
                return;
        }

        // If filter is set, only target fighters and bombers
        if ( esct->filter ) {
                if ( !(Ship_info[esct->shipp->ship_info_index].flags & (SIF_FIGHTER | SIF_BOMBER)) ) {
                        return;
                }
        }

        // find closest turret to player if BIG or HUGE ship
        if (Ship_info[esct->shipp->ship_info_index].flags & (SIF_BIG_SHIP|SIF_HUGE_SHIP)) {
                for (ss=GET_FIRST(&esct->shipp->subsys_list); ss!=END_OF_LIST(&esct->shipp->subsys_list); ss=GET_NEXT(ss)) {
                        if ( (ss->system_info->type == SUBSYSTEM_TURRET) && (ss->current_hits > 0) ) {

                                if (esct->check_all_turrets || (ss->turret_enemy_objnum == esct->attacked_objnum)) {
                                        turret_is_attacking = 1;
                                        esct->check_nearest_turret = TRUE;

                                        if ( !esct->turret_attacking_target || (esct->turret_attacking_target && (ss->turret_enemy_objnum == esct->attacked_objnum)) ) {
                                                vector gsubpos;
                                                // get world pos of subsystem
                                                vm_vec_unrotate(&gsubpos, &ss->system_info->pnt, &objp->orient);
                                                vm_vec_add2(&gsubpos, &objp->pos);
                                                new_distance = vm_vec_dist_quick(&gsubpos, &Player_obj->pos);
                                                
                                                /*
                                                // GET TURRET TYPE, FAVOR BEAM, FLAK, OTHER
                                                int turret_type = ss->system_info->turret_weapon_type;
                                                if (Weapon_info[turret_type].wi_flags & WIF_BEAM) {
                                                        new_distance *= 0.3f;
                                                } else if (Weapon_info[turret_type].wi_flags & WIF_FLAK) {
                                                        new_distance *= 0.6f;
                                                } */

                                                // get the closest distance
                                                if (new_distance <= esct->min_distance) {
                                                        esct->min_distance = new_distance;
                                                }
                                        }
                                }
                        }
                }
        }

        // If no turret is attacking, check if objp is actually targetting attacked_objnum
        // dont bail if targeting is for player
        if ( !targeting_player && !turret_is_attacking ) {
                ai_info *aip = &Ai_info[esct->shipp->ai_index];

                if (aip->target_objnum != esct->attacked_objnum) {
                        return;
                }

                if ( (Game_mode & GM_NORMAL) && ( aip->mode != AIM_CHASE ) && (aip->mode != AIM_STRAFE) && (aip->mode != AIM_EVADE) && (aip->mode != AIM_EVADE_WEAPON) && (aip->mode != AIM_AVOID)) {
                        return;
                }
        }

        // consider the ship alone if there are no attacking turrets
        if ( !turret_is_attacking ) {
                //new_distance = hud_find_target_distance(objp, Player_obj);
                new_distance = vm_vec_dist_quick(&objp->pos, &Player_obj->pos);
                        
                if (new_distance <= esct->min_distance) {
                        esct->min_distance = new_distance;
                        esct->check_nearest_turret = FALSE;
                }
        }
}

int hud_target_closest(int team, int attacked_objnum, int play_fail_snd, int filter, int get_closest_turret_attacking_player)
{
        object  *A;
        object  *nearest_obj = &obj_used_list;
        ship            *shipp;
        ship_obj        *so;
        int             check_nearest_turret = FALSE;

        // evaluate ship closest target struct
        esct            esct;

        float           min_distance = FLT_MAX;
        int             target_found = FALSE;   

        int             player_obj_index = OBJ_INDEX(Player_obj);
        ship_subsys *ss; //*nearest_turret_subsys = NULL, *ss;

        if ( (attacked_objnum >= 0) && (attacked_objnum != player_obj_index) ) {
                // bail if player does not have target
                if ( Player_ai->target_objnum == -1) {
                        if ( Objects[attacked_objnum].type != OBJ_SHIP ) {
                                goto Target_closest_done;
                        }

                        // bail if ship is to be ignored
                        if (!(Ships[Objects[attacked_objnum].instance].flags & TARGET_SHIP_IGNORE_FLAGS)) {
                                goto Target_closest_done;
                        }
                }
        }

        if (attacked_objnum == -1) {
                attacked_objnum = player_obj_index;
        }

        // check all turrets if for player.
        esct.check_all_turrets = (attacked_objnum == player_obj_index);
        esct.filter = filter;
        esct.team = team;
        esct.attacked_objnum = attacked_objnum;
        esct.turret_attacking_target = get_closest_turret_attacking_player;

        for ( so=GET_FIRST(&Ship_obj_list); so!=END_OF_LIST(&Ship_obj_list); so=GET_NEXT(so) ) {

                A = &Objects[so->objnum];
                shipp = &Ships[A->instance];    // get a pointer to the ship information

                // fill in rest of esct
                esct.shipp = shipp;

                // check each shipp on list and update nearest obj and subsys
                evaluate_ship_as_closest_target(&esct);
                if (esct.min_distance < min_distance) {
                        target_found = TRUE;
                        min_distance = esct.min_distance;
                        nearest_obj = A;
                        check_nearest_turret = esct.check_nearest_turret;
                }
        }

        Target_closest_done:

        // maybe ignore target if too far away
        // DKA 9/8/99 Remove distance check
        /*
        if (target_found) {
                // get distance to nearest attacker
                float dist = vm_vec_dist_quick(&Objects[attacked_objnum].pos, &nearest_obj->pos);

                // no distance limit for player obj
                if ((attacked_objnum != player_obj_index) && (dist > MIN_DISTANCE_TO_CONSIDER_THREAT)) {
                        target_found = FALSE;
                }
        } */

        if (target_found) {
                set_target_objnum(Player_ai, OBJ_INDEX(nearest_obj));
                if ( check_nearest_turret ) {

                        // if former subobject was not a turret do, not change subsystem
                        ss = Ships[nearest_obj->instance].last_targeted_subobject[Player_num];
                        if (ss == NULL || get_closest_turret_attacking_player) {
                                // set_targeted_subsys(Player_ai, nearest_turret_subsys, OBJ_INDEX(nearest_obj));
                                // update nearest turret with later func
                                hud_target_live_turret(1, 1, get_closest_turret_attacking_player);
                                Ships[nearest_obj->instance].last_targeted_subobject[Player_num] = Player_ai->targeted_subsys;
                        }
                } else {
                        hud_restore_subsystem_target(&Ships[nearest_obj->instance]);
                }
        } else {
                // no target found, maybe play fail sound
                if (play_fail_snd == TRUE) {
                        snd_play(&Snds[SND_TARGET_FAIL]);
                }
        }

        return target_found;
}

// auto update closest turret to attack on big or huge ships
void hud_update_closest_turret()
{
        hud_target_live_turret(1, 1);

/*
        float nearest_distance, new_distance;
        ship_subsys     *ss, *closest_subsys;
        ship    *shipp;
        object *objp;

        nearest_distance = FLT_MAX;
        objp = &Objects[Player_ai->target_objnum];
        shipp = &Ships[objp->instance];
        closest_subsys = NULL;


        Assert(Ship_info[shipp->ship_info_index].flags & (SIF_BIG_SHIP|SIF_HUGE_SHIP));

        for (ss=GET_FIRST(&shipp->subsys_list); ss!=END_OF_LIST(&shipp->subsys_list); ss=GET_NEXT(ss)) {
                if ( (ss->system_info->type == SUBSYSTEM_TURRET) && (ss->current_hits > 0) ) {
                        // make sure turret is not "unused"
                        if (ss->system_info->turret_weapon_type >= 0) {
                                vector gsubpos;
                                // get world pos of subsystem
                                vm_vec_unrotate(&gsubpos, &ss->system_info->pnt, &objp->orient);
                                vm_vec_add2(&gsubpos, &objp->pos);
                                new_distance = vm_vec_dist_quick(&gsubpos, &Player_obj->pos);

                                // GET TURRET TYPE, FAVOR BEAM, FLAK, OTHER
                                int turret_type = ss->system_info->turret_weapon_type;
                                if (Weapon_info[turret_type].wi_flags & WIF_BEAM) {
                                        new_distance *= 0.3f;
                                } else if (Weapon_info[turret_type].wi_flags & WIF_FLAK) {
                                        new_distance *= 0.6f;
                                }

                                // check if facing and in view
                                int facing = ship_subsystem_in_sight(objp, ss, &View_position, &gsubpos, 0);

                                if (facing) {
                                        new_distance *= 0.5f;
                                }
                                
                                // get the closest distance
                                if (new_distance <= nearest_distance) {
                                        nearest_distance = new_distance;
                                        closest_subsys = ss;
                                }
                        }
                }
        }

        // check if new subsys to target
        if (Player_ai->targeted_subsys != NULL) {
                set_targeted_subsys(Player_ai, closest_subsys, Player_ai->target_objnum);                       
                shipp->last_targeted_subobject[Player_num] = Player_ai->targeted_subsys;
        }       
        */
}


// --------------------------------------------------------------------
// hud_target_targets_target()
//
// Target your target's target.  Your target is specified by objnum passed
// as a parameter.
//
void hud_target_targets_target()
{
        object  *objp;
        int             tt_objnum;

        if ( Player_ai->target_objnum < 0 || Player_ai->target_objnum >= MAX_OBJECTS ) {
                goto ttt_fail;
        }

        objp = &Objects[Player_ai->target_objnum];
        if ( objp->type != OBJ_SHIP ) {
                goto ttt_fail;
        }

        if (hud_target_invalid_awacs(objp)) {
                goto ttt_fail;
        }

        if ( Ships[objp->instance].flags & TARGET_SHIP_IGNORE_FLAGS ) {
                goto ttt_fail;
        }

        tt_objnum = Ai_info[Ships[objp->instance].ai_index].target_objnum;
        if ( tt_objnum < 0 || tt_objnum >= MAX_OBJECTS ) {
                goto ttt_fail;
        }

        if ( tt_objnum == OBJ_INDEX(Player_obj) ) {
                goto ttt_fail;
        }

        // if we've reached here, found player target's target
        set_target_objnum( Player_ai, tt_objnum );
        if (Objects[tt_objnum].type == OBJ_SHIP) {
                hud_maybe_set_sorted_turret_subsys(&Ships[Objects[tt_objnum].instance]);
        }
        hud_restore_subsystem_target(&Ships[Objects[tt_objnum].instance]);
        return;

        ttt_fail:
        snd_play( &Snds[SND_TARGET_FAIL], 0.0f );
}

// Return !0 if target_objp is a valid object type for targeting in reticle, otherwise return 0
int object_targetable_in_reticle(object *target_objp)
{
        int obj_type;
        if (target_objp == Player_obj ) {
                return 0;
        }

        obj_type = target_objp->type;
                
        if ( (obj_type == OBJ_SHIP) || (obj_type == OBJ_DEBRIS) || (obj_type == OBJ_WEAPON) || (obj_type == OBJ_ASTEROID) || (obj_type == OBJ_JUMP_NODE) ) {
                return 1;
        }

        return 0;
}


// hud_target_in_reticle_new() will target the object that is closest to the player, and who is 
// intersected by a ray passed from the center of the reticle out along the forward vector of the 
// player.
//
// targeting of objects of type OBJ_SHIP and OBJ_DEBRIS are supported
//
// Method: A ray is cast from the center of the reticle, and we keep track of any eligible object
//         the ray intersects.  We take the ship closest to us that intersects an object.
//
//         Since this method may work poorly with objects that are far away, hud_target_in_reticle_old()
//         is called if no intersections are found.
//
//
#define TARGET_IN_RETICLE_DISTANCE      10000.0f

void hud_target_in_reticle_new()
{
        vector  terminus;
        object  *A;
        mc_info mc;
        float           dist;

        hud_reticle_clear_list(&Reticle_cur_list);
        Reticle_save_timestamp = timestamp(RESET_TARGET_IN_RETICLE);

        //      Get 3d vector through center of reticle
        vm_vec_scale_add(&terminus, &Eye_position, &Player_obj->orient.v.fvec, TARGET_IN_RETICLE_DISTANCE);

        mc.model_num = 0;
        for ( A = GET_FIRST(&obj_used_list); A !=END_OF_LIST(&obj_used_list); A = GET_NEXT(A) ) {

                if ( !object_targetable_in_reticle(A) ) {
                        continue;
                }
                
                if ( A->type == OBJ_WEAPON ) {
                        if ( !(Weapon_info[Weapons[A->instance].weapon_info_index].wi_flags & WIF_BOMB) ){
                                continue;
                        }
                }

                if ( A->type == OBJ_SHIP ) {
                        if ( Ships[A->instance].flags & TARGET_SHIP_IGNORE_FLAGS ){
                                continue;
                        }
                }

                if(hud_target_invalid_awacs(A)){
                        continue;
                }

                switch (A->type) {
                case OBJ_SHIP:
                        mc.model_num = Ships[A->instance].modelnum;
                        break;
                case OBJ_DEBRIS:
                        mc.model_num = Debris[A->instance].model_num;
                        break;
                case OBJ_WEAPON:
                        mc.model_num = Weapon_info[Weapons[A->instance].weapon_info_index].model_num;
                        break;
                case OBJ_ASTEROID:
                        {
#if !(defined(FS2_DEMO) || defined(FS1_DEMO))
                        int subtype = 0;
                        subtype = Asteroids[A->instance].asteroid_subtype;
                        mc.model_num = Asteroid_info[Asteroids[A->instance].type].model_num[subtype];
#endif
                        }
                        break;
                case OBJ_JUMP_NODE:
                        mc.model_num = Jump_nodes[A->instance].modelnum;
                        break;
                default:
                        Int3(); //      Illegal object type.
                }

                model_clear_instance( mc.model_num );
                mc.orient = &A->orient;                                                                         // The object's orient
                mc.pos = &A->pos;                                                                                               // The object's position
                mc.p0 = &Eye_position;                                                                          // Point 1 of ray to check
                mc.p1 = &terminus;                                                                                      // Point 2 of ray to check
                mc.flags = MC_CHECK_MODEL;      // | MC_ONLY_BOUND_BOX;         // check the model, but only its bounding box

                model_collide(&mc);
                if ( mc.num_hits ) {
                        dist = vm_vec_dist_squared(&mc.hit_point_world, &Eye_position);
                        hud_reticle_list_update(A, dist, 0);
                }
        }       // end for (go to next object)

        hud_target_in_reticle_old();    // try the old method (works well with ships far away)
}

// hud_target_in_reticle_old() will target the object that is closest to the reticle center and inside 
// the reticle 
//
// targeting of objects of type OBJ_SHIP and OBJ_DEBRIS are supported
//
// 
// Method:  take the dot product of the foward vector and the vector to target.  Take 
//          the one that is closest to 1 and at least MIN_DOT_FOR_TARGET
//
//      IMPORTANT:  The MIN_DOT_FOR_TARGET value was arrived at by trial and error and
//             is only valid for the HUD reticle in use at that time.

#define MIN_DOT_FOR_TARGET              0.9726// fov for targeting in reticle

void hud_target_in_reticle_old()
{
        object  *A, *target_obj;
        float           dist, dot;
        vector  vec_to_target;

        for ( A = GET_FIRST(&obj_used_list); A !=END_OF_LIST(&obj_used_list); A = GET_NEXT(A) ) {

                if ( !object_targetable_in_reticle(A) ) {
                        continue;
                }

                if ( A->type == OBJ_WEAPON ) {
                        if ( !(Weapon_info[Weapons[A->instance].weapon_info_index].wi_flags & WIF_BOMB) ){
                                continue;
                        }
                }

                if ( A->type == OBJ_SHIP ) {
                        if ( Ships[A->instance].flags & TARGET_SHIP_IGNORE_FLAGS ){
                                continue;
                        }
                }

                if(hud_target_invalid_awacs(A)){
                        continue;
                }

                if ( vm_vec_same( &A->pos, &Eye_position ) ) {
                        continue;
                }

                dist = vm_vec_normalized_dir(&vec_to_target, &A->pos, &Eye_position);
                dot = vm_vec_dot(&Player_obj->orient.v.fvec, &vec_to_target);

                if ( dot > MIN_DOT_FOR_TARGET ) {
                        hud_reticle_list_update(A, dot, 1);
                }
        }

        target_obj = hud_reticle_pick_target();
        if ( target_obj != NULL ) {
                set_target_objnum( Player_ai, OBJ_INDEX(target_obj) );
                if ( target_obj->type == OBJ_SHIP ) {
                        // if BIG|HUGE, maybe set subsys to turret
                        hud_maybe_set_sorted_turret_subsys(&Ships[target_obj->instance]);
                        hud_restore_subsystem_target(&Ships[target_obj->instance]);
                }
        }       
        else {
                        snd_play( &Snds[SND_TARGET_FAIL], 0.0f );
        }
}

// hud_target_subsystem_in_reticle() will target the subsystem that is within the reticle and 
// is closest to the reticle center.  The current target is the only object that is searched for
// subsystems
// 
// Method:  take the dot product of the foward vector and the vector to target.  Take 
//          the one that is closest to 1 and at least MIN_DOT_FOR_TARGET
//
//      IMPORTANT:  The MIN_DOT_FOR_TARGET value was arrived at by trial and error and
//             is only valid for the HUD reticle in use at that time.
//

void hud_target_subsystem_in_reticle()
{
        object* targetp;
        ship_subsys     *subsys;
        ship_subsys *nearest_subsys = NULL;
        vector subobj_pos;

        float dist, dot, best_dot;
        vector vec_to_target;
        best_dot = -1.0f;

        if ( Player_ai->target_objnum == -1){
                hud_target_in_reticle_old();
        }

        if ( Player_ai->target_objnum == -1) {
                snd_play( &Snds[SND_TARGET_FAIL]);
                return;
        }
        
        targetp = &Objects[Player_ai->target_objnum];

        if ( targetp->type != OBJ_SHIP ){               // only targeting subsystems on ship
                return;
        }

        int shipnum = targetp->instance;

        for (subsys = GET_FIRST(&Ships[shipnum].subsys_list); subsys != END_OF_LIST(&Ships[shipnum].subsys_list)  ; subsys = GET_NEXT( subsys ) ) {
                get_subsystem_world_pos(targetp, subsys, &subobj_pos);

                dist = vm_vec_normalized_dir(&vec_to_target, &subobj_pos, &Eye_position);
                dot = vm_vec_dot(&Player_obj->orient.v.fvec, &vec_to_target);

                if ( dot > best_dot ) {
                        best_dot = dot;
                        if ( best_dot > MIN_DOT_FOR_TARGET )
                                nearest_subsys = subsys;
                }

                Assert(best_dot <= 1.0f);
        } // end for

        if ( nearest_subsys != NULL ) {
                set_targeted_subsys(Player_ai, nearest_subsys, Player_ai->target_objnum);
                HUD_sourced_printf(HUD_SOURCE_HIDDEN, XSTR( "Targeting subsystem %s.", 323), Player_ai->targeted_subsys->system_info->name);
                Ships[shipnum].last_targeted_subobject[Player_num] =  Player_ai->targeted_subsys;
        }       
        else {
                snd_play( &Snds[SND_TARGET_FAIL]);
        }
}

#define T_LENGTH                                        8
#define T_OFFSET_FROM_CIRCLE    -13
#define T_BASE_LENGTH                   4

//      On entry:
//              color set
void hud_render_orientation_tee(object *from_objp, object *to_objp, matrix *from_orientp)
{
        float           dot_product;
        vector  target_to_obj;
        float           x1,y1,x2,y2,x3,y3,x4,y4;

        vm_vec_sub(&target_to_obj, &from_objp->pos, &to_objp->pos);

        vm_vec_normalize(&target_to_obj);

        // calculate the dot product between the target_to_player vector and the targets forward vector
        //
        // 0 - vectors are perpendicular
        // 1 - vectors are collinear and in the same direction (target is facing player)
        // -1 - vectors are collinear and in the opposite direction (target is facing away from player)
        dot_product = vm_vec_dotprod(&from_orientp->v.fvec, &target_to_obj);

        if (vm_vec_dotprod(&from_orientp->v.rvec, &target_to_obj) >= 0) {
                if (dot_product >= 0){
                        dot_product = -PI/2*dot_product + PI;
                } else {
                        dot_product = -PI/2*dot_product - PI;
                }
        }
        else {
                dot_product *= PI/2; //(range is now -PI/2 => PI/2)
        }

        y1 = (float)sin(dot_product) * (Outer_circle_radius[gr_screen.res] - T_OFFSET_FROM_CIRCLE);
        x1 = (float)cos(dot_product) * (Outer_circle_radius[gr_screen.res] - T_OFFSET_FROM_CIRCLE);

        y1 += Hud_reticle_center[gr_screen.res][1];
        x1 += Hud_reticle_center[gr_screen.res][0];

        x1 += HUD_offset_x;
        y1 += HUD_offset_y;

        y2 = (float)sin(dot_product) * (Outer_circle_radius[gr_screen.res] - T_OFFSET_FROM_CIRCLE - T_LENGTH);
        x2 = (float)cos(dot_product) * (Outer_circle_radius[gr_screen.res] - T_OFFSET_FROM_CIRCLE - T_LENGTH);

        y2 += Hud_reticle_center[gr_screen.res][1];
        x2 += Hud_reticle_center[gr_screen.res][0];

        x2 += HUD_offset_x;
        y2 += HUD_offset_y;

        x3 = x1 - T_BASE_LENGTH * (float)sin(dot_product);
        y3 = y1 + T_BASE_LENGTH * (float)cos(dot_product);
        x4 = x1 + T_BASE_LENGTH * (float)sin(dot_product);
        y4 = y1 - T_BASE_LENGTH * (float)cos(dot_product);

        // HACK! Should be antialiased!
        gr_line(fl2i(x3),fl2i(y3),fl2i(x4),fl2i(y4));   // bottom of T
        gr_line(fl2i(x1),fl2i(y1),fl2i(x2),fl2i(y2));   // part of T pointing towards center

}

void hud_tri(float x1,float y1,float x2,float y2,float x3,float y3)
{
        int i;

        // Make the triangle always be the correct handiness so
        // the tmapper won't think its back-facing and throw it out.
        float det = (y2-y1)*(x3-x1) - (x2-x1)*(y3-y1);
        if ( det >= 0.0f )      {
                float tmp;

                // swap y1 & y3
                tmp = y1;
                y1 = y3;
                y3 = tmp;

                // swap x1 & x3
                tmp = x1;
                x1 = x3;
                x3 = tmp;
        }

        vertex * vertlist[3];
        vertex verts[3];
        
        for (i=0; i<3; i++ )    
                vertlist[i] = &verts[i];

        verts[0].sx = x1;       verts[0].sy = y1;
        verts[1].sx = x2;       verts[1].sy = y2;
        verts[2].sx = x3;       verts[2].sy = y3;

        uint saved_mode = gr_zbuffer_get();
        
        gr_zbuffer_set( GR_ZBUFF_NONE );
        
        gr_tmapper( 3, vertlist, 0 );

        gr_zbuffer_set( saved_mode );
}


void hud_tri_empty(float x1,float y1,float x2,float y2,float x3,float y3)
{
        gr_line(fl2i(x1),fl2i(y1),fl2i(x2),fl2i(y2));
        gr_line(fl2i(x2),fl2i(y2),fl2i(x3),fl2i(y3));
        gr_line(fl2i(x3),fl2i(y3),fl2i(x1),fl2i(y1));
}


// Render a missile warning triangle that has a tail on it to indicate distance
void hud_render_tail_missile_triangle(float ang, float xpos, float ypos, float cur_dist, int draw_solid, int draw_inside)
{
        float x1=0.0f;
        float x2=0.0f;
        float y1=0.0f;
        float y2=0.0f;
        float xtail=0.0f;
        float ytail=0.0f;

        float sin_ang, cos_ang, tail_len;

        float max_tail_len=20.0f;

        sin_ang=(float)sin(ang);
        cos_ang=(float)cos(ang);

        if ( cur_dist < Min_warning_missile_dist ) {
                tail_len = 0.0f;
        } else if ( cur_dist > Max_warning_missile_dist ) {
                tail_len = max_tail_len;
        } else {
                tail_len = cur_dist/Max_warning_missile_dist * max_tail_len;
        }

        if ( draw_inside ) {                            
                x1 = xpos - Target_triangle_base[gr_screen.res] * -sin_ang;
                y1 = ypos + Target_triangle_base[gr_screen.res] * cos_ang;
                x2 = xpos + Target_triangle_base[gr_screen.res] * -sin_ang;
                y2 = ypos - Target_triangle_base[gr_screen.res] * cos_ang;

                xpos -= Target_triangle_height[gr_screen.res] * cos_ang;
                ypos += Target_triangle_height[gr_screen.res] * sin_ang;

                if ( tail_len > 0 ) {
                        xtail = xpos - tail_len * cos_ang;
                        ytail = ypos + tail_len * sin_ang;
                }

        } else {                                
                x1 = xpos - Target_triangle_base[gr_screen.res] * -sin_ang;
                y1 = ypos + Target_triangle_base[gr_screen.res] * cos_ang;
                x2 = xpos + Target_triangle_base[gr_screen.res] * -sin_ang;
                y2 = ypos - Target_triangle_base[gr_screen.res] * cos_ang;

                xpos += Target_triangle_height[gr_screen.res] * cos_ang;
                ypos -= Target_triangle_height[gr_screen.res] * sin_ang;

                if ( tail_len > 0 ) {
                        xtail = xpos + tail_len * cos_ang;
                        ytail = ypos - tail_len * sin_ang;
                }
        }

        if (draw_solid) {
                hud_tri(xpos,ypos,x1,y1,x2,y2);
        } else {
                hud_tri_empty(xpos,ypos,x1,y1,x2,y2);
        }

        // draw the tail indicating length
        if ( tail_len > 0 ) {
                gr_line(fl2i(xpos), fl2i(ypos), fl2i(xtail), fl2i(ytail));
        }
}

// Render a missile warning triangle, that splits apart to indicate distance
void hud_render_split_missile_triangle(float ang, float xpos, float ypos, float cur_dist, int draw_solid, int draw_inside)
{
        // points to draw triangles
        float x1=0.0f;
        float y1=0.0f;
        float x2=0.0f;
        float y2=0.0f;
        float x3=0.0f;
        float y3=0.0f;
        float x4=0.0f;
        float y4=0.0f;
        float x5=0.0f;
        float y5=0.0f;
        float x6=0.0f;
        float y6=0.0f;

        float triangle_sep, half_triangle_sep,sin_ang,cos_ang;

        sin_ang=(float)sin(ang);
        cos_ang=(float)cos(ang);

        if ( cur_dist < Min_warning_missile_dist ) {
                triangle_sep = 0.0f;
        } else if ( cur_dist > Max_warning_missile_dist ) {
                triangle_sep = Max_offscreen_tri_seperation[gr_screen.res]+Max_front_seperation[gr_screen.res];
        } else {
                triangle_sep = (cur_dist/Max_warning_missile_dist) * (Max_offscreen_tri_seperation[gr_screen.res]+Max_front_seperation[gr_screen.res]);
        }

        // calculate these values only once, since it will be used in several places
        half_triangle_sep = 0.5f * triangle_sep;

        xpos = (float)floor(xpos);
        ypos = (float)floor(ypos);

        if ( triangle_sep == 0 ) {
                x1 = xpos - Target_triangle_base[gr_screen.res] * -sin_ang;
                y1 = ypos + Target_triangle_base[gr_screen.res] * cos_ang;
                x2 = xpos + Target_triangle_base[gr_screen.res] * -sin_ang;
                y2 = ypos - Target_triangle_base[gr_screen.res] * cos_ang;
                if ( draw_inside ) {
                } else {
                        xpos += Target_triangle_height[gr_screen.res] * cos_ang;
                        ypos -= Target_triangle_height[gr_screen.res] * sin_ang;
                }
                if (draw_solid) {
                        hud_tri(xpos,ypos,x1,y1,x2,y2);
                } else {
                        hud_tri_empty(xpos,ypos,x1,y1,x2,y2);
                }
        } else {
                        // calc left side points
                        x5 = xpos - half_triangle_sep * -sin_ang;
                        y5 = ypos + half_triangle_sep * cos_ang;

                        x6 = x5 - Target_triangle_base[gr_screen.res] * -sin_ang;
                        y6 = y5 + Target_triangle_base[gr_screen.res] * cos_ang;

                        x4=x5;
                        y4=y5;
                        if ( draw_inside ) {
                                x4 -= Target_triangle_height[gr_screen.res] * cos_ang;
                                y4 += Target_triangle_height[gr_screen.res] * sin_ang;
                        } else {
                                x4 += Target_triangle_height[gr_screen.res] * cos_ang;
                                y4 -= Target_triangle_height[gr_screen.res] * sin_ang;
                        }

                        // calc right side points
                        x2 = xpos + half_triangle_sep * -sin_ang;
                        y2 = ypos - half_triangle_sep * cos_ang;

                        x3 = x2 + Target_triangle_base[gr_screen.res] * -sin_ang;
                        y3 = y2 - Target_triangle_base[gr_screen.res] * cos_ang;

                        x1=x2;
                        y1=y2;
                        if ( draw_inside ) {
                                x1 -= Target_triangle_height[gr_screen.res] * cos_ang;
                                y1 += Target_triangle_height[gr_screen.res] * sin_ang;
                        } else {
                                x1 += Target_triangle_height[gr_screen.res] * cos_ang;
                                y1 -= Target_triangle_height[gr_screen.res] * sin_ang;
                        }

                // draw both tris with a line connecting them
                if ( draw_solid ) {
                        hud_tri(x3,y3,x2,y2,x1,y1);
                        hud_tri(x4,y4,x5,y5,x6,y6);
                } else {
                        hud_tri_empty(x3,y3,x2,y2,x1,y1);
                        hud_tri_empty(x4,y4,x5,y5,x6,y6);
                }
                gr_line(fl2i(x2+0.5f),fl2i(y2+0.5f),fl2i(x5+0.5f),fl2i(y5+0.5f));
        }
}

//      Render a triangle on the outside of the targeting circle.
//      Must be inside a g3_start_frame().
//      If aspect_flag !0, then render filled, indicating aspect lock.
// If show_interior !0, then point inwards to positions inside reticle
void hud_render_triangle(vector *hostile_pos, int aspect_flag, int show_interior, int split_tri)
{
        vertex  hostile_vertex;
        float           ang;
        float           xpos,ypos,cur_dist,sin_ang,cos_ang;
        int             draw_inside=0;

        // determine if the closest firing object is within the targeting reticle (which means the triangle
        // is not drawn)

        cur_dist = vm_vec_dist_quick(&Player_obj->pos, hostile_pos);

        g3_rotate_vertex(&hostile_vertex, hostile_pos);

        if (hostile_vertex.codes == 0)  {// on screen
                float           projected_x, projected_y;
        
                g3_project_vertex(&hostile_vertex);

                if (!(hostile_vertex.flags & PF_OVERFLOW)) {  // make sure point projected
                        float mag_squared;

                        projected_x = hostile_vertex.sx;
                        projected_y = hostile_vertex.sy;

                        mag_squared = (projected_x-Hud_reticle_center[gr_screen.res][0])*(projected_x-Hud_reticle_center[gr_screen.res][0]) + 
                                                          (projected_y-Hud_reticle_center[gr_screen.res][1])*(projected_y-Hud_reticle_center[gr_screen.res][1]);

                        if ( mag_squared < Outer_circle_radius[gr_screen.res]*Outer_circle_radius[gr_screen.res] ) {
                                if ( !show_interior ) {
                                        return;
                                } else {
                                        draw_inside=1;
                                }
                        }
                }
        }

        ang = atan2_safe(hostile_vertex.y,hostile_vertex.x);
        sin_ang=(float)sin(ang);
        cos_ang=(float)cos(ang);
        
        if ( draw_inside ) {
                xpos = Hud_reticle_center[gr_screen.res][0] + cos_ang*(Outer_circle_radius[gr_screen.res]-7);
                ypos = Hud_reticle_center[gr_screen.res][1] - sin_ang*(Outer_circle_radius[gr_screen.res]-7);
        } else {
                xpos = Hud_reticle_center[gr_screen.res][0] + cos_ang*(Outer_circle_radius[gr_screen.res]+4);
                ypos = Hud_reticle_center[gr_screen.res][1] - sin_ang*(Outer_circle_radius[gr_screen.res]+4);
        }

        xpos += HUD_offset_x;
        ypos += HUD_offset_y;
        
        if ( split_tri ) {
//              hud_render_split_missile_triangle(ang, xpos, ypos, cur_dist, aspect_flag, draw_inside);
                hud_render_tail_missile_triangle(ang, xpos, ypos, cur_dist, aspect_flag, draw_inside);
        } else {
                float x1=0.0f;
                float x2=0.0f;
                float y1=0.0f;
                float y2=0.0f;

                if ( draw_inside ) {                            
                        x1 = xpos - Target_triangle_base[gr_screen.res] * -sin_ang;
                        y1 = ypos + Target_triangle_base[gr_screen.res] * cos_ang;
                        x2 = xpos + Target_triangle_base[gr_screen.res] * -sin_ang;
                        y2 = ypos - Target_triangle_base[gr_screen.res] * cos_ang;

                        xpos -= Target_triangle_height[gr_screen.res] * cos_ang;
                        ypos += Target_triangle_height[gr_screen.res] * sin_ang;

                } else {                                
                        x1 = xpos - Target_triangle_base[gr_screen.res] * -sin_ang;
                        y1 = ypos + Target_triangle_base[gr_screen.res] * cos_ang;
                        x2 = xpos + Target_triangle_base[gr_screen.res] * -sin_ang;
                        y2 = ypos - Target_triangle_base[gr_screen.res] * cos_ang;

                        xpos += Target_triangle_height[gr_screen.res] * cos_ang;
                        ypos -= Target_triangle_height[gr_screen.res] * sin_ang;
                }

                if (aspect_flag) {
                        hud_tri(xpos,ypos,x1,y1,x2,y2);
                } else {
                        hud_tri_empty(xpos,ypos,x1,y1,x2,y2);
                }
        }
}

//      Show all homing missiles locked onto the player.
//      Also, play the beep!
void hud_show_homing_missiles()
{
        object          *A;
        missile_obj     *mo;
        weapon          *wp;
        float                   dist, nearest_dist;
        int                     closest_is_aspect=0;

        gr_set_color_fast(&HUD_color_homing_indicator);
        nearest_dist = Homing_beep.max_cycle_dist;

        for ( mo = GET_NEXT(&Missile_obj_list); mo != END_OF_LIST(&Missile_obj_list); mo = GET_NEXT(mo) ) {
                A = &Objects[mo->objnum];
                Assert((A->instance >= 0) && (A->instance < MAX_WEAPONS));

                wp = &Weapons[A->instance];

                if (wp->homing_object == Player_obj) {
                        hud_render_triangle(&A->pos, Weapon_info[wp->weapon_info_index].wi_flags & WIF_HOMING_ASPECT, 1, 1);
                        dist = vm_vec_dist_quick(&A->pos, &Player_obj->pos);

                        if (dist < nearest_dist) {
                                nearest_dist = dist;
                                if ( Weapon_info[wp->weapon_info_index].wi_flags & WIF_HOMING_ASPECT ) {
                                        closest_is_aspect=1;
                                } else {
                                        closest_is_aspect=0;
                                }
                        }
                }
        }

        //      See if need to play warning beep.
        if (nearest_dist < Homing_beep.max_cycle_dist ) {
                float   delta_time;
                float cycle_time;

                delta_time = f2fl(Missiontime - Homing_beep.last_time_played);

                // figure out the cycle time by doing a linear interpretation
                cycle_time = Homing_beep.min_cycle_time + (nearest_dist-Homing_beep.min_cycle_dist) * Homing_beep.precalced_interp;

                // play a new 'beep' if cycle time has elapsed
                if ( (delta_time*1000) > cycle_time ) {
                        Homing_beep.last_time_played = Missiontime;
                        if ( snd_is_playing(Homing_beep.snd_handle) ) {
                                snd_stop(Homing_beep.snd_handle);
                        }

                        if ( closest_is_aspect ) {
                                Homing_beep.snd_handle = snd_play(&Snds[SND_PROXIMITY_ASPECT_WARNING]);
                        } else {
                                Homing_beep.snd_handle = snd_play(&Snds[SND_PROXIMITY_WARNING]);
                        }
                }
        }
}

// hud_show_orientation_tee() will draw the orientation gauge that orbits the inside of the 
// outer reticle ring.  If the T is at 12 o'clock, the target is facing the player, if the T
// is at 6 o'clock the target is facing away from the player.  If the T is at 3 or 9 o'clock 
// the target is facing 90 away from the player.
void hud_show_orientation_tee()
{
        object* targetp;
        
        if (Player_ai->target_objnum == -1)
                return;

        targetp = &Objects[Player_ai->target_objnum];
        
        if ( hud_gauge_maybe_flash(HUD_ORIENTATION_TEE) == 1 ) {
                hud_set_iff_color( targetp );
        } else {
                hud_set_iff_color( targetp, 1);
        }
        hud_render_orientation_tee(targetp, Player_obj, &targetp->orient);
}

// routine to draw a bounding box around a remote detonate missile and distance to
void hud_show_remote_detonate_missile()
{
        missile_obj     *mo;
        object  *mobjp;
        float distance;
        vertex target_point;
        int x1, x2, y1, y2;

        // check for currently locked missiles (highest precedence)
        for ( mo = GET_FIRST(&Missile_obj_list); mo != END_OF_LIST(&Missile_obj_list); mo = GET_NEXT(mo) ) {
                Assert(mo->objnum >= 0 && mo->objnum < MAX_OBJECTS);
                mobjp = &Objects[mo->objnum];

                if ((Player_obj != NULL) && (mobjp->parent_sig == Player_obj->parent_sig)) {
                        if (Weapon_info[Weapons[mobjp->instance].weapon_info_index].wi_flags & WIF_REMOTE) {
                                // get distance
                                distance = hud_find_target_distance(mobjp, Player_obj);

                                // get box center point
                                g3_rotate_vertex(&target_point,&mobjp->pos);

                                // project vertex
                                g3_project_vertex(&target_point);

                                if (!(target_point.flags & PF_OVERFLOW)) {  // make sure point projected
                                        int modelnum, bound_rval;

                                        switch ( mobjp->type ) {
                                        case OBJ_WEAPON:
                                                modelnum = Weapon_info[Weapons[mobjp->instance].weapon_info_index].model_num;
                                                bound_rval = model_find_2d_bound_min( modelnum, &mobjp->orient, &mobjp->pos,&x1,&y1,&x2,&y2 );
                                                break;

                                        default:
                                                Int3(); // should never happen
                                                return;
                                        }

                                        if ( bound_rval == 0 ) {
                                                // draw brackets and distance
                                                int color;
                                                color = hud_brackets_get_iff_color(MESSAGE_SENDER);
                                                gr_set_color_fast(&IFF_colors[color][1]);
                                                draw_bounding_brackets(x1-5,y1-5,x2+5,y2+5,0,0, distance, OBJ_INDEX(mobjp));
                                        }

                                        // do only for the first remote detonate missile
                                        break;
                                }
                        }
                }
        }
}

// routine to possibly draw a bouding box around a ship sending a message to the player
void hud_show_message_sender()
{
        object *targetp;
        vertex target_point;                                    // temp vertex used to find screen position for 3-D object;
        ship    *target_shipp;
        int     x1,x2,y1,y2;


        // don't draw brackets if no ship sending a message
        if ( Message_shipnum == -1 )
                return;

        targetp = &Objects[Ships[Message_shipnum].objnum];
        Assert ( targetp != NULL );

        Assert ( targetp->type == OBJ_SHIP );

        // Don't do this for the ship you're flying!
        if ( targetp == Player_obj ) {
                return;
        }

        Assert ( targetp->instance >=0 && targetp->instance < MAX_SHIPS );
        target_shipp = &Ships[Message_shipnum];

        // check the object flags to see if this ship is gone.  If so, then don't do this stuff anymore
        if ( targetp->flags & OF_SHOULD_BE_DEAD ) {
                Message_shipnum = -1;
                return;
        }

        // find the current target vertex 
        //
        g3_rotate_vertex(&target_point,&targetp->pos);

        hud_set_iff_color( targetp, 1);

        g3_project_vertex(&target_point);

        if (!(target_point.flags & PF_OVERFLOW)) {  // make sure point projected
                int modelnum, bound_rval;

                switch ( targetp->type ) {
                case OBJ_SHIP:
                        modelnum = target_shipp->modelnum;
                        bound_rval = model_find_2d_bound_min( modelnum, &targetp->orient, &targetp->pos,&x1,&y1,&x2,&y2 );
                        break;

                default:
                        Int3(); // should never happen
                        return;
                }

                if ( bound_rval == 0 ) {
                        int color;
                        color = hud_brackets_get_iff_color(MESSAGE_SENDER);
                        gr_set_color_fast(&IFF_colors[color][1]);
                        draw_bounding_brackets(x1-5,y1-5,x2+5,y2+5,10,10);
                }
        }

        if ( hud_gauge_active(HUD_OFFSCREEN_INDICATOR) ) {
                if (target_point.codes != 0) { // target center is not on screen
                        // draw the offscreen indicator at the edge of the screen where the target is closest to
                        // AL 11-19-97: only show offscreen indicator if player sensors are functioning
                        if ( (OBJ_INDEX(targetp) != Player_ai->target_objnum) || (Message_shipnum == Objects[Player_ai->target_objnum].instance) ) {
                                if ( hud_sensors_ok(Player_ship, 0) ) {
                                        float dist;
                                        gr_set_color_fast(&IFF_colors[IFF_COLOR_MESSAGE][1]);
                                        //dist = vm_vec_dist_quick(&Player_obj->pos, &targetp->pos);
                                        dist = hud_find_target_distance( targetp, Player_obj );
                                        hud_draw_offscreen_indicator(&target_point, &targetp->pos, dist);
                                }
                        }
                }
        }
}

// hud_prune_hotkeys()
//
// Check for ships that are dying, departed or dead.  These should be removed from the player's
// hotkey lists.
void hud_prune_hotkeys()
{
        int                             i;
        htarget_list    *hitem, *plist;
        object                  *objp;
        ship                            *sp;

        for ( i = 0; i < MAX_KEYED_TARGETS; i++ ) {
                plist = &(Players[Player_num].keyed_targets[i]);
                if ( EMPTY( plist ) )                   // no items in list, then do nothing
                        continue;

                hitem = GET_FIRST(plist);
                while ( hitem != END_OF_LIST(plist) ) {
                        int remove_item;

                        remove_item = 0;

                        objp = hitem->objp;
                        Assert ( objp != NULL );
                        if ( objp->type == OBJ_SHIP ) {
                                Assert ( objp->instance >=0 && objp->instance < MAX_SHIPS );
                                sp = &Ships[objp->instance];
                        } else {
                                // if the object isn't a ship, it shouldn't be on the list, so remove it without question
                                remove_item = 1;
                                sp = NULL;
                        }

                        // check to see if the object is dying -- if so, remove it from the list
                        // check to see if the ship is departing -- if so, remove it from the list
                        if ( remove_item || (objp->flags & OF_SHOULD_BE_DEAD) || (sp->flags & (SF_DEPARTING|SF_DYING)) ) {
                                if ( sp != NULL ) {
                                        nprintf(("Network", "Hotkey: Pruning %s\n", sp->ship_name));
                                }

                                htarget_list *temp;
                                temp = GET_NEXT(hitem);
                                list_remove( plist, hitem );
                                list_append( &htarget_free_list, hitem );
                                hitem->objp = NULL;
                                hitem = temp;
                                continue;
                        }
                        hitem = GET_NEXT( hitem );
                }       // end while
        }       // end for

        // save the hotkey sets with mission time reaches a certain point.  Code was put here because this
        // function always called for both single/multiplayer.  Maybe not the best location, but whatever.
        mission_hotkey_maybe_save_sets();
}

int HUD_drew_selection_bracket_on_target;

// hud_show_selection_set draws some indicator around all the ships in the current selection set.  No
// indicators will be drawn if there is only 1 ship in the set.
void hud_show_selection_set()
{
        htarget_list *hitem, *plist;
        object *targetp;
        int set, count;
        vertex target_point;                                    // temp vertex used to find screen position for 3-D object;
        vector target_vec;

        HUD_drew_selection_bracket_on_target = 0;

        set = Players[Player_num].current_hotkey_set;
        if ( set == -1 )
                return;

        Assert ( (set >= 0) && (set < MAX_KEYED_TARGETS) );
        plist = &(Players[Player_num].keyed_targets[set]);

        count = 0;
        for ( hitem = GET_FIRST(plist); hitem != END_OF_LIST(plist); hitem = GET_NEXT(hitem) )
                count++;

        if ( count == 0 )       {       // only one ship, do nothing
                Players[Player_num].current_hotkey_set = -1;
                return;
        }

        for ( hitem = GET_FIRST(plist); hitem != END_OF_LIST(plist); hitem = GET_NEXT(hitem) ) {
                targetp = hitem->objp;
                Assert ( targetp != NULL );
        
                ship    *target_shipp = NULL;

                Assert ( targetp->type == OBJ_SHIP );
                Assert ( targetp->instance >=0 && targetp->instance < MAX_SHIPS );
                target_shipp = &Ships[targetp->instance];

                if ( (Game_mode & GM_MULTIPLAYER) && (target_shipp == Player_ship) ) {
                        continue;
                }

                // find the current target vertex 
                //
                g3_rotate_vertex(&target_point,&targetp->pos);

                vm_vec_sub(&target_vec,&targetp->pos,&Player_obj->pos);

                int x1,x2,y1,y2;

                hud_set_iff_color( targetp, 1 );

                g3_project_vertex(&target_point);

                if (!(target_point.flags & PF_OVERFLOW)) {  // make sure point projected
                        int modelnum, bound_rval;

                        switch ( targetp->type ) {
                        case OBJ_SHIP:
                                modelnum = target_shipp->modelnum;
                                bound_rval = model_find_2d_bound_min( modelnum, &targetp->orient, &targetp->pos,&x1,&y1,&x2,&y2 );
                                break;

                        default:
                                Int3(); // should never happen
                                return;
                        }

                        if ( bound_rval == 0 ) {
                                gr_set_color_fast(&IFF_colors[IFF_COLOR_SELECTION][1]);
                                draw_bounding_brackets(x1-5,y1-5,x2+5,y2+5,5,5);
                                if ( OBJ_INDEX(targetp) == Player_ai->target_objnum ) {
                                        HUD_drew_selection_bracket_on_target = 1;
                                }
                        }
                }

                if ( hud_gauge_active(HUD_OFFSCREEN_INDICATOR) ) {
                        if (target_point.codes != 0) { // target center is not on screen
                                // draw the offscreen indicator at the edge of the screen where the target is closest to
                                // AL 11-19-97: only show offscreen indicator if player sensors are functioning

                                if ( OBJ_INDEX(targetp) != Player_ai->target_objnum ) {
                                        if ( hud_sensors_ok(Player_ship, 0) ) {
                                                float dist;
                                                gr_set_color_fast(&IFF_colors[IFF_COLOR_SELECTION][1]);
                                                //dist = vm_vec_dist_quick(&Player_obj->pos, &targetp->pos);
                                                dist = hud_find_target_distance( targetp, Player_obj );
                                                hud_draw_offscreen_indicator(&target_point, &targetp->pos, dist);
                                        }
                                }
                        }
                }
        }
}

void hud_show_brackets(object *targetp, vertex *projected_v)
{
        int x1,x2,y1,y2;
        int draw_box = TRUE;
        int team, bound_rc;

        if ( Player->target_is_dying <= 0 ) {
                int modelnum;

                switch ( targetp->type ) {
                case OBJ_SHIP:
                        modelnum = Ships[targetp->instance].modelnum;
                        bound_rc = model_find_2d_bound_min( modelnum, &targetp->orient, &targetp->pos,&x1,&y1,&x2,&y2 );
                        if ( bound_rc != 0 ) {
                                draw_box = FALSE;
                        }
                        break;

                case OBJ_DEBRIS:
                        modelnum = Debris[targetp->instance].model_num;
                        bound_rc = submodel_find_2d_bound_min( modelnum, Debris[targetp->instance].submodel_num, &targetp->orient, &targetp->pos,&x1,&y1,&x2,&y2 );
                        if ( bound_rc != 0 ) {
                                draw_box = FALSE;
                        }
                        break;

                case OBJ_WEAPON:
                        Assert(Weapon_info[Weapons[targetp->instance].weapon_info_index].subtype == WP_MISSILE);
                        modelnum = Weapon_info[Weapons[targetp->instance].weapon_info_index].model_num;
                        bound_rc = model_find_2d_bound_min( modelnum, &targetp->orient, &targetp->pos,&x1,&y1,&x2,&y2 );
                        break;

#if !(defined(FS2_DEMO) || defined(FS1_DEMO))
                case OBJ_ASTEROID:
                        {
                        int subtype = 0;
                        subtype = Asteroids[targetp->instance].asteroid_subtype;
                        modelnum = Asteroid_info[Asteroids[targetp->instance].type].model_num[subtype];
                        bound_rc = model_find_2d_bound_min( modelnum, &targetp->orient, &targetp->pos,&x1,&y1,&x2,&y2 );
                        }
                        break;
#endif

                case OBJ_JUMP_NODE:
                        modelnum = Jump_nodes[targetp->instance].modelnum;
                        bound_rc = model_find_2d_bound_min( modelnum, &targetp->orient, &targetp->pos,&x1,&y1,&x2,&y2 );
                        break;

                default:
                        Int3(); // should never happen
                        return;
                }

                Hud_target_w = x2-x1+1;
                if ( Hud_target_w > gr_screen.clip_width ) {
                        Hud_target_w = gr_screen.clip_width;
                }

                Hud_target_h = y2-y1+1;
                if ( Hud_target_h > gr_screen.clip_height ) {
                        Hud_target_h = gr_screen.clip_height;
                }

                if ( targetp->type == OBJ_ASTEROID ) {
                        if ( OBJ_INDEX(targetp) == Player_ai->target_objnum ) {
                                team = TEAM_TRAITOR;
                        } else {
                                team = SELECTION_SET;   
                        }
                } else {
                        team = obj_team(targetp);
                }

                if ( draw_box == TRUE ) {
                        float distance;
                        int color;
                        color = hud_brackets_get_iff_color(team);
                        // maybe color as tagged
                        if ( ship_is_tagged(targetp) ) {
                                color = IFF_COLOR_TAGGED;
                        }
                        distance = hud_find_target_distance( targetp, Player_obj );
                        gr_set_color_fast(&IFF_colors[color][1]);
                        draw_bounding_brackets(x1-5,y1-5,x2+5,y2+5,0,0,distance, OBJ_INDEX(targetp));
                }

                if ( targetp->type == OBJ_SHIP ) {
                        draw_bounding_brackets_subobject();
                }
        }
}

void hud_update_target_in_reticle(vertex *projected_v)
{
        float mag_squared;
        mag_squared = (projected_v->sx-Hud_reticle_center[gr_screen.res][0])*(projected_v->sx-Hud_reticle_center[gr_screen.res][0]) + 
                                          (projected_v->sy-Hud_reticle_center[gr_screen.res][1])*(projected_v->sy-Hud_reticle_center[gr_screen.res][1]);

        if (mag_squared < Outer_circle_radius[gr_screen.res]*Outer_circle_radius[gr_screen.res]) {
                // this information can be used elsewhere
                Target_in_reticle = 1;
        }
        else {
                // this information can be used elsewhere
                Target_in_reticle = 0;
        }
}




// hud_show_targeting_gauges() will display the targeting information on the HUD.  Called once per frame.
//
// Must be inside a g3_start_frame()
// input:       frametime       =>              time in seconds since last update
//                              in_cockpit      =>              flag (default value 1) indicating whether viewpoint is from cockpit or external
void hud_show_targeting_gauges(float frametime, int in_cockpit)
{
        vertex target_point;                                    // temp vertex used to find screen position for 3-D object;
        vector target_pos;

        // draw the triangle that points to the closest hostile ship that is firing on the player
        // This is always drawn, even if there is no current target.  There is also a hook that will
        // maybe warn the player via a voice message of an attacking ship.
        if ( in_cockpit ) {
                hud_show_hostile_triangle();
        }

        if (Player_ai->target_objnum == -1)
                return;

        object * targetp = &Objects[Player_ai->target_objnum];
        Players[Player_num].lead_indicator_active = 0;

        // check to see if there is even a current target
        if ( targetp == &obj_used_list ) {
                return;
        }
                
        Target_in_reticle = 0;

        // AL 1/20/97: Point to targted subsystem if one exists
        if ( Player_ai->targeted_subsys != NULL ) {
                get_subsystem_world_pos(targetp, Player_ai->targeted_subsys, &target_pos);

                Player_ai->current_target_distance = vm_vec_dist_quick(&target_pos,&Player_obj->pos);
        } else {
                target_pos = targetp->pos;

                Player_ai->current_target_distance = hud_find_target_distance(targetp,Player_obj);
        }

        // find the current target vertex 
        //
        // The 2D screen pos depends on the current viewer position and orientation.  
        g3_rotate_vertex(&target_point,&target_pos);


        hud_set_iff_color( targetp, 1 );
        g3_project_vertex(&target_point);

        if (!(target_point.flags & PF_OVERFLOW)) {  // make sure point projected
                if (target_point.codes == 0) { // target center is not on screen
                        hud_show_brackets(targetp, &target_point);
                }
                hud_update_target_in_reticle(&target_point);
        }
        else {
                Hud_target_w = 0;
                Hud_target_h = 0;
        }

        // show the leading target indicator
        if ((hud_gauge_active(HUD_LEAD_INDICATOR)) && (!Player->target_is_dying)) {
                hud_show_lead_indicator(&target_pos);
        }

        if ( in_cockpit ) {
                // show the indicator that orbits the outer reticle and points in the direction of the target
                hud_show_target_triangle_indicator(&target_point);

                // draw the orientation tee that orbits the inside of the outer circle of the reticle
                if ((hud_gauge_active(HUD_ORIENTATION_TEE)) && (!Player->target_is_dying)) {
                        hud_show_orientation_tee();
                }

                // display the information about the target
                if ( hud_gauge_active(HUD_TARGET_MONITOR) ){
                        if ( !hud_targetbox_static_maybe_blit(frametime) )
                                hud_show_target_data(frametime);
                }

                // update cargo scanning
                hud_cargo_scan_update(targetp, frametime);

                // draw the shield icon for the current target
                if ( hud_gauge_active(HUD_TARGET_SHIELD_ICON) ) {
                        hud_shield_show(targetp);
                }

                // draw the mini target+shield gauge that sits near the bottom of the retcle
                if ( hud_gauge_active(HUD_TARGET_MINI_ICON) ) {
                        int show_gauge_flag=1;
                        // is gauge configured as a popup?
                        if ( hud_gauge_is_popup(HUD_TARGET_MINI_ICON) ) {
                                if ( !hud_gauge_popup_active(HUD_TARGET_MINI_ICON) ) {
                                        show_gauge_flag=0;
                                }
                        }
                        
                        if ( show_gauge_flag ) {
                                hud_shield_show_mini(targetp);
                        }
                }
        } else {
                Player->cargo_inspect_time = 0;
                player_stop_cargo_scan_sound();
        }

        // display the lock indicator
        if (!Player->target_is_dying) {
                hud_update_lock_indicator(frametime);
                hud_show_lock_indicator(frametime);

                // update and render artillery 
                hud_artillery_update();
                hud_artillery_render();
        }

        // Point to offscreen target
        if ( hud_gauge_active(HUD_OFFSCREEN_INDICATOR) ) {
                if (target_point.codes != 0) { // target center is not on screen
                        // draw the offscreen indicator at the edge of the screen where the target is closest to
                        Assert(Player_ai->target_objnum != -1);

                        // AL 11-11-97: don't draw the indicator if the ship is messaging, the indicator is drawn
                        //                                              in the message sending color in hud_show_message_sender()
                        if ( Message_shipnum != Objects[Player_ai->target_objnum].instance ) {
                                if ( hud_gauge_maybe_flash(HUD_OFFSCREEN_INDICATOR) != 1) {
                                        float dist;
                                        hud_set_iff_color( targetp, 1 );
                                        //dist = vm_vec_dist_quick(&Player_obj->pos, &target_pos);
                                        dist = hud_find_target_distance( targetp, Player_obj );
                                        hud_draw_offscreen_indicator(&target_point, &target_pos, dist);
                                }
                        }
                }
        }
}

// hud_show_hostile_triangle() will draw an empty triangle that oribits around the outer
// circle of the reticle.  It will point to the closest enemy that is firing on the player.
// Currently, it points to the closest enemy that has the player as its target_objnum and has
// SM_ATTACK or SM_SUPER_ATTACK as its ai submode.

void hud_show_hostile_triangle()
{
        object* A;
        float min_distance=1e20f;
        float new_distance=0.0f;
        object* hostile_obj = &obj_used_list;
        object* nearest_obj = &obj_used_list;
        ai_info *aip;
        ship_obj        *so;
        ship            *sp;
        ship_subsys *ss, *nearest_turret_subsys = NULL;

        int player_obj_index = OBJ_INDEX(Player_obj);
        int turret_is_attacking = 0;
        
        so = GET_FIRST(&Ship_obj_list);
        for ( so = GET_FIRST(&Ship_obj_list); so != END_OF_LIST(&Ship_obj_list);  so = GET_NEXT(so) ) {

                A = &Objects[so->objnum];
                sp = &Ships[A->instance];

                // only look at ships on other team
                if ( (A == Player_obj) || (Ships[A->instance].team & Player_ship->team) ) {
                        continue;
                }

                aip = &Ai_info[Ships[A->instance].ai_index];

                // dont look at ignore ships
                if ( sp->flags & TARGET_SHIP_IGNORE_FLAGS ) {
                        continue;
                }

                // always ignore cargo containers and navbuoys
                if ( Ship_info[sp->ship_info_index].flags & SIF_HARMLESS ) {
                        continue;
                }

                // check if ship is stealthy
                if (awacs_get_level(&Objects[sp->objnum], Player_ship, 1) < 1) {
                        continue;
                }

                turret_is_attacking = 0;

                // check if any turrets on ship are firing at the player (only on non fighter-bombers)
                if ( !(Ship_info[sp->ship_info_index].flags & (SIF_FIGHTER|SIF_BOMBER)) ) {
                        for (ss = GET_FIRST(&sp->subsys_list); ss != END_OF_LIST(&sp->subsys_list); ss = GET_NEXT(ss) ) {
                                if ( (ss->system_info->type == SUBSYSTEM_TURRET) && (ss->current_hits > 0) ) {

                                        if ( ss->turret_enemy_objnum == player_obj_index ) {
                                                turret_is_attacking = 1;                                                

                                                vector          gsubpos;
                                                // get world pos of subsystem
                                                vm_vec_unrotate(&gsubpos, &ss->system_info->pnt, &A->orient);
                                                vm_vec_add2(&gsubpos, &A->pos);
                                                new_distance = vm_vec_dist_quick(&gsubpos, &Player_obj->pos);

                                                if (new_distance <= min_distance) {
                                                        min_distance=new_distance;
                                                        nearest_obj = A;
                                                        nearest_turret_subsys = ss;
                                                }
                                        }
                                }
                        }
                }

                if ( !turret_is_attacking ) {
                        // check for ships attacking the player
                        if ( aip->target_objnum != Player_ship->objnum ) {
                                continue;
                        }

                        // ignore enemy if not in chase mode
                        if ( (Game_mode & GM_NORMAL) && (aip->mode != AIM_CHASE) ) {
                                continue;
                        }

                        new_distance = vm_vec_dist_quick(&A->pos, &Player_obj->pos);

                        if (new_distance <= min_distance) {
                                min_distance=new_distance;
                                nearest_obj = A;
                                nearest_turret_subsys = NULL;
                        }
                }
        }

        if ( nearest_obj == &obj_used_list ) {
                return;
        }

        if ( min_distance > MIN_DISTANCE_TO_CONSIDER_THREAT ) {
                return;
        }

        hostile_obj = nearest_obj;

        // hook to maybe warn player about this attacking ship
        ship_maybe_warn_player(&Ships[nearest_obj->instance], min_distance);

        // check if the closest firing hostile is the current target, if so return
        if (OBJ_INDEX(hostile_obj) == Player_ai->target_objnum)
                return;

        if ( hud_gauge_active(HUD_HOSTILE_TRIANGLE) ) {
                if ( hud_gauge_maybe_flash(HUD_HOSTILE_TRIANGLE) != 1 ) {
//                      hud_set_iff_color( TEAM_HOSTILE, 1 );   //      Note: This should really be TEAM_HOSTILE, not opposite of Player_ship->team.
                        hud_set_iff_color( hostile_obj, 1 );
                        hud_render_triangle(&hostile_obj->pos, 0, 1, 0);
                }
        }
}

// Return the bank number for the primary weapon that can fire the farthest, from
// the number of active primary weapons
// input: range =>      output parameter... it is the range of the selected bank
int hud_get_best_primary_bank(float *range)
{
        int     i, best_bank, bank_to_fire, num_to_test;
        float   weapon_range, farthest_weapon_range;
        ship_weapon     *swp;
        weapon_info     *wip;

        swp = &Player_ship->weapons;

        farthest_weapon_range = 0.0f;
        best_bank = -1;

        if ( Player_ship->flags & SF_PRIMARY_LINKED ) {
                num_to_test = swp->num_primary_banks;
        } else {
                num_to_test = min(1, swp->num_primary_banks);
        }

        for ( i = 0; i < num_to_test; i++ ) {
                
                bank_to_fire = (swp->current_primary_bank+i)%2; //      Max supported banks is 2

                // calculate the range of the weapon, and only display the lead target indicator when
                // if the weapon can actually hit the target
                Assert(bank_to_fire >= 0);
                Assert(swp->primary_bank_weapons[bank_to_fire] >= 0);
                wip = &Weapon_info[swp->primary_bank_weapons[bank_to_fire]];
                weapon_range = wip->max_speed * wip->lifetime;

                if ( weapon_range > farthest_weapon_range ) {
                        best_bank = bank_to_fire;
                        farthest_weapon_range = weapon_range;
                }
        }

        *range = farthest_weapon_range;
        return best_bank;
}

// -----------------------------------------------------------------------------
//      polish_predicted_target_pos()
// 
// Called by the draw lead indicator code to predict where the enemy is going to be
//
void polish_predicted_target_pos(vector *enemy_pos, vector *predicted_enemy_pos, float dist_to_enemy, vector *last_delta_vec, int num_polish_steps) 
{
        int     iteration;
        vector  player_pos = Player_obj->pos;   
        float           time_to_enemy;
        vector  last_predicted_enemy_pos = *predicted_enemy_pos;

        ship *shipp;
        shipp = &Ships[Player_obj->instance];
        Assert(shipp->weapons.current_primary_bank < shipp->weapons.num_primary_banks);
        weapon_info     *wip = &Weapon_info[shipp->weapons.primary_bank_weapons[shipp->weapons.current_primary_bank]];

        float   weapon_speed = wip->max_speed;

        vm_vec_zero(last_delta_vec);

        for (iteration=0; iteration < num_polish_steps; iteration++) {
                dist_to_enemy = vm_vec_dist_quick(predicted_enemy_pos, &player_pos);
                time_to_enemy = dist_to_enemy/weapon_speed;
//              vm_vec_scale_add(predicted_enemy_pos, enemy_pos, &Objects[Player_ai->target_objnum].orient.fvec, en_physp->speed * time_to_enemy);
                vm_vec_scale_add(predicted_enemy_pos, enemy_pos, &Objects[Player_ai->target_objnum].phys_info.vel, time_to_enemy);
                vm_vec_sub(last_delta_vec, predicted_enemy_pos, &last_predicted_enemy_pos);
                last_predicted_enemy_pos= *predicted_enemy_pos;
        }
}

// determine the correct frame to draw for the lead indicator
// 0 -> center only     (in secondary range only)
// 1 -> full                    (in secondary and primary range)
//      2 -> oustide only       (in primary range only)
//
// input:       prange  =>      range of current primary weapon
//                              srange  =>      range of current secondary weapon
//                              dist_to_target  =>      current dist to target
//
// exit:                0-2     =>      frame offset
//                              -1              =>      don't draw anything
int hudtarget_lead_indicator_pick_frame(float prange, float srange, float dist_to_target)
{
        int frame_offset=-1;
        int in_prange=0, in_srange=0;

        if ( dist_to_target < prange ) {
                in_prange=1;
        }

        if ( dist_to_target < srange ) {
                in_srange=1;
        }

        if ( in_prange && in_srange ) {
                frame_offset=1;
        } else if ( in_prange && !in_srange ) {
                frame_offset=2;
        } else if ( !in_prange && in_srange ) {
                frame_offset=0;
        } else {
                frame_offset=-1;
        }

        return frame_offset;
}

        // decide what frame of lead indicator to draw

// hud_show_lead_indicator() determine where to draw the lead target box and display it
void hud_show_lead_indicator(vector *target_world_pos)
{
        vector          target_moving_direction, last_delta_vector, source_pos;
        vector          *rel_pos;
        vertex          lead_target_vertex;
        object          *targetp;
        polymodel       *po;
        ship_weapon     *swp;
        weapon_info     *wip;
        float                   dist_to_target, time_to_target, target_moved_dist, prange, srange;
        int                     bank_to_fire, indicator_frame, frame_offset;

        if (Player_ai->target_objnum == -1)
                return;

        targetp = &Objects[Player_ai->target_objnum];
        if ( (targetp->type != OBJ_SHIP) && (targetp->type != OBJ_WEAPON) && (targetp->type != OBJ_ASTEROID) ) {
                return;
        }

        // only allow bombs to have lead indicator displayed
        if ( targetp->type == OBJ_WEAPON ) {
                if ( !(Weapon_info[Weapons[targetp->instance].weapon_info_index].wi_flags & WIF_BOMB) ) {
                        return;
                }
        }

        // If the target is out of range, then draw the correct frame for the lead indicator
        if ( Lead_indicator_gauge.first_frame == -1 ) {
                Int3();
                return;
        }
        
        po = model_get( Player_ship->modelnum );
        swp = &Player_ship->weapons;

        // Added to take care of situation where there are no primary banks on the player ship
        // (this may not be possible, depending on what we decide for the weapons loadout rules)
        if ( swp->num_primary_banks == 0 )
                return;

        bank_to_fire = hud_get_best_primary_bank(&prange);
        if ( bank_to_fire < 0 )
                return;
        wip = &Weapon_info[swp->primary_bank_weapons[bank_to_fire]];
                        
        if (po->n_guns && bank_to_fire != -1 ) {
                rel_pos = &po->gun_banks[bank_to_fire].pnt[0];
        } else {
                rel_pos = NULL;
        }

        // source_pos will contain the world coordinate of where to base the lead indicator prediction
        // from.  Normally, this will be the world pos of the gun turret of the currently selected primary
        // weapon.
        source_pos = Player_obj->pos;
        if (rel_pos != NULL) {
                vector  gun_point;
                vm_vec_unrotate(&gun_point, rel_pos, &Player_obj->orient);
                vm_vec_add2(&source_pos, &gun_point);
        } 
        
        // Determine "accurate" distance to target.  This is the distance from the player ship
        // to the closest point on the bounding box of the target
        dist_to_target = hud_find_target_distance(targetp, Player_obj);

        srange = ship_get_secondary_weapon_range(Player_ship);

        if ( swp->current_secondary_bank >= 0 ) {
                weapon_info     *wip;
                int bank = swp->current_secondary_bank;
                wip = &Weapon_info[swp->secondary_bank_weapons[bank]];
                if ( wip->wi_flags & WIF_HOMING_ASPECT ) {
                        if ( !Player->target_in_lock_cone ) {
                                srange = -1.0f;
                        }
                }
        }

        frame_offset=hudtarget_lead_indicator_pick_frame(prange, srange, dist_to_target);
        if ( frame_offset < 0 ) {
                return;
        }

        indicator_frame = Lead_indicator_gauge.first_frame + frame_offset;

        Assert(wip->max_speed != 0);
        time_to_target = dist_to_target / wip->max_speed;

        target_moved_dist = targetp->phys_info.speed * time_to_target;

        target_moving_direction = targetp->phys_info.vel;

        // if we've reached here, the lead target indicator will be displayed
        Players[Player_num].lead_indicator_active = 1;

        // test if the target is moving at all
        if ( vm_vec_mag_quick(&targetp->phys_info.vel) < 0.1f)          // Find distance!
                Players[Player_num].lead_target_pos =  *target_world_pos;
        else {
                vm_vec_normalize(&target_moving_direction);
                vm_vec_scale(&target_moving_direction,target_moved_dist);
                vm_vec_add(&Players[Player_num].lead_target_pos, target_world_pos, &target_moving_direction );
                polish_predicted_target_pos(target_world_pos, &Players[Player_num].lead_target_pos, dist_to_target, &last_delta_vector, 1); // Not used:, float time_to_enemy)
        }

        g3_rotate_vertex(&lead_target_vertex,&Players[Player_num].lead_target_pos);

        if (lead_target_vertex.codes == 0) { // on screen

                g3_project_vertex(&lead_target_vertex);
                if (!(lead_target_vertex.flags & PF_OVERFLOW)) {

                        if ( hud_gauge_maybe_flash(HUD_LEAD_INDICATOR) == 1 ) {
                                hud_set_iff_color(targetp, 0);
                        } else {
                                hud_set_iff_color(targetp, 1);
                        }

                        if ( indicator_frame >= 0 ) {
                                GR_AABITMAP(indicator_frame, fl2i(lead_target_vertex.sx - Lead_indicator_half[gr_screen.res][0]),  fl2i(lead_target_vertex.sy - Lead_indicator_half[gr_screen.res][1]));                                
                        }
                }
        }
}

// hud_cease_subsystem_targeting() will cease targeting the current targets subsystems
//
void hud_cease_subsystem_targeting(int print_message)
{
        int ship_index;

        ship_index = Objects[Player_ai->target_objnum].instance;
        if ( ship_index < 0 )
                return;

        Ships[ship_index].last_targeted_subobject[Player_num] = NULL;
        Player_ai->targeted_subsys = NULL;
        Player_ai->targeted_subsys_parent = -1;
        if ( print_message ) {
                HUD_sourced_printf(HUD_SOURCE_HIDDEN, XSTR( "Deactivating sub-system targeting", 324));
        }

        hud_stop_looped_locking_sounds();
        hud_lock_reset();
}

// hud_cease_targeting() will cease all targeting (main target and subsystem)
//
void hud_cease_targeting()
{
        set_target_objnum( Player_ai, -1 );
        Players[Player_num].flags &= ~PLAYER_FLAGS_AUTO_TARGETING;
        hud_cease_subsystem_targeting(0);
        HUD_sourced_printf(HUD_SOURCE_HIDDEN, XSTR( "Deactivating targeting system", 325));
        hud_lock_reset();
}

// hud_restore_subsystem_target() will remember the last targeted subsystem
// on a target.
//
void hud_restore_subsystem_target(ship* shipp)
{
        // check if there was a previously targeted sub-system for this target
        if ( shipp->last_targeted_subobject[Player_num] != NULL ) {
                Player_ai->targeted_subsys = shipp->last_targeted_subobject[Player_num];
                Player_ai->targeted_subsys_parent = Player_ai->target_objnum;
        }
        else {
                Player_ai->targeted_subsys = NULL;
                Player_ai->targeted_subsys_parent = -1;
        }
}
 
// --------------------------------------------------------------------------------
// get_subsystem_world_pos() returns the world position for a given subobject on a ship
//
vector* get_subsystem_world_pos(object* parent_obj, ship_subsys* subsys, vector* world_pos)
{
        if (subsys == NULL) {
                *world_pos = parent_obj->pos;
                return world_pos;
        }
        
        vm_vec_unrotate(world_pos, &subsys->system_info->pnt, &parent_obj->orient);
        vm_vec_add2(world_pos, &parent_obj->pos);

        return world_pos;
}

// If Pl_objp is docking, see if it (or the dockee) are in the target view.  If so, flash dock
// text on the HUD.
void hud_maybe_flash_docking_text(object *objp)
{
        ai_info *aip;
        int             docker_objnum, dockee_objnum;

        if ( Player_ai->target_objnum < 0 ) {
                return;
        }
        
        if ( objp->type != OBJ_SHIP ) {
                return;
        }
        
        aip = &Ai_info[Ships[objp->instance].ai_index];
        docker_objnum = -1;
        dockee_objnum = -1;

        if ( aip->ai_flags & AIF_DOCKED ) {
                docker_objnum = OBJ_INDEX(objp);
                dockee_objnum = aip->dock_objnum;
        }

        if ( (Player_ai->target_objnum == docker_objnum) || (Player_ai->target_objnum == dockee_objnum) ) {
                hud_targetbox_start_flash(TBOX_FLASH_DOCKED, 2000);
        }
}


// ----------------------------------------------------------------------------
// hud_target_change_check()
//
// called once per frame to account for when the target changes
//
void hud_target_change_check()
{
        float current_speed=0.0f;

        // Check if player subsystem target has changed, and reset necessary player flag
        if ( Player_ai->targeted_subsys != Player_ai->last_subsys_target ) {
                Player->subsys_in_view=-1;
        }

        // check if the main target has changed
        if (Player_ai->last_target != Player_ai->target_objnum) {

                if ( Player_ai->target_objnum != -1){
                        snd_play( &Snds[SND_TARGET_ACQUIRE], 0.0f );
                }

                // if we have a hotkey set active, see if new target is in set.  If not in
                // set, deselect the current hotkey set.
                if (    Player->current_hotkey_set != -1 ) {
                        htarget_list *hitem, *plist;

                        plist = &(Player->keyed_targets[Player->current_hotkey_set]);
                        for ( hitem = GET_FIRST(plist); hitem != END_OF_LIST(plist); hitem = GET_NEXT(hitem) ) {
                                if ( OBJ_INDEX(hitem->objp) == Player_ai->target_objnum ){
                                        break;
                                }
                        }
                        if ( hitem == END_OF_LIST(plist) ){
                                Player->current_hotkey_set = -1;
                        }
                }

                player_stop_cargo_scan_sound();
                hud_shield_hit_reset();
                hud_targetbox_init_flash();
                hud_targetbox_start_flash(TBOX_FLASH_NAME);
                hud_gauge_popup_start(HUD_TARGET_MINI_ICON);
                Player->cargo_inspect_time=0;
                Player->locking_subsys=NULL;
                Player->locking_on_center=0;
                Player->locking_subsys_parent=-1;

                Player_ai->current_target_dist_trend = NO_CHANGE;
                Player_ai->current_target_speed_trend = NO_CHANGE;

                if ( Players[Player_num].flags & PLAYER_FLAGS_AUTO_MATCH_SPEED ) {
                        Players[Player_num].flags &= ~PLAYER_FLAGS_MATCH_TARGET;
//                      player_match_target_speed("", "", XSTR("Matching speed of newly acquired target",-1));
                        player_match_target_speed();
                }
                else {
                        if ( Players[Player_num].flags & PLAYER_FLAGS_MATCH_TARGET )
                                Players[Player_num].flags &= ~PLAYER_FLAGS_MATCH_TARGET;                // no more target matching.
                }

                hud_lock_reset();

                if ( Player_ai->target_objnum != -1) {
                        if ( Objects[Player_ai->target_objnum].type == OBJ_SHIP ) {
                                hud_restore_subsystem_target(&Ships[Objects[Player_ai->target_objnum].instance]);
                        }
                }

                // if this target is docked, then flash DOCKING on the hud for a couple of seconds
                hud_targetbox_end_flash(TBOX_FLASH_DOCKED);
                if ( Player_ai->target_objnum >= 0 ) {
                        hud_maybe_flash_docking_text(&Objects[Player_ai->target_objnum]);
                }
        }
        else {
                if (Player_ai->current_target_distance < Player_ai->last_dist-0.01){
                        Player_ai->current_target_dist_trend = DECREASING;
                } else if (Player_ai->current_target_distance > Player_ai->last_dist+0.01){
                        Player_ai->current_target_dist_trend = INCREASING;
                } else {
                        Player_ai->current_target_dist_trend = NO_CHANGE;
                }

                current_speed = Objects[Player_ai->target_objnum].phys_info.speed;

                if (current_speed < Player_ai->last_speed-0.01){
                        Player_ai->current_target_speed_trend = DECREASING;
                } else if (current_speed > Player_ai->last_speed+0.01) {
                        Player_ai->current_target_speed_trend = INCREASING;
                } else {
                        Player_ai->current_target_speed_trend = NO_CHANGE;
                }

                if ( Players[Player_num].flags & PLAYER_FLAGS_AUTO_MATCH_SPEED ) {
                        if ( !(Players[Player_num].flags & PLAYER_FLAGS_MATCH_TARGET) ) {
//                              player_match_target_speed("", "", XSTR("Matching target speed",-1));
                                player_match_target_speed();
                        }
                }
        }

        Player_ai->last_dist = Player_ai->current_target_distance;
        Player_ai->last_speed = current_speed;

        Player_ai->last_target = Player_ai->target_objnum;
        Player_ai->last_subsys_target = Player_ai->targeted_subsys;
}

// ---------------------------------------------------------------------
// hud_draw_offscreen_indicator()
//
// draws the offscreen target indicator
//
void hud_draw_offscreen_indicator(vertex* target_point, vector *tpos, float distance)
{
        char buf[32];
        int w = 0, h = 0;
        int on_top, on_right, on_left, on_bottom;
        float target_x, target_y;

        float xpos,ypos;
        // points to draw triangles
        float x1=0.0f;
        float y1=0.0f;
        float x2=0.0f;
        float y2=0.0f;
        float x3=0.0f;
        float y3=0.0f;
        float x4=0.0f;
        float y4=0.0f;
        float x5=0.0f;
        float y5=0.0f;
        float x6=0.0f;
        float y6=0.0f;

        vector targ_to_player;
        float dist_behind;
        float triangle_sep;
        float half_gauge_length, half_triangle_sep;
        int in_front;

        // calculate the dot product between the players forward vector and the vector connecting
        // the player to the target. Normalize targ_to_player since we want the dot product
        // to range between 0 -> 1.
        vm_vec_sub(&targ_to_player, &Player_obj->pos, tpos);
        vm_vec_normalize(&targ_to_player);
        dist_behind = vm_vec_dot(&Player_obj->orient.v.fvec, &targ_to_player);

        in_front = 0;

        if (dist_behind < 0) {  // still in front of player, but not in view
                in_front = 1;
                dist_behind = dist_behind + 1.0f;
                if (dist_behind > 0.2 ){
                        triangle_sep = ( dist_behind ) * Max_front_seperation[gr_screen.res];
                } else {
                        triangle_sep = 0.0f;
                }               
        }
        else {
                triangle_sep = dist_behind * Max_offscreen_tri_seperation[gr_screen.res] + Max_offscreen_tri_seperation[gr_screen.res];
        }

        if ( triangle_sep > Max_offscreen_tri_seperation[gr_screen.res] + Max_front_seperation[gr_screen.res]){
                triangle_sep = Max_offscreen_tri_seperation[gr_screen.res] + Max_front_seperation[gr_screen.res];
        }

        // calculate these values only once, since it will be used in several places
        half_triangle_sep = 0.5f * triangle_sep;
        half_gauge_length = half_triangle_sep + Offscreen_tri_base[gr_screen.res];

        target_x = target_point->x;
        target_y = target_point->y;

        // We need to find the screen (x,y) for where to draw the offscreen indicator
        //
        // The best way I've found is to draw a line from the eye_pos to the target, and
        // then use clip_line() to find the screen (x,y) for where the line hits the edge
        // of the screen.
        //
        // The weird thing about clip_line() is that is flips around the two verticies,
        // so I use eye_vertex->sx and eye_vertex->sy for the off-screen indicator (x,y)
        //
        vertex *eye_vertex = NULL;
        vertex real_eye_vertex;
        eye_vertex = &real_eye_vertex;  // this is needed since clip line takes a **vertex
        vector eye_pos;
        vm_vec_add( &eye_pos, &Eye_position, &View_matrix.v.fvec);
        g3_rotate_vertex(eye_vertex, &eye_pos);

        ubyte codes_or;
        codes_or = (ubyte)(target_point->codes | eye_vertex->codes);
        clip_line(&target_point,&eye_vertex,codes_or,0);
        
        if (!(target_point->flags&PF_PROJECTED))
                g3_project_vertex(target_point);

        if (!(eye_vertex->flags&PF_PROJECTED))
                g3_project_vertex(eye_vertex);

        if (eye_vertex->flags&PF_OVERFLOW) {
                Int3();                 //      This is unlikely to happen, but can if a clip goes through the player's eye.
                Player_ai->target_objnum = -1;
                return;
        } 
        
        if (target_point->flags & PF_TEMP_POINT)
                free_temp_point(target_point);

        if (eye_vertex->flags & PF_TEMP_POINT)
                free_temp_point(eye_vertex);

        xpos = eye_vertex->sx;
        ypos = eye_vertex->sy;

        on_left = on_right = on_top = on_bottom = 0;
        xpos = (xpos<1) ? 0 : xpos;
        ypos = (ypos<1) ? 0 : ypos;

        if ( xpos <= gr_screen.clip_left ) {
                xpos = i2fl(gr_screen.clip_left);
                on_left = TRUE;

                if ( ypos < (half_gauge_length - gr_screen.clip_top) )
                        ypos = half_gauge_length;


                if ( ypos > (gr_screen.clip_bottom - half_gauge_length) ) 
                        ypos = gr_screen.clip_bottom - half_gauge_length;

        }
        else if ( xpos >= gr_screen.clip_right) {
                xpos = i2fl(gr_screen.clip_right);
                on_right = TRUE;

                if ( ypos < (half_gauge_length - gr_screen.clip_top) )
                        ypos = half_gauge_length;

                if ( ypos > (gr_screen.clip_bottom - half_gauge_length) ) 
                        ypos = gr_screen.clip_bottom - half_gauge_length;

        }
        else if ( ypos <= gr_screen.clip_top ) {
                ypos = i2fl(gr_screen.clip_top);
                on_top = TRUE;

                if ( xpos < ( half_gauge_length - gr_screen.clip_left) )
                        xpos = half_gauge_length;

                if ( xpos > (gr_screen.clip_right - half_gauge_length) ) 
                        xpos = gr_screen.clip_right - half_gauge_length;

        }
        else if ( ypos >= gr_screen.clip_bottom ) {
                ypos = i2fl(gr_screen.clip_bottom);
                on_bottom = TRUE;

                if ( xpos < ( half_gauge_length - gr_screen.clip_left) )
                        xpos = half_gauge_length;

                if ( xpos > (gr_screen.clip_right - half_gauge_length) ) 
                        xpos = gr_screen.clip_right - half_gauge_length;
        }
        else {
                Int3();
                return;
        }

        //      The offscreen target triangles are drawn according the the diagram below
        //
        //
        //
        //                        x3                            x3
        //                 /    |                               | \.
        //               /              |                               |   \.
        //              x1___x2                         x2___x1
        //                              |                               |
        //              ......|...........|...............(xpos,ypos)
        //                              |                               |
        //              x4___x5                         x5___x4
        //               \              |                               |         /
        //                 \    |                               |       /
        //                        x6                            x6
        //
        //

        xpos = (float)floor(xpos);
        ypos = (float)floor(ypos);

        if ( hud_gauge_active(HUD_OFFSCREEN_RANGE) && (distance > 0) ) {
                sprintf(buf,"%d",fl2i(distance+0.5f));
                hud_num_make_mono(buf);
                gr_get_string_size(&w, &h, buf);        
        } else {
                buf[0] = 0;
        }

        if (on_right) {
                x1 = x4 = (xpos+2);
                        
                x2 = x3 = x5 = x6 = x1 - Offscreen_tri_height[gr_screen.res];
                y1 = y2 = ypos - half_triangle_sep;
                y3 = y2 - Offscreen_tri_base[gr_screen.res];

                y4 = y5 = ypos + half_triangle_sep;
                y6 = y5 + Offscreen_tri_base[gr_screen.res];

                if ( buf[0] ) {
                        gr_string( fl2i(xpos - w - 10), fl2i(ypos - h/2.0f+0.5f), buf);
                }
        }
        else if (on_left) {
                x1 = x4 = (xpos-1);
                        
                x2 = x3 = x5 = x6 = x1 + Offscreen_tri_height[gr_screen.res];
                y1 = y2 = ypos - half_triangle_sep;
                y3 = y2 - Offscreen_tri_base[gr_screen.res];

                y4 = y5 = ypos + half_triangle_sep;
                y6 = y5 + Offscreen_tri_base[gr_screen.res];

                if ( buf[0] ) {
                        gr_string(fl2i(xpos + 10), fl2i(ypos - h/2.0f+0.5f), buf);
                }
        }
        else if (on_top) {
                y1 = y4 = (ypos-1);
                        
                y2 = y3 = y5 = y6 = y1 + Offscreen_tri_height[gr_screen.res];
                x1 = x2 = xpos - half_triangle_sep;
                x3 = x2 - Offscreen_tri_base[gr_screen.res];

                x4 = x5 = xpos + half_triangle_sep;
                x6 = x5 + Offscreen_tri_base[gr_screen.res];

                if ( buf[0] ) {
                        gr_string(fl2i(xpos - w/2.0f+0.5f), fl2i(ypos+10), buf);
                }
        }
        else if (on_bottom) {
                y1 = y4 = (ypos+2);
                        
                y2 = y3 = y5 = y6 = y1 - Offscreen_tri_height[gr_screen.res];
                x1 = x2 = xpos - half_triangle_sep;
                x3 = x2 - Offscreen_tri_base[gr_screen.res];

                x4 = x5 = xpos + half_triangle_sep;
                x6 = x5 + Offscreen_tri_base[gr_screen.res];

                if ( buf[0] ) {
                        gr_string(fl2i(xpos - w/2.0f+0.5f), fl2i(ypos-h-10), buf);
                }
        }

        hud_tri(x3,y3,x2,y2,x1,y1);
        hud_tri(x4,y4,x5,y5,x6,y6);
        if (on_right || on_bottom){
                gr_line(fl2i(x2),fl2i(y2),fl2i(x5),fl2i(y5));
        } else if (on_left) {
                gr_line(fl2i(x2-1),fl2i(y2),fl2i(x5-1),fl2i(y5));
        } else {
                gr_line(fl2i(x2),fl2i(y2-1),fl2i(x5),fl2i(y5-1));
        }

}

//      Render the HUD afterburner energy gauge
void hud_show_afterburner_gauge()
{
        float percent_left;
        int     clip_h,w,h;     

        if ( Energy_bar_gauges.first_frame == -1 ){
                return;
        }

        Assert(Player_ship);
        if ( !(Ship_info[Player_ship->ship_info_index].flags & SIF_AFTERBURNER) ) {
                percent_left = 0.0f;
        } else {
                percent_left = Player_ship->afterburner_fuel/Ship_info[Player_ship->ship_info_index].afterburner_fuel_capacity;
        }

        if ( percent_left > 1 ) {
                percent_left = 1.0f;
        }
        
        clip_h = fl2i( (1.0f - percent_left) * Aburn_coords[gr_screen.res][3] + 0.5f );

        bm_get_info(Energy_bar_gauges.first_frame,&w,&h);
        
        if ( clip_h > 0) {
                GR_AABITMAP_EX(Energy_bar_gauges.first_frame, Aburn_coords[gr_screen.res][0], Aburn_coords[gr_screen.res][1],w,clip_h,0,0);             
        }

        if ( clip_h <= Aburn_coords[gr_screen.res][3] ) {               
                GR_AABITMAP_EX(Energy_bar_gauges.first_frame+1, Aburn_coords[gr_screen.res][0], Aburn_coords[gr_screen.res][1]+clip_h,w,h-clip_h,0,clip_h);
        }       
}

//      Render the player weapon energy on the HUD
void hud_show_weapon_energy_gauge()
{
        float percent_left;
        int     clip_h, i, w, h;

        if ( Energy_bar_gauges.first_frame == -1 ){
                return;
        }

        if ( Player_ship->weapons.num_primary_banks <= 0 ){
                return;
        }

        percent_left = Player_ship->weapon_energy/Ship_info[Player_ship->ship_info_index].max_weapon_reserve;
        if ( percent_left > 1 ) {
                percent_left = 1.0f;
        }
        
        if ( percent_left <= 0.3 ) {
                char buf[32];
                if ( percent_left < 0.1 ) {
                        gr_set_color_fast(&Color_bright_red);
                }
                sprintf(buf,XSTR( "%d%%", 326), fl2i(percent_left*100+0.5f));
                hud_num_make_mono(buf);
                gr_string(Weapon_energy_text_coords[gr_screen.res][0], Weapon_energy_text_coords[gr_screen.res][1], buf);
        }

        hud_set_gauge_color(HUD_WEAPONS_ENERGY);
        for ( i = 0; i < Player_ship->weapons.num_primary_banks; i++ ) {
                if ( !timestamp_elapsed(Weapon_flash_info.flash_duration[i]) ) {
                        if ( Weapon_flash_info.is_bright & (1<<i) ) {
                                // hud_set_bright_color();
                                hud_set_gauge_color(HUD_WEAPONS_ENERGY, HUD_C_BRIGHT);
                                break;
                        }
                }
        }

        clip_h = fl2i( (1.0f - percent_left) * Wenergy_coords[gr_screen.res][3] + 0.5f );

        bm_get_info(Energy_bar_gauges.first_frame+2,&w,&h);
        
        if ( clip_h > 0 ) {
                GR_AABITMAP_EX(Energy_bar_gauges.first_frame+2, Wenergy_coords[gr_screen.res][0], Wenergy_coords[gr_screen.res][1], w,clip_h,0,0);              
        }

        if ( clip_h <= Wenergy_coords[gr_screen.res][3] ) {
                GR_AABITMAP_EX(Energy_bar_gauges.first_frame+3, Wenergy_coords[gr_screen.res][0], Wenergy_coords[gr_screen.res][1] + clip_h, w,h-clip_h,0,clip_h);              
        }

        // hud_set_default_color();
}

// --------------------------------------------------------------------------------------
//      hud_show_target_triangle_indicator()
//
//      Draw the solid triangle that orbits the reticle and points to the nearest target
//
void hud_show_target_triangle_indicator(vertex *projected_v)
{
        float x3,y3,x4,y4;
        float xpos,ypos,ang;
        
        if ( Player_ai->target_objnum == -1)
                return;

        object *targetp = &Objects[Player_ai->target_objnum];

        // draw the targeting triangle that orbits the outside of the outer circle of the reticle
        if ((hud_gauge_active(HUD_TARGET_TRIANGLE)) && !Player->target_is_dying && !Target_in_reticle) {
                if ( hud_gauge_maybe_flash(HUD_TARGET_TRIANGLE) == 1 ) {
                        return;
                }

                hud_set_iff_color(targetp, 1);

                ang = atan2_safe(projected_v->y,projected_v->x);
                xpos = Hud_reticle_center[gr_screen.res][0] + (float)cos(ang)*(Outer_circle_radius[gr_screen.res]+4);
                ypos = Hud_reticle_center[gr_screen.res][1] - (float)sin(ang)*(Outer_circle_radius[gr_screen.res]+4);

                xpos += HUD_offset_x;
                ypos += HUD_offset_y;
                        
                x3 = xpos - Target_triangle_base[gr_screen.res] * (float)sin(-ang);
                y3 = ypos + Target_triangle_base[gr_screen.res] * (float)cos(-ang);
                x4 = xpos + Target_triangle_base[gr_screen.res] * (float)sin(-ang);
                y4 = ypos - Target_triangle_base[gr_screen.res] * (float)cos(-ang);

                xpos += Target_triangle_height[gr_screen.res] * (float)cos(ang);
                ypos -= Target_triangle_height[gr_screen.res] * (float)sin(ang);

                hud_tri(xpos,ypos,x3,y3,x4,y4);
        }
}

// called from hud_show_weapons() to plot out the secondary weapon name and amo 
void hud_show_secondary_weapon(int count, ship_weapon *sw, int dual_fire)
{
        char    ammo_str[32];
        char    weapon_name[NAME_LENGTH + 10];
        int     i, w, h, np;
        weapon_info     *wip;

        np = 1;
        if ( sw->num_primary_banks == 2 ) {
                np = 0;
        } 

        for ( i = 0; i < count; i++ ) {
                hud_maybe_flash_weapon(sw->num_primary_banks+i);
                wip = &Weapon_info[sw->secondary_bank_weapons[i]];
                
                // HACK - make Cluster Bomb fit on the HUD.
                if(!stricmp(wip->name,"cluster bomb")){
                        strcpy(weapon_name, NOX("Cluster"));
                } else {
                        strcpy(weapon_name, wip->name);
                }

                hud_end_string_at_first_hash_symbol(weapon_name);
                
                if ( sw->current_secondary_bank == i ) {
                        emp_hud_printf(Weapon_sunlinked_x[gr_screen.res], Weapon_secondary_y[gr_screen.res][i] - np*12, EG_NULL, "%c", Lcl_special_chars + 2);                  

                        if ( dual_fire ) {
                                emp_hud_printf(Weapon_slinked_x[gr_screen.res], Weapon_secondary_y[gr_screen.res][i] - np*12, EG_NULL, "%c", Lcl_special_chars + 2);                            
                        }

                        emp_hud_string(Weapon_secondary_name_x[gr_screen.res], Weapon_secondary_y[gr_screen.res][i] - np*12, i ? EG_WEAPON_S1 : EG_WEAPON_S2, weapon_name);

                        if ( (sw->secondary_bank_ammo[i] > 0) && (sw->current_secondary_bank >= 0) ) {
                                int ms_till_fire = timestamp_until(sw->next_secondary_fire_stamp[sw->current_secondary_bank]);
                                if ( (ms_till_fire >= 500) && ((wip->fire_wait >= 1 ) || (ms_till_fire > wip->fire_wait*1000)) ) {
                                        emp_hud_printf(Weapon_secondary_reload_x[gr_screen.res], Weapon_secondary_y[gr_screen.res][i] - np*12, EG_NULL, "%d", fl2i(ms_till_fire/1000.0f +0.5f));                                        
                                }
                        }
                } else {
                        emp_hud_string(Weapon_secondary_name_x[gr_screen.res], Weapon_secondary_y[gr_screen.res][i] - np*12, i ? EG_WEAPON_S1 : EG_WEAPON_S2, weapon_name);                     
                }

                // print out the ammo right justified
                sprintf(ammo_str, "%d", sw->secondary_bank_ammo[i]);
                hud_num_make_mono(ammo_str);
                gr_get_string_size(&w, &h, ammo_str);

                emp_hud_string(Weapon_secondary_ammo_x[gr_screen.res] - w, Weapon_secondary_y[gr_screen.res][i] - np*12, EG_NULL, ammo_str);            

                hud_set_gauge_color(HUD_WEAPONS_GAUGE);
        }
}

// start the weapon line (on the HUD) flashing
void hud_start_flash_weapon(int index)
{
        if ( index >= MAX_WEAPON_FLASH_LINES ) {
                Int3(); // Get Alan
                return;
        }

        if ( timestamp_elapsed(Weapon_flash_info.flash_duration[index]) ) {
                Weapon_flash_info.flash_next[index] = timestamp(TBOX_FLASH_INTERVAL);
                Weapon_flash_info.is_bright &= ~(1<<index);
        }

        Weapon_flash_info.flash_duration[index] = timestamp(TBOX_FLASH_DURATION);
}

// maybe change the text color for the weapon line indicated by index 
void hud_maybe_flash_weapon(int index)
{
        if ( index >= MAX_WEAPON_FLASH_LINES ) {
                Int3(); // Get Alan
                return;
        }

        // hud_set_default_color();
        hud_set_gauge_color(HUD_WEAPONS_GAUGE);
        if ( !timestamp_elapsed(Weapon_flash_info.flash_duration[index]) ) {
                if ( timestamp_elapsed(Weapon_flash_info.flash_next[index]) ) {
                        Weapon_flash_info.flash_next[index] = timestamp(TBOX_FLASH_INTERVAL);
                        Weapon_flash_info.is_bright ^= (1<<index);
                }

                if ( Weapon_flash_info.is_bright & (1<<index) ) {
                        hud_set_gauge_color(HUD_WEAPONS_GAUGE, HUD_C_BRIGHT);
                        // hud_set_bright_color();
                } else {
                        hud_set_gauge_color(HUD_WEAPONS_GAUGE, HUD_C_DIM);
                        // hud_set_dim_color();
                }
        }
}

// render the coutermeasure HUD gauge
void hud_show_cmeasure_gague()
{
        if ( Cmeasure_gauge.first_frame == -1 ) {
                Int3(); // failed to load coutermeasure gauge background
                return;
        }

        // hud_set_default_color();
        hud_set_gauge_color(HUD_CMEASURE_GAUGE);

        // blit the background
        GR_AABITMAP(Cmeasure_gauge.first_frame, Cm_coords[gr_screen.res][0], Cm_coords[gr_screen.res][1]);      

        // blit text
        gr_string(Cm_text_coords[gr_screen.res][0], Cm_text_coords[gr_screen.res][1], XSTR( "cm.", 327));
        if ( !Player_ship ) {
                Int3(); // player ship doesn't exist?
                return;
        }
        gr_printf(Cm_text_val_coords[gr_screen.res][0], Cm_text_val_coords[gr_screen.res][1], NOX("%02d"),Player_ship->cmeasure_count);
}


// ------------------------------------------------------------------
// hud_show_weapons()
//
// Show the player's primary and secondary weapons, along with ammo and % energy
//
void hud_show_weapons()
{
        ship_weapon     *sw;
        int                     np, ns;         // np == num primary, ns == num secondary
        char                    name[NAME_LENGTH];      

        if(Player_obj->type == OBJ_OBSERVER)
                return;

        Assert(Player_obj->type == OBJ_SHIP);
        Assert(Player_obj->instance >= 0 && Player_obj->instance < MAX_SHIPS);

        sw = &Ships[Player_obj->instance].weapons;

        np = sw->num_primary_banks;
        ns = sw->num_secondary_banks;

        // NOTE:  I hate to hard-code numbers, but there is no clean way to organize these coords... they
        //        are all over the place.  UGLY.

        // BAH. You're a moron, above guy. :)

        hud_set_gauge_color(HUD_WEAPONS_GAUGE);

        // draw top of primary display
        GR_AABITMAP(Weapon_gauges[0].first_frame, Weapon_gauge_primary_coords[gr_screen.res][0][0], Weapon_gauge_primary_coords[gr_screen.res][0][1]);  
        
        emp_hud_string(Weapon_title_coords[gr_screen.res][0], Weapon_title_coords[gr_screen.res][1], EG_WEAPON_TITLE, XSTR( "weapons", 328));           

        switch ( np ) {
        case 0:         
                // draw bottom of border                
                GR_AABITMAP(Weapon_gauges[2].first_frame, Weapon_gauge_primary_coords[gr_screen.res][1][0], Weapon_gauge_primary_coords[gr_screen.res][1][1]);          

                emp_hud_string(Weapon_pname_coords[gr_screen.res][0][0], Weapon_pname_coords[gr_screen.res][0][1], EG_WEAPON_P1, XSTR( "<none>", 329));         

                np = 1;
                break;

        case 1:
                // draw bottom of border
                GR_AABITMAP(Weapon_gauges[2].first_frame, Weapon_gauge_primary_coords[gr_screen.res][1][0], Weapon_gauge_primary_coords[gr_screen.res][1][1]);

                strcpy(name, Weapon_info[sw->primary_bank_weapons[0]].name);
                if (Lcl_gr) {
                        lcl_translate_wep_name(name);
                }
                
                // maybe modify name here to fit
                if ( hud_gauge_maybe_flash(HUD_WEAPONS_GAUGE) == 1 ) {
                        // hud_set_bright_color();
                        hud_set_gauge_color(HUD_WEAPONS_GAUGE, HUD_C_BRIGHT);
                } else {
                        hud_maybe_flash_weapon(0);
                }
                
                emp_hud_printf(Weapon_plink_coords[gr_screen.res][0][0], Weapon_plink_coords[gr_screen.res][0][1], EG_NULL, "%c", Lcl_special_chars + 2);
                emp_hud_printf(Weapon_pname_coords[gr_screen.res][0][0], Weapon_pname_coords[gr_screen.res][0][1], EG_WEAPON_P2, "%s", name);                                   
                break;

        case 2:
                // draw border to accomodate second primary weapon
                GR_AABITMAP(Weapon_gauges[1].first_frame, Weapon_gauge_primary_coords[gr_screen.res][1][0], Weapon_gauge_primary_coords[gr_screen.res][1][1]);          

                // draw bottom of border
                GR_AABITMAP(Weapon_gauges[2].first_frame, Weapon_gauge_primary_coords[gr_screen.res][2][0], Weapon_gauge_primary_coords[gr_screen.res][2][1]);

                strcpy(name, Weapon_info[sw->primary_bank_weapons[0]].name);
                if (Lcl_gr) {
                        lcl_translate_wep_name(name);
                }
                // maybe modify name here to fit

                if ( hud_gauge_maybe_flash(HUD_WEAPONS_GAUGE) == 1 ) {
                        // hud_set_bright_color();
                        hud_set_gauge_color(HUD_WEAPONS_GAUGE, HUD_C_BRIGHT);
                } else {
                        hud_maybe_flash_weapon(0);
                }
                if ( (sw->current_primary_bank == 0) || (Player_ship->flags & SF_PRIMARY_LINKED) ) {
                        emp_hud_printf(Weapon_plink_coords[gr_screen.res][0][0], Weapon_plink_coords[gr_screen.res][0][1], EG_NULL, "%c", Lcl_special_chars + 2);                       
                }
                emp_hud_printf(Weapon_pname_coords[gr_screen.res][0][0], Weapon_pname_coords[gr_screen.res][0][1], EG_WEAPON_P1, "%s", name);                   

                strcpy(name, Weapon_info[sw->primary_bank_weapons[1]].name);
                if (Lcl_gr) {
                        lcl_translate_wep_name(name);
                }
                // maybe modify name here to fit
                if ( hud_gauge_maybe_flash(HUD_WEAPONS_GAUGE) == 1 ) {
                        // hud_set_bright_color();
                        hud_set_gauge_color(HUD_WEAPONS_GAUGE, HUD_C_BRIGHT);
                } else {
                        hud_maybe_flash_weapon(1);
                }
                if ( sw->current_primary_bank == 1 || (Player_ship->flags & SF_PRIMARY_LINKED) ) {
                        emp_hud_printf(Weapon_plink_coords[gr_screen.res][1][0], Weapon_plink_coords[gr_screen.res][1][1], EG_NULL, "%c", Lcl_special_chars + 2);
                }
                emp_hud_printf(Weapon_pname_coords[gr_screen.res][1][0], Weapon_pname_coords[gr_screen.res][1][1], EG_WEAPON_P2, "%s", name);           
                np = 0;
                break;

        default:
                Int3(); // can't happen - get Alan
                return;

        } // end switch

        hud_set_gauge_color(HUD_WEAPONS_GAUGE);

        switch ( ns ) {
        case 0:
                // draw the bottom of the secondary weapons
                GR_AABITMAP(Weapon_gauges[4].first_frame, Weapon_gauge_secondary_coords[gr_screen.res][0][0], Weapon_gauge_secondary_coords[gr_screen.res][0][1] - 12*np - 1);          

                emp_hud_string(Weapon_pname_coords[gr_screen.res][0][0], Weapon_secondary_y[gr_screen.res][0] - np*12, EG_WEAPON_S1, XSTR( "<none>", 329));             
                break;

        case 1:
                // draw the bottom of the secondary weapons
                GR_AABITMAP(Weapon_gauges[4].first_frame, Weapon_gauge_secondary_coords[gr_screen.res][1][0], Weapon_gauge_secondary_coords[gr_screen.res][1][1] - 12*np - 1);          

                hud_show_secondary_weapon(1, sw, Player_ship->flags & SF_SECONDARY_DUAL_FIRE);
                break;

        case 2:
                // draw the middle border, only present when there are 2 or more secondaries
                GR_AABITMAP(Weapon_gauges[3].first_frame, Weapon_gauge_secondary_coords[gr_screen.res][2][0], Weapon_gauge_secondary_coords[gr_screen.res][2][1] - np*12);              

                // draw the bottom of the secondary weapons
                GR_AABITMAP(Weapon_gauges[4].first_frame, Weapon_gauge_secondary_coords[gr_screen.res][3][0], Weapon_gauge_secondary_coords[gr_screen.res][3][1] - 12*np);              

                hud_show_secondary_weapon(2, sw, Player_ship->flags & SF_SECONDARY_DUAL_FIRE);
                break;

        case 3:
                // draw the middle border, only present when there are 2 or more secondaries
                GR_AABITMAP(Weapon_gauges[3].first_frame, Weapon_gauge_secondary_coords[gr_screen.res][2][0], Weapon_gauge_secondary_coords[gr_screen.res][2][1] - np*12);              

                // draw the bottm border, only present when there are 3 secondaries
                GR_AABITMAP(Weapon_gauges[3].first_frame, Weapon_gauge_secondary_coords[gr_screen.res][3][0], Weapon_gauge_secondary_coords[gr_screen.res][3][1] - np*12);              

                // draw the bottom of the secondary weapons
                GR_AABITMAP(Weapon_gauges[4].first_frame, Weapon_gauge_secondary_coords[gr_screen.res][4][0], Weapon_gauge_secondary_coords[gr_screen.res][4][1] - 12*np);              

                hud_show_secondary_weapon(3, sw, Player_ship->flags & SF_SECONDARY_DUAL_FIRE);
                break;

        default:
                Int3(); // can't happen - get Alan
                return;

        } // end switch
}

// check if targeting is possible based on sensors strength
int hud_sensors_ok(ship *sp, int show_msg)
{
        float   sensors_str;

        // If playing on lowest skill level, sensors don't affect targeting
        // If dead, still allow player to target, despite any subsystem damage
        // If i'm a multiplayer observer, allow me to target
        if ( (Game_skill_level == 0) || (Game_mode & GM_DEAD) || ((Game_mode & GM_MULTIPLAYER) && (Net_player->flags & NETINFO_FLAG_OBSERVER)) ) {
                return 1;
        }

        // if the ship is currently being affected by EMP
        if(emp_active_local()){
                return 0;
        }

        // ensure targeting functions are not disabled through damage
        sensors_str = ship_get_subsystem_strength( sp, SUBSYSTEM_SENSORS );
        if ( (sensors_str < MIN_SENSOR_STR_TO_TARGET) || (ship_subsys_disrupted(sp, SUBSYSTEM_SENSORS)) ) {
                if ( show_msg ) {
                        HUD_sourced_printf(HUD_SOURCE_HIDDEN, XSTR( "Targeting is disabled due to sensors damage", 330));
                        snd_play(&Snds[SND_TARGET_FAIL]);
                }
                return 0;
        } else {
                return 1;
        }
}

int hud_communications_state(ship *sp, int show_msg)
{
        float str;
        int     comm_state = COMM_OK;

        // If playing on the lowest skill level, communications always ok
        // If dead, still allow player to communicate, despite any subsystem damage
        if ( Game_skill_level == 0 || (Game_mode & GM_DEAD) ) {
                return comm_state;
        }

        str = ship_get_subsystem_strength( sp, SUBSYSTEM_COMMUNICATION );
//      str = 1.0f; // DEBUG CODE! MK, change, 11/12/97, comm system could be taken out by one laser, too frustrating.
                                        //      Change this back when comm systems have been better placed.
        
        if ( (str <= 0.01) || ship_subsys_disrupted(sp, SUBSYSTEM_COMMUNICATION) ) {
                if ( show_msg ) {
                        HUD_sourced_printf(HUD_SOURCE_HIDDEN, XSTR( "Messaging is restricted due to communications damage", 331));
                }
                comm_state = COMM_DESTROYED;
        } else if ( str < MIN_COMM_STR_TO_MESSAGE ) {
                comm_state = COMM_DAMAGED;
        }

        return comm_state;
}

// target the next or previous hostile/friendly ship
void hud_target_next_list(int hostile, int next_flag)
{
        object  *A, *min_obj, *max_obj, *nearest_obj;
        ship            *shipp;
        ship_obj        *so;
//      vector  target_vec;
        float           cur_dist, min_dist, max_dist, new_dist, nearest_dist, diff;     
        int             timestamp_val, valid_team;

        if ( hostile ) {
                timestamp_val = Tl_hostile_reset_timestamp;
                Tl_hostile_reset_timestamp = timestamp(TL_RESET);
                valid_team = opposing_team_mask(Player_ship->team);
        } else {
                timestamp_val = Tl_friendly_reset_timestamp;
                Tl_friendly_reset_timestamp = timestamp(TL_RESET);
                valid_team = Player_ship->team;
        }

        // If no target is selected, then simply target the closest ship
        if ( Player_ai->target_objnum == -1 || timestamp_elapsed(timestamp_val) ) {
                hud_target_closest(valid_team);
                return;
        }

        cur_dist = hud_find_target_distance(&Objects[Player_ai->target_objnum],Player_obj);

        min_obj = max_obj = nearest_obj = NULL;
        min_dist = 1e20f;
        max_dist = 0.0f;
        if ( next_flag ) {
                nearest_dist = 1e20f;
        } else {
                nearest_dist = 0.0f;
        }

        for ( so = GET_FIRST(&Ship_obj_list); so != END_OF_LIST(&Ship_obj_list); so = GET_NEXT(so) ) {
                A = &Objects[so->objnum];
                shipp = &Ships[A->instance];    // get a pointer to the ship information

                if ( (A == Player_obj) || (shipp->flags & TARGET_SHIP_IGNORE_FLAGS) )
                        continue;

                // choose from the correct team
                if ( !hud_team_matches_filter(valid_team, shipp->team) ) {
                        // if we're in multiplayer dogfight, ignore this
                        if(!((Game_mode & GM_MULTIPLAYER) && (Netgame.type_flags & NG_TYPE_DOGFIGHT))){
                                continue;
                        }
                }

                // always ignore navbuoys and cargo
                if ( Ship_info[shipp->ship_info_index].flags & (SIF_CARGO | SIF_NAVBUOY) ) {
                        continue;
                }

                // don't use object if it is already a target
                if ( OBJ_INDEX(A) == Player_ai->target_objnum ) {
                        continue;
                }

                if(hud_target_invalid_awacs(A)){
                        continue;
                }

                new_dist = hud_find_target_distance(A,Player_obj);
                        
                if (new_dist <= min_dist) {
                        min_dist = new_dist;
                        min_obj = A;
                }

                if (new_dist >= max_dist) {
                        max_dist = new_dist;
                        max_obj = A;
                }

                if ( next_flag ) {
                        diff = new_dist - cur_dist;
                        if ( diff > 0 ) {
                                if ( diff < ( nearest_dist - cur_dist ) ) {
                                        nearest_dist = new_dist;
                                        nearest_obj = A;
                                }
                        }
                } else {
                        diff = cur_dist - new_dist;
                        if ( diff > 0 ) {
                                if ( diff < ( cur_dist - nearest_dist ) ) {
                                        nearest_dist = new_dist;
                                        nearest_obj = A;
                                }
                        }
                }
        }

        if ( nearest_obj == NULL ) {

                if ( next_flag ) {
                        if ( min_obj != NULL ) {
                                nearest_obj = min_obj;
                        }
                } else {
                        if ( max_obj != NULL ) {
                                nearest_obj = max_obj;
                        }
                }
        }

        if (nearest_obj != NULL) {
                // set new target
                set_target_objnum( Player_ai, OBJ_INDEX(nearest_obj) );

                // maybe set new turret subsystem
                hud_maybe_set_sorted_turret_subsys(&Ships[nearest_obj->instance]);
                hud_restore_subsystem_target(&Ships[nearest_obj->instance]);
        }
        else {
                snd_play( &Snds[SND_TARGET_FAIL], 0.0f );
        }
}

// draw auto-target icon
void hud_auto_target_icon()
{
        int frame_offset;

        if ( Players[Player_num].flags & PLAYER_FLAGS_AUTO_TARGETING ) {
                frame_offset = 1;
        } else {
                frame_offset = 0;
        }

        // draw the box background
        hud_set_gauge_color(HUD_AUTO_TARGET);
        GR_AABITMAP(Toggle_gauge.first_frame+frame_offset, Toggle_target_gauge_coords[gr_screen.res][0], Toggle_target_gauge_coords[gr_screen.res][1]); 

#ifndef MAKE_FS1  // Text already on bitmap
        // draw the text on top
        if (frame_offset == 1) {
                color text_color;
                gr_init_alphacolor(&text_color, 0, 0, 0, Toggle_text_alpha);
                gr_set_color_fast(&text_color);
        
        }
        gr_string(Hud_toggle_coords[gr_screen.res][TOGGLE_TEXT_AUTOT][0], Hud_toggle_coords[gr_screen.res][TOGGLE_TEXT_AUTOT][1], XSTR("auto", 1463));
        gr_string(Hud_toggle_coords[gr_screen.res][TOGGLE_TEXT_TARGET][0], Hud_toggle_coords[gr_screen.res][TOGGLE_TEXT_TARGET][1], XSTR("target", 1465));
#endif
}

// draw auto-speed match icon
void hud_auto_speed_match_icon()
{
        int frame_offset;

        if ( Players[Player_num].flags & PLAYER_FLAGS_AUTO_MATCH_SPEED ) {
                frame_offset = 3;
        } else {
                frame_offset = 2;
        }

        hud_set_gauge_color(HUD_AUTO_SPEED);

        GR_AABITMAP(Toggle_gauge.first_frame+frame_offset, Toggle_speed_gauge_coords[gr_screen.res][0], Toggle_speed_gauge_coords[gr_screen.res][1]);   

#ifndef MAKE_FS1  // Text already on bitmap
        // draw the text on top
        if (frame_offset == 3) {
                color text_color;
                gr_init_alphacolor(&text_color, 0, 0, 0, Toggle_text_alpha);
                gr_set_color_fast(&text_color);
        }
        gr_string(Hud_toggle_coords[gr_screen.res][TOGGLE_TEXT_AUTOS][0], Hud_toggle_coords[gr_screen.res][TOGGLE_TEXT_AUTOS][1], XSTR("auto", 1463));
        gr_string(Hud_toggle_coords[gr_screen.res][TOGGLE_TEXT_SPEED][0], Hud_toggle_coords[gr_screen.res][TOGGLE_TEXT_SPEED][1], XSTR("speed", 1464));
#endif
}

// display the auto-targeting and auto-speed-matching icons on the HUD
void hud_show_auto_icons()
{
        int show_flag;
        if ( Toggle_gauge.first_frame == -1 ) 
                return;

        // display auto target icon
        if ( hud_gauge_active(HUD_AUTO_TARGET) ) {
                show_flag=1;
                // is gauge configured as a popup?
                if ( hud_gauge_is_popup(HUD_AUTO_TARGET) ) {
                        if ( !hud_gauge_popup_active(HUD_AUTO_TARGET) ) {
                                show_flag=0;
                        }
                }
                
                if ( show_flag ) {
                        hud_auto_target_icon();
                }
        }

        // display auto speed match icon
        if ( hud_gauge_active(HUD_AUTO_SPEED) ) {
                show_flag=1;
                // is gauge configured as a popup?
                if ( hud_gauge_is_popup(HUD_AUTO_SPEED) ) {
                        if ( !hud_gauge_popup_active(HUD_AUTO_SPEED) ) {
                                show_flag=0;
                        }
                }
                
                if ( show_flag ) {
                        hud_auto_speed_match_icon();
                }
        }
}

// Set the player target to the closest friendly repair ship
// input:       goal_objnum     =>      Try to find repair ship where aip->goal_objnum matches this
// output:      1       =>      A repair ship was targeted
//                              0       =>      No targeting change
int hud_target_closest_repair_ship(int goal_objnum)
{
        object  *A;
        object  *nearest_obj=&obj_used_list;
        ship            *shipp;
        ship_obj        *so;
        float           min_distance=1e20f;
        float           new_distance=0.0f;
        int             rval=0;

        for ( so = GET_FIRST(&Ship_obj_list); so != END_OF_LIST(&Ship_obj_list); so = GET_NEXT(so) ) {
                A = &Objects[so->objnum];
                shipp = &Ships[A->instance];    // get a pointer to the ship information

                // ignore all ships that aren't repair ships 
                if ( !(Ship_info[shipp->ship_info_index].flags & SIF_SUPPORT) ) {
                        continue;
                }

                if ( (A == Player_obj) || (shipp->flags & TARGET_SHIP_IGNORE_FLAGS) )
                        continue;

                // only consider friendly ships
                if ( !hud_team_matches_filter(Player_ship->team, shipp->team)) {
                        // if we're in multiplayer dogfight, ignore this
                        if(!((Game_mode & GM_MULTIPLAYER) && (Netgame.type_flags & NG_TYPE_DOGFIGHT))){
                                continue;
                        }
                }

                if(hud_target_invalid_awacs(A)){
                        continue;
                }

                if ( goal_objnum >= 0 ) {
                        if ( Ai_info[shipp->ai_index].goal_objnum != goal_objnum ) {
                                continue;
                        }
                }

                new_distance = hud_find_target_distance(A,Player_obj);
                        
                if (new_distance <= min_distance) {
                        min_distance=new_distance;
                        nearest_obj = A;
                }
        }

        if (nearest_obj != &obj_used_list) {
                set_target_objnum( Player_ai, OBJ_INDEX(nearest_obj) );
                hud_restore_subsystem_target(&Ships[nearest_obj->instance]);
                rval=1;
        }
        else {
                // inform player how to get a support ship
                if ( goal_objnum == -1 ) {
                        HUD_sourced_printf(HUD_SOURCE_HIDDEN, XSTR( "No support ships in area.  Use messaging to call one in.", 332));
                }
                rval=0;
        }

        return rval;
}

void hud_target_toggle_hidden_from_sensors()
{
        if ( TARGET_SHIP_IGNORE_FLAGS & SF_HIDDEN_FROM_SENSORS ) {
                TARGET_SHIP_IGNORE_FLAGS &= ~SF_HIDDEN_FROM_SENSORS;
                HUD_sourced_printf(HUD_SOURCE_HIDDEN, NOX("Target hiding from sensors disabled"));
        } else {
                TARGET_SHIP_IGNORE_FLAGS |= SF_HIDDEN_FROM_SENSORS;
                HUD_sourced_printf(HUD_SOURCE_HIDDEN, NOX("Target hiding from sensors enabled"));
        }
}

// target the closest uninspected object
void hud_target_closest_uninspected_object()
{
        object  *A, *nearest_obj = NULL;
        ship            *shipp;
        ship_obj        *so;
        float           min_distance = 1e20f;
        float           new_distance = 0.0f;

        for ( so = GET_FIRST(&Ship_obj_list); so != END_OF_LIST(&Ship_obj_list); so = GET_NEXT(so) ) {

                A = &Objects[so->objnum];
                shipp = &Ships[A->instance];    // get a pointer to the ship information

                if ( (A == Player_obj) || (shipp->flags & TARGET_SHIP_IGNORE_FLAGS) ){
                        continue;
                }

                if(hud_target_invalid_awacs(A)){
                        continue;
                }

                // ignore all non-cargo carrying craft
                if ( !hud_target_ship_can_be_scanned(shipp) ) {
                        continue;
                }

                new_distance = hud_find_target_distance(A,Player_obj);
                        
                if (new_distance <= min_distance) {
                        min_distance=new_distance;
                        nearest_obj = A;
                }
        }

        if (nearest_obj != NULL) {
                set_target_objnum( Player_ai, OBJ_INDEX(nearest_obj) );
                hud_restore_subsystem_target(&Ships[nearest_obj->instance]);
        }
        else {
                snd_play( &Snds[SND_TARGET_FAIL] );
        }
}

// target the next or previous uninspected/unscanned object
void hud_target_uninspected_object(int next_flag)
{
        object  *A, *min_obj, *max_obj, *nearest_obj;
        ship            *shipp;
        ship_obj        *so;
        float           cur_dist, min_dist, max_dist, new_dist, nearest_dist, diff;     

        // If no target is selected, then simply target the closest uninspected cargo
        if ( Player_ai->target_objnum == -1 || timestamp_elapsed(Target_next_uninspected_object_timestamp) ) {
                Target_next_uninspected_object_timestamp = timestamp(TL_RESET);
                hud_target_closest_uninspected_object();
                return;
        }

        Target_next_uninspected_object_timestamp = timestamp(TL_RESET);

        cur_dist = hud_find_target_distance(&Objects[Player_ai->target_objnum], Player_obj);

        min_obj = max_obj = nearest_obj = NULL;
        min_dist = 1e20f;
        max_dist = 0.0f;
        if ( next_flag ) {
                nearest_dist = 1e20f;
        } else {
                nearest_dist = 0.0f;
        }

        for ( so = GET_FIRST(&Ship_obj_list); so != END_OF_LIST(&Ship_obj_list); so = GET_NEXT(so) ) {
                A = &Objects[so->objnum];
                shipp = &Ships[A->instance];    // get a pointer to the ship information

                if ( (A == Player_obj) || (shipp->flags & TARGET_SHIP_IGNORE_FLAGS) )
                        continue;

                // ignore all non-cargo carrying craft
                if ( !hud_target_ship_can_be_scanned(shipp) ) {
                        continue;
                }

                // don't use object if it is already a target
                if ( OBJ_INDEX(A) == Player_ai->target_objnum ) {
                        continue;
                }

                if(hud_target_invalid_awacs(A)){
                        continue;
                }

                new_dist = hud_find_target_distance(A, Player_obj);
                        
                if (new_dist <= min_dist) {
                        min_dist = new_dist;
                        min_obj = A;
                }

                if (new_dist >= max_dist) {
                        max_dist = new_dist;
                        max_obj = A;
                }

                if ( next_flag ) {
                        diff = new_dist - cur_dist;
                        if ( diff > 0 ) {
                                if ( diff < ( nearest_dist - cur_dist ) ) {
                                        nearest_dist = new_dist;
                                        nearest_obj = A;
                                }
                        }
                } else {
                        diff = cur_dist - new_dist;
                        if ( diff > 0 ) {
                                if ( diff < ( cur_dist - nearest_dist ) ) {
                                        nearest_dist = new_dist;
                                        nearest_obj = A;
                                }
                        }
                }
        }

        if ( nearest_obj == NULL ) {

                if ( next_flag ) {
                        if ( min_obj != NULL ) {
                                nearest_obj = min_obj;
                        }
                } else {
                        if ( max_obj != NULL ) {
                                nearest_obj = max_obj;
                        }
                }
        }

        if (nearest_obj != NULL) {
                set_target_objnum( Player_ai, OBJ_INDEX(nearest_obj) );
                hud_restore_subsystem_target(&Ships[nearest_obj->instance]);
        }
        else {
                snd_play( &Snds[SND_TARGET_FAIL] );
        }
}

// ----------------------------------------------------------------
//
// Target Last Transmission Sender code START
//
// ----------------------------------------------------------------

typedef struct transmit_target
{
        int objnum;
        int objsig;
} transmit_target;

static int Transmit_target_next_slot = 0;
static int Transmit_target_current_slot = -1;
static int Transmit_target_reset_timer = timestamp(0);

#define MAX_TRANSMIT_TARGETS    10
static transmit_target Transmit_target_list[MAX_TRANSMIT_TARGETS];

// called once per level to initialize the target last transmission sender list
void hud_target_last_transmit_level_init()
{
        int i;

        for ( i = 0; i < MAX_TRANSMIT_TARGETS; i++ ) {
                Transmit_target_list[i].objnum = -1;
                Transmit_target_list[i].objsig = -1;
        }

        Transmit_target_next_slot = 0;
        Transmit_target_current_slot = 0;
        Transmit_target_reset_timer = timestamp(0);
}

// internal function only.. used to find index for last recorded ship transmission 
int hud_target_last_transmit_newest()
{
        int latest_slot;

        latest_slot = Transmit_target_next_slot - 1;
        if ( latest_slot < 0 ) {
                latest_slot = MAX_TRANSMIT_TARGETS - 1;
        }

        return latest_slot;
}

// called externally to set the player target to the last ship which sent a tranmission to the player
void hud_target_last_transmit()
{
        int i;

        if ( Transmit_target_current_slot < 0 ) {
                Transmit_target_current_slot = hud_target_last_transmit_newest();
        }

        // If timed out, then simply target the last ship to transmit
        if ( timestamp_elapsed(Transmit_target_reset_timer) ) {
                Transmit_target_current_slot = hud_target_last_transmit_newest();
        }

        Transmit_target_reset_timer = timestamp(TL_RESET);

        int play_fail_sound = 1;
        int transmit_index = Transmit_target_current_slot;
        Assert(transmit_index >= 0);
        for ( i = 0; i < MAX_TRANSMIT_TARGETS; i++ ) {
                if ( Transmit_target_list[transmit_index].objnum >= 0 ) {
                        int transmit_objnum = Transmit_target_list[transmit_index].objnum;
                        
                        if ( Player_ai->target_objnum == transmit_objnum ) {
                                play_fail_sound = 0;
                        } else {
                                if ( Transmit_target_list[transmit_index].objsig == Objects[Transmit_target_list[transmit_index].objnum].signature ) {
                                        if ( !(Ships[Objects[transmit_objnum].instance].flags & TARGET_SHIP_IGNORE_FLAGS) ) {
                                                Transmit_target_current_slot = transmit_index-1;
                                                if ( Transmit_target_current_slot < 0 ) {
                                                        Transmit_target_current_slot = MAX_TRANSMIT_TARGETS - 1;
                                                }
                                                break;
                                        }
                                }
                        }
                }

                transmit_index--;
                if ( transmit_index < 0 ) {
                        transmit_index = MAX_TRANSMIT_TARGETS - 1;
                }
        }

        if ( i == MAX_TRANSMIT_TARGETS ) {
                if ( play_fail_sound ) {
                        snd_play( &Snds[SND_TARGET_FAIL] );
                }
                Transmit_target_current_slot = -1;
                return;
        }

        if(hud_target_invalid_awacs(&Objects[Transmit_target_list[transmit_index].objnum])){
                return;
        }

        // target new ship!
        // Fix bug in targeting due to Alt-Y (target last ship sending transmission).
        // Was just bogus code in the call to hud_restore_subsystem_target(). -- MK, 9/15/99, 1:59 pm.
        int targeted_objnum;
        targeted_objnum = Transmit_target_list[transmit_index].objnum;
        Assert((targeted_objnum >= 0) && (targeted_objnum < MAX_OBJECTS));

        if ((targeted_objnum >= 0) && (targeted_objnum < MAX_OBJECTS)) {
                set_target_objnum( Player_ai, Transmit_target_list[transmit_index].objnum );
                hud_restore_subsystem_target(&Ships[Objects[Transmit_target_list[transmit_index].objnum].instance]);
        }
}

// called externally to add a message sender to the list
void hud_target_last_transmit_add(int ship_num)
{
        object  *ship_objp;
        int             ship_objnum;

        ship_objnum = Ships[ship_num].objnum;
        Assert(ship_objnum >= 0 && ship_objnum < MAX_OBJECTS);
        ship_objp = &Objects[ship_objnum];
        Assert(ship_objp->type == OBJ_SHIP);

        Transmit_target_list[Transmit_target_next_slot].objnum = ship_objnum;
        Transmit_target_list[Transmit_target_next_slot].objsig = ship_objp->signature;
        Transmit_target_next_slot++;
        if ( Transmit_target_next_slot >= MAX_TRANSMIT_TARGETS ) {
                Transmit_target_next_slot = 0;
        }
}

// target a random ship (useful for EMP stuff)
void hud_target_random_ship()
{
        int shipnum;
        int objnum;

        shipnum = ship_get_random_ship();
        if((shipnum < 0) || (Ships[shipnum].objnum < 0)){
                return;
        }
        objnum = Ships[shipnum].objnum;

        if((objnum >= 0) && (Player_ai != NULL) && !hud_target_invalid_awacs(&Objects[objnum])){        
                // never target yourself
                if(objnum == OBJ_INDEX(Player_obj)){
                        set_target_objnum(Player_ai, -1);
                } else {
                        set_target_objnum(Player_ai, objnum);
                }
        }
}

// ----------------------------------------------------------------
//
// Target Last Transmission Sender code END
//
// ----------------------------------------------------------------

void hudtarget_page_in()
{
        int i;

        for ( i = 0; i < NUM_WEAPON_GAUGES; i++ ) {
                bm_page_in_aabitmap( Weapon_gauges[i].first_frame, Weapon_gauges[i].num_frames);
        }
        bm_page_in_aabitmap( Lead_indicator_gauge.first_frame, Lead_indicator_gauge.num_frames);
        bm_page_in_aabitmap( Energy_bar_gauges.first_frame, Energy_bar_gauges.num_frames);
        bm_page_in_aabitmap( Toggle_gauge.first_frame, Toggle_gauge.num_frames);
        bm_page_in_aabitmap( Cmeasure_gauge.first_frame, Cmeasure_gauge.num_frames);
}