clean out a bunch of code for old renderers

[taylor/freespace2.git] / src / object / object.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/Object/Object.cpp $
 * $Revision$
 * $Date$
 * $Author$
 *
 * Code to manage objects
 *
 * $Log$
 * Revision 1.4  2004/09/20 01:31:44  theoddone33
 * GCC 3.4 fixes.
 *
 * Revision 1.3  2002/06/09 04:41:24  relnev
 * added copyright header
 *
 * Revision 1.2  2002/05/07 03:16:48  theoddone33
 * The Great Newline Fix
 *
 * Revision 1.1.1.1  2002/05/03 03:28:10  root
 * Initial import.
 *
 * 
 * 33    8/27/99 10:36a Dave
 * Impose a 2% penalty for hitting the shield balance key.
 * 
 * 32    8/24/99 8:55p Dave
 * Make sure nondimming pixels work properly in tech menu.
 * 
 * 31    7/26/99 10:24p Anoop
 * Oops. Don't do anything to checkobjects in a release build.
 * 
 * 30    7/26/99 5:50p Dave
 * Revised ingame join. Better? We'll see....
 * 
 * 29    7/22/99 3:58p Jefff
 * Temporarily remove object checking for multiplayer clients.
 * 
 * 28    7/08/99 10:53a Dave
 * New multiplayer interpolation scheme. Not 100% done yet, but still
 * better than the old way.
 * 
 * 27    7/03/99 5:50p Dave
 * Make rotated bitmaps draw properly in padlock views.
 * 
 * 26    7/01/99 11:44a Dave
 * Updated object sound system to allow multiple obj sounds per ship.
 * Added hit-by-beam sound. Added killed by beam sound.
 * 
 * 25    5/27/99 6:17p Dave
 * Added in laser glows.
 * 
 * 24    5/18/99 12:08p Andsager
 * Added observer_process_post to handle observer too far away
 * 
 * 23    5/18/99 11:50a Andsager
 * Remove unused object type OBJ_GHOST_SAVE
 * 
 * 22    4/23/99 5:53p Dave
 * Started putting in new pof nebula support into Fred.
 * 
 * 21    4/21/99 6:15p Dave
 * Did some serious housecleaning in the beam code. Made it ready to go
 * for anti-fighter "pulse" weapons. Fixed collision pair creation. Added
 * a handy macro for recalculating collision pairs for a given object.
 * 
 * 20    4/20/99 6:39p Dave
 * Almost done with artillery targeting. Added support for downloading
 * images on the PXO screen.
 * 
 * 19    4/19/99 11:01p Dave
 * More sophisticated targeting laser support. Temporary checkin.
 * 
 * 18    4/16/99 5:54p Dave
 * Support for on/off style "stream" weapons. Real early support for
 * target-painting lasers.
 * 
 * 17    3/29/99 6:17p Dave
 * More work on demo system. Got just about everything in except for
 * blowing ships up, secondary weapons and player death/warpout.
 * 
 * 16    3/10/99 6:50p Dave
 * Changed the way we buffer packets for all clients. Optimized turret
 * fired packets. Did some weapon firing optimizations.
 * 
 * 15    3/09/99 6:24p Dave
 * More work on object update revamping. Identified several sources of
 * unnecessary bandwidth.
 * 
 * 14    3/08/99 7:03p Dave
 * First run of new object update system. Looks very promising.
 * 
 * 13    1/30/99 5:08p Dave
 * More new hi-res stuff.Support for nice D3D textures.
 * 
 * 12    1/29/99 2:25p Andsager
 * Added turret_swarm_missiles
 * 
 * 11    1/25/99 5:03a Dave
 * First run of stealth, AWACS and TAG missile support. New mission type
 * :)
 * 
 * 10    1/24/99 11:37p Dave
 * First full rev of beam weapons. Very customizable. Removed some bogus
 * Int3()'s in low level net code.
 * 
 * 9     1/14/99 12:48a Dave
 * Todo list bug fixes. Made a pass at putting briefing icons back into
 * FRED. Sort of works :(
 * 
 * 8     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.
 * 
 * 7     1/12/99 12:53a Dave
 * More work on beam weapons - made collision detection very efficient -
 * collide against all object types properly - made 3 movement types
 * smooth. Put in test code to check for possible non-darkening pixels on
 * object textures.
 * 
 * 6     1/08/99 2:08p Dave
 * Fixed software rendering for pofview. Super early support for AWACS and
 * beam weapons.
 * 
 * 5     11/14/98 5:32p Dave
 * Lots of nebula work. Put in ship contrails.
 * 
 * 4     11/09/98 2:11p Dave
 * Nebula optimizations.
 * 
 * 3     11/05/98 4:18p Dave
 * First run nebula support. Beefed up localization a bit. Removed all
 * conditional compiles for foreign versions. Modified mission file
 * format.
 * 
 * 2     10/07/98 10:53a Dave
 * Initial checkin.
 * 
 * 1     10/07/98 10:50a Dave
 * 
 * 242   8/28/98 3:29p Dave
 * EMP effect done. AI effects may need some tweaking as required.
 * 
 * 241   8/07/98 10:13a Allender
 * new object flag setting code for OF_COULD_BE_PLAYER since it was
 * getting set incorrectly
 * 
 * 240   7/02/98 6:16p Dave
 * Make rear facing prediction much better. Tweak update levels and
 * viewcone values. Make sure observers send targeting info correctly.
 * 
 * 239   6/30/98 2:43p Dave
 * Fixed merge problems.
 * 
 * 238   6/30/98 2:25p Dave
 * Revamped object update system
 * 
 * 237   6/22/98 8:36a Allender
 * revamping of homing weapon system.  don't send as object updates
 * anymore
 * 
 * 236   5/25/98 10:58a Allender
 * more object update stuff -- fix duplicate repair ship messages
 * 
 * 235   5/24/98 10:38a Allender
 * make docked objects move properly on multiplayer clients
 * 
 * 234   5/20/98 4:32p Allender
 * changed RELEASE to NDEBUG
 * 
 * 233   5/20/98 10:07a John
 * put back in object flag checking for DEBUG.
 * 
 * 232   5/18/98 4:21p Frank
 * AL: fix problem with same vectors in obj_visible_from_eye()
 * 
 * 231   5/18/98 10:05a Lawrance
 * use old client prediction code for player ships
 * 
 * 230   5/18/98 12:52a Lawrance
 * Client-side prediction improvements
 * 
 * 229   5/15/98 3:54p John
 * Added code so that only "perishable" fireballs get removed.
 * 
 * 228   5/15/98 9:59a John
 * Removed OBJECT_CHECKING.  This should be on DEBUG only, but we need to
 * verify it.
 * 
 * 227   5/11/98 4:33p Allender
 * fixed ingame join problems -- started to work on new object updating
 * code (currently ifdef'ed out)
 * 
 * 226   5/01/98 12:59a Dave
 * Put in some test code for a new object update system. Found the problem
 * with the current system (low-level packet buffering). Gonna fix it :)
 * 
 * 225   4/16/98 3:06p Adam
 * reset net_signature when creating a new object so that the multi code
 * doesn't see two objects with the same signature
 * 
 * 224   4/14/98 11:11p John
 * Made ships with < 50% hull left show electrical damage arcs.
 * 
 * 223   4/12/98 9:56a John
 * Made lighting detail flags work.   Made explosions cast light on
 * highest.
 * 
 * 222   4/03/98 12:24a Mike
 * Comment out nprintfs.
 * 
 * 221   4/01/98 9:21p John
 * Made NDEBUG, optimized build with no warnings or errors.
 * 
 * 220   4/01/98 1:48p Allender
 * major changes to ship collision in multiplayer.  Clients now do own
 * ship/ship collisions (with their own ship only)  Modifed the hull
 * update packet to be sent quicker when object is target of player.
 * 
 * 219   4/01/98 9:20a Mike
 * Reduce MAX_SHIPS, MAX_OBJECTS and make MAX_AI_INFO same as MAX_SHIPS
 * 
 * 217   3/26/98 10:36p Andsager
 * 
 * 216   3/26/98 5:43p Lawrance
 * rename ship_team_from_obj(), obj_team() and move to object lib
 * 
 * 215   3/23/98 9:20a Andsager
 * Remove all velocity updates in object code.
 * 
 * 214   3/21/98 7:36p Lawrance
 * Move jump nodes to own lib.
 * 
 * 213   3/17/98 1:09p Andsager
 * Don't update debris velocity in object code.  was leading to
 * fluctuating and increasing debris velocity (from numerical imprecision)
 * 
 * 212   3/11/98 5:33p Lawrance
 * Support rendering and targeting of jump nodes
 * 
 * 211   3/09/98 10:56a Hoffoss
 * Added jump node objects to Fred.
 * 
 * 210   3/08/98 12:03p Allender
 * changed how ship network signatures are handed out.  Done at mission
 * load time.  Space reserved in wings for all waves/counts for their
 * signatures.  Fixed some secondary firing issues
 * 
 * 209   3/06/98 10:35a Mike
 * Make ships ramp up their warpout speed.
 * 
 * 208   3/05/98 2:38p Mike
 * Fix bug in obj_set_flags which didn't properly add collision pairs.
 * 
 * 207   3/04/98 4:38p Mike
 * Make weapon firing less framerate dependent.  Also support cycling
 * backwards through weapons with debug key.
 * 
 * 206   3/03/98 1:00p John
 * Fixed bug where asteroids weren't rotating for Glide.
 * 
 * 205   3/02/98 5:42p John
 * Removed WinAVI stuff from Freespace.  Made all HUD gauges wriggle from
 * afterburner.  Made gr_set_clip work good with negative x &y.  Made
 * model_caching be on by default.  Made each cached model have it's own
 * bitmap id.  Made asteroids not rotate when model_caching is on.  
 * 
 * 204   2/27/98 4:48p John
 * Made objects keep track of number of pairs they have associated with
 * them.  Then, I can early out of the obj_remove_all which was 2.5% of
 * frametime at beginning of sm2-2 which then is 0% after this.
 * 
 * 203   2/23/98 8:59p Allender
 * fixed two docking bugs:  1) don't move cargo when ship it's docked with
 * is undocking.  2) aigoal code was clearing dock goals when it shouldn't
 * have been
 * 
 * 202   2/22/98 12:19p John
 * Externalized some strings
 * 
 * 201   2/19/98 11:18p Mike
 * Make ships not come to an immediate stop when they have been disabled
 * while awaiting repair.
 * 
 * 200   2/19/98 10:51p John
 * Enabled colored lighting for hardware (Glide)
 * 
 * 199   2/19/98 12:46a Lawrance
 * Further work on asteroids.
 * 
 * 198   2/15/98 10:12p Allender
 * fix up problems where ship flies away from repair ship too soon after
 * getting repaired.
 * 
 * 197   2/13/98 5:15p Allender
 * 
 * 196   2/12/98 2:41p John
 * Fixed bug I added the other day that caused all object created on the
 * same frame to have two pairs.
 * 
 * 195   2/09/98 10:44a John
 * Made object pairs get created when they get added to the used_list, not
 * when they get created.
 * 
 * 194   2/06/98 12:00p Allender
 * fixed some pretty darn embarassing code!
 * 
 * 193   2/06/98 12:25a Mike
 * More asteroid stuff.
 * 
 * 192   2/05/98 9:41p Mike
 * Asteroid work, intermediate checkin to resolve compile errors.
 * 
 * 191   2/05/98 9:21p John
 * Some new Direct3D code.   Added code to monitor a ton of stuff in the
 * game.
 * 
 * 190   2/05/98 12:51a Mike
 * Early asteroid stuff.
 * 
 * 189   2/02/98 4:36p Mike
 * Prevent damage from occurring between two ships during very last frame
 * of warpout if docked and on opposite sides.
 * 
 * 188   1/30/98 11:48a John
 * Made debris arcs cast light.  Added sound effects for them.
 * 
 * 187   1/29/98 8:18a John
 * Put in some commented out hooks for RGB lighting
 * 
 * 186   1/23/98 5:08p John
 * Took L out of vertex structure used B (blue) instead.   Took all small
 * fireballs out of fireball types and used particles instead.  Fixed some
 * debris explosion things.  Restructured fireball code.   Restructured
 * some lighting code.   Made dynamic lighting on by default. Made groups
 * of lasers only cast one light.  Made fireballs not cast light.
 * 
 * 185   1/20/98 3:09p Dave
 * Fixed a bug in observer movement caused by uninitialized data fix.
 * 
 * 184   1/20/98 9:47a Mike
 * Suppress optimized compiler warnings.
 * Some secondary weapon work.
 * 
 * 183   1/19/98 10:01p Lawrance
 * Implement "Electronics" missiles
 * 
 * 182   1/17/98 4:45p Mike
 * Better support for AI selection of secondary weapons.
 * 
 * 181   1/16/98 11:43a Mike
 * Fix countermeasures.
 * 
 * 180   1/14/98 5:21p Allender
 * system to delete object when buffer is nearly full.  System in place to
 * delete weapons when nearly out of weapons slots
 * 
 * 179   1/13/98 8:09p John
 * Removed the old collision system that checked all pairs.   Added code
 * to disable collisions and particles.
 * 
 * 178   1/13/98 5:50p Andsager
 * Deathroll rotvel is now ramped up to using standard physics code.
 * After death, controls are no longer read and deathroll_rotvel is set in
 * ship\ship_dying_frame.cpp
 * 
 * 177   1/12/98 5:21p Dave
 * Put in a bunch of multiplayer sequencing code. Made weapon/ship select
 * work through the standalone.
 * 
 * 176   12/29/97 9:48p Mike
 * When two ships of equivalent class are docked together, move according
 * to the faster moving one.
 * 
 * 175   12/22/97 9:14p Allender
 * fix up some code relating to afterburners in multiplayer.  Clients now
 * control their own afterburners
 * 
 * 174   12/22/97 1:42a Lawrance
 * Change in set_shield_strength() avoid weird rounding error
 * 
 * 173   12/12/97 1:43p John
 * took out old debug light code
 * 
 * 172   12/11/97 5:46p Hoffoss
 * Changed Fred to not display weapons that are not available to various
 * ships.
 * 
 * 171   12/09/97 11:36p Allender
 * made clients determine their own positions
 * 
 * 170   12/04/97 9:20a John
 * 
 * 169   12/03/97 3:17p Andsager
 * Reset of physics flags for engine moved to rearm and repair.
 *
 * $NoKeywords: $
 */

