SDL2 port - stage 2

[taylor/freespace2.git] / src / playerman / playercontrol.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/Playerman/PlayerControl.cpp $
 * $Revision$
 * $Date$
 * $Author$
 *
 * Routines to deal with player ship movement
 *
 * $Log$
 * Revision 1.6  2004/07/04 11:39:06  taylor
 * fix missing debrief text, crash on exit, path separator's, warning fixes, no GR_SOFT
 *
 * Revision 1.5  2003/05/25 02:30:43  taylor
 * Freespace 1 support
 *
 * Revision 1.4  2002/06/17 06:33:10  relnev
 * ryan's struct patch for gcc 2.95
 *
 * Revision 1.3  2002/06/09 04:41:25  relnev
 * added copyright header
 *
 * Revision 1.2  2002/05/07 03:16:51  theoddone33
 * The Great Newline Fix
 *
 * Revision 1.1.1.1  2002/05/03 03:28:11  root
 * Initial import.
 *
 * 
 * 33    10/13/99 3:42p Jefff
 * fixed unnumbered XSTRs
 * 
 * 32    9/06/99 9:43p Jefff
 * skip mission support
 * 
 * 31    8/30/99 10:39a Mikeb
 * Fixed can't-warpout problem.
 * 
 * 30    8/29/99 4:52p Andsager
 * Don't rotate from engine wash when warping out.
 * 
 * 29    8/26/99 8:51p Dave
 * Gave multiplayer TvT messaging a heavy dose of sanity. Cheat codes.
 * 
 * 28    8/03/99 12:06p Dave
 * Fixed player death messages when a player has killed himself in
 * multiplayer.
 * 
 * 27    7/28/99 1:36p Andsager
 * Modify cargo1 to include flag CARGO_NO_DEPLETE.  Add sexp
 * cargo-no-deplete (only for BIG / HUGE).  Modify ship struct to pack
 * better.
 * 
 * 26    7/21/99 8:10p Dave
 * First run of supernova effect.
 * 
 * 25    7/19/99 7:20p Dave
 * Beam tooling. Specialized player-killed-self messages. Fixed d3d nebula
 * pre-rendering.
 * 
 * 24    7/08/99 10:53a Dave
 * New multiplayer interpolation scheme. Not 100% done yet, but still
 * better than the old way.
 * 
 * 23    7/02/99 3:48p Mikeb
 * Remove semi-bogus assert. Handle properly.
 * 
 * 22    6/16/99 10:21a Dave
 * Added send-message-list sexpression.
 * 
 * 21    6/14/99 5:19p Dave
 * 
 * 20    6/09/99 3:26p Dave
 * Changed zing message for beam weapon deaths.
 * 
 * 19    6/04/99 4:13p Johne
 * Made a potentially unsafe normalize safe.
 * 
 * 18    5/21/99 5:03p Andsager
 * Add code to display engine wash death.  Modify ship_kill_packet
 * 
 * 17    5/18/99 10:08a Andsager
 * Modified single maximum range before blown up to also be multi
 * friendly.
 * 
 * 16    5/17/99 6:03p Dave
 * Added new timing code. Put in code to allow camera speed zooming.
 * 
 * 15    5/11/99 10:16p Andsager
 * First pass on engine wash effect.  Rotation (control input), damage,
 * shake.  
 * 
 * 14    4/23/99 12:01p Johnson
 * Added SIF_HUGE_SHIP
 * 
 * 13    3/30/99 5:40p Dave
 * Fixed reinforcements for TvT in multiplayer.
 * 
 * 12    3/28/99 5:58p Dave
 * Added early demo code. Make objects move. Nice and framerate
 * independant, but not much else. Don't use yet unless you're me :)
 * 
 * 11    3/10/99 6:50p Dave
 * Changed the way we buffer packets for all clients. Optimized turret
 * fired packets. Did some weapon firing optimizations.
 * 
 * 10    2/26/99 6:01p Andsager
 * Add sexp has-been-tagged-delay and cap-subsys-cargo-known-delay
 * 
 * 9     2/21/99 6:02p Dave
 * Fixed standalone WSS packets. 
 * 
 * 8     1/30/99 1:29a Dave
 * Fixed nebula thumbnail problem. Full support for 1024x768 choose pilot
 * screen.  Fixed beam weapon death messages.
 * 
 * 7     1/14/99 6:06p Dave
 * 100% full squad logo support for single player and multiplayer.
 * 
 * 6     1/12/99 5:45p Dave
 * Moved weapon pipeline in multiplayer to almost exclusively client side.
 * Very good results. Bandwidth goes down, playability goes up for crappy
 * connections. Fixed object update problem for ship subsystems.
 * 
 * 5     12/10/98 10:54a Dave
 * Fixed problem where a mission ended in multiplayer and a player was
 * dead. There was an Int3() when getting player eye-point.
 * 
 * 4     11/12/98 12:13a Dave
 * Tidied code up for multiplayer test. Put in network support for flak
 * guns.
 * 
 * 3     10/13/98 9:29a 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:50a Dave
 * 
 * 219   6/30/98 2:16p Dave
 * Revised object update system. Removed updates for all weapons. Put
 * button info back into control info packet.
 * 
 * 218   6/09/98 5:17p Lawrance
 * French/German localization
 * 
 * 217   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).
 * 
 * 216   6/01/98 11:43a John
 * JAS & MK:  Classified all strings for localization.
 * 
 * 215   5/22/98 11:27a Hoffoss
 * Fixed the bank when pressed bug where you continue to turn while using
 * it.
 * 
 * 214   5/19/98 8:19p Lawrance
 * Make mouse invert work
 * 
 * 213   5/19/98 12:19p Mike
 * Cheat codes!
 * 
 * 212   5/18/98 2:50p Lawrance
 * Change text for when warp drive is inoperable
 * 
 * 211   5/18/98 1:58a Mike
 * Make Phoenix not be fired at fighters (but yes bombers).
 * Improve positioning of ships in guard mode.
 * Make turrets on player ship not fire near end of support ship docking.
 * 
 * 210   5/17/98 1:43a Dave
 * Eradicated chatbox problems. Remove speed match for observers. Put in
 * help screens for PXO. Fix messaging and end mission privelges. Fixed
 * team select screen bugs. Misc UI fixes.
 * 
 * 209   5/15/98 2:41p Hoffoss
 * Made mouse default to off (for flying ship) and fixed some new pilot
 * init bugs.
 * 
 * 208   5/15/98 1:14p Hoffoss
 * Added a deadzone to ends of abs throttle range.
 * 
 * 207   5/14/98 5:32p Hoffoss
 * Improved axis binding code some more.
 * 
 * 206   5/13/98 11:55a Frank
 * Fixed bug with axis 2 and 3 not working correctly.
 * 
 * 205   5/13/98 1:17a Hoffoss
 * Added joystick axes configurability.
 * 
 * 204   5/11/98 5:29p Hoffoss
 * Added mouse button mapped to joystick button support.
 * 
 * 203   5/11/98 12:01p Hoffoss
 * Changed mouse sensitivity code to approx. double top limit while
 * keeping low limit the same.
 * 
 * 202   5/09/98 4:52p Lawrance
 * Implement padlock view (up/rear/left/right)
 * 
 * 201   5/08/98 5:35p Lawrance
 * only allow cargo inspection if sensors are ok
 * 
 * 200   5/08/98 5:31p Hoffoss
 * Isolated the joystick force feedback code more from dependence on other
 * libraries.
 * 
 * 199   5/07/98 6:58p Hoffoss
 * Made changes to mouse code to fix a number of problems.
 * 
 * 198   5/06/98 12:02a Hoffoss
 * Fixed throttle problems with joysticks.
 * 
 * 197   5/05/98 8:38p Hoffoss
 * Added sensitivity adjustment to options menu and made it save to pilot
 * file.
 * 
 * 196   5/05/98 1:33p Hoffoss
 * Changed mouse formula around a little.
 * 
 * 195   5/04/98 11:08p Hoffoss
 * Expanded on Force Feedback code, and moved it all into Joy_ff.cpp.
 * Updated references everywhere to it.
 * 
 * 194   5/01/98 5:45p Hoffoss
 * Made further improvements to the mouse code.
 * 
 * 193   5/01/98 4:24p Lawrance
 * Play error sound if player tries to engage afterburner when none are on
 * ship
 * 
 * 192   5/01/98 1:14p Hoffoss
 * Changed mouse usage so directInput is only used for release version.
 * 
 * 191   4/30/98 9:12p Hoffoss
 * Fixed a questionable precidence issue to be known.
 * 
 * 190   4/30/98 5:40p Hoffoss
 * Added mouse as a supported control to fly the ship.
 * 
 * 189   4/29/98 1:44p Lawrance
 * Fix bug that would cause primaries to be linked when returning from a
 * menu in-game (if primaries were linked at mission start)
 * 
 * 188   4/25/98 4:36p Lawrance
 * init auto_advance field when pilot is created
 * 
 * 187   4/25/98 3:49p Lawrance
 * Save briefing auto-advance pref
 * 
 * 186   4/18/98 9:52p Mike
 * Don't restore player flags from save file in training mission, as it
 * enables auto-target to persist.
 * 
 * 185   4/17/98 11:16a Allender
 * use short callsign when showing player name in cargo area of target
 * info box
 * 
 * 184   4/09/98 12:32a Lawrance
 * Fix bugs related to multiple screams from same ship, builtin messages
 * playing after screams, or praising while severly damaged.
 * 
 * 183   4/08/98 7:11p Dave
 * Fix auto-targeting and auto-matching reset after player respawn.
 * Removed incorrect call to furball update if in a non-furball game.
 * 
 * 182   4/08/98 11:11a Hoffoss
 * Fixed some bugs that showed up due to fixing other bugs the other day
 * with controls.
 * 
 * 181   4/08/98 10:46a Lawrance
 * fix uninitialized data warning
 * 
 * 180   4/06/98 11:00a Hoffoss
 * Fixed bank when pressed key to also be usable with keyboard yaw
 * controls.
 * 
 * 179   4/05/98 7:43p Lawrance
 * fix up saving/restoring of link status and auto-target/match-speed.
 * 
 * 178   4/01/98 7:42p Lawrance
 * Enable auto-targeting by default when a new pilot is created.
 * 
 * 177   4/01/98 1:31p Allender
 * don't play all alone message in multiplayer
 * 
 * 176   3/31/98 11:47p Lawrance
 * 
 * 175   3/31/98 5:18p John
 * Removed demo/save/restore.  Made NDEBUG defined compile.  Removed a
 * bunch of debug stuff out of player file.  Made model code be able to
 * unload models and malloc out only however many models are needed.
 *  
 * 
 * 174   3/30/98 12:19a Lawrance
 * Make scan time a property of a ship
 * 
 * 173   3/24/98 4:25p Lawrance
 * Make finding out if player killed self easier and more reliable
 * 
 * 172   3/23/98 12:28p Hoffoss
 * Fixed +/-5% throttle controls to actually do 5%, rather than whatever
 * the heck it was doing before.
 * 
 * 171   3/21/98 3:35p Lawrance
 * Fix joystick turning in external view
 * 
 * 170   3/19/98 5:35p Lawrance
 * Correctly inform player if killed by ship explosion.
 * 
 * 169   3/18/98 6:04p Lawrance
 * change text for warp destroyed message
 * 
 * 168   3/18/98 12:03p John
 * Marked all the new strings as externalized or not.
 * 
 * 167   3/16/98 5:54p Lawrance
 * Play cargo scanning sound
 * 
 * 166   3/14/98 4:58p Lawrance
 * surpress HUD messages for auto-match speed
 * 
 * 165   3/11/98 12:11p Mike
 * Increase max speed to enable warpout even if ship has little energy
 * directed towards engines.
 * 
 * 164   3/11/98 11:19a Mike
 * Quick fix since I completely broke warping out.
 * 
 * 163   3/11/98 9:08a Mike
 * Intermediate checkin to resolve link errors.  Working on forcing
 * player's engine energy high enough to enable warpout.
 * 
 * 162   3/10/98 5:08p Allender
 * fixed up multiplayer death messages (I hope).  changes in object update
 * packets
 * 
 * 161   3/09/98 4:30p Allender
 * multiplayer secondary weapon changes.  red-alert and cargo-known-delay
 * sexpressions.  Add time cargo revealed to ship structure
 * 
 * 160   3/07/98 3:49p Lawrance
 * store killer species in player struct
 * 
 * 159   3/05/98 10:16p Lawrance
 * Add 'save_flags' to player struct to save/restore certain player flags
 * cleanly.
 * 
 * 158   2/28/98 7:03p Lawrance
 * get slew working in any view
 * 
 * 157   2/26/98 12:33a Lawrance
 * Added back slew mode,  lots of changes to external and chase views.
 * 
 * 156   2/23/98 6:54p Lawrance
 * Make interface to real-time voice more generic and useful.
 * 
 * 155   2/22/98 4:30p John
 * More string externalization classification
 * 
 * 154   2/22/98 3:56p Lawrance
 * Make external view a toggle like chase view.  Allow extenal view to
 * override chase view.
 * 
 * 153   2/22/98 2:48p John
 * More String Externalization Classification
 * 
 * 152   2/20/98 8:30p Lawrance
 * Play 'all alone' message when player is last ship left and primary
 * objective is incomplete.
 * 
 * 151   2/19/98 5:30p Lawrance
 * Allow player turrets to fire automatically.
 * 
 * 150   2/16/98 7:33p Lawrance
 * add function to determine range of current secondary weapon
 * 
 * 149   2/15/98 9:51p Sandeep
 * AL: Check for 'Player 1' as a ship name when displaying the death
 * message
 * 
 * 148   2/14/98 4:41p Lawrance
 * Add some new fields to keep track of how the player died.
 * 
 * 147   2/11/98 9:53a John
 * Put in a real fix to the bug with not resetting joystick time between
 * missions
 * 
 * 146   2/10/98 9:29p Mike
 * Hack-fix bug with joystick reading not being allowed in 2nd playthrough
 * of a mission until time exceeds duration of previous mission.
 * 
 * 145   2/10/98 1:15p John
 * Made the joystick only read at 10Hz max
 * 
 * 144   2/06/98 4:31p Lawrance
 * revamp radar code, allow dim radar dots
 * 
 * 143   2/06/98 3:48p Allender
 * added code to clear out control info for multiplayer clients so they
 * don't accidentally start firing all the time
 * 
 * 142   2/06/98 12:13a Lawrance
 * Don't play throttle sounds when using analog throttle.
 * 
 * 141   2/05/98 10:41a Lawrance
 * Scale frequency of 'good kill' messages by skill level.
 * 
 * 140   2/02/98 4:24p Lawrance
 * Only inspect cargo and transport in single player.
 * 
 * 139   2/02/98 4:12p Allender
 * fixed bug I introduced with multiplayer callsigns displaying in cargo
 * spot
 * 
 * $NoKeywords: $
