scp-fs2open/fs2open.github.com
1
0 Fork 0
mirror of https://github.com/scp-fs2open/fs2open.github.com.git synced 2026-11-08 07:28:22 -10:00
Code Issues Packages Projects Releases 1 Wiki Activity
Files
26dc0eb8f12736cd4c203ff3dfdab2b83ca94ea4
fs2open.github.com/code/object/object.cpp
T
wmcoolmon 26dc0eb8f1 Forgot the breathalyzer
2005-11-05 08:39:10 +00:00

2564 lines
71 KiB
C++
Raw Blame History

/*
* 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: 2.50 $
* $Date: 2005-11-05 08:39:10 $
* $Author: wmcoolmon $
*
* Code to manage objects
*
* $Log: not supported by cvs2svn $
* Revision 2.49 2005/11/05 08:38:36 wmcoolmon
* Fix for this old and silly bug.
*
* Revision 2.48 2005/10/28 06:10:06 Goober5000
* nitpicked a rather dumb non-bug
* --Goober5000
*
* Revision 2.47 2005/10/19 04:23:05 wmcoolmon
* Don't need this anymore
*
* Revision 2.46 2005/10/11 05:24:34 wmcoolmon
* Gliding
*
* Revision 2.45 2005/10/10 17:21:08 taylor
* remove NO_NETWORK
*
* Revision 2.44 2005/09/10 21:10:19 taylor
* make sure smart shields can't send the strength of a quadrant over the max
*
* Revision 2.43 2005/07/31 01:34:03 taylor
* fix a NULL pointer reference if there are no secondary banks on a ship
*
* Revision 2.42 2005/07/24 19:59:24 Goober5000
* fixed a minor docking bug
* --Goober5000
*
* Revision 2.41 2005/07/22 10:18:37 Goober5000
* CVS header tweaks
* --Goober5000
*
* Revision 2.40 2005/07/13 03:35:31 Goober5000
* remove PreProcDefine #includes in FS2
* --Goober5000
*
* Revision 2.39 2005/06/19 02:43:14 taylor
* jumpnodes can get deleted outside of FRED now so allow for that
*
* Revision 2.38 2005/04/25 00:28:58 wmcoolmon
* subsystem sounds
*
* Revision 2.37 2005/04/05 05:53:21 taylor
* s/vector/vec3d/g, better support for different compilers (Jens Granseuer)
*
* Revision 2.36 2005/03/27 12:28:32 Goober5000
* clarified max hull/shield strength names and added ship guardian thresholds
* --Goober5000
*
* Revision 2.35 2005/03/25 06:57:36 wmcoolmon
* Big, massive, codebase commit. I have not removed the old ai files as the ones I uploaded aren't up-to-date (But should work with the rest of the codebase)
*
* Revision 2.34 2005/03/03 06:05:30 wmcoolmon
* Merge of WMC's codebase. "Features and bugs, making Goober say "Grr!", as release would be stalled now for two months for sure"
*
* Revision 2.33 2005/03/02 21:24:46 taylor
* more network/inferno goodness for Windows, takes care of a few warnings too
*
* Revision 2.32 2005/03/01 06:55:42 bobboau
* oh, hey look I've commited something :D
* animation system, weapon models detail box alt-tab bug, probly other stuff
*
* Revision 2.31 2005/02/04 20:06:06 taylor
* merge with Linux/OSX tree - p0204-2
*
* Revision 2.30 2005/01/30 09:27:40 Goober5000
* nitpicked some boolean tests, and fixed two small bugs
* --Goober5000
*
* Revision 2.29 2005/01/29 16:31:55 phreak
* smart shield stuff. enabled by command line for now, but this will be changed in the future, i just want people to test it.
* -phreak
*
* Revision 2.28 2005/01/29 05:34:30 Goober5000
* docking fixes for FRED
* --Goober5000
*
* Revision 2.27 2005/01/16 22:39:09 wmcoolmon
* Added VM_TOPDOWN view; Added 2D mission mode, add 16384 to mission +Flags to use.
*
* Revision 2.26 2005/01/12 00:52:42 Goober5000
* two minor but important bugfixes to the multiple ship docking
* --Goober5000
*
* Revision 2.25 2005/01/11 21:38:49 Goober5000
* multiple ship docking :)
* don't tell anyone yet... check the SCP internal
* --Goober500
*
* Revision 2.24 2004/10/31 22:02:47 taylor
* little cleanup
*
* Revision 2.23 2004/07/26 20:47:45 Kazan
* remove MCD complete
*
* Revision 2.22 2004/07/12 16:32:59 Kazan
* MCD - define _MCD_CHECK to use memory tracking
*
* Revision 2.21 2004/07/01 01:53:51 phreak
* function pointer radar update.
* will enable us to make different radar styles that we can switch between
*
* Revision 2.20 2004/03/05 09:01:57 Goober5000
* Uber pass at reducing #includes
* --Goober5000
*
* Revision 2.19 2004/02/14 00:18:35 randomtiger
* Please note that from now on OGL will only run with a registry set by Launcher v4. See forum for details.
* OK, these changes effect a lot of file, I suggest everyone updates ASAP:
* Removal of many files from project.
* Removal of meanless Gr_bitmap_poly variable.
* Removal of glide, directdraw, software modules all links to them, and all code specific to those paths.
* Removal of redundant Fred paths that arent needed for Fred OGL.
* Have seriously tidied the graphics initialisation code and added generic non standard mode functionality.
* Fixed many D3D non standard mode bugs and brought OGL up to the same level.
* Removed texture section support for D3D8, voodoo 2 and 3 cards will no longer run under fs2_open in D3D, same goes for any card with a maximum texture size less than 1024.
*
* Revision 2.18 2004/02/06 22:58:18 Goober5000
* fixed a small HUD bug I introduced
* --Goober5000
*
* Revision 2.17 2004/02/05 14:31:44 Goober5000
* fixed a few random bugs
* --Goober5000
*
* Revision 2.16 2004/02/04 08:41:02 Goober5000
* made code more uniform and simplified some things,
* specifically shield percentage and quadrant stuff
* --Goober5000
*
* Revision 2.15 2003/11/11 02:15:42 Goober5000
* ubercommit - basically spelling and language fixes with some additional
* warnings disabled
* --Goober5000
*
* Revision 2.14 2003/09/13 06:02:05 Goober5000
* clean rollback of all of argv's stuff
* --Goober5000
*
* Revision 2.12 2003/08/22 07:35:09 bobboau
* specular code should be bugless now,
* cell shadeing has been added activated via the comand line '-cell',
* 3D shockwave models, and a transparency method I'm calling edge and center alpha that could be usefull for other things, ask for details
*
* Revision 2.11 2003/08/22 03:39:35 phreak
* warp effects and fireballs have their own distinct colors
*
* Revision 2.10 2003/08/16 03:52:24 bobboau
* update for the specmapping code includeing
* suport for seperate specular levels on lights and
* optional strings for the stars table
* code has been made more organised,
* though there seems to be a bug in the state selecting code
* resulting in the HUD being rendered incorectly
* and specmapping failing ocasionaly
*
* Revision 2.9 2003/07/15 16:05:33 phreak
* the game handles colored laser lighting for opengl now.
* this used to be exclusive to d3d
*
* Revision 2.8 2003/04/29 01:03:22 Goober5000
* implemented the custom hitpoints mod
* --Goober5000
*
* Revision 2.7 2003/03/20 23:30:03 Goober5000
* comments
* --Goober500
*
* Revision 2.6 2003/02/25 06:22:49 bobboau
* fixed a bunch of fighter beam bugs,
* most notabley the sound now works corectly,
* and they have limeted range with atenuated damage (table option)
* added bank specific compatabilities
*
* Revision 2.5 2003/02/16 05:14:29 bobboau
* added glow map nebula bug fix for d3d, someone should add a fix for glide too
* more importantly I (think I) have fixed all major bugs with fighter beams, and added a bit of new functionality
*
* Revision 2.4 2003/01/19 01:07:41 bobboau
* redid the way glowmaps are handeled, you now must set the global int GLOWMAP (no longer an array) before you render a poly that uses a glow map then set GLOWMAP to -1 when you're done with, fixed a few other misc bugs it
*
* Revision 2.3 2002/11/14 04:18:17 bobboau
* added warp model and type 1 glow points
* and well as made the new glow file type,
* some general improvement to fighter beams,
*
* Revision 2.2 2002/10/19 19:29:27 bobboau
* inital commit, trying to get most of my stuff into FSO, there should be most of my fighter beam, beam rendering, beam shield hit, ABtrails, and ssm stuff. one thing you should be happy to know is the beam texture tileing is now set in the beam section section of the weapon table entry
*
* Revision 2.1 2002/08/01 01:41:08 penguin
* The big include file move
*
* Revision 2.0 2002/06/03 04:02:27 penguin
* Warpcore CVS sync
*
* Revision 1.4 2002/05/13 21:43:38 mharris
* A little more network and sound cleanup
*
* Revision 1.3 2002/05/13 21:09:28 mharris
* I think the last of the networking code has ifndef NO_NETWORK...
*
* Revision 1.2 2002/05/10 20:42:44 mharris
* use "ifndef NO_NETWORK" all over the place
*
* Revision 1.1 2002/05/02 18:03:11 mharris
* Initial checkin - converted filenames and includes to lower case
*
*
* 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 "object/object.h"
#include "weapon/weapon.h"
#include "ship/ship.h"
#include "fireball/fireballs.h"
#include "debris/debris.h"
#include "globalincs/linklist.h"
#include "freespace2/freespace.h"
#include "object/objectsnd.h"
#include "playerman/player.h"
#include "cmeasure/cmeasure.h"
#include "io/timer.h"
#include "render/3d.h"
#include "weapon/shockwave.h"
#include "ship/afterburner.h"
#include "network/multi.h"
#include "network/multiutil.h"
#include "object/objcollide.h"
#include "lighting/lighting.h"
#include "observer/observer.h"
#include "asteroid/asteroid.h"
#include "radar/radar.h"
#include "jumpnode/jumpnode.h"
#include "weapon/beam.h"
#include "weapon/swarm.h"
#include "demo/demo.h"
#include "radar/radarsetup.h"
#include "object/objectdock.h"
#include "mission/missionparse.h" //For 2D Mode
/*
* 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
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;
}
// Goober5000
float get_max_shield_quad(object *objp)
{
Assert(objp);
if(objp->type != OBJ_SHIP) {
return 0.0f;
}
return Ships[objp->instance].ship_max_shield_strength / MAX_SHIELD_SECTIONS;
}
// Goober5000
float get_hull_pct(object *objp)
{
Assert(objp);
Assert(objp->type == OBJ_SHIP);
float total_strength = Ships[objp->instance].ship_max_hull_strength;
Assert(total_strength > 0.0f); // unlike shield, no ship can have 0 hull
if (total_strength == 0.0f)
return 0.0f;
if (objp->hull_strength < 0.0f) // this sometimes happens when a ship is being destroyed
return 0.0f;
return objp->hull_strength / total_strength;
}
// Goober5000
float get_shield_pct(object *objp)
{
Assert(objp);
// bah - we might have asteroids
if (objp->type != OBJ_SHIP)
return 0.0f;
float total_strength = Ships[objp->instance].ship_max_shield_strength;
if (total_strength == 0.0f)
return 0.0f;
return get_shield_strength(objp) / total_strength;
}
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->shield_quadrant[i];
}
return strength;
}
void set_shield_strength(object *objp, float strength)
{
int i;
if ( (strength - Ships[objp->instance].ship_max_shield_strength) > 0.1 ){
Int3();
}
for (i=0; i<MAX_SHIELD_SECTIONS; i++){
objp->shield_quadrant[i] = strength/MAX_SHIELD_SECTIONS;
}
}
extern int Cmdline_smart_shields;
// 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 = get_max_shield_quad(objp);
if (!Cmdline_smart_shields)
{
for (i=0; i<MAX_SHIELD_SECTIONS; i++) {
objp->shield_quadrant[i] += delta/MAX_SHIELD_SECTIONS;
if (objp->shield_quadrant[i] > section_max)
objp->shield_quadrant[i] = section_max;
else if (objp->shield_quadrant[i] < 0.0f)
objp->shield_quadrant[i] = 0.0f;
}
}
else
{
//smart shield repair
float weakest=0;
int weakest_idx;
while ((delta > 0) && (weakest < section_max))
{
//find weakest shield quadrant
weakest=objp->shield_quadrant[0];
weakest_idx=0;
for (i=1; i < MAX_SHIELD_SECTIONS; i++)
{
if (objp->shield_quadrant[i] < weakest)
{
weakest=objp->shield_quadrant[i];
weakest_idx=i;
}
}
//throw all possible shield power at this quadrant
//if there's any leftover then apply it to the next weakest on the next pass
if ((delta+weakest > section_max) && (weakest < section_max))
{
objp->shield_quadrant[weakest_idx]=section_max;
delta-=(section_max-delta);
}
else
{
objp->shield_quadrant[weakest_idx]+=delta;
delta=0;
if (objp->shield_quadrant[weakest_idx] > section_max) {
objp->shield_quadrant[weakest_idx] = section_max;
} else if (objp->shield_quadrant[weakest_idx] < 0.0f) {
objp->shield_quadrant[weakest_idx] = 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);
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();
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;
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,
vec3d * 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];
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.
// Goober5000
obj->dock_list = NULL;
return objnum;
}
//remove object from the world
// If Player_obj, don't remove it!
void obj_delete(int objnum)
{
object *objp;
Assert(objnum >= 0 && objnum < MAX_OBJECTS);
objp = &Objects[objnum];
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);
#ifndef NO_SOUND
obj_snd_delete_type(OBJ_INDEX(objp));
#endif
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:
Assert(Fred_running);
break; // requires no action, handled by the Fred code.
case OBJ_JUMP_NODE:
break; // requires no further action, handled by jumpnode deconstructor.
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 );
}
#ifndef NO_SOUND
// if a persistant sound has been created, delete it
obj_snd_delete_type(OBJ_INDEX(objp));
#endif
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) ) {
// Goober5000 - HACK HACK HACK - see obj_move_all
objp->flags &= ~OF_DOCKED_ALREADY_HANDLED;
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;
// Goober5000
extern void call_doa(object *child, object *parent);
void obj_move_one_docked_object(object *objp, object *parent_objp)
{
// in FRED, just move and return
if (Fred_running)
{
call_doa(objp, parent_objp);
return;
}
// support ships (and anyone else, for that matter) don't keep up if they're undocking
ai_info *aip = &Ai_info[Ships[objp->instance].ai_index];
if ( (aip->mode == AIM_DOCK) && (aip->submode >= AIS_UNDOCK_1) )
{
if (aip->goal_objnum == OBJ_INDEX(parent_objp))
{
return;
}
}
// check the guy that I'm docked with and don't move if he's undocking from me
ai_info *other_aip = &Ai_info[Ships[parent_objp->instance].ai_index];
if ( (other_aip->mode == AIM_DOCK) && (other_aip->submode >= AIS_UNDOCK_1) )
{
if (other_aip->goal_objnum == OBJ_INDEX(objp))
{
return;
}
}
// we're here, so we move with our parent object
call_doa(objp, parent_objp);
}
/*
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;
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 );
// ship_stop_fire_primary(objp); //if it hasn't fired do the "has just stoped fireing" stuff
} else {
// unflag the ship as having the trigger down
if(shipp != NULL){
shipp->flags &= ~(SF_TRIGGER_DOWN);
ship_stop_fire_primary(objp); //if it hasn't fired do the "has just stoped fireing" stuff
}
}
if ( ci.fire_countermeasure_count ) {
ship_launch_countermeasure( objp );
}
} else {
// ship_stop_fire_primary(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 );
}
}
#pragma warning(push)
#pragma warning(disable: 4102)
void obj_move_call_physics(object *objp, float frametime)
{
int has_fired = -1; //stop fireing stuff-Bobboau
// 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;
// }
for(int i = 0; i < Ships[objp->instance].weapons.num_secondary_banks; i++){
if(Ships[objp->instance].weapons.secondary_bank_ammo[i] == 0)continue;
//if there are no missles left don't bother
int points = model_get(Ships[objp->instance].modelnum)->missile_banks[i].num_slots;
int missles_left = Ships[objp->instance].weapons.secondary_bank_ammo[i];
int next_point = Ships[objp->instance].weapons.secondary_next_slot[i];
//ok so...we want to move up missles but only if there is a missle there to be moved up
//there is a missle behind next_point, and how ever many missles there are left after that
if(points>missles_left){
//there are more slots than missles left, so not all of the slots will have missles drawen on them
for(int K = next_point; K<next_point+missles_left; K ++){
int k=K%points;
float &s_pct = Ships[objp->instance].secondary_point_reload_pct[i][k];
if(s_pct < 1.0)s_pct += Ships[objp->instance].reload_time[i] * frametime;
if(s_pct > 1.0)s_pct = 1.0f;
}
}else{
//we don't have to worry about such things
for(int k = 0; k<points; k++){
float &s_pct = Ships[objp->instance].secondary_point_reload_pct[i][k];
if(s_pct < 1.0)s_pct += Ships[objp->instance].reload_time[i] * frametime;
if(s_pct > 1.0)s_pct = 1.0f;
}
}
}
}
// 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 objnum_I_am_docked_or_docking_with, but then need to add some other condition. Live with it for now. -- MK, 2/19/98
// Goober5000 - no need to key off objnum; other conditions get it just fine
if (/* (objnum_I_am_docked_or_docking_with != -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;
}
if ( (objp->type == OBJ_ASTEROID) && (Model_caching && (!D3D_enabled || !OGL_enabled) ) ) {
// If we're doing model caching, don't rotate asteroids
vec3d tmp = objp->phys_info.rotvel;
objp->phys_info.rotvel = vmd_zero_vector;
physics_sim(&objp->pos, &objp->orient, &objp->phys_info, frametime ); // simulate the physics
objp->phys_info.rotvel = tmp;
} else {
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){
// has_fired = 1;
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);
// if(ship_fire_primary(objp, 1, 0) < 1){
has_fired = 1;
// }else{
// has_fired = -1;
// }
}
}
}
if(has_fired == -1){
// mprintf(("stoped 1\n"));
ship_stop_fire_primary(objp); //if it hasn't fired do the "has just stoped fireing" stuff
}
//2D MODE
//THIS IS A FREAKIN' HACK
//Do not let ship change position on Y axis
if(The_mission.flags & MISSION_FLAG_2D_MISSION)
{
angles old_angles, new_angles;
objp->pos.xyz.y = objp->last_pos.xyz.y;
vm_extract_angles_matrix(&old_angles, &objp->last_orient);
vm_extract_angles_matrix(&new_angles, &objp->orient);
new_angles.p = old_angles.p;
new_angles.b = old_angles.b;
//new_angles.h = old_angles.h;
vm_angles_2_matrix(&objp->orient, &new_angles);
//Phys stuff hack
new_angles.h = old_angles.h;
vm_angles_2_matrix(&objp->phys_info.last_rotmat, &new_angles);
objp->phys_info.vel.xyz.y = 0.0f;
objp->phys_info.desired_rotvel.xyz.x = 0;
objp->phys_info.desired_rotvel.xyz.z = 0;
objp->phys_info.desired_vel.xyz.y = 0.0f;
}
}
#pragma warning(pop)
#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)
extern fireball Fireballs[];
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 >= 0) && (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
vec3d 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 ) {
float r,g,b;
switch(Fireballs[objp->instance].fireball_info_index)
{
case FIREBALL_EXPLOSION_LARGE1:
case FIREBALL_EXPLOSION_LARGE2:
case FIREBALL_EXPLOSION_MEDIUM:
case FIREBALL_ASTEROID:
r=1.0f;
g=.5f;
b=.125f;
break;
case FIREBALL_WARP_EFFECT:
r=.75f;
g=.75f;
b=1.0f;
break;
case FIREBALL_KNOSSOS_EFFECT:
r=.75f;
g=1.0f;
b=.75f;
break;
default:
r=g=b=1.0f;
break;
}
// Make explosions cast light
float p = fireball_lifeleft_percent(objp);
if(p>0.0f){
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, r, g, b, -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
vec3d 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;
// Goober5000 - HACK HACK HACK
// this function also resets the OF_DOCKED_ALREADY_HANDLED flag, to save trips
// through the used object list
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) ) {
vec3d 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) ) {
dock_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();
// mprintf(("moved all objects\n"));
}
MONITOR( NumObjectsRend );
// -----------------------------------------------------------------------------
// Render an object. Calls one of several routines based on type
extern int Cmdline_dis_weapons;
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:
if(Cmdline_dis_weapons) return;
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:
obj->jnp->render(&obj->pos, &Eye_position);
// 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 != Player_obj ) {
dock_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) ) {
vec3d 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 != Player_obj ) {
dock_move_docked_objects(objp);
}
objp = GET_NEXT(objp);
}
obj_check_all_collisions();
}
#endif
void obj_observer_move(float frame_time)
{
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, frame_time);
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( vec3d *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)
{
Assert( objp != NULL );
int team = -1;
switch ( objp->type ) {
case OBJ_SHIP:
Assert( objp->instance >= 0 && objp->instance < MAX_SHIPS );
team = Ships[objp->instance].team;
break;
case OBJ_DEBRIS:
team = debris_get_team(objp);
Assert(team != -1);
break;
case OBJ_CMEASURE:
Assert( objp->instance >= 0 && objp->instance < MAX_CMEASURES);
team = Cmeasures[objp->instance].team;
break;
case OBJ_WEAPON:
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[objp->type]));
team = -1;
break;
case OBJ_ASTEROID:
team = TEAM_TRAITOR;
break;
default:
Int3(); // can't happen
break;
} // end switch
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;
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--;
Assert( tmp->a->num_pairs > -1 );
tmp->b->num_pairs--;
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);
}
}
// Goober5000
int object_is_docked(object *objp)
{
return (objp->dock_list != NULL);
}
//Makes an object start 'gliding'
//that is, it will continue on the same velocity that it was going,
//regardless of orientation -WMC
void object_set_gliding(object *objp, bool enable)
{
Assert(objp != NULL);
if(enable) {
objp->phys_info.flags |= PF_GLIDING;
objp->phys_info.glide_saved_vel = Player_obj->phys_info.vel;
} else {
objp->phys_info.flags &= ~PF_GLIDING;
}
}
//Makes an object stop gliding -WMC
bool object_get_gliding(object *objp)
{
Assert(objp != NULL);
return ((objp->phys_info.flags & PF_GLIDING) != 0);
}
Reference in new issue View Git Blame Copy Permalink