#include <string.h>     // for memset
#include <stdio.h>

#include "pstypes.h"
#include "object.h"
#include "weapon.h"
#include "ship.h"
#include "fireballs.h"
#include "debris.h"
#include "fvi.h"
#include "physics.h"
#include "model.h"
#include "linklist.h"
#include "freespace.h"
#include        "ai.h"
#include "objectsnd.h"
#include "gamesnd.h"
#include "player.h"
#include "cmeasure.h"
#include "timer.h"
#include "systemvars.h"
#include "3d.h"
#include "shockwave.h"
#include "afterburner.h"
#include "timer.h"
#include "multi.h"
#include "multiutil.h"
#include "objcollide.h"
#include "lighting.h"
#include "observer.h"
#include "asteroid.h"
#include "radar.h"
#include "jumpnode.h"
#include "neb.h"
#include "beam.h"
#include "swarm.h"
#include "demo.h"

/*
 *  Global variables
 */

object obj_free_list;
object obj_used_list;
object obj_create_list; 

object *Player_obj = NULL;
object *Viewer_obj = NULL;



//Data for objects
object Objects[MAX_OBJECTS];

#ifdef OBJECT_CHECK 
typedef struct checkobject
{
        int     type;
        int     signature;
        uint    flags;
        int     parent_sig;
        int     parent_type;
} checkobject;
checkobject CheckObjects[MAX_OBJECTS];
#endif

int num_objects=-1;
int Highest_object_index=-1;
int Highest_ever_object_index=0;
int Object_next_signature = 1;  //0 is bogus, start at 1
int Object_next_ship_signature = OBJECT_SIG_SHIP_START;
int Object_inited = 0;
int Show_waypoints = 0;

#ifndef NDEBUG
const char *Object_type_names[MAX_OBJECT_TYPES] = {
//XSTR:OFF
        "NONE",
        "SHIP",
        "WEAPON",
        "FIREBALL",
        "START",
        "WAYPOINT",
        "DEBRIS",
        "CMEASURE",
        "GHOST",
        "POINT",
        "SHOCKWAVE",
        "WING",
        "GHOST SAVE",
        "OBSERVER",
        "ASTEROID",
        "JUMP NODE",
//XSTR:ON
};
#endif