*/

#include "pstypes.h"
#include "physics.h"
#include "key.h"
#include "joy.h"
#include "joy_ff.h"
#include "mouse.h"
#include "fix.h"
#include "floating.h"
#include "object.h"
#include "player.h"
#include "hud.h"
#include "hudtarget.h"
#include "hudtargetbox.h"
#include "ship.h"
#include "freespace.h"
#include "controlsconfig.h"
#include "sound.h"
#include "gamesnd.h"
#include "missionshipchoice.h"
#include "afterburner.h"
#include "timer.h"
#include "gamesequence.h"
#include "missionmessage.h"
#include "multiutil.h"
#include "linklist.h"
#include "missiongoals.h"
#include "hudsquadmsg.h"
#include "multi_obj.h"
#include "observer.h"

////////////////////////////////////////////////////////////
// Global object and other interesting player type things
////////////////////////////////////////////////////////////
player  Players[MAX_PLAYERS];

int             Player_num;
player  *Player = NULL;

physics_info Descent_physics;                   // used when we want to control the player like the descent ship

////////////////////////////////////////////////////////////
// Module data
////////////////////////////////////////////////////////////
static int Player_all_alone_msg_inited=0;       // flag used for initalizing a player-specific voice msg

#ifndef NDEBUG
        int Show_killer_weapon = 0;
        DCF_BOOL( show_killer_weapon, Show_killer_weapon );
#endif

void playercontrol_read_stick(int *axis, float frame_time);
void player_set_padlock_state();

//      Slew angles chase towards zero like they're on a spring.
//      When furthest away, move fastest.
//      Minimum speed set so that doesn't take too long.
//      When gets close, clamps to zero.
void chase_angles_to_zero(angles *ap)
{
        float   k1, k2;
        float   sk;

        //      Make sure we actually need to do all this math.
        if ((ap->p == 0.0f) && (ap->h == 0.0f))
                return;

        //      This is what we'll scale each value by.
        sk = 1.0f - 2*flFrametime;

        //      These are the amounts that will be subtracted from pitch and heading.
        //      They are only needed to make sure we aren't moving too slowly.
        k1 = fl_abs(ap->p * (1.0f - sk));
        k2 = fl_abs(ap->h * (1.0f - sk));

        //      See if the larger dimension of movement is too small.
        // If so, boost amount of movement in both dimensions.
        if (k1 >= k2) {
                if (k1 < flFrametime)
                        sk = 1.0f - (1.0f - sk) * flFrametime/k1;
        } else if (k2 > k1) {
                if (k2 < flFrametime)
                        sk = 1.0f - (1.0f - sk) * flFrametime/k2;
        }

        //      It's possible we made the scale factor negative above.
        if (sk < 0.0f)
                sk = 0.0f;

        ap->p *= sk;
        ap->h *= sk;

        //      If we're very close, put ourselves at goal.
        if ((fl_abs(ap->p) < 0.005f) && (fl_abs(ap->h) < 0.005f)) {
                ap->p = 0.0f;
                ap->h = 0.0f;
        }

        //      Update Viewer_mode based on whether we're looking dead ahead.   
        if ((ap->p == 0.0f) && (ap->b == 0.0f) && (ap->h == 0.0f))
                Viewer_mode &= ~VM_SLEWED;
        else
                Viewer_mode |= VM_SLEWED;

}

angles  Viewer_slew_angles_delta;
angles  Viewer_external_angles_delta;

void view_modify(angles *ma, angles *da, float minv, float maxv, int slew, float frame_time)
{
        int axis[JOY_NUM_AXES];
        float   t;

        if ( (!slew) && (Viewer_mode & VM_EXTERNAL) && (Viewer_mode & VM_EXTERNAL_CAMERA_LOCKED) ) {
                return;
        }

        if ( Viewer_mode & VM_EXTERNAL ) {
                t = (check_control_timef(YAW_LEFT) - check_control_timef(YAW_RIGHT)) / 16.0f;
        } else {
                t = (check_control_timef(YAW_RIGHT) - check_control_timef(YAW_LEFT)) / 16.0f;
        }

        if (t != 0.0f)
                da->h += t;
        else
                da->h = 0.0f;

        t = (check_control_timef(PITCH_FORWARD) - check_control_timef(PITCH_BACK)) / 16.0f;
        if (t != 0.0f)
                da->p += t;
        else
                da->p = 0.0f;
                        
        da->b = 0.0f;

        playercontrol_read_stick(axis, frame_time);

        if ( Viewer_mode & VM_EXTERNAL ) {
                // check the heading on the x axis
                da->h -= f2fl( axis[0] );

        } else {
                // check the heading on the x axis
                da->h += f2fl( axis[0] );
        }

        // check the pitch on the y axis
        da->p -= f2fl( axis[1] );

        if (da->h > 1.0f)
                da->h = 1.0f;
        else if (da->h < -1.0f)
                da->h = -1.0f;

        if (da->p > 1.0f)
                da->p = 1.0f;
        else if (da->p < -1.0f)
                da->p = -1.0f;

        ma->p += da->p * flFrametime;
        ma->b += da->b * flFrametime;
        ma->h += da->h * flFrametime;

        if (ma->p > maxv)
                ma->p = maxv;
        else if (ma->p < minv)
                ma->p = minv;

        if (ma->h > maxv)
                ma->h = maxv;
        else if (ma->h < minv)
                ma->h = minv;
}

//      When PAD0 is pressed, keypad controls viewer direction slewing.
void do_view_slew(float frame_time)
{
        view_modify(&Viewer_slew_angles, &Viewer_slew_angles_delta, -PI/3, PI/3, 1, frame_time);

        if ((Viewer_slew_angles.p == 0.0f) && (Viewer_slew_angles.b == 0.0f) && (Viewer_slew_angles.h == 0.0f))
                Viewer_mode &= ~VM_SLEWED;
        else
                Viewer_mode |= VM_SLEWED;
}

void do_view_chase(float frame_time)
{
        float t;

        //      Process centering key.
        if (check_control_timef(VIEW_CENTER)) {
                Viewer_chase_info.distance = 0.0f;
        }
        
        t = check_control_timef(VIEW_DIST_INCREASE) - check_control_timef(VIEW_DIST_DECREASE);
        Viewer_chase_info.distance += t*4;
        if (Viewer_chase_info.distance < 0.0f)
                Viewer_chase_info.distance = 0.0f;
}

float camera_zoom_scale = 1.0f;

DCF(camera_speed, "")
{
        dc_get_arg(ARG_FLOAT);
        camera_zoom_scale = Dc_arg_float;
}

void do_view_external(float frame_time)
{
        float   t;

        view_modify(&Viewer_external_info.angles, &Viewer_external_angles_delta, -2*PI, 2*PI, 0, frame_time);

        //      Process centering key.
        if (check_control_timef(VIEW_CENTER)) {
                Viewer_external_info.angles.p = 0.0f;
                Viewer_external_info.angles.h = 0.0f;
                Viewer_external_info.distance = 0.0f;
        }
        
        t = check_control_timef(VIEW_DIST_INCREASE) - check_control_timef(VIEW_DIST_DECREASE);
        Viewer_external_info.distance += t*4*camera_zoom_scale;
        if (Viewer_external_info.distance < 0.0f){
                Viewer_external_info.distance = 0.0f;
        }

        //      Do over-the-top correction.

        if (Viewer_external_info.angles.p > PI)
                Viewer_external_info.angles.p = -2*PI + Viewer_external_info.angles.p;
        else if (Viewer_external_info.angles.p < -PI)
                Viewer_external_info.angles.p = 2*PI + Viewer_external_info.angles.p;

        if (Viewer_external_info.angles.h > PI)
                Viewer_external_info.angles.h = -2*PI + Viewer_external_info.angles.h;
        else if (Viewer_external_info.angles.h < -PI)
                Viewer_external_info.angles.h = 2*PI + Viewer_external_info.angles.h;
}