//-----------------------------------------------------------------------------
//      Scan the object list, freeing down to num_used objects
//      Returns number of slots freed.
int free_object_slots(int num_used)
{
        int     i, olind, deleted_weapons;
        int     obj_list[MAX_OBJECTS];
        int     num_already_free, num_to_free, original_num_to_free;
        object *objp;

        olind = 0;

        // calc num_already_free by walking the obj_free_list
        num_already_free = 0;
        for ( objp = GET_FIRST(&obj_free_list); objp != END_OF_LIST(&obj_free_list); objp = GET_NEXT(objp) )
                num_already_free++;

        if (MAX_OBJECTS - num_already_free < num_used)
                return 0;

        for ( objp = GET_FIRST(&obj_used_list); objp != END_OF_LIST(&obj_used_list); objp = GET_NEXT(objp) ) {
                if (objp->flags & OF_SHOULD_BE_DEAD) {
                        num_already_free++;
                        if (MAX_OBJECTS - num_already_free < num_used)
                                return num_already_free;
                } else
                        switch (objp->type) {
                                case OBJ_NONE:
                                        num_already_free++;
                                        if (MAX_OBJECTS - num_already_free < num_used)
                                                return 0;
                                        break;
                                case OBJ_FIREBALL:
                                case OBJ_WEAPON:
                                case OBJ_DEBRIS:
                                case OBJ_CMEASURE:
                                        obj_list[olind++] = OBJ_INDEX(objp);
                                        break;

                                case OBJ_GHOST:
                                case OBJ_SHIP:
                                case OBJ_START:
                                case OBJ_WAYPOINT:
                                case OBJ_POINT:
                                case OBJ_SHOCKWAVE:
                                case OBJ_WING:
                                case OBJ_OBSERVER:
                                case OBJ_ASTEROID:
                                case OBJ_JUMP_NODE:                             
                                case OBJ_BEAM:
                                        break;
                                default:
                                        Int3(); //      Hey, what kind of object is this?  Unknown!
                                        break;
                        }

        }

        num_to_free = MAX_OBJECTS - num_used - num_already_free;
        original_num_to_free = num_to_free;

        if (num_to_free > olind) {
                nprintf(("allender", "Warning: Asked to free %i objects, but can only free %i.\n", num_to_free, olind));
                num_to_free = olind;
        }

        for (i=0; i<num_to_free; i++)
                if ( (Objects[obj_list[i]].type == OBJ_DEBRIS) && (Debris[Objects[obj_list[i]].instance].flags & DEBRIS_EXPIRE) ) {
                        num_to_free--;
                        nprintf(("allender", "Freeing   DEBRIS object %3i\n", obj_list[i]));
                        Objects[obj_list[i]].flags |= OF_SHOULD_BE_DEAD;
                }

        if (!num_to_free)
                return original_num_to_free;

//JAS - I removed this because small fireballs are now particles, which aren't objects.
//JAS   for (i=0; i<num_to_free; i++)
//JAS           if ( (Objects[obj_list[i]].type == OBJ_FIREBALL) && (Fireball_data[Objects[obj_list[i]].instance].type == FIREBALL_TYPE_SMALL) ) {
//JAS                   num_to_free--;
//JAS                   nprintf(("allender", "Freeing FIREBALL object %3i\n", obj_list[i]));
//JAS                   Objects[obj_list[i]].flags |= OF_SHOULD_BE_DEAD;
//JAS           }
//JAS
//JAS   if (!num_to_free)
//JAS           return original_num_to_free;

        for (i=0; i<num_to_free; i++)   {
                object *tmp_obj = &Objects[obj_list[i]];
                if ( (tmp_obj->type == OBJ_FIREBALL) && (fireball_is_perishable(tmp_obj)) ) {
                        num_to_free--;
                        nprintf(("allender", "Freeing FIREBALL object %3i\n", obj_list[i]));
                        tmp_obj->flags |= OF_SHOULD_BE_DEAD;
                }
        }

        if (!num_to_free){
                return original_num_to_free;
        }

        deleted_weapons = collide_remove_weapons();
        num_to_free -= deleted_weapons;
        if ( !num_to_free ){
                return original_num_to_free;
        }

        for (i=0; i<num_to_free; i++){
                if ( Objects[obj_list[i]].type == OBJ_WEAPON ) {
                        num_to_free--;
                        Objects[obj_list[i]].flags |= OF_SHOULD_BE_DEAD;
                }
        }

        if (!num_to_free){
                return original_num_to_free;
        }

        return original_num_to_free - num_to_free;
}



float get_shield_strength(object *objp)
{
        int     i;
        float   strength;

        strength = 0.0f;

        // no shield system, no strength!
        if ( objp->flags & OF_NO_SHIELDS ){
                return strength;
        }

        for (i=0; i<MAX_SHIELD_SECTIONS; i++){
                strength += objp->shields[i];
        }

        return strength;
}

void set_shield_strength(object *objp, float strength)
{
        int     i;

        if ( (strength - Ship_info[Ships[objp->instance].ship_info_index].shields) > 0.1 ){
                Int3();
        }

        for (i=0; i<MAX_SHIELD_SECTIONS; i++){
                objp->shields[i] = strength/MAX_SHIELD_SECTIONS;
        }
}

//      Recharge whole shield.
//      Apply delta/MAX_SHIELD_SECTIONS to each shield section.
void add_shield_strength(object *objp, float delta)
{
        int     i;
        float   section_max;

        section_max = Ship_info[Ships[objp->instance].ship_info_index].shields/MAX_SHIELD_SECTIONS;

        for (i=0; i<MAX_SHIELD_SECTIONS; i++) {
                objp->shields[i] += delta/MAX_SHIELD_SECTIONS;
                if (objp->shields[i] > section_max)
                        objp->shields[i] = section_max;
                else if (objp->shields[i] < 0.0f)
                        objp->shields[i] = 0.0f;
        }

}

//sets up the free list & init player & whatever else
void obj_init()
{
        int i, idx;
        object *objp;
        
        Object_inited = 1;
        memset( Objects, 0, sizeof(object)*MAX_OBJECTS );
        Viewer_obj = NULL;

        list_init( &obj_free_list );
        list_init( &obj_used_list );
        list_init( &obj_create_list );

        // Link all object slots into the free list
        objp = Objects;
        for (i=0; i<MAX_OBJECTS; i++)   {
                objp->type = OBJ_NONE;
                objp->signature = i + 100;

                // zero all object sounds
                for(idx=0; idx<MAX_OBJECT_SOUNDS; idx++){
                        objp->objsnd_num[idx] = -1;
                }
                
                list_append(&obj_free_list, objp);
                objp++;
        }

        Object_next_signature = 1;      //0 is invalid, others start at 1
        Object_next_ship_signature = OBJECT_SIG_SHIP_START;
        num_objects = 0;                        
        Highest_object_index = 0;

        obj_reset_pairs();
}

int     num_objects_hwm = 0;

//returns the number of a free object, updating Highest_object_index.
//Generally, obj_create() should be called to get an object, since it
//fills in important fields and does the linking.
//returns -1 if no free objects
int obj_allocate(void)
{
        int objnum;
        object *objp;

        if (!Object_inited) obj_init();

        if ( num_objects >= MAX_OBJECTS-10 ) {
                int     num_freed;

                num_freed = free_object_slots(MAX_OBJECTS-10);
                nprintf(("warning", " *** Freed %i objects\n", num_freed));
        }

        if (num_objects >= MAX_OBJECTS) {
                #ifndef NDEBUG
                mprintf(("Object creation failed - too many objects!\n" ));
                #endif
                return -1;
        }

        // Find next available object
        objp = GET_FIRST(&obj_free_list);
        SDL_assert ( objp != &obj_free_list );          // shouldn't have the dummy element

        // remove objp from the free list
        list_remove( &obj_free_list, objp );
        
        // insert objp onto the end of create list
        list_append( &obj_create_list, objp );

        // increment counter
        num_objects++;

        if (num_objects > num_objects_hwm) {
                //nprintf(("AI", "*** MAX Num Objects = %i\n", num_objects));
                num_objects_hwm = num_objects;
        }

        // get objnum
        objnum = OBJ_INDEX(objp);

        if (objnum > Highest_object_index) {
                Highest_object_index = objnum;
                if (Highest_object_index > Highest_ever_object_index)
                        Highest_ever_object_index = Highest_object_index;
        }

        return objnum;
}

//frees up an object.  Generally, obj_delete() should be called to get
//rid of an object.  This function deallocates the object entry after
//the object has been unlinked
void obj_free(int objnum)
{
        object *objp;

        if (!Object_inited) obj_init();

        SDL_assert( objnum >= 0 );      // Trying to free bogus object!!!

        // get object pointer
        objp = &Objects[objnum];

        // remove objp from the used list
        list_remove( &obj_used_list, objp);

        // add objp to the end of the free
        list_append( &obj_free_list, objp );

        // decrement counter
        num_objects--;

        Objects[objnum].type = OBJ_NONE;

        SDL_assert(num_objects >= 0);

        if (objnum == Highest_object_index)
                while (Objects[--Highest_object_index].type == OBJ_NONE);

}

//initialize a new object.  adds to the list for the given segment.
//returns the object number.  The object will be a non-rendering, non-physics
//object.   Pass -1 if no parent.
int obj_create(ubyte type,int parent_obj,int instance, matrix * orient, 
               vector * pos, float radius, uint flags )
{
        int objnum,idx;
        object *obj;

        // Find next free object
        objnum = obj_allocate();

        if (objnum == -1)               //no free objects
                return -1;

        obj = &Objects[objnum];
        SDL_assert(obj->type == OBJ_NONE);              //make sure unused 

        // Zero out object structure to keep weird bugs from happening
        // in uninitialized fields.
//      memset( obj, 0, sizeof(object) );

        if(obj->type == OBJ_SHIP){
                obj->signature                          = Object_next_ship_signature++;

                if (!Object_next_ship_signature){
                        Object_next_ship_signature = OBJECT_SIG_SHIP_START;             // 0 is bogus!
                }
        } else {
                obj->signature                          = Object_next_signature++;

                if (!Object_next_signature){
                        Object_next_signature = 1;              // 0 is bogus!
                }
        }       
        
        obj->type                                       = type;
        obj->instance                           = instance;
        obj->parent                                     = parent_obj;
        if (obj->parent != -1)  {
                obj->parent_sig         = Objects[parent_obj].signature;
                obj->parent_type                = Objects[parent_obj].type;
        } else {
                obj->parent_sig = obj->signature;
                obj->parent_type = obj->type;
        }

        obj->flags                                      = flags | OF_NOT_IN_COLL;
        if (pos)        {
                obj->pos                                = *pos;
                obj->last_pos                   = *pos;
        }

        obj->orient                             = orient?*orient:vmd_identity_matrix;
        obj->last_orient                        = obj->orient;
        obj->radius                             = radius;

        obj->flags &= ~OF_INVULNERABLE;         //      Make vulnerable.
        physics_init( &obj->phys_info );

        for(idx=0; idx<MAX_OBJECT_SOUNDS; idx++){
                obj->objsnd_num[idx] = -1;
        }
        obj->num_pairs = 0;
        obj->net_signature = 0;                 // be sure to reset this value so new objects don't take on old signatures.     

        return objnum;
}

//remove object from the world
//      If Player_obj, don't remove it!
void obj_delete(int objnum)
{
        object *objp;

        SDL_assert(objnum >= 0 && objnum < MAX_OBJECTS);
        objp = &Objects[objnum];
        SDL_assert(objp->type != OBJ_NONE);     

        // Remove all object pairs
        obj_remove_pairs( objp );
        
        switch( objp->type )    {
        case OBJ_WEAPON:
                weapon_delete( objp );
                break;
        case OBJ_SHIP:
                if ((objp == Player_obj) && !Fred_running) {
                        objp->type = OBJ_GHOST;
                        objp->flags &= ~(OF_SHOULD_BE_DEAD);
                        
                        // we have to traverse the ship_obj list and remove this guy from it as well
                        ship_obj *moveup = GET_FIRST(&Ship_obj_list);
                        while(moveup != END_OF_LIST(&Ship_obj_list)){
                                if(OBJ_INDEX(objp) == moveup->objnum){
                                        list_remove(&Ship_obj_list,moveup);
                                        break;
                                }
                                moveup = GET_NEXT(moveup);
                        }

                        physics_init(&objp->phys_info);
                        
                        obj_snd_delete(OBJ_INDEX(objp));
                        return;
                } else
                        ship_delete( objp );
                break;
        case OBJ_FIREBALL:
                fireball_delete( objp );
                break;
        case OBJ_SHOCKWAVE:
                shockwave_delete( objp );
                break;
        case OBJ_START:
        case OBJ_WAYPOINT:
        case OBJ_POINT:
        case OBJ_JUMP_NODE:
                SDL_assert(Fred_running);
                break;  // requires no action, handled by the Fred code.
        case OBJ_DEBRIS:
                debris_delete( objp );
                break;
        case OBJ_ASTEROID:
                asteroid_delete(objp);
                break;
        case OBJ_CMEASURE:
                cmeasure_delete( objp );
                break;
        case OBJ_GHOST:
                if((!Game_mode & GM_MULTIPLAYER)){
                        mprintf(("Warning: Tried to delete a ghost!"));
                        objp->flags &= ~OF_SHOULD_BE_DEAD;
                        return;
                } else {
                        // we need to be able to delete GHOST objects in multiplayer to allow for player respawns.
                        nprintf(("Network","Deleting GHOST object\n"));
                }               
                break;
        case OBJ_OBSERVER:
                observer_delete(objp);
                break;  
        case OBJ_BEAM:
                break;
        case OBJ_NONE:
                Int3();
                break;
        default:
                Error( LOCATION, "Unhandled object type %d in obj_delete_all_that_should_be_dead", objp->type );
        }

        // if a persistant sound has been created, delete it
        obj_snd_delete(OBJ_INDEX(objp));                

        objp->type = OBJ_NONE;          //unused!
        objp->signature = 0;            

        obj_free(objnum);
}


//      ------------------------------------------------------------------------------------------------------------------
void obj_delete_all_that_should_be_dead()
{
        object *objp, *temp;

        if (!Object_inited) obj_init();

        // Move all objects
        objp = GET_FIRST(&obj_used_list);
        while( objp !=END_OF_LIST(&obj_used_list) )     {
                temp = GET_NEXT(objp);
                if ( objp->flags&OF_SHOULD_BE_DEAD )
                        obj_delete( OBJ_INDEX(objp) );                  // MWA says that john says that let obj_delete handle everything because of the editor
                objp = temp;
        }

}

// Add all newly created objects to the end of the used list and create their
// object pairs for collision detection
void obj_merge_created_list(void)
{
        // The old way just merged the two.   This code takes one out of the create list,
        // creates object pairs for it, and then adds it to the used list.
        //      OLD WAY: list_merge( &obj_used_list, &obj_create_list );
        object *objp = GET_FIRST(&obj_create_list);
        while( objp !=END_OF_LIST(&obj_create_list) )   {
                list_remove( obj_create_list, objp );

                // Add it to the object pairs array
                obj_add_pairs(OBJ_INDEX(objp));

                // Then add it to the object used list
                list_append( &obj_used_list, objp );

                objp = GET_FIRST(&obj_create_list);
        }

        // Make sure the create list is empty.
        list_init(&obj_create_list);
}

int physics_paused = 0, ai_paused = 0;

extern void call_doa(object *obj1, object *obj2, ship_info *sip1);

//      If this is a cargo container or a repair ship, move it along with the ship it's docked to.
void move_docked_objects(object *objp)
{
        ai_info         *aip;
        ai_info *other_aip;

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

        SDL_assert((objp->instance >= 0) && (objp->instance < MAX_SHIPS));

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

        if (aip->ai_flags & AIF_DOCKED) {
                ship_info       *sip;
                sip = &Ship_info[Ships[objp->instance].ship_info_index];
                if ((sip->flags & SIF_SUPPORT) || (sip->flags & SIF_CARGO)) {
                        SDL_assert(!((sip->flags & SIF_SUPPORT) && (sip->flags & SIF_CARGO)));  //      Ship can't be both repair and cargo
                        if (aip->dock_objnum != -1) {
                                if (aip->mode == AIM_DOCK) {
                                        if (aip->submode < AIS_UNDOCK_1)
                                                call_doa(objp, &Objects[aip->dock_objnum], sip);
                                } else {
                                        // if I am not in dock mode then I need to check the guy that I'm docked with
                                        // and only move with him if he isn't undocking.
                                        other_aip = &Ai_info[Ships[Objects[aip->dock_objnum].instance].ai_index];
                                        if ( other_aip->mode == AIM_DOCK ) {
                                                if (other_aip->submode < AIS_UNDOCK_1 )
                                                        call_doa(objp, &Objects[aip->dock_objnum], sip);
                                        } else {
                                                call_doa(objp, &Objects[aip->dock_objnum], sip);
                                        }
                                }
                        }
                } else {
                        if (aip->dock_objnum != -1) {
                                SDL_assert( aip->dock_objnum != -1 );
                                other_aip = &Ai_info[Ships[Objects[aip->dock_objnum].instance].ai_index];

                                // if the other object that I am docked with is undocking, then don't do anything.
                                if ( !((other_aip->mode == AIM_DOCK) && (other_aip->submode >= AIS_UNDOCK_1)) ) {
                                        if ( (aip->mode != AIM_DOCK) && (aip->mode != AIM_WARP_OUT) ) {
                                                object  *objp1, *objp2;

                                                objp1 = &Objects[aip->dock_objnum];
                                                objp2 = objp;

                                                if (objp1->phys_info.speed > objp2->phys_info.speed) {
                                                        object *t = objp1;
                                                        objp1 = objp2;
                                                        objp2 = t;
                                                }

                                                //nprintf(("AI", "Calling doa, frame %i: %s, %s\n", Framecount, Ships[objp1->instance].ship_name, Ships[objp2->instance].ship_name));
                                                call_doa(objp1, objp2, sip);
                                        }
                                }
                        }
                }
        }
}

/*
float   Last_fire_time = 0.0f;
int Avg_delay_count = 0;
float Avg_delay_total;
*/

// function to deal with firing player things like lasers, missiles, etc.
// separated out because of multiplayer issues.
void obj_player_fire_stuff( object *objp, control_info ci )
{
        ship *shipp;

        SDL_assert( objp->flags & OF_PLAYER_SHIP);

        // try and get the ship pointer
        shipp = NULL;
        if((objp->type == OBJ_SHIP) && (objp->instance >= 0) && (objp->instance < MAX_SHIPS)){
                shipp = &Ships[objp->instance];
        }

        // single player pilots, and all players in multiplayer take care of firing their own primaries
        if(!(Game_mode & GM_MULTIPLAYER) || (objp == Player_obj)){
                if ( ci.fire_primary_count ) {
                        // flag the ship as having the trigger down
                        if(shipp != NULL){
                                shipp->flags |= SF_TRIGGER_DOWN;
                        }

                        // fire non-streaming primaries here
                        ship_fire_primary( objp, 0 );                   
                } else {
                        // unflag the ship as having the trigger down
                        if(shipp != NULL){
                                shipp->flags &= ~(SF_TRIGGER_DOWN);
                        }
                }

                if ( ci.fire_countermeasure_count ){
                        ship_launch_countermeasure( objp );
                }
        }

        // single player and multiplayer masters do all of the following
        if ( !MULTIPLAYER_CLIENT ) {            
                if ( ci.fire_secondary_count ){
                        ship_fire_secondary( objp );

                        // kill the secondary count
                        ci.fire_secondary_count = 0;
                }
        }

        // everyone does the following for their own ships.
        if ( ci.afterburner_start ){
                if (ship_get_subsystem_strength(&Ships[objp->instance], SUBSYSTEM_ENGINE)){
                        afterburners_start( objp );
                }
        }
        
        if ( ci.afterburner_stop ){
                afterburners_stop( objp, 1 );
        }
}