// separate out the reading of thrust keys, so we can call this from external
// view as well as from normal view
void do_thrust_keys(control_info *ci)
{
        ci->forward = check_control_timef(FORWARD_THRUST) - check_control_timef(REVERSE_THRUST);
}

// called by single and multiplayer modes to reset information inside of control info structure
void player_control_reset_ci( control_info *ci )
{
        float t1, t2, oldspeed;

        t1 = ci->heading;
        t2 = ci->pitch;
        oldspeed = ci->forward_cruise_percent;
        memset( ci, 0, sizeof(control_info) );
        ci->heading = t1;
        ci->pitch = t2;
        ci->forward_cruise_percent = oldspeed;
}

// Read the 4 joystick axis.  This is its own function
// because we only want to read it at a certain rate,
// since it takes time.

static int Joystick_saved_reading[JOY_NUM_AXES];
static int Joystick_last_reading = -1;

void playercontrol_read_stick(int *axis, float frame_time)
{
        int i;

#ifndef NDEBUG
        // Make sure things get reset properly between missions.
        if ( (Joystick_last_reading != -1) && (timestamp_until(Joystick_last_reading) > 1000) ) {
                Int3();         // Get John!  John, the joystick last reading didn't get reset btwn levels.
                Joystick_last_reading = -1;
        }
#endif

        if ( (Joystick_last_reading == -1)  || timestamp_elapsed(Joystick_last_reading) ) {
                // Read the stick
                control_get_axes_readings(&Joystick_saved_reading[0], &Joystick_saved_reading[1], &Joystick_saved_reading[2], &Joystick_saved_reading[3], &Joystick_saved_reading[4]);
                Joystick_last_reading = timestamp( 1000/10 );   // Read 10x per second, like we did in Descent.
        }

        for (i=0; i<NUM_JOY_AXIS_ACTIONS; i++) {
                axis[i] = Joystick_saved_reading[i];
        }

        if (Use_mouse_to_fly) {
                int dx, dy, dz;
                float factor;

//              factor = (float) Mouse_sensitivity + 2.5f;
//              factor = factor * factor / frame_time / 1.2f;
                factor = (float) Mouse_sensitivity + 1.77f;
                factor = factor * factor / frame_time / 0.6f;

                mouse_get_delta(&dx, &dy, &dz);

                if ( Invert_axis[0] ) {
                        dx = -dx;
                }

                if ( Invert_axis[1] ) {
                        dy = -dy;
                }

                if ( Invert_axis[3] ) {
                        dz = -dz;
                }

                axis[0] += (int) ((float) dx * factor);
                axis[1] += (int) ((float) dy * factor);
                axis[3] += (int) ((float) dz * factor);
        }
}

void read_keyboard_controls( control_info * ci, float frame_time, physics_info *pi )
{
        float kh=0.0f, scaled, newspeed, delta, oldspeed;
        int axis[JOY_NUM_AXES], ignore_pitch, slew_active=0;
        static int afterburner_last = 0;
        static float analog_throttle_last = 9e9f;
        static int override_analog_throttle = 0; 
        int ok_to_read_ci_pitch_yaw=1;

        oldspeed = ci->forward_cruise_percent;
        player_control_reset_ci( ci );

        if ( check_control(VIEW_SLEW) ) {
                do_view_slew(frame_time);
                slew_active=1;
        }

        if ( Viewer_mode & VM_EXTERNAL ) {
                control_used(VIEW_EXTERNAL);
                if ( !(Viewer_mode & VM_EXTERNAL_CAMERA_LOCKED) ) {
                        ok_to_read_ci_pitch_yaw=0;
                        slew_active=0;
                }

                do_view_external(frame_time);
                do_thrust_keys(ci);
        }

        if ( !slew_active ) {
                if ( Viewer_mode & VM_CHASE ) {
                        do_view_chase(frame_time);
                }
        }
        
        if ( ok_to_read_ci_pitch_yaw ) {
                // From keyboard...
                if ( check_control(BANK_WHEN_PRESSED) ) {
                        ci->bank = check_control_timef(BANK_LEFT) + check_control_timef(YAW_LEFT) - check_control_timef(YAW_RIGHT) - check_control_timef(BANK_RIGHT);
                        ci->heading = 0.0f;

                } else {
                        kh = (check_control_timef(YAW_RIGHT) - check_control_timef(YAW_LEFT)) / 8.0f;
                        if (kh == 0.0f) {
                                ci->heading = 0.0f;

                        } else if (kh > 0.0f) {
                                if (ci->heading < 0.0f)
                                        ci->heading = 0.0f;

                        } else {  // kh < 0
                                if (ci->heading > 0.0f)
                                        ci->heading = 0.0f;
                        }

                        ci->bank = check_control_timef(BANK_LEFT) - check_control_timef(BANK_RIGHT);
                }

                ci->heading += kh;

                kh = (check_control_timef(PITCH_FORWARD) - check_control_timef(PITCH_BACK)) / 8.0f;
                if (kh == 0.0f) {
                        ci->pitch = 0.0f;

                } else if (kh > 0.0f) {
                        if (ci->pitch < 0.0f)
                                ci->pitch = 0.0f;

                } else {  // kh < 0
                        if (ci->pitch > 0.0f)
                                ci->pitch = 0.0f;
                }

                ci->pitch += kh;

                ci->sideways = (key_down_timef(SDLK_KP_3) - key_down_timef(SDLK_KP_1));
                ci->vertical = (key_down_timef(SDLK_KP_PLUS) - key_down_timef(SDLK_KP_ENTER));

                do_thrust_keys(ci);
        }

        if ( !slew_active ) {
                chase_angles_to_zero(&Viewer_slew_angles);
        }

        player_set_padlock_state();

        if (!(Game_mode & GM_DEAD)) {
                if ( button_info_query(&Player->bi, ONE_THIRD_THROTTLE) ) {
                        control_used(ONE_THIRD_THROTTLE);
                        player_clear_speed_matching();
                        if ( Player->ci.forward_cruise_percent < 33.3f ) {
                                snd_play( &Snds[SND_THROTTLE_UP], 0.0f );

                        } else if ( Player->ci.forward_cruise_percent > 33.3f ) {
                                snd_play( &Snds[SND_THROTTLE_DOWN], 0.0f );
                        }

                        Player->ci.forward_cruise_percent = 33.3f;
                        override_analog_throttle = 1;
                }

                if ( button_info_query(&Player->bi, TWO_THIRDS_THROTTLE) ) {
                        control_used(TWO_THIRDS_THROTTLE);
                        player_clear_speed_matching();
                        if ( Player->ci.forward_cruise_percent < 66.6f ) {
                                snd_play( &Snds[SND_THROTTLE_UP], 0.0f );

                        } else if (Player->ci.forward_cruise_percent > 66.6f) {
                                snd_play( &Snds[SND_THROTTLE_DOWN], 0.0f );
                        }

                        Player->ci.forward_cruise_percent = 66.6f;
                        override_analog_throttle = 1;
                }

//              if ( button_info_query(&Player->bi, PLUS_5_PERCENT_THROTTLE) ) {
//                      control_used(PLUS_5_PERCENT_THROTTLE);
//                      Player->ci.forward_cruise_percent += (100.0f/Player_ship->current_max_speed);
//              }

                if ( button_info_query(&Player->bi, PLUS_5_PERCENT_THROTTLE) ) {
                        control_used(PLUS_5_PERCENT_THROTTLE);
                        Player->ci.forward_cruise_percent += 5.0f;
                        if (Player->ci.forward_cruise_percent > 100.0f)
                                Player->ci.forward_cruise_percent = 100.0f;
                }

//              if ( button_info_query(&Player->bi, MINUS_5_PERCENT_THROTTLE) ) {
//                      control_used(MINUS_5_PERCENT_THROTTLE);
//                      Player->ci.forward_cruise_percent -= (100.0f/Player_ship->current_max_speed);
//              }

                if ( button_info_query(&Player->bi, MINUS_5_PERCENT_THROTTLE) ) {
                        control_used(MINUS_5_PERCENT_THROTTLE);
                        Player->ci.forward_cruise_percent -= 5.0f;
                        if (Player->ci.forward_cruise_percent < 0.0f)
                                Player->ci.forward_cruise_percent = 0.0f;
                }

                if ( button_info_query(&Player->bi, ZERO_THROTTLE) ) {
                        control_used(ZERO_THROTTLE);
                        player_clear_speed_matching();
                        if ( ci->forward_cruise_percent > 0.0f && Player_obj->phys_info.fspeed > 0.5) {
                                snd_play( &Snds[SND_ZERO_THROTTLE], 0.0f );
                        }

                        ci->forward_cruise_percent = 0.0f;
                        override_analog_throttle = 1;
                }

                if ( button_info_query(&Player->bi, MAX_THROTTLE) ) {
                        control_used(MAX_THROTTLE);
                        player_clear_speed_matching();
                        if ( ci->forward_cruise_percent < 100.0f ) {
                                snd_play( &Snds[SND_FULL_THROTTLE], 0.0f );
                        }

                        ci->forward_cruise_percent = 100.0f;
                        override_analog_throttle = 1;
                }

                // AL 12-29-97: If afterburner key is down, player should have full forward thrust (even if afterburners run out)
                if ( check_control(AFTERBURNER) ) {
                        ci->forward = 1.0f;
                }

                if ( Player->flags & PLAYER_FLAGS_MATCH_TARGET ) {
                        if ( (Player_ai->last_target == Player_ai->target_objnum) && (Player_ai->target_objnum != -1) && ( ci->forward_cruise_percent == oldspeed) ) {
                                float tspeed, pmax_speed;

                                tspeed = Objects[Player_ai->target_objnum].phys_info.fspeed;

                                // maybe need to get speed from docked partner
                                if ( tspeed < MATCH_SPEED_THRESHOLD ) {
                                        ai_info *aip;

                                        Assert(Objects[Player_ai->target_objnum].type == OBJ_SHIP);

                                        aip = &Ai_info[Ships[Objects[Player_ai->target_objnum].instance].ai_index];
                                        if ( aip->ai_flags & AIF_DOCKED ) {
                                                Assert( aip->dock_objnum != -1 );
                                                tspeed = Objects[aip->dock_objnum].phys_info.fspeed;
                                        }
                                }

                                //      Note, if closer than 100 units, scale down speed a bit.  Prevents repeated collisions. -- MK, 12/17/97
                                float dist = vm_vec_dist(&Player_obj->pos, &Objects[Player_ai->target_objnum].pos);

                                if (dist < 100.0f) {
                                        tspeed = tspeed * (0.5f + dist/200.0f);
                                }

                                //pmax_speed = Ship_info[Ships[Player_obj->instance].ship_info_index].max_speed;
                                pmax_speed = Ships[Player_obj->instance].current_max_speed;
                                ci->forward_cruise_percent = (tspeed / pmax_speed) * 100.0f;
                                override_analog_throttle = 1;
        //                      if ( ci->forward_cruise_percent > 100.0f )
        //                              HUD_printf ("Cannot travel that fast.  Setting throttle to full.");
                                // mprintf(("forward -- %7.3f\n", ci->forward_cruise_percent));

                        } else
                                Player->flags &= ~PLAYER_FLAGS_MATCH_TARGET;
                }

//                      player_read_joystick();
                // code to read joystick axis for pitch/heading.  Code to read joystick buttons
                // fo1r bank.
                if ( !(Game_mode & GM_DEAD) )   {
                        playercontrol_read_stick(axis, frame_time);
                } else {
                        axis[0] = axis[1] = axis[2] = axis[3] = axis[4] = 0;
                }

                ignore_pitch = FALSE;

                if (Axis_map_to[JOY_HEADING_AXIS] >= 0) {
                        // check the heading on the x axis
                        if ( check_control(BANK_WHEN_PRESSED) ) {
                                delta = f2fl( axis[JOY_HEADING_AXIS] );
                                if ( (delta > 0.05f) || (delta < -0.05f) ) {
                                        ci->bank -= delta;
                                        ignore_pitch = TRUE;
                                }

                        } else {
                                ci->heading += f2fl( axis[JOY_HEADING_AXIS] );
                        }
                }

                // check the pitch on the y axis
                if (Axis_map_to[JOY_PITCH_AXIS] >= 0)
                        ci->pitch -= f2fl( axis[JOY_PITCH_AXIS] );

                if (Axis_map_to[JOY_BANK_AXIS] >= 0) {
                        ci->bank -= f2fl( axis[JOY_BANK_AXIS] ) * 1.5f;
                }

                // axis 2 is for throttle
                if (Axis_map_to[JOY_ABS_THROTTLE_AXIS] >= 0) {
                        scaled = (float) axis[JOY_ABS_THROTTLE_AXIS] * 1.2f / (float) F1_0 - 0.1f;  // convert to -0.1 - 1.1 range
                        oldspeed = ci->forward_cruise_percent;

//                      scaled = (scaled + 1.0f) / 1.85f;
                        newspeed = (1.0f - scaled) * 100.0f;

                        delta = analog_throttle_last - newspeed;
                        if (!override_analog_throttle || (delta < -1.5f) || (delta > 1.5f)) {
                                ci->forward_cruise_percent = newspeed;
                                analog_throttle_last = newspeed;
                                override_analog_throttle = 0;
/*
                                // AL 1-5-98: don't play throttle sounds when using analog control

                                if ( (oldspeed < 1.0f) && (newspeed >= 1.0f) )
                                        snd_play( &Snds[SND_THROTTLE_UP], 0.0f );
                                else if ( (oldspeed < 66.6f) && (newspeed >= 66.6f) )
                                        snd_play( &Snds[SND_THROTTLE_UP], 0.0f );
                                else if ( (oldspeed < 33.3f) && (newspeed >= 33.3f) )
                                        snd_play( &Snds[SND_THROTTLE_UP], 0.0f );
                                else if ( (oldspeed > 99.0f) && (newspeed <= 99.0f) )
                                        snd_play( &Snds[SND_THROTTLE_DOWN], 0.0f );
                                else if ( (oldspeed > 33.3f) && (newspeed <= 33.3f) )
                                        snd_play( &Snds[SND_THROTTLE_DOWN], 0.0f );
                                else if ( (oldspeed > 66.6f) && (newspeed <= 66.6f) )
                                        snd_play( &Snds[SND_THROTTLE_DOWN], 0.0f );
*/
                        }
                }

                if (Axis_map_to[JOY_REL_THROTTLE_AXIS] >= 0)
                        ci->forward_cruise_percent += f2fl(axis[JOY_REL_THROTTLE_AXIS]) * 100.0f * frame_time;

                if ( ci->forward_cruise_percent > 100.0f )
                        ci->forward_cruise_percent = 100.0f;
                if ( ci->forward_cruise_percent < 0.0f )
                        ci->forward_cruise_percent = 0.0f;

                // set up the firing stuff.  Read into control info ala Descent so that weapons will be
                // created during the object simulation phase, and not immediately as was happening before.

                //keyboard: fire the current primary weapon
                if (check_control(FIRE_PRIMARY)) {
                        ci->fire_primary_count++;

                        // if we're a multiplayer client, set our accum bits now
                        // if((Game_mode & GM_MULTIPLAYER) && (Net_player != NULL) && !(Net_player->flags & NETINFO_FLAG_AM_MASTER) && !(Netgame.debug_flags & NETD_FLAG_CLIENT_FIRING)){
                        // if((Game_mode & GM_MULTIPLAYER) && (Net_player != NULL) && !(Net_player->flags & NETINFO_FLAG_AM_MASTER) && !(Netgame.debug_flags & NETD_FLAG_CLIENT_FIRING)){
                                // Net_player->s_info.accum_buttons |= OOC_FIRE_PRIMARY;
                        // }
                }

                // mouse: fire the current primary weapon
//              ci->fire_primary_count += mouse_down(1);

                // for debugging, check to see if the debug key is down -- if so, make fire the debug laser instead
#ifndef NDEBUG
                if ( key_pressed(KEY_DEBUG_KEY) ) {
                        ci->fire_debug_count = ci->fire_primary_count;
                        ci->fire_primary_count = 0;
                }
#endif

                // keyboard: fire the current secondary weapon
                if (check_control(FIRE_SECONDARY)) {
                        ci->fire_secondary_count++;

                        // if we're a multiplayer client, set our accum bits now
                        if((Game_mode & GM_MULTIPLAYER) && (Net_player != NULL) && !(Net_player->flags & NETINFO_FLAG_AM_MASTER)){
                                Net_player->s_info.accum_buttons |= OOC_FIRE_SECONDARY;
                        }
                }

                // keyboard: launch countermeasures
                if ( button_info_query(&Player->bi, LAUNCH_COUNTERMEASURE) ) {
                        control_used(LAUNCH_COUNTERMEASURE);
                        ci->fire_countermeasure_count++;
                        hud_gauge_popup_start(HUD_CMEASURE_GAUGE);

                        // if we're a multiplayer client, set our accum bits now
                        // if((Game_mode & GM_MULTIPLAYER) && (Net_player != NULL) && !(Net_player->flags & NETINFO_FLAG_AM_MASTER) && !(Netgame.debug_flags & NETD_FLAG_CLIENT_FIRING)){
                                // Net_player->s_info.accum_buttons |= OOC_FIRE_COUNTERMEASURE;
                        // }
                }

                // see if the afterburner has been started (keyboard + joystick)
                if (check_control(AFTERBURNER)) {
                        if (!afterburner_last) {
                                Assert(Player_ship);
                                if ( !(Ship_info[Player_ship->ship_info_index].flags & SIF_AFTERBURNER) ) {
                                        gamesnd_play_error_beep();
                                } else {
                                        ci->afterburner_start = 1;
                                }
                        }

                        afterburner_last = 1;

                } else {
                        if (afterburner_last)
                                ci->afterburner_stop = 1;

                        afterburner_last = 0;
                }
        }

        if ( (Viewer_mode & VM_EXTERNAL) || slew_active ) {
                if ( !(Viewer_mode & VM_EXTERNAL_CAMERA_LOCKED) || slew_active ) {
                        ci->heading=0.0f;
                        ci->pitch=0.0f;
                        ci->bank=0.0f;
                }
        }
}