void obj_move_call_physics(object *objp, float frametime)
{
        //      Do physics for objects with OF_PHYSICS flag set and with some engine strength remaining.
        if ( objp->flags & OF_PHYSICS ) {
                // only set phys info if ship is not dead
                if ((objp->type == OBJ_SHIP) && !(Ships[objp->instance].flags & SF_DYING)) {
                        float   engine_strength;
                        engine_strength = ship_get_subsystem_strength(&Ships[objp->instance], SUBSYSTEM_ENGINE);
                        if ( ship_subsys_disrupted(&Ships[objp->instance], SUBSYSTEM_ENGINE) ) {
                                engine_strength=0.0f;
                        }

                        if (engine_strength == 0.0f) {  //      All this is necessary to make ship gradually come to a stop after engines are blown.
                                vm_vec_zero(&objp->phys_info.desired_vel);
                                vm_vec_zero(&objp->phys_info.desired_rotvel);
                                objp->phys_info.flags |= (PF_REDUCED_DAMP | PF_DEAD_DAMP);
                                objp->phys_info.side_slip_time_const = Ship_info[Ships[objp->instance].ship_info_index].damp * 4.0f;
                        } // else {
                                // DA: comment out lines that resets PF_DEAD_DAMP after every frame.
                                // This is now reset during engine repair.
                                //      objp->phys_info.flags &= ~(PF_REDUCED_DAMP | PF_DEAD_DAMP);
                                // objp->phys_info.side_slip_time_const = Ship_info[Ships[objp->instance].ship_info_index].damp;
                        // }
                }

                // if a weapon is flagged as dead, kill its engines just like a ship
                if((objp->type == OBJ_WEAPON) && (Weapons[objp->instance].weapon_flags & WF_DEAD_IN_WATER)){
                        vm_vec_zero(&objp->phys_info.desired_vel);
                        vm_vec_zero(&objp->phys_info.desired_rotvel);
                        objp->phys_info.flags |= (PF_REDUCED_DAMP | PF_DEAD_DAMP);
                        objp->phys_info.side_slip_time_const = Ship_info[Ships[objp->instance].ship_info_index].damp * 4.0f;
                }

                if (physics_paused)     {
                        if (objp==Player_obj){
                                physics_sim(&objp->pos, &objp->orient, &objp->phys_info, frametime );           // simulate the physics
                        }
                } else {
                        //      Hack for dock mode.
                        //      If docking with a ship, we don't obey the normal ship physics, we can slew about.
                        if (objp->type == OBJ_SHIP) {
                                ai_info *aip = &Ai_info[Ships[objp->instance].ai_index];

                                //      Note: This conditional for using PF_USE_VEL (instantaneous acceleration) is probably too loose.
                                //      A ships awaiting support will fly towards the support ship with instantaneous acceleration.
                                //      But we want to have ships in the process of docking have quick acceleration, or they overshoot their goals.
                                //      Probably can not key off dock_objnum, but then need to add some other condition.  Live with it for now. -- MK, 2/19/98
                                if ((aip->dock_objnum != -1) || 
                                        ((aip->mode == AIM_DOCK) && ((aip->submode == AIS_DOCK_2) || (aip->submode == AIS_DOCK_3) || (aip->submode == AIS_UNDOCK_0))) ||
                                        ((aip->mode == AIM_WARP_OUT) && (aip->submode >= AIS_WARP_3))) {
                                        if (ship_get_subsystem_strength(&Ships[objp->instance], SUBSYSTEM_ENGINE) > 0.0f){
                                                objp->phys_info.flags |= PF_USE_VEL;
                                        } else {
                                                objp->phys_info.flags &= ~PF_USE_VEL;   //      If engine blown, don't PF_USE_VEL, or ships stop immediately
                                        }
                                } else {
                                        objp->phys_info.flags &= ~PF_USE_VEL;
                                }
                        }                       

                        // in multiplayer, if this object was just updatd (i.e. clients send their own positions),
                        // then reset the flag and don't move the object.
                        if ( MULTIPLAYER_MASTER && (objp->flags & OF_JUST_UPDATED) ) {
                                objp->flags &= ~OF_JUST_UPDATED;
                                goto obj_maybe_fire;
                        }

                        physics_sim(&objp->pos, &objp->orient, &objp->phys_info, frametime );           // simulate the physics

                        // This code seems to have no effect - DB 1/12/99
                        //if ( MULTIPLAYER_CLIENT && (objp != Player_obj) ){
                        //      return;
                        //}

                        // if the object is the player object, do things that need to be done after the ship
                        // is moved (like firing weapons, etc).  This routine will get called either single
                        // or multiplayer.  We must find the player object to get to the control info field
obj_maybe_fire:
                        if ( (objp->flags & OF_PLAYER_SHIP) && (objp->type != OBJ_OBSERVER) && (objp == Player_obj)) {
                                player *pp;
                                if(Player != NULL){
                                        pp = Player;
                                        obj_player_fire_stuff( objp, pp->ci );                          
                                }
                        }

                        // fire streaming weapons for ships in here - ALL PLAYERS, regardless of client, single player, server, whatever.
                        // do stream weapon firing for all ships themselves. 
                        if(objp->type == OBJ_SHIP){
                                ship_fire_primary(objp, 1, 0);
                        }
                }
        }
}


#define IMPORTANT_FLAGS (OF_COLLIDES)

#ifdef OBJECT_CHECK 


void obj_check_object( object *obj )
{
        int objnum = OBJ_INDEX(obj);

        // PROGRAMMERS: If one of these Int3() gets hit, then someone
        // is changing a value in the object structure that might cause
        // collision detection to not work.  See John for more info if
        // you are hitting one of these.

        if ( CheckObjects[objnum].type != obj->type )   {
                if ( (obj->type==OBJ_WAYPOINT) && (CheckObjects[objnum].type==OBJ_SHIP) )       {
                        // We know about ships changing into waypoints and that is
                        // ok.
                        CheckObjects[objnum].type = OBJ_WAYPOINT;
                 } else if ( (obj->type==OBJ_SHIP) && (CheckObjects[objnum].type==OBJ_GHOST) )  {
                        // We know about player changing into a ghost after dying and that is
                        // ok.
                        CheckObjects[objnum].type = OBJ_GHOST;
                } else if ( (obj->type==OBJ_GHOST) && (CheckObjects[objnum].type==OBJ_SHIP) )   {
                        // We know about player changing into a ghost after dying and that is
                        // ok.
                        CheckObjects[objnum].type = OBJ_SHIP;
                } else {
                        mprintf(( "Object type changed!\n" ));
                        Int3();
                }
        }
        if ( CheckObjects[objnum].signature != obj->signature ) {
                mprintf(( "Object signature changed!\n" ));
                Int3();
        }
        if ( (CheckObjects[objnum].flags&IMPORTANT_FLAGS) != (obj->flags&IMPORTANT_FLAGS) ) {
                mprintf(( "Object flags changed!\n" ));
                Int3();
        }
        if ( CheckObjects[objnum].parent_sig != obj->parent_sig ) {
                mprintf(( "Object parent sig changed!\n" ));
                Int3();
        }
        if ( CheckObjects[objnum].parent_type != obj->parent_type ) {
                mprintf(( "Object's parent type changed!\n" ));
                Int3();
        }
}
#endif