void read_player_controls(object *objp, float frametime)
{
//      if (Game_mode & GM_DEAD)
//              return;

        joy_ff_adjust_handling((int) objp->phys_info.speed);

        {
                switch( Player->control_mode )  {
                case PCM_SUPERNOVA:
                        break;

                case PCM_NORMAL:
              read_keyboard_controls(&(Player->ci), frametime, &objp->phys_info );
                        break;
                case PCM_WARPOUT_STAGE1:        // Accelerate to 40 km/s
                case PCM_WARPOUT_STAGE2:        // Go 40 km/s steady up to the effect
                case PCM_WARPOUT_STAGE3:        // Go 40 km/s steady through the effect

                        memset(&(Player->ci), 0, sizeof(control_info) );                // set the controls to 0

                        if ( (objp->type == OBJ_SHIP) && (!(Game_mode & GM_DEAD)) )     {

                                Warpout_time += flFrametime;

                                if ( Warpout_forced )   {

                                        Ships[objp->instance].current_max_speed = TARGET_WARPOUT_SPEED*2.0f;

                                        float diff = TARGET_WARPOUT_SPEED-objp->phys_info.fspeed;                               
                                        if ( diff < 0.0f ) diff = 0.0f;
                                        
                                        Player->ci.forward = ((TARGET_WARPOUT_SPEED+diff) / Ships[objp->instance].current_max_speed);

                                } else {
                                        int warp_failed=0;
                                        // check if warp ability has been disabled
                                        if ( Ships[objp->instance].flags & ( SF_WARP_BROKEN|SF_WARP_NEVER ) ) {
                                                HUD_sourced_printf(HUD_SOURCE_HIDDEN, XSTR( "Cannot warp out at this time.", 81));
                                                warp_failed=1;
                                        } else {
                                                int     can_warp = 0;
                                                if ( (!warp_failed) && (Ships[objp->instance].current_max_speed >= TARGET_WARPOUT_SPEED) )      {
                                                        can_warp = 1;
                                                } else {
                                                        if (Ship_info[Ships[objp->instance].ship_info_index].max_overclocked_speed < TARGET_WARPOUT_SPEED) {
                                                                // Cannot go fast enough, so abort sequence.
                                                                warp_failed=1;
                                                                HUD_sourced_printf(HUD_SOURCE_HIDDEN, XSTR( "Unable to engage warp... ship must be able to reach %.1f km/s", 82), TARGET_WARPOUT_SPEED );
                                                                can_warp = 0;
                                                        } else {
                                                                Ships[objp->instance].current_max_speed = TARGET_WARPOUT_SPEED + 5.0f;
                                                                //Ships[objp->instance].current_max_speed = Ship_info[Ships[objp->instance].ship_info_index].max_overclocked_speed;
                                                                can_warp = 1;
                                                        }
                                                }
                                                if (can_warp) {
                                                        float diff = TARGET_WARPOUT_SPEED-objp->phys_info.fspeed;                               
                                                        if ( diff < 0.0f ) 
                                                                diff = 0.0f;
                                                
                                                        Player->ci.forward = ((TARGET_WARPOUT_SPEED+diff) / Ships[objp->instance].current_max_speed);
                                                }
                                        }

                                        if ( warp_failed ) {
                                                snd_play(&Snds[SND_PLAYER_WARP_FAIL]);
                                                gameseq_post_event( GS_EVENT_PLAYER_WARPOUT_STOP );
                                        }
                                }
                        
                                if ( Player->control_mode == PCM_WARPOUT_STAGE1 )       {


                                        // Wait at least 3 seconds before making sure warp speed is set.
                                        if ( Warpout_time>MINIMUM_PLAYER_WARPOUT_TIME ) {
                                                // If we are going around 5% of the target speed, progress to next stage
                                                float diff = fl_abs(objp->phys_info.fspeed - TARGET_WARPOUT_SPEED )/TARGET_WARPOUT_SPEED;
                                                if ( diff < TARGET_WARPOUT_MATCH_PERCENT )      {
                                                        gameseq_post_event( GS_EVENT_PLAYER_WARPOUT_DONE_STAGE1 );
                                                }
                                        }
                                }
                        }
                        break;
                }
        }

        // the ships maximum velocity now depends on the energy flowing to engines
        if(objp->type != OBJ_OBSERVER){
                objp->phys_info.max_vel.xyz.z = Ships[objp->instance].current_max_speed;
        } 
        if(Player_obj->type == OBJ_SHIP){       
                // only read player control info if player ship is not dead
                if ( !(Ships[Player_obj->instance].flags & SF_DYING) ) {
                        vector wash_rot;
                        if ((Ships[objp->instance].wash_intensity > 0) && !((Player->control_mode == PCM_WARPOUT_STAGE1) || (Player->control_mode == PCM_WARPOUT_STAGE2) || (Player->control_mode == PCM_WARPOUT_STAGE3)) ) {
                                float intensity = 0.3f * min(Ships[objp->instance].wash_intensity, 1.0f);
                                vm_vec_copy_scale(&wash_rot, &Ships[objp->instance].wash_rot_axis, intensity);
                                physics_read_flying_controls( &objp->orient, &objp->phys_info, &(Player->ci), flFrametime, &wash_rot);
                        } else {
                                physics_read_flying_controls( &objp->orient, &objp->phys_info, &(Player->ci), flFrametime);
                        }
                }
        } else if(Player_obj->type == OBJ_OBSERVER){
                physics_read_flying_controls(&objp->orient,&objp->phys_info,&(Player->ci), flFrametime);
        }
}