// Call this if you want to change an object flag so that the
// object code knows what's going on.  For instance if you turn
// off OF_COLLIDES, the object code needs to know this in order to
// actually turn the object collision detection off.  By calling
// this you shouldn't get Int3's in the checkobject code.  If you
// do, then put code in here to correctly handle the case.
void obj_set_flags( object *obj, uint new_flags )
{
        int objnum = OBJ_INDEX(obj);    

        // turning collision detection off
        if ( (obj->flags & OF_COLLIDES) && (!(new_flags&OF_COLLIDES)))  {               
                // Remove all object pairs
                obj_remove_pairs( obj );

                // update object flags properly         
                obj->flags = new_flags;
                obj->flags |= OF_NOT_IN_COLL;           
#ifdef OBJECT_CHECK
                CheckObjects[objnum].flags = new_flags;
                CheckObjects[objnum].flags |= OF_NOT_IN_COLL;           
#endif          
                return;
        }
        
        
        // turning collision detection on
        if ( (!(obj->flags & OF_COLLIDES)) && (new_flags&OF_COLLIDES) ) {
                
                // observers can't collide or be hit, and they therefore have no hit or collide functions
                // So, don't allow this bit to be set
                if(obj->type == OBJ_OBSERVER){
                        mprintf(("Illegal to set collision bit for OBJ_OBSERVER!!\n"));
                        Int3();
                }

                obj->flags |= OF_COLLIDES;

                // Turn on collision detection
                obj_add_pairs(objnum);
                                
                obj->flags = new_flags;
                obj->flags &= ~(OF_NOT_IN_COLL);                
#ifdef OBJECT_CHECK
                CheckObjects[objnum].flags = new_flags;
                CheckObjects[objnum].flags &= ~(OF_NOT_IN_COLL);                
#endif
                return;
        }

        // for a multiplayer host -- use this debug code to help trap when non-player ships are getting
        // marked as OF_COULD_BE_PLAYER
        // this code is pretty much debug code and shouldn't be relied on to always do the right thing
        // for flags other than 
        if ( MULTIPLAYER_MASTER && !(obj->flags & OF_COULD_BE_PLAYER) && (new_flags & OF_COULD_BE_PLAYER) ) {
                ship *shipp;
                int team, slot;

                // this flag sometimes gets set for observers.
                if ( obj->type == OBJ_OBSERVER ) {
                        return;
                }

                // sanity checks
                if ( (obj->type != OBJ_SHIP) || (obj->instance < 0) ) {
                        // Int3();
                        return;                         // return because we really don't want to set the flag
                }

                // see if this ship is really a player ship (or should be)
                shipp = &Ships[obj->instance];
                extern void multi_ts_get_team_and_slot(char *, int *, int *);
                multi_ts_get_team_and_slot(shipp->ship_name,&team,&slot);
                if ( (shipp->wingnum == -1) || (team == -1) || (slot==-1) ) {
                        Int3();
                        return;
                }

                // set the flag
                obj->flags = new_flags;
#ifdef OBJECT_CHECK
                CheckObjects[objnum].flags = new_flags;
#endif

                return;
        }

        // Check for unhandled flag changing
        if ( (new_flags&IMPORTANT_FLAGS) != (obj->flags&IMPORTANT_FLAGS) ) {
                mprintf(( "Unhandled flag changing in obj_set_flags!!\n" ));
                mprintf(( "Add code to support it, see John for questions!!\n" ));
                Int3();
        } else {
                // Since it wasn't an important flag, just bash it.
                obj->flags = new_flags;
                #ifdef OBJECT_CHECK 
                CheckObjects[objnum].flags = new_flags;
                #endif
        }       
}


void obj_move_all_pre(object *objp, float frametime)
{
        switch( objp->type )    {
        case OBJ_WEAPON:
                if (!physics_paused){
                        weapon_process_pre( objp, frametime );
                }
                break;  
        case OBJ_SHIP:
                if (!physics_paused || (objp==Player_obj )){
                        ship_process_pre( objp, frametime );
                }
                break;
        case OBJ_FIREBALL:
                if (!physics_paused){
                        fireball_process_pre(objp,frametime);
                }
                break;
        case OBJ_SHOCKWAVE:
                // all shockwaves are moved via shockwave_move_all()
                break;
        case OBJ_DEBRIS:
                if (!physics_paused){
                        debris_process_pre(objp,frametime);
                }
                break;
        case OBJ_ASTEROID:
                if (!physics_paused){
                        asteroid_process_pre(objp,frametime);
                }
                break;
        case OBJ_CMEASURE:
                if (!physics_paused){
                        cmeasure_process_pre(objp, frametime);
                }
                break;
        case OBJ_WAYPOINT:
                break;  // waypoints don't move..
        case OBJ_GHOST:
                break;
        case OBJ_OBSERVER:
        case OBJ_JUMP_NODE:     
                break;  
        case OBJ_BEAM:          
                break;
        case OBJ_NONE:
                Int3();
                break;
        default:
                Error( LOCATION, "Unhandled object type %d in obj_move_one\n", objp->type );
        }       
}

// Used to tell if a particular group of lasers has cast light yet.
ubyte Obj_weapon_group_id_used[WEAPON_MAX_GROUP_IDS];

// Called once a frame to mark all weapon groups as not having cast light yet.
void obj_clear_weapon_group_id_list()
{
        memset( Obj_weapon_group_id_used, 0, sizeof(Obj_weapon_group_id_used) );
}

int Arc_light = 1;              // If set, electrical arcs on debris cast light
DCF_BOOL(arc_light, Arc_light)  

void obj_move_all_post(object *objp, float frametime)
{
        switch( objp->type )    {
        case OBJ_WEAPON:
                if (!physics_paused)    {
                        weapon_process_post( objp, frametime );
                }
                // Cast light
                if ( Detail.lighting > 2 ) {
                        // Weapons cast light

                        int group_id = Weapons[objp->instance].group_id;
                        int cast_light = 1;

                        if ( (group_id>-1) && (Obj_weapon_group_id_used[group_id]==0) ) {
                                // Mark this group as done
                                Obj_weapon_group_id_used[group_id]++;
                        } else {
                                // This group has already done its light casting
                                cast_light = 0;
                        }

                        if ( cast_light )       {
                                weapon_info * wi = &Weapon_info[Weapons[objp->instance].weapon_info_index];

                                if ( wi->render_type == WRT_LASER )     {
                                        color c;
                                        float r,g,b;

                                        // get the laser color
                                        weapon_get_laser_color(&c, objp);

                                        r = i2fl(c.red)/255.0f;
                                        g = i2fl(c.green)/255.0f;
                                        b = i2fl(c.blue)/255.0f;
                                        light_add_point( &objp->pos, 10.0f, 20.0f, 1.0f, r, g, b, objp->parent );
                                        //light_add_point( &objp->pos, 10.0f, 20.0f, 1.0f, 0.0f, 0.0f, 1.0f, objp->parent );
                                } else {
                                        light_add_point( &objp->pos, 10.0f, 20.0f, 1.0f, 1.0f, 1.0f, 1.0f, objp->parent );
                                }
                        }
                }
                break;  
        case OBJ_SHIP:
                if (!physics_paused || (objp==Player_obj ))
                        ship_process_post( objp, frametime );

                // Make any electrical arcs on ships cast light
                if (Arc_light)  {
                        if ( Detail.lighting > 2 ) {
                                int i;
                                ship            *shipp;
                                shipp = &Ships[objp->instance];

                                for (i=0; i<MAX_SHIP_ARCS; i++ )        {
                                        if ( timestamp_valid( shipp->arc_timestamp[i] ) )       {
                                                // Move arc endpoints into world coordinates    
                                                vector tmp1, tmp2;
                                                vm_vec_unrotate(&tmp1,&shipp->arc_pts[i][0],&objp->orient);
                                                vm_vec_add2(&tmp1,&objp->pos);

                                                vm_vec_unrotate(&tmp2,&shipp->arc_pts[i][1],&objp->orient);
                                                vm_vec_add2(&tmp2,&objp->pos);

                                                light_add_point( &tmp1, 10.0f, 20.0f, frand(), 1.0f, 1.0f, 1.0f, -1 );
                                                light_add_point( &tmp2, 10.0f, 20.0f, frand(), 1.0f, 1.0f, 1.0f, -1 );
                                        }
                                }
                        }
                }               

                break;
        case OBJ_FIREBALL:
                if (!physics_paused)    {
                        fireball_process_post(objp,frametime);
                }
                if ( Detail.lighting > 3 ) {
                        // Make explosions cast light
                        float p = fireball_lifeleft_percent(objp);
                        if ( p > 0.5f ) {
                                p = 1.0f - p;
                        }
                        p *= 2.0f;
                        // P goes from 0 to 1 to 0 over the life of the explosion
                        float rad = p*(1.0f+frand()*0.05f)*objp->radius;

                        light_add_point( &objp->pos, rad*2.0f, rad*5.0f, 1.0f, 1.0f, 1.0f, 1.0f, -1 );
                }
                break;
        case OBJ_SHOCKWAVE:
                // all shockwaves are moved via shockwave_move_all()
                break;
        case OBJ_DEBRIS:
                if (!physics_paused)
                        debris_process_post(objp,frametime);

                // Make any electrical arcs on debris cast light
                if (Arc_light)  {
                        if ( Detail.lighting > 2 ) {
                                int i;
                                debris          *db;
                                db = &Debris[objp->instance];

                                for (i=0; i<MAX_DEBRIS_ARCS; i++ )      {
                                        if ( timestamp_valid( db->arc_timestamp[i] ) )  {
                                                // Move arc endpoints into world coordinates    
                                                vector tmp1, tmp2;
                                                vm_vec_unrotate(&tmp1,&db->arc_pts[i][0],&objp->orient);
                                                vm_vec_add2(&tmp1,&objp->pos);

                                                vm_vec_unrotate(&tmp2,&db->arc_pts[i][1],&objp->orient);
                                                vm_vec_add2(&tmp2,&objp->pos);

                                                light_add_point( &tmp1, 10.0f, 20.0f, frand(), 1.0f, 1.0f, 1.0f, -1 );
                                                light_add_point( &tmp2, 10.0f, 20.0f, frand(), 1.0f, 1.0f, 1.0f, -1 );
                                        }
                                }
                        }
                }               
                break;
        case OBJ_ASTEROID:
                if (!physics_paused)
                        asteroid_process_post(objp, frametime);
                break;
        case OBJ_CMEASURE:
                if (!physics_paused)
                        cmeasure_process_post(objp, frametime);
                break;
        case OBJ_WAYPOINT:
                break;  // waypoints don't move..
        case OBJ_GHOST:
                break;
        case OBJ_OBSERVER:
                void observer_process_post(object *objp);
                observer_process_post(objp);
                break;
        case OBJ_JUMP_NODE:
                radar_plot_object(objp);
                break;  
        case OBJ_BEAM:          
                break;
        case OBJ_NONE:
                Int3();
                break;
        default:
                Error( LOCATION, "Unhandled object type %d in obj_move_one\n", objp->type );
        }       
}