void player_controls_init()
{
        static int initted = 0;

        if (initted)
                return;

        initted = 1;
        physics_init( &Descent_physics );
        Descent_physics.flags |= PF_ACCELERATES | PF_SLIDE_ENABLED;

        Viewer_slew_angles_delta.p = 0.0f;
        Viewer_slew_angles_delta.b = 0.0f;
        Viewer_slew_angles_delta.h = 0.0f;
}

// Clear current speed matching and auto-speed matching flags
void player_clear_speed_matching()
{
        if ( !Player ) {
                Int3(); // why is Player NULL?
                return;
        }

        Player->flags &= ~PLAYER_FLAGS_MATCH_TARGET;
        Player->flags &= ~PLAYER_FLAGS_AUTO_MATCH_SPEED;
}

// function which computes the forward_thrust_time needed for the player ship to match
// velocities with the currently selected target
// input:       no_target_text  => default parm (NULL), used to override HUD output when no target exists
//                              match_off_text  =>      default parm (NULL), used to overide HUD output when matching toggled off
//                              match_on_text   =>      default parm (NULL), used to overide HUD output when matching toggled on
void player_match_target_speed(char *no_target_text, char *match_off_text, char *match_on_text)
{
        if ( Objects[Player_ai->target_objnum].type != OBJ_SHIP ) {
                return;
        }

        // multiplayer observers can't match target speed
        if((Game_mode & GM_MULTIPLAYER) && (Net_player != NULL) && ((Net_player->flags & NETINFO_FLAG_OBSERVER) || (Player_obj->type == OBJ_OBSERVER)) ){
                return;
        }

        if ( Player_ai->target_objnum == -1) {
                if ( no_target_text ) {
                        if ( no_target_text[0] ) {
                                HUD_sourced_printf(HUD_SOURCE_HIDDEN, no_target_text );
                        }
                } else {
//                      HUD_sourced_printf(HUD_SOURCE_HIDDEN, XSTR("No currently selected target.",-1) );
                }
                return;
        }

        if ( Player->flags & PLAYER_FLAGS_MATCH_TARGET ) {
                Player->flags &= ~PLAYER_FLAGS_MATCH_TARGET;
                if ( match_off_text ) {
                        if ( match_off_text[0] ) {
                                HUD_sourced_printf(HUD_SOURCE_HIDDEN, match_off_text );
                        }
                } else {
//                      HUD_sourced_printf(HUD_SOURCE_HIDDEN, XSTR("No longer matching speed with current target.",-1) );
                }
        } else {
                int can_match=0;

                if ( Objects[Player_ai->target_objnum].phys_info.speed > MATCH_SPEED_THRESHOLD ) {
                        can_match=1;
                } else {
                        // account for case of matching speed with docked ship 
                        ai_info *aip;
                        aip = &Ai_info[Ships[Objects[Player_ai->target_objnum].instance].ai_index];
                        if ( aip->ai_flags & AIF_DOCKED ) {
                                Assert( aip->dock_objnum != -1 );
                                if ( Objects[aip->dock_objnum].phys_info.fspeed > MATCH_SPEED_THRESHOLD ) {
                                        can_match=1;
                                }
                        }
                }

                if ( can_match ) {
                        Player->flags |= PLAYER_FLAGS_MATCH_TARGET;
                        if ( match_on_text ) {
                                if ( match_on_text[0] ) {
                                        HUD_sourced_printf(HUD_SOURCE_HIDDEN, match_on_text );
                                }
                        } else {
//                              HUD_sourced_printf(HUD_SOURCE_HIDDEN, XSTR("Matching speed with current target.",-1) );
                        }
                }
        }
}


//#ifndef NDEBUG

// toggle_player_object toggles between the player objects (i.e. the ship they are currently flying)
// and a descent style ship.

int use_descent = 0;
LOCAL physics_info phys_save;

void toggle_player_object()
{
        if ( use_descent ) {
                memcpy( &Player_obj->phys_info, &phys_save, sizeof(physics_info) );
        } else {
                memcpy( &phys_save, &Player_obj->phys_info, sizeof(physics_info) );
                memcpy( &Player_obj->phys_info, &Descent_physics, sizeof(physics_info) );
        }
        use_descent = !use_descent;

        HUD_sourced_printf(HUD_SOURCE_HIDDEN, NOX("Using %s style physics for player ship."), use_descent ? NOX("DESCENT") : NOX("FreeSpace"));
}

//#endif                // ifndef NDEBUG

// Init the data required for determining whether 'all alone' message should play
void player_init_all_alone_msg()
{
        ship_obj        *so;
        object  *objp;

        Player->check_for_all_alone_msg=timestamp(0);

        // See if there are any friendly ships present, if so return without preventing msg
        for ( so = GET_FIRST(&Ship_obj_list); so != END_OF_LIST(&Ship_obj_list); so = GET_NEXT(so) ) {
                objp = &Objects[so->objnum];
                if ( objp == Player_obj ) {
                        continue;
                }

                if ( Ships[objp->instance].team == Player_ship->team ) {
                        if ( !(Ship_info[Ships[objp->instance].ship_info_index].flags & SIF_HARMLESS) ) {
                                return;
                        }
                }
        }

        // There must be no friendly ships present, so prevent the 'all alone' message from ever playing
        Player->flags |= PLAYER_FLAGS_NO_CHECK_ALL_ALONE_MSG;
}

// Called when a new pilot is created
void player_set_pilot_defaults(player *p)
{
        // Enable auto-targeting by default for all new pilots
        p->flags |= PLAYER_FLAGS_AUTO_TARGETING;
        p->save_flags |= PLAYER_FLAGS_AUTO_TARGETING;

        p->auto_advance = 1;
}

// Store some player preferences to Player->save_flags
void player_save_target_and_weapon_link_prefs()
{
        Player->save_flags = 0;
        if ( Player->flags & PLAYER_FLAGS_AUTO_TARGETING ) {
                Player->save_flags |= PLAYER_FLAGS_AUTO_TARGETING;
        }


        if ( Player->flags & PLAYER_FLAGS_AUTO_MATCH_SPEED ) {
                // multiplayer observers can't match target speed
                if(!((Game_mode & GM_MULTIPLAYER) && (Net_player != NULL) && ((Net_player->flags & NETINFO_FLAG_OBSERVER) || (Player_obj->type == OBJ_OBSERVER))) ){                            
                        Player->save_flags |= PLAYER_FLAGS_AUTO_MATCH_SPEED;
                }               
        }

        // if we're in multiplayer mode don't do this because we will desync ourselves with the server
        if(!(Game_mode & GM_MULTIPLAYER)){
                if ( Player_ship->flags & SF_PRIMARY_LINKED ) {
                        Player->save_flags |= PLAYER_FLAGS_LINK_PRIMARY;
                } else {
                        Player->flags &= ~PLAYER_FLAGS_LINK_PRIMARY;
                }
                if ( Player_ship->flags & SF_SECONDARY_DUAL_FIRE ) {
                        Player->save_flags |= PLAYER_FLAGS_LINK_SECONDARY;
                } else {
                        Player->flags &= ~PLAYER_FLAGS_LINK_SECONDARY;
                }
        }
}

// Store some player preferences to Player->save_flags
void player_restore_target_and_weapon_link_prefs()
{
        //      Don't restores the save flags in training, as we must ensure certain things are off, such as speed matching.
        if ( !(The_mission.game_type & MISSION_TYPE_TRAINING )) {
                Player->flags |= Player->save_flags;
        }

        if ( Player->flags & PLAYER_FLAGS_LINK_PRIMARY ) {
                if ( Player_ship->weapons.num_primary_banks > 1 ) {
                        Player_ship->flags |= SF_PRIMARY_LINKED;
                }
        }

        if ( Player->flags & PLAYER_FLAGS_LINK_SECONDARY ) {
                Player_ship->flags |= SF_SECONDARY_DUAL_FIRE;
        }
}

// initialize player statistics on a per mission basis
void player_level_init()
{       
        Player->flags = PLAYER_FLAGS_STRUCTURE_IN_USE;                  // reset the player flags
        Player->flags |= Player->save_flags;

        memset(&(Player->ci), 0, sizeof(control_info) );                // set the controls to 0

        Viewer_slew_angles.p = 0.0f;    Viewer_slew_angles.b = 0.0f;    Viewer_slew_angles.h = 0.0f;
        Viewer_external_info.angles.p = 0.0f;
        Viewer_external_info.angles.b = 0.0f;
        Viewer_external_info.angles.h = 0.0f;
        Viewer_external_info.distance = 0.0f;

        Viewer_mode = 0;
 
        Player_obj = NULL;
        Player_ship = NULL;
        Player_ai = NULL;
        
        //      Init variables for friendly fire monitoring.
        Player->friendly_last_hit_time = 0;
        Player->friendly_hits = 0;
        Player->friendly_damage = 0.0f;
        Player->last_warning_message_time = 0;

        Player->control_mode = PCM_NORMAL;

        Player->allow_warn_timestamp = 1;               // init timestamp that is used for managing attack warnings sent to player
        Player->check_warn_timestamp = 1;
        Player->warn_count = 0;                                         // number of attack warnings player has received this mission

        Player->distance_warning_count = 0;             // Number of warning too far from origin
        Player->distance_warning_time = 0;              // Time at which last warning was given

        Player->praise_count = 0;                                       // number of praises player has received this mission
        Player->allow_praise_timestamp = 1;             // timestamp until next praise is allowed
        Player->praise_delay_timestamp = 0;             // timstamp used to delay praises given to the player

        Player->ask_help_count = 0;                             // number of times player has been asked for help by wingmen
        Player->allow_ask_help_timestamp = 1;   // timestamp until next ask_help is allowed

        Player->scream_count = 0;                                       // number of times player has heard wingman screams this mission
        Player->allow_scream_timestamp = 1;             // timestamp until next wingman scream is allowed

        Player->request_repair_timestamp = 1;   // timestamp until next 'requesting repair sir' message can be played

        Player->repair_sound_loop = -1;
        Player->cargo_scan_loop = -1;
        Player->cargo_inspect_time = 0;                 // time that current target's cargo has been inspected for

        Player->target_is_dying = -1;                           // The player target is dying, set to -1 if no target
        Player->current_target_sx = -1;                 // Screen x-pos of current target (or subsystem if applicable)
        Player->current_target_sy = -1;                 // Screen y-pos of current target (or subsystem if applicable)
        Player->target_in_lock_cone = -1;               // Is the current target in secondary weapon lock cone?
        Player->locking_subsys=NULL;                            // Subsystem pointer that missile lock is trying to seek
        Player->locking_on_center=0;                            // boolean, whether missile lock is trying for center of ship or not
        Player->locking_subsys_parent=-1;

        Player->killer_objtype=-1;                                      // type of object that killed player
        Player->killer_weapon_index=-1;                         // weapon used to kill player (if applicable)
        Player->killer_parent_name[0]=0;                        // name of parent object that killed the player

        Player_all_alone_msg_inited=0;
        Player->flags &= ~PLAYER_FLAGS_NO_CHECK_ALL_ALONE_MSG;

        // Player->insignia_bitmap = -1;

        Joystick_last_reading = -1;                             // Make the joystick read right away.
}

// player_init() initializes global veriables once a game -- needed because of mallocing that
// goes on in structures in the player file
void player_init()
{
        Player_num = 0;
        Player = &Players[Player_num];
        Player->num_campaigns = 0;
        Player->flags |= PLAYER_FLAGS_STRUCTURE_IN_USE;
        Player->failures_this_session = 0;
        Player->show_skip_popup = (ubyte) 1;
}

// stop any looping sounds associated with the Player, called from game_stop_looped_sounds().
void player_stop_looped_sounds()
{
        Assert(Player);
        if ( Player->repair_sound_loop > -1 )   {
                snd_stop(Player->repair_sound_loop);
                Player->repair_sound_loop = -1;
        }
        if ( Player->cargo_scan_loop > -1 )     {
                snd_stop(Player->cargo_scan_loop);
                Player->cargo_scan_loop = -1;
        }
}

// Start the repair sound if it hasn't already been started.  Called when a player ship is being
// repaired by a support ship
void player_maybe_start_repair_sound()
{
        Assert(Player);
        if ( Player->repair_sound_loop == -1 ) {
                Player->repair_sound_loop = snd_play_looping( &Snds[SND_SHIP_REPAIR] );
        }
}

// stop the player repair sound if it is already playing
void player_stop_repair_sound()
{
        Assert(Player);
        if ( Player->repair_sound_loop != -1 ) {
                snd_stop(Player->repair_sound_loop);
                Player->repair_sound_loop  = -1;
        }
}

// start the cargo scanning sound if it hasn't already been started
void player_maybe_start_cargo_scan_sound()
{
        Assert(Player);
        if ( Player->cargo_scan_loop == -1 ) {
                Player->cargo_scan_loop = snd_play_looping( &Snds[SND_CARGO_SCAN] );
        }
}

// stop the player repair sound if it is already playing
void player_stop_cargo_scan_sound()
{
        Assert(Player);
        if ( Player->cargo_scan_loop != -1 ) {
                snd_stop(Player->cargo_scan_loop);
                Player->cargo_scan_loop  = -1;
        }
}

// See if there is a praise message to deliver to the player.  We want to delay the praise messages
// a bit, to make them more realistic
//
// exit:        1       =>      a praise message was delivered to the player, or a praise is pending
//                      0       => no praise is pending

#define PLAYER_ALLOW_PRAISE_INTERVAL    60000           // minimum time between praises

int player_process_pending_praise()
{
        // in multiplayer, never praise
        if(Game_mode & GM_MULTIPLAYER){
                return 0;
        }

        if ( timestamp_elapsed(Player->praise_delay_timestamp) ) {
                int ship_index;

                Player->praise_delay_timestamp = 0;
                ship_index = ship_get_random_player_wing_ship( SHIP_GET_NO_PLAYERS, 1000.0f );
                if ( ship_index >= 0 ) {
                        // Only praise if above 50% integrity
                        if ( Objects[Ships[ship_index].objnum].hull_strength/Ship_info[Ships[ship_index].ship_info_index].initial_hull_strength > 0.5f ) {
                                message_send_builtin_to_player(MESSAGE_PRAISE, &Ships[ship_index], MESSAGE_PRIORITY_HIGH, MESSAGE_TIME_SOON, 0, 0, -1, -1);
                                Player->allow_praise_timestamp = timestamp(PLAYER_ALLOW_PRAISE_INTERVAL*(Game_skill_level+1) );
                                Player->allow_scream_timestamp = timestamp(20000);              // prevent death scream following praise
                                Player->praise_count++;
                                return 1;
                        }
                }
        }

        if ( Player->praise_delay_timestamp == 0 ) {
                return 0;
        }

        return 1;
}

int player_inspect_cap_subsys_cargo(float frametime, char *outstr);
// See if the player should be inspecting cargo, and update progress.
// input:       frametime       =>              time since last frame in seconds
// input:       outstr          =>              (output parm) holds string that HUD should display
//
//      exit:           1                               =>              player should display outstr on HUD
//                              0                               =>              don't display cargo on HUD
int player_inspect_cargo(float frametime, char *outstr)
{
        object          *cargo_objp;
        ship                    *cargo_sp;
        ship_info       *cargo_sip;
        vector          vec_to_cargo;
        float                   dot;

        outstr[0] = 0;

        if ( Player_ai->target_objnum < 0 ) {
                return 0;
        }

        cargo_objp = &Objects[Player_ai->target_objnum];
        Assert(cargo_objp->type == OBJ_SHIP);
        cargo_sp = &Ships[cargo_objp->instance];
        cargo_sip = &Ship_info[cargo_sp->ship_info_index];

#ifndef MAKE_FS1
        // causes a FS1 mission not to finish since the subsytems and not
        // the ship are scanned
        if (cargo_sip->flags & SIF_HUGE_SHIP) {
                return player_inspect_cap_subsys_cargo(frametime, outstr);
        }
#endif

        // check if target is ship class that can be inspected
        // MWA -- 1/27/98 -- added fighters/bombers to this list.  For multiplayer, we
        // want to show callsign of player

        // scannable cargo behaves differently.  Scannable cargo is either "scanned" or "not scanned".  This flag
        // can be set on any ship.  Any ship with this set won't have "normal" cargo behavior
        if ( !(cargo_sp->flags & SF_SCANNABLE) ) {
                if ( Game_mode & GM_NORMAL ) {
                        if ( !(cargo_sip->flags & (SIF_CARGO|SIF_TRANSPORT)) ) {
                                return 0;
                        }
                } else {
                        if ( !(cargo_sip->flags & (SIF_CARGO|SIF_TRANSPORT|SIF_FIGHTER|SIF_BOMBER)) ) {
                                return 0;
                        }
                }

                // won't show callsign information for single player games
                if ( (Game_mode & GM_MULTIPLAYER) && !((cargo_sip->flags & (SIF_FIGHTER|SIF_BOMBER)) && (cargo_objp->flags & OF_PLAYER_SHIP)) )
                        return 0;
        }

        // if cargo is already revealed
        if ( cargo_sp->flags & SF_CARGO_REVEALED ) {
                if ( !(cargo_sp->flags & SF_SCANNABLE) ) {
                        char *cargo_name;
                        cargo_name = Cargo_names[cargo_sp->cargo1 & CARGO_INDEX_MASK];
                        Assert ( cargo_name );

                        if ( cargo_sip->flags & (SIF_CARGO|SIF_TRANSPORT) ) {
                                if ( cargo_name[0] == '#' )
                                        sprintf(outstr, XSTR( "passengers:\n   %s", 83), cargo_name+1 );
                                else
                                        sprintf(outstr,XSTR( "cargo: %s", 84), cargo_name );
                        } else {
                                int pn;

                                Assert( Game_mode & GM_MULTIPLAYER );

                                // get a player num from the object, then get a callsign from the player structure.
                                pn = multi_find_player_by_object( cargo_objp );
                                // Assert( pn != -1 );
                                if(pn == -1){
                                        strcpy(outstr, "");
                                } else {
                                        sprintf(outstr, "%s", Net_players[pn].player->short_callsign );
                                }
                        }
                } else {
                        sprintf(outstr, XSTR( "Scanned", 85) );
                }

                // always bash cargo_inspect_time to 0 since AI ships can reveal cargo that we
                // are in the process of scanning
                Player->cargo_inspect_time = 0;

                return 1;
        }

        // see if player is within inspection range
        if ( Player_ai->current_target_distance < max(CARGO_REVEAL_MIN_DIST, (cargo_objp->radius+CARGO_RADIUS_DELTA)) ) {

                // check if player is facing cargo, do not proceed with inspection if not
                vm_vec_normalized_dir(&vec_to_cargo, &cargo_objp->pos, &Player_obj->pos);
                dot = vm_vec_dot(&vec_to_cargo, &Player_obj->orient.v.fvec);
                if ( dot < CARGO_MIN_DOT_TO_REVEAL ) {
                        if ( !(cargo_sp->flags & SF_SCANNABLE) )
                                sprintf(outstr,XSTR( "cargo: <unknown>", 86));
                        else
                                sprintf(outstr,XSTR( "not scanned", 87));
                        hud_targetbox_end_flash(TBOX_FLASH_CARGO);
                        Player->cargo_inspect_time = 0;
                        return 1;
                }

                // player is facing the cargo, and withing range, so proceed with inspection
                if ( hud_sensors_ok(Player_ship, 0) ) {
                        Player->cargo_inspect_time += fl2i(frametime*1000+0.5f);
                }

                if ( !(cargo_sp->flags & SF_SCANNABLE) )
                        sprintf(outstr,XSTR( "cargo: inspecting", 88));
                else
                        sprintf(outstr,XSTR( "scanning", 89));

                if ( Player->cargo_inspect_time > cargo_sip->scan_time ) {
                        ship_do_cargo_revealed( cargo_sp );
                        snd_play( &Snds[SND_CARGO_REVEAL], 0.0f );
                        Player->cargo_inspect_time = 0;
                }
        } else {
                if ( !(cargo_sp->flags & SF_SCANNABLE) )
                        sprintf(outstr,XSTR( "cargo: <unknown>", 86));
                else
                        sprintf(outstr,XSTR( "not scanned", 87));
        }

        return 1;
}