int Collisions_enabled = 1;

DCF_BOOL( collisions, Collisions_enabled )

MONITOR( NumObjects );  

//--------------------------------------------------------------------
//move all objects for the current frame
void obj_move_all(float frametime)
{
        object *objp;   

        obj_delete_all_that_should_be_dead();

        obj_merge_created_list();

        // Clear the table that tells which groups of weapons have cast light so far.
        if(!(Game_mode & GM_MULTIPLAYER) || (MULTIPLAYER_MASTER)){
                obj_clear_weapon_group_id_list();
        }

        MONITOR_INC( NumObjects, num_objects ); 

        objp = GET_FIRST(&obj_used_list);
        while( objp !=END_OF_LIST(&obj_used_list) )     {
                // skip objects which should be dead
                if ( !(objp->flags&OF_SHOULD_BE_DEAD) ) {               
                        vector  cur_pos = objp->pos;                    // Save the current position

                        // if this is an observer object, skip it
                        if(objp->type == OBJ_OBSERVER){
                                objp = GET_NEXT(objp);
                                continue;
                        }

                        // if we're playing a demo back, only sim stuff that we're supposed to
                        if((Game_mode & GM_DEMO_PLAYBACK) && !demo_should_sim(objp)){
                                objp = GET_NEXT(objp);
                                continue;
                        }

#ifdef OBJECT_CHECK 
                        // if(! ((Game_mode & GM_MULTIPLAYER) && (Net_player != NULL) && !(Net_player->flags & NETINFO_FLAG_AM_MASTER)) ){
                                obj_check_object( objp );
                        // }
#endif

                        // pre-move
                        obj_move_all_pre(objp, frametime);

                        // store last pos and orient
                        objp->last_pos = cur_pos;
                        objp->last_orient = objp->orient;

                        // if this is an object which should be interpolated in multiplayer, do so
                        if(multi_oo_is_interp_object(objp)){
                                multi_oo_interp(objp);
                        } else {
                                // physics
                                obj_move_call_physics(objp, frametime);
                        }

                        // move post
                        obj_move_all_post(objp, frametime);
                }
                objp = GET_NEXT(objp);
        }

        //      After all objects have been moved, move all docked objects.
        if(!(Game_mode & GM_DEMO_PLAYBACK)){
                objp = GET_FIRST(&obj_used_list);
                while( objp !=END_OF_LIST(&obj_used_list) )     {
                        if (objp->type == OBJ_SHIP){
                                move_docked_objects(objp);
                        }

                        // unflag all objects as being updates
                        objp->flags &= ~OF_JUST_UPDATED;

                        objp = GET_NEXT(objp);
                }
        }

        // Now that all objects have moved, we should calculate the
        // velocities from how far they moved.
        // DA: Commented out 2/23, unnecessary since colliding objects calculate their post collision velocities through physics.
        /*
        objp = GET_FIRST(&obj_used_list);
        while( objp !=END_OF_LIST(&obj_used_list) )     {
                if ( !(objp->flags&OF_SHOULD_BE_DEAD) && (objp->type != OBJ_OBSERVER) && (objp->type != OBJ_ASTEROID) && (objp->type != OBJ_DEBRIS))    {
                        objp->phys_info.vel.x = (objp->pos.x - objp->last_pos.x) / frametime;
                        objp->phys_info.vel.y = (objp->pos.y - objp->last_pos.y) / frametime;
                        objp->phys_info.vel.z = (objp->pos.z - objp->last_pos.z) / frametime;
                }
                objp = GET_NEXT(objp);
        } */

        if(!(Game_mode & GM_DEMO_PLAYBACK)){
                find_homing_object_cmeasures(); //      If any cmeasures fired, maybe steer away homing missiles        
        }

        // do pre-collision stuff for beam weapons
        beam_move_all_pre();

        if ( Collisions_enabled )       {
                obj_check_all_collisions();             
        }

        if(!(Game_mode & GM_DEMO_PLAYBACK)){
                turret_swarm_check_validity();
        }

        // do post-collision stuff for beam weapons
        beam_move_all_post();

        // update artillery locking info now
        ship_update_artillery_lock();
}


MONITOR( NumObjectsRend );      

// -----------------------------------------------------------------------------
//      Render an object.  Calls one of several routines based on type
void obj_render(object *obj)
{
        if ( obj->flags & OF_SHOULD_BE_DEAD ) return;
//      if ( obj == Viewer_obj ) return;

        MONITOR_INC( NumObjectsRend, 1 );       

        switch( obj->type )     {
        case OBJ_NONE:
                #ifndef NDEBUG
                mprintf(( "ERROR!!!! Bogus obj %d is rendering!\n", obj-Objects ));
                Int3();
                #endif
                break;
        case OBJ_WEAPON:
                weapon_render(obj);
                break;
        case OBJ_SHIP:
                ship_render(obj);
                break;
        case OBJ_FIREBALL:
                fireball_render(obj);
                break;
        case OBJ_SHOCKWAVE:
                shockwave_render(obj);
                break;
        case OBJ_DEBRIS:
                debris_render(obj);
                break;
        case OBJ_ASTEROID:
                asteroid_render(obj);
                break;
        case OBJ_CMEASURE:
                cmeasure_render(obj);
                break;
        case OBJ_JUMP_NODE:
                jumpnode_render(obj, &obj->pos, &Eye_position);
                break;
        case OBJ_WAYPOINT:
                if (Show_waypoints)     {
                        //ship_render(obj);
                        gr_set_color( 128, 128, 128 );
                        g3_draw_sphere_ez( &obj->pos, 5.0f );
                }
                break;
        case OBJ_GHOST:
                break;
        case OBJ_BEAM:
                break;
        default:
                Error( LOCATION, "Unhandled obj type %d in obj_render", obj->type );
        }
}

void obj_init_all_ships_physics()
{
        object  *objp;

        for ( objp = GET_FIRST(&obj_used_list); objp !=END_OF_LIST(&obj_used_list); objp = GET_NEXT(objp) ) {
                if (objp->type == OBJ_SHIP)
                        physics_ship_init(objp);
        }

}

// do client-side pre-interpolation object movement
void obj_client_pre_interpolate()
{
        object *objp;
        
        // duh
        obj_delete_all_that_should_be_dead();

        // client side processing of warping in effect stages
        multi_do_client_warp(flFrametime);     
        
        // client side movement of an observer
        if((Net_player->flags & NETINFO_FLAG_OBSERVER) || (Player_obj->type == OBJ_OBSERVER)){
                obj_observer_move(flFrametime);   
        }
        
        // run everything except ships through physics (and ourselves of course)        
        obj_merge_created_list();                                               // must merge any objects created by the host!

        objp = GET_FIRST(&obj_used_list);
        for ( objp = GET_FIRST(&obj_used_list); objp !=END_OF_LIST(&obj_used_list); objp = GET_NEXT(objp) )     {
                if((objp != Player_obj) && (objp->type == OBJ_SHIP)){
                        continue;
                }

                // for all non-dead object which are _not_ ships
                if ( !(objp->flags&OF_SHOULD_BE_DEAD) ) {                               
                        // pre-move step
                        obj_move_all_pre(objp, flFrametime);

                        // store position and orientation
                        objp->last_pos = objp->pos;
                        objp->last_orient = objp->orient;

                        // call physics
                        obj_move_call_physics(objp, flFrametime);

                        // post-move step
                        obj_move_all_post(objp, flFrametime);
                }
        }
}

// do client-side post-interpolation object movement
void obj_client_post_interpolate()
{
        object *objp;

        //      After all objects have been moved, move all docked objects.
        objp = GET_FIRST(&obj_used_list);
        while( objp !=END_OF_LIST(&obj_used_list) )     {
                if ( (objp->type == OBJ_SHIP) || (objp != Player_obj) ) {
                        move_docked_objects(objp);
                }
                objp = GET_NEXT(objp);
        }       

        // check collisions
        obj_check_all_collisions();             

        // do post-collision stuff for beam weapons
        beam_move_all_post();
}