//      exit:           1                               =>              player should display outstr on HUD
//                              0                               =>              don't display cargo on HUD
int player_inspect_cap_subsys_cargo(float frametime, char *outstr)
{
        object          *cargo_objp;
        ship                    *cargo_sp;
        ship_info       *cargo_sip;
        vector          vec_to_cargo;
        float                   dot;
        ship_subsys     *subsys;

        outstr[0] = 0;
        subsys = Player_ai->targeted_subsys;

        if ( subsys == NULL ) {
                return 0;
        } 

        cargo_objp = &Objects[Player_ai->target_objnum];
        Assert(cargo_objp->type == OBJ_SHIP);
        cargo_sp = &Ships[cargo_objp->instance];
        cargo_sip = &Ship_info[cargo_sp->ship_info_index];

        Assert(cargo_sip->flags & SIF_HUGE_SHIP);

        if ( !(cargo_sp->flags & SF_SCANNABLE) ) {
                return 0;
        }

        // dont scan cargo on turrets, radar, etc.  only the majors: fighterbay, sensor, engines, weapons, nav, comm
        if (!valid_cap_subsys_cargo_list(subsys->system_info->name)) {
                return 0;
        }

        // if cargo is already revealed
        if ( subsys->subsys_cargo_revealed ) {
                const char *cargo_name;
                if (subsys->subsys_cargo_name == -1) {
                        cargo_name = XSTR("Nothing", 1493);
                } else {
                        cargo_name = Cargo_names[subsys->subsys_cargo_name];
                }
                Assert ( cargo_name );

                sprintf(outstr,XSTR( "cargo: %s", 84), cargo_name );
        
                // always bash cargo_inspect_time to 0 since AI ships can reveal cargo that we
                // are in the process of scanning
                Player->cargo_inspect_time = 0;

                return 1;
        }

        // see if player is within inspection range [ok for subsys]
        vector  subsys_pos;
        float           subsys_rad;
        int             subsys_in_view, x, y;

        get_subsystem_world_pos(cargo_objp, Player_ai->targeted_subsys, &subsys_pos);
        subsys_rad = subsys->system_info->radius;

        if ( Player_ai->current_target_distance < max(CAP_CARGO_REVEAL_MIN_DIST, (subsys_rad + CAPITAL_CARGO_RADIUS_DELTA)) ) {

                // check if player is facing cargo, do not proceed with inspection if not
                vm_vec_normalized_dir(&vec_to_cargo, &subsys_pos, &Player_obj->pos);
                dot = vm_vec_dot(&vec_to_cargo, &Player_obj->orient.v.fvec);
                int hud_targetbox_subsystem_in_view(object *target_objp, int *sx, int *sy);
                subsys_in_view = hud_targetbox_subsystem_in_view(cargo_objp, &x, &y);

                if ( (dot < CARGO_MIN_DOT_TO_REVEAL) || (!subsys_in_view) ) {
                        sprintf(outstr,XSTR( "cargo: <unknown>", 86));
                        hud_targetbox_end_flash(TBOX_FLASH_CARGO);
                        Player->cargo_inspect_time = 0;
                        return 1;
                }

                // player is facing the cargo, and withing range, so proceed with inspection
                if ( hud_sensors_ok(Player_ship, 0) ) {
                        Player->cargo_inspect_time += fl2i(frametime*1000+0.5f);
                }

                sprintf(outstr,XSTR( "cargo: inspecting", 88));

                if ( Player->cargo_inspect_time > cargo_sip->scan_time ) {
                        void ship_do_cap_subsys_cargo_revealed( ship *shipp, ship_subsys *subsys, int from_network );
                        ship_do_cap_subsys_cargo_revealed( cargo_sp, subsys, 0);
                        snd_play( &Snds[SND_CARGO_REVEAL], 0.0f );
                        Player->cargo_inspect_time = 0;
                }
        } else {
                sprintf(outstr,XSTR( "cargo: <unknown>", 86));
        }

        return 1;
}


// get the maximum weapon range for the player (of both primary and secondary)
float   player_farthest_weapon_range()
{
        float prange,srange;

        hud_get_best_primary_bank(&prange);
        srange=ship_get_secondary_weapon_range(Player_ship);

        return max(prange,srange);
}

// Determine text name for the weapon that killed the player.
// input:       weapon_info_index       =>              weapon type that killed the player (can be -1 if no weapon involved)
//                              killer_species          =>              species of ship that fired weapon
//                              weapon_name                     =>              output parameter... stores weapon name generated in this function       
void player_generate_killer_weapon_name(int weapon_info_index, int killer_species, char *weapon_name)
{
        if ( weapon_info_index < 0 ) {
                return;
        }

        #ifndef NDEBUG
        if ( Show_killer_weapon ) {
                killer_species = SPECIES_TERRAN;
        }
        #endif

        switch ( killer_species ) {
        case SPECIES_TERRAN:
                strcpy(weapon_name, Weapon_info[weapon_info_index].name);
                break;
        default:
                if ( Weapon_info[weapon_info_index].subtype == WP_MISSILE ) {
                        strcpy(weapon_name, XSTR( "missile", 90));
                } else {
                        strcpy(weapon_name, XSTR( "laser fire", 91));
                }
                break;
        }
}

// function to generate the text for death of a player given the information stored in the player object.
// a pointer to the text is returned
char *player_generate_death_text( player *player_p, char *death_text )
{
        char weapon_name[NAME_LENGTH];
        weapon_name[0] = 0;     

        player_generate_killer_weapon_name(player_p->killer_weapon_index, player_p->killer_species, weapon_name);

        switch ( player_p->killer_objtype ) {
        case OBJ_SHOCKWAVE:
                if ( weapon_name[0] ) {
//                      sprintf(death_text, XSTR("%s was killed by a shockwave from a %s, fired by %s",-1), player_p->callsign, weapon_name, player_p->killer_parent_name);
                        sprintf(death_text, XSTR( "%s was killed by a missile shockwave", 92), player_p->callsign);
                } else {
                        sprintf(death_text, XSTR( "%s was killed by a shockwave from %s exploding", 93), player_p->callsign, player_p->killer_parent_name);
                }
                break;
        case OBJ_WEAPON:
                Assert(weapon_name[0]);

                // is this from a friendly ship?
                int ship_index;
                ship_index = ship_name_lookup(player_p->killer_parent_name, 1);
                if((ship_index >= 0) && (Player_ship != NULL) && (Player_ship->team == Ships[ship_index].team)){
                        sprintf(death_text, XSTR( "%s was killed by friendly fire from %s", 1338), player_p->callsign, player_p->killer_parent_name);
                } else {
                        sprintf(death_text, XSTR( "%s was killed by %s", 94), player_p->callsign, player_p->killer_parent_name);
                }
                break;
        case OBJ_SHIP:
                if ( player_p->flags & PLAYER_FLAGS_KILLED_BY_EXPLOSION ) {
                        sprintf(death_text, XSTR( "%s was killed by a blast from %s exploding", 95), player_p->callsign, player_p->killer_parent_name);
                } else if (player_p->flags & PLAYER_FLAGS_KILLED_BY_ENGINE_WASH) {
                        sprintf(death_text, XSTR( "%s was killed by engine wash from %s", 1494), player_p->callsign, player_p->killer_parent_name);
                } else {
                        sprintf(death_text, XSTR( "%s was killed by a collision with %s", 96), player_p->callsign, player_p->killer_parent_name);
                }
                break;
        case OBJ_DEBRIS:
                sprintf(death_text, XSTR( "%s was killed by a collision with debris", 97), player_p->callsign);
                break;
        case OBJ_ASTEROID:
                sprintf(death_text, XSTR( "%s was killed by a collision with an asteroid", 98), player_p->callsign);
                break;
        case OBJ_BEAM:
                if(strlen(player_p->killer_parent_name) <= 0){                  
                        Int3();
                        sprintf(death_text, XSTR( "%s was killed by a beam from an unknown source", 1081), player_p->callsign);
                } else {                                        
                        // is this from a friendly ship?
                        int ship_index;
                        ship_index = ship_name_lookup(player_p->killer_parent_name, 1);
                        if((ship_index >= 0) && (Player_ship != NULL) && (Player_ship->team == Ships[ship_index].team)){
                                sprintf(death_text, XSTR( "%s was destroyed by friendly beam fire from %s", 1339), player_p->callsign, player_p->killer_parent_name);
                        } else {
                                sprintf(death_text, XSTR( "%s was destroyed by a beam from %s", 1082), player_p->callsign, player_p->killer_parent_name);
                        }                       
                }
                break;
        default:
                sprintf(death_text, XSTR( "%s was killed", 99), player_p->callsign);
                break;
        }

        return death_text;
}

// display what/who killed the player
void player_show_death_message()
{
        char death_text[256];

        // check if player killed self
        if ( Player->flags & PLAYER_KILLED_SELF ) {
                // reasons he killed himself
                if(Player->flags & PLAYER_FLAGS_KILLED_SELF_SHOCKWAVE){
                        sprintf(death_text, XSTR( "You have killed yourself with a shockwave from your own weapon", 1421));                     
                }
                else if(Player->flags & PLAYER_FLAGS_KILLED_SELF_MISSILES){
                        sprintf(death_text, XSTR( "You have killed yourself with your own missiles", 1422));                    
                } else {
                        sprintf(death_text, XSTR( "You have killed yourself", 100));
                }

                Player->flags &= ~(PLAYER_FLAGS_KILLED_SELF_MISSILES | PLAYER_FLAGS_KILLED_SELF_SHOCKWAVE);
        } else {
                player_generate_death_text( Player, death_text );
        }

        HUD_fixed_printf(30.0f, death_text);
}


extern void ai_fire_from_turret(ship *shipp, ship_subsys *ss, int parent_objnum);

// maybe fire a turret that is on a player ship (single or multi)
void player_maybe_fire_turret(object *objp)
{
        model_subsystem *psub;
        ship_subsys             *pss;

        ship                    *shipp = &Ships[objp->instance];
        ai_info                 *aip = &Ai_info[shipp->ai_index];
        ship_info               *sip = &Ship_info[shipp->ship_info_index];

        // do a quick out if this isn't a bomber
        if ( !(sip->flags & SIF_BOMBER) ) {
                return;
        }

        if (aip->ai_flags & (AIF_AWAITING_REPAIR | AIF_BEING_REPAIRED)) {
                if (aip->dock_objnum > -1) {
                        if (vm_vec_dist_quick(&objp->pos, &Objects[aip->dock_objnum].pos) < (objp->radius + Objects[aip->dock_objnum].radius) * 1.25f)
                                return;
                }
        }

        // See if there are any turrets on the ship, if so see if they should fire
        for ( pss = GET_FIRST(&shipp->subsys_list); pss !=END_OF_LIST(&shipp->subsys_list); pss = GET_NEXT(pss) ) {

                if ( pss->current_hits <= 0.0f ) 
                        continue;

                psub = pss->system_info;

                if ( psub->type == SUBSYSTEM_TURRET ) {
                        if ( psub->turret_num_firing_points > 0 ) {
                                ai_fire_from_turret(shipp, pss, OBJ_INDEX(objp));
                        }
                }
        }
}

void player_set_next_all_alone_msg_timestamp()
{
        Player->check_for_all_alone_msg=timestamp(30000);
}

// maybe play message from Terran Command 'You're all alone now Alpha 1'
void player_maybe_play_all_alone_msg()
{
        if ( Game_mode & GM_MULTIPLAYER ){
                return;
        }

        if ( !Player_all_alone_msg_inited ) {
                player_init_all_alone_msg();
                Player_all_alone_msg_inited=1;
                return;
        }

        if ( Player->flags & PLAYER_FLAGS_NO_CHECK_ALL_ALONE_MSG ) {
                return;
        }

        // only check every N seconds
        if ( !timestamp_elapsed(Player->check_for_all_alone_msg) ) {
                return;
        }

        player_set_next_all_alone_msg_timestamp();
        
        // at least one primary objective must be not complete (but not failed)
        if ( !mission_goals_incomplete(PRIMARY_GOAL) ) {
                Player->flags |= PLAYER_FLAGS_NO_CHECK_ALL_ALONE_MSG;
                return;
        }

        // there must be no reinforcements available, hold off on message
        if ( (Player_ship != NULL) && hud_squadmsg_reinforcements_available(Player_ship->team) ) {
                return;
        }

        // there must be no ships present that are on the same team as the player
        ship_obj *so;
        object  *objp;

        for ( so = GET_FIRST(&Ship_obj_list); so != END_OF_LIST(&Ship_obj_list); so = GET_NEXT(so) ) {
                objp = &Objects[so->objnum];

                if ( objp == Player_obj ) {
                        continue;
                }

                if ( Ships[objp->instance].team == Player_ship->team ) {
                        if ( !(Ship_info[Ships[objp->instance].ship_info_index].flags & SIF_HARMLESS) ) {
                                return;
                        }
                }
        }

        // met all the requirements, now only play 50% of the time :)
        if ( rand()&1 ) {
                message_send_builtin_to_player(MESSAGE_ALL_ALONE, NULL, MESSAGE_PRIORITY_HIGH, MESSAGE_TIME_ANYTIME, 0, 0, -1, -1);
        }
        Player->flags |= PLAYER_FLAGS_NO_CHECK_ALL_ALONE_MSG;
} 


void player_set_padlock_state()
{
        // clear padlock views
        Viewer_mode &= ~(VM_PADLOCK_ANY);

        if ( check_control(PADLOCK_UP) ) {
                Viewer_mode |= VM_PADLOCK_UP;
                return;
        }

        if ( check_control(PADLOCK_DOWN) ) {
                Viewer_mode |= VM_PADLOCK_REAR;
                return;
        }

        if ( check_control(PADLOCK_RIGHT) ) {
                Viewer_mode |= VM_PADLOCK_RIGHT;
                return;
        }

        if ( check_control(PADLOCK_LEFT) ) {
                Viewer_mode |= VM_PADLOCK_LEFT;
                return;
        }
}

void player_get_padlock_orient(matrix *eye_orient)
{
        Assert(Viewer_mode & VM_PADLOCK_ANY);

        matrix old_eye_orient;
        old_eye_orient = *eye_orient;

        if ( Viewer_mode & VM_PADLOCK_UP ) {
                eye_orient->v.fvec = old_eye_orient.v.uvec;
                vm_vec_copy_scale( &eye_orient->v.uvec, &old_eye_orient.v.fvec, -1.0f );
        } else if ( Viewer_mode & VM_PADLOCK_REAR ) {
                vm_vec_negate(&eye_orient->v.fvec);
                vm_vec_negate(&eye_orient->v.rvec);
        } else if ( Viewer_mode & VM_PADLOCK_LEFT ) {
                vm_vec_copy_scale( &eye_orient->v.fvec, &old_eye_orient.v.rvec, -1.0f );
                eye_orient->v.rvec = old_eye_orient.v.fvec;
        } else if ( Viewer_mode & VM_PADLOCK_RIGHT ) {
                eye_orient->v.fvec = old_eye_orient.v.rvec;
                vm_vec_copy_scale( &eye_orient->v.rvec, &old_eye_orient.v.fvec, -1.0f );
        } else {
                Int3();
        }
}

void player_display_packlock_view()
{
        int padlock_view_index=0;

        if ( Viewer_mode & VM_PADLOCK_UP ) {
                padlock_view_index = 0;
        } else if ( Viewer_mode & VM_PADLOCK_REAR ) {
                padlock_view_index = 1;
        } else if ( Viewer_mode & VM_PADLOCK_LEFT ) {
                padlock_view_index = 2;
        } else if ( Viewer_mode & VM_PADLOCK_RIGHT ) {
                padlock_view_index = 3;
        } else {
                Int3();
                return;
        }

        char    str[128];

        if ( !(Viewer_mode & (VM_CHASE|VM_EXTERNAL|VM_SLEWED)) ) {
                switch (padlock_view_index) {
                case 0:
                        strcpy(str, XSTR( "top view", 101));    break;
                case 1:
                        strcpy(str, XSTR( "rear view", 102));   break;
                case 2:
                        strcpy(str, XSTR( "left view", 103));   break;
                case 3:
                        strcpy(str, XSTR( "right view", 104));  break;
                        }

                HUD_fixed_printf(0.01f, str);
        }
}

// get the player's eye position and orient
// NOTE : this is mostly just copied from game_render_frame_setup()
extern vector Dead_player_last_vel;
extern vector Camera_pos;
extern void compute_slew_matrix(matrix *orient, angles *a);
#define MIN_DIST_TO_DEAD_CAMERA                 50.0f
void player_get_eye(vector *eye_pos, matrix *eye_orient)
{
        object *viewer_obj;
        vector eye_dir;

        // if the player object is NULL, return
        if(Player_obj == NULL){
                return;
        }

        // standalone servers can bail here
        if(Game_mode & GM_STANDALONE_SERVER){
                return;
        }

        // if we're not in-mission, don't do this
        if(!(Game_mode & GM_IN_MISSION)){
                return;
        }

        Assert(eye_pos != NULL);
        Assert(eye_orient != NULL);

        if (Game_mode & GM_DEAD) {
                vector  vec_to_deader, view_pos;
                float           dist;           
                if (Player_ai->target_objnum != -1) {
                        int view_from_player = 1;

                        if (Viewer_mode & VM_OTHER_SHIP) {
                                //      View from target.
                                viewer_obj = &Objects[Player_ai->target_objnum];
                                if ( viewer_obj->type == OBJ_SHIP ) {
                                        ship_get_eye( eye_pos, eye_orient, viewer_obj );
                                        view_from_player = 0;
                                }
                        }

                        if ( view_from_player ) {
                                //      View target from player ship.
                                viewer_obj = NULL;
                                *eye_pos = Player_obj->pos;
                                vm_vec_normalized_dir(&eye_dir, &Objects[Player_ai->target_objnum].pos, eye_pos);
                                vm_vector_2_matrix(eye_orient, &eye_dir, NULL, NULL);
                        }
                } else {
                        dist = vm_vec_normalized_dir(&vec_to_deader, &Player_obj->pos, &Dead_camera_pos);
                        
                        if (dist < MIN_DIST_TO_DEAD_CAMERA){
                                dist += flFrametime * 16.0f;
                        }

                        vm_vec_scale(&vec_to_deader, -dist);
                        vm_vec_add(&Dead_camera_pos, &Player_obj->pos, &vec_to_deader);
                        
                        view_pos = Player_obj->pos;

                        if (!(Game_mode & GM_DEAD_BLEW_UP)) {                                                           
                        } else if (Player_ai->target_objnum != -1) {
                                view_pos = Objects[Player_ai->target_objnum].pos;
                        } else {
                                //      Make camera follow explosion, but gradually slow down.
                                vm_vec_scale_add2(&Player_obj->pos, &Dead_player_last_vel, flFrametime);
                                view_pos = Player_obj->pos;                             
                        }

                        *eye_pos = Dead_camera_pos;

                        vm_vec_normalized_dir(&eye_dir, &Player_obj->pos, eye_pos);

                        vm_vector_2_matrix(eye_orient, &eye_dir, NULL, NULL);
                        viewer_obj = NULL;
                }
        } 
        
        //      If already blown up, these other modes can override.
        if (!(Game_mode & (GM_DEAD | GM_DEAD_BLEW_UP))) {
                viewer_obj = Player_obj;
 
                if (Viewer_mode & VM_OTHER_SHIP) {
                        if (Player_ai->target_objnum != -1){
                                viewer_obj = &Objects[Player_ai->target_objnum];
                        } 
                }

                if (Viewer_mode & VM_EXTERNAL) {
                        matrix  tm, tm2;

                        vm_angles_2_matrix(&tm2, &Viewer_external_info.angles);
                        vm_matrix_x_matrix(&tm, &viewer_obj->orient, &tm2);

                        vm_vec_scale_add(eye_pos, &viewer_obj->pos, &tm.v.fvec, 2.0f * viewer_obj->radius + Viewer_external_info.distance);

                        vm_vec_sub(&eye_dir, &viewer_obj->pos, eye_pos);
                        vm_vec_normalize(&eye_dir);
                        vm_vector_2_matrix(eye_orient, &eye_dir, &viewer_obj->orient.v.uvec, NULL);
                        viewer_obj = NULL;

                        //      Modify the orientation based on head orientation.
                        compute_slew_matrix(eye_orient, &Viewer_slew_angles);
                } else if ( Viewer_mode & VM_CHASE ) {
                        vector  move_dir;

                        if ( viewer_obj->phys_info.speed < 0.1 ){
                                move_dir = viewer_obj->orient.v.fvec;
                        } else {
                                move_dir = viewer_obj->phys_info.vel;
                                vm_vec_normalize_safe(&move_dir);
                        }

                        vm_vec_scale_add(eye_pos, &viewer_obj->pos, &move_dir, -3.0f * viewer_obj->radius - Viewer_chase_info.distance);
                        vm_vec_scale_add2(eye_pos, &viewer_obj->orient.v.uvec, 0.75f * viewer_obj->radius);
                        vm_vec_sub(&eye_dir, &viewer_obj->pos, eye_pos);
                        vm_vec_normalize(&eye_dir);

                        // JAS: I added the following code because if you slew up using
                        // Descent-style physics, eye_dir and Viewer_obj->orient.v.uvec are
                        // equal, which causes a zero-length vector in the vm_vector_2_matrix
                        // call because the up and the forward vector are the same.   I fixed
                        // it by adding in a fraction of the right vector all the time to the
                        // up vector.
                        vector tmp_up = viewer_obj->orient.v.uvec;
                        vm_vec_scale_add2( &tmp_up, &viewer_obj->orient.v.rvec, 0.00001f );

                        vm_vector_2_matrix(eye_orient, &eye_dir, &tmp_up, NULL);
                        viewer_obj = NULL;

                        //      Modify the orientation based on head orientation.
                        compute_slew_matrix(eye_orient, &Viewer_slew_angles);
                } else if ( Viewer_mode & VM_WARP_CHASE ) {
                        *eye_pos = Camera_pos;

                        ship * shipp = &Ships[Player_obj->instance];

                        vm_vec_sub(&eye_dir, &shipp->warp_effect_pos, eye_pos);
                        vm_vec_normalize(&eye_dir);
                        vm_vector_2_matrix(eye_orient, &eye_dir, &Player_obj->orient.v.uvec, NULL);
                        viewer_obj = NULL;
                } else {
                        // get an eye position based upon the correct type of object
                        switch(viewer_obj->type){
                        case OBJ_SHIP:
                                // make a call to get the eye point for the player object
                                ship_get_eye( eye_pos, eye_orient, viewer_obj );
                                break;
                        case OBJ_OBSERVER:
                                // make a call to get the eye point for the player object
                                observer_get_eye( eye_pos, eye_orient, viewer_obj );                            
                                break;
                        default :
                                Int3();
                        }                       
                }
        }
}