#if 0
// following function is used in multiplayer only.  It deals with simulating objects on the client
// side.  Lasers will always get moved by the client (i.e. no object position info is ever sent for them).
// same for dumb missiles and possibly others.  We might move ships based on the last time their posision
// was updated
void obj_client_simulate(float frametime)
{
        object *objp;

        obj_delete_all_that_should_be_dead();

        multi_do_client_warp(frametime);     // client side processing of warping in effect stages
        
        if(Net_player->flags & NETINFO_FLAG_OBSERVER){
                obj_observer_move(frametime);   // client side movement of an observer
        }

        /*
        obj_merge_created_list();                                               // must merge any objects created by the host!
        objp = GET_FIRST(&obj_used_list);
        for ( objp = GET_FIRST(&obj_used_list); objp !=END_OF_LIST(&obj_used_list); objp = GET_NEXT(objp) )     {

                if ( !(objp->flags&OF_SHOULD_BE_DEAD) ) {
                        vector  cur_pos = objp->pos;                    // Save the current position

                        obj_move_all_pre(objp, frametime);

                        int predict_from_server_pos = 1;

                        // If not visible (or not a ship), bash position
                        if ( (!obj_visible_from_eye(&cur_pos)) || (objp->type != OBJ_SHIP) ) {
                                predict_from_server_pos = 0;
                        }

                        // If this is a player ship, don't predict from server position
                        if ( objp->flags & OF_PLAYER_SHIP ) {
                                predict_from_server_pos = 0;
                        }

                        if ( predict_from_server_pos ) {
                                obj_client_predict_pos(objp, frametime);
                        } else {
                                obj_client_bash_pos(objp, frametime);
                        }

                        obj_move_all_post(objp, frametime);
                }
        }       
        */

        //      After all objects have been moved, move all docked objects.
        objp = GET_FIRST(&obj_used_list);
        while( objp !=END_OF_LIST(&obj_used_list) )     {
                if ( (objp->type == OBJ_SHIP) || (objp != Player_obj) ) {
                        move_docked_objects(objp);
                }
                objp = GET_NEXT(objp);
        }

        obj_check_all_collisions();     
}
#endif

void obj_observer_move(float flFrametime)
{
        object *objp;
        float ft;

        // if i'm not in multiplayer, or not an observer, bail
        if(!(Game_mode & GM_MULTIPLAYER) || (Net_player == NULL) || !(Net_player->flags & NETINFO_FLAG_OBSERVER) || (Player_obj->type != OBJ_OBSERVER)){
                return;
        }

        objp = Player_obj;

        // obj_move_all_pre(objp, flFrametime);

        objp->last_pos = objp->pos;
        objp->last_orient = objp->orient;               // save the orientation -- useful in multiplayer.

        ft = flFrametime;
        obj_move_call_physics( objp, ft );
        obj_move_all_post(objp, flFrametime);
   objp->flags &= ~OF_JUST_UPDATED;
}

// function to return a vector of the average position of all ships in the mission.
void obj_get_average_ship_pos( vector *pos )
{
        int count;
        object *objp;

        vm_vec_zero( pos );

   // average up all ship positions
        count = 0;
        for ( objp = GET_FIRST(&obj_used_list); objp != END_OF_LIST(&obj_used_list); objp = GET_NEXT(objp) ) {
                if ( objp->type != OBJ_SHIP )
                        continue;
                vm_vec_add2( pos, &objp->pos );
                count++;
        }

        if ( count )
                vm_vec_scale( pos, 1.0f/(float)count );
}


int obj_get_SIF(object *objp)
{
        if ((objp->type == OBJ_SHIP) || (objp->type == OBJ_START))
                return Ship_info[Ships[objp->instance].ship_info_index].flags;

        Int3();
        return 0;
}

int obj_get_SIF(int obj)
{
        if ((Objects[obj].type == OBJ_SHIP) || (Objects[obj].type == OBJ_START))
                return Ship_info[Ships[Objects[obj].instance].ship_info_index].flags;

        Int3();
        return 0;
}

// Return the team for the object passed as a parameter
//
//      input:          objp => pointer to object that you want team for
//
// exit:                        success => enumerated team ( TEAM_HOSTILE, TEAM_FRIENDLY, TEAM_NEUTRAL, etc )
//                                      failure => -1 (for objects that don't have teams)
int obj_team(object *objp)
{
        SDL_assert( objp != NULL );
        int team = -1;

        switch ( objp->type ) {
                case OBJ_SHIP:
                        SDL_assert( objp->instance >= 0 && objp->instance < MAX_SHIPS );
                        team = Ships[objp->instance].team;
                        break;

                case OBJ_DEBRIS:
                        team = debris_get_team(objp);
                        SDL_assert(team != -1);
                        break;

                case OBJ_CMEASURE:
                        SDL_assert( objp->instance >= 0 && objp->instance < MAX_CMEASURES);
                        team = Cmeasures[objp->instance].team;
                        break;

                case OBJ_WEAPON:
                        SDL_assert( objp->instance >= 0 && objp->instance < MAX_WEAPONS );
                        team = Weapons[objp->instance].team;
                        break;

                case OBJ_JUMP_NODE:
                        team = Player_ship->team;
                        break;
                                        
                case OBJ_FIREBALL:
                case OBJ_WAYPOINT:
                case OBJ_START:
                case OBJ_NONE:
                case OBJ_GHOST:
                case OBJ_SHOCKWAVE:             
                case OBJ_BEAM:
                        nprintf(("Warning","Warning => Asking for a team for object type %d\n", Object_type_names[(unsigned char)objp->type]));
                        team = -1;
                        break;

                case OBJ_ASTEROID:
                        team = TEAM_TRAITOR;
                        break;

                default:
                        Int3(); // can't happen
                        break;
        } // end switch

        SDL_assert(team != -1);
        return team;
}

// -------------------------------------------------------
// obj_add_pairs
//
// Add an element to the CheckObjects[] array, and update the 
// object pairs.  This is called from obj_create(), and the restore
// save-game code.
// 
void obj_add_pairs(int objnum)
{
        object  *objp;

        SDL_assert(objnum != -1);
        objp = &Objects[objnum];        

        // don't do anything if its already in the object pair list
        if(!(objp->flags & OF_NOT_IN_COLL)){
                return;
        }

#ifdef OBJECT_CHECK 
        CheckObjects[objnum].type = objp->type;
        CheckObjects[objnum].signature = objp->signature;
        CheckObjects[objnum].flags = objp->flags & ~(OF_NOT_IN_COLL);
        CheckObjects[objnum].parent_sig = objp->parent_sig;
        CheckObjects[objnum].parent_type = objp->parent_type;
#endif  

        // Find all the objects that can collide with this and add 
        // it to the collision pair list. 
        object * A;
        for ( A = GET_FIRST(&obj_used_list); A !=END_OF_LIST(&obj_used_list); A = GET_NEXT(A) ) {
                obj_add_pair( objp, A );
        }
        
        objp->flags &= ~OF_NOT_IN_COLL; 
}

// Removes any occurances of object 'a' from
// the pairs list.
extern int Num_pairs;
extern obj_pair pair_used_list;
extern obj_pair pair_free_list;
void obj_remove_pairs( object * a )
{
        obj_pair *parent, *tmp;

        a->flags |= OF_NOT_IN_COLL;     
#ifdef OBJECT_CHECK 
        CheckObjects[OBJ_INDEX(a)].flags |= OF_NOT_IN_COLL;
#endif  

        if ( a->num_pairs < 1 ) {
                //mprintf(( "OBJPAIR: No need to remove pairs 1!\n" ));
                return;
        }

        Num_pairs-=a->num_pairs;
        
        parent = &pair_used_list;
        tmp = parent->next;

        while( tmp != NULL )    {
                if ( (tmp->a==a) || (tmp->b==a) )       {
                        // Hmmm... a potenial compiler optimization problem here... either tmp->a or tmp->b
                        // is equal to 'a' and we modify 'num_pairs' in one of these and then use the value
                        // stored in 'a' later one... will the optimizer find that?  Hmmm...
                        tmp->a->num_pairs--;
                        SDL_assert( tmp->a->num_pairs > -1 );
                        tmp->b->num_pairs--;
                        SDL_assert( tmp->b->num_pairs > -1 );
                        parent->next = tmp->next;
                        tmp->a = tmp->b = NULL;
                        tmp->next = pair_free_list.next;
                        pair_free_list.next = tmp;
                        tmp = parent->next;

                        if ( a->num_pairs==0 )  {
                                //mprintf(( "OBJPAIR: No need to remove pairs 2!\n" ));
                                break;
                        }

                } else {
                        parent = tmp;
                        tmp = tmp->next;
                }
        }
}

// reset all collisions
void obj_reset_all_collisions()
{
        // clear checkobjects
#ifndef NDEBUG
        memset(CheckObjects, 0, sizeof(checkobject) * MAX_OBJECTS);
#endif

        // clear object pairs
        obj_reset_pairs();

        // now add every object back into the object collision pairs
        object *moveup;
        moveup = GET_FIRST(&obj_used_list);
        while(moveup != END_OF_LIST(&obj_used_list)){
                // he's not in the collision list
                moveup->flags |= OF_NOT_IN_COLL;

                // recalc pairs for this guy
                obj_add_pairs(OBJ_INDEX(moveup));

                // next
                moveup = GET_NEXT(moveup);
        }               
}