/* THE COMPUTER CODE CONTAINED HEREIN IS THE SOLE PROPERTY OF PARALLAX SOFTWARE CORPORATION ("PARALLAX"). PARALLAX, IN DISTRIBUTING THE CODE TO END-USERS, AND SUBJECT TO ALL OF THE TERMS AND CONDITIONS HEREIN, GRANTS A ROYALTY-FREE, PERPETUAL LICENSE TO SUCH END-USERS FOR USE BY SUCH END-USERS IN USING, DISPLAYING, AND CREATING DERIVATIVE WORKS THEREOF, SO LONG AS SUCH USE, DISPLAY OR CREATION IS FOR NON-COMMERCIAL, ROYALTY OR REVENUE FREE PURPOSES. IN NO EVENT SHALL THE END-USER USE THE COMPUTER CODE CONTAINED HEREIN FOR REVENUE-BEARING PURPOSES. THE END-USER UNDERSTANDS AND AGREES TO THE TERMS HEREIN AND ACCEPTS THE SAME BY USE OF THIS FILE. COPYRIGHT 1993-1998 PARALLAX SOFTWARE CORPORATION. ALL RIGHTS RESERVED. */ /* * $Source: f:/miner/source/main/rcs/physics.c $ * $Revision: 2.2 $ * $Author: john $ * $Date: 1995/03/24 14:48:54 $ * * Code for flying through the mines * * $Log: physics.c $ * Revision 2.2 1995/03/24 14:48:54 john * Added cheat for player to go thru walls. * * Revision 2.1 1995/03/20 18:15:59 john * Added code to not store the normals in the segment structure. * * Revision 2.0 1995/02/27 11:32:06 john * New version 2.0, which has no anonymous unions, builds with * Watcom 10.0, and doesn't require parsing BITMAPS.TBL. * * Revision 1.213 1995/02/22 13:40:48 allender * remove anonymous unions from object structure * * Revision 1.212 1995/02/22 13:24:42 john * Removed the vecmat anonymous unions. * * Revision 1.211 1995/02/06 19:46:59 matt * New function (untested), set_thrust_from_velocity() * * Revision 1.210 1995/02/02 16:26:12 matt * Changed assert that was causing a problem * * Revision 1.209 1995/02/02 14:07:00 matt * Fixed confusion about which segment you are touching when you're * touching a wall. This manifested itself in spurious lava burns. * * Revision 1.208 1995/02/01 21:03:24 john * Lintified. * * Revision 1.207 1995/01/25 13:53:35 rob * Removed an Int3 from multiplayer games. * * Revision 1.206 1995/01/23 17:30:47 rob * Removed Int3 on bogus sim time. * * Revision 1.205 1995/01/17 11:08:56 matt * Disable new-ish FVI edge checking for all objects except the player, * since it was causing problems with the fusion cannon. * * Revision 1.204 1995/01/05 09:43:49 matt * Took out int3s from new code * * Revision 1.203 1995/01/04 22:19:23 matt * Added hack to keep player from squeezing through closed walls/doors * * Revision 1.202 1995/01/02 12:38:48 mike * physics hack to crazy josh not get hung up on proximity bombs. Matt notified via email. * * Revision 1.201 1994/12/13 15:39:22 mike * #ifndef NDEBUG some code. * * Revision 1.200 1994/12/13 13:28:34 yuan * Fixed type. * * Revision 1.199 1994/12/13 13:25:00 matt * Made bump hack compile out if so desired * * Revision 1.198 1994/12/13 12:02:39 matt * Added hack to bump player a little if stuck * * Revision 1.197 1994/12/12 00:32:23 matt * When objects other than player go out of mine, jerk to center of segment * * Revision 1.196 1994/12/10 22:52:42 mike * make physics left-the-mine checking always be in. * * Revision 1.195 1994/12/08 00:53:01 mike * oops...phys rot bug. * * Revision 1.194 1994/12/07 12:54:54 mike * tweak rotvel applied from collisions. * * Revision 1.193 1994/12/07 00:36:08 mike * fix phys_apply_rot for robots -- ai was bashing effect in next frame. * * Revision 1.192 1994/12/05 17:23:10 matt * Made a bunch of debug code compile out * * Revision 1.191 1994/12/05 16:30:10 matt * Was illegally changing an object's segment...shoot me. * * Revision 1.190 1994/12/05 11:58:51 mike * fix stupid apply_force_rot() bug. * * Revision 1.189 1994/12/05 09:42:17 mike * fix 0 mag problem when object applies force to itself. * * Revision 1.188 1994/12/04 22:48:40 matt * Physics & FVI now only build seglist for player objects, and they * responsilby deal with buffer full conditions * * Revision 1.187 1994/12/04 22:14:07 mike * apply instantaneous rotation to an object due to a force blow. * * Revision 1.186 1994/12/04 18:51:30 matt * When weapons get stuck, delete them! * * Revision 1.185 1994/12/04 18:38:56 matt * Added better handling of point-not-in-seg problem * * Revision 1.184 1994/11/27 23:13:42 matt * Made changes for new mprintf calling convention * * Revision 1.183 1994/11/25 23:46:18 matt * Fixed drag problems with framerates over 60Hz * * Revision 1.182 1994/11/25 22:15:52 matt * Added asserts to try to trap frametime < 0 bug * * Revision 1.181 1994/11/21 11:42:44 mike * ndebug stuff. * * Revision 1.180 1994/11/19 15:15:04 mike * remove unused code and data * * Revision 1.179 1994/11/16 11:25:22 matt * Abort physics if negative frametime * * Revision 1.178 1994/10/05 19:50:41 rob * Removed a non-critical Int3 where an object's segnum is checked. * Left mprintf message. * * Revision 1.177 1994/10/03 22:57:50 matt * Fixed problem with matrix corruption of non-moving (but rotating) objects * * Revision 1.176 1994/09/28 09:23:28 mike * Add useful information to mprintf(1,... error messages. * * Revision 1.175 1994/09/21 17:16:54 mike * Make objects stuck in doors go away when door opens. * * Revision 1.174 1994/09/12 14:19:06 matt * Drag & thrust now handled differently * * Revision 1.173 1994/09/09 14:21:12 matt * Use new thrust flag * * Revision 1.172 1994/09/08 16:21:57 matt * Cleaned up player-hit-wall code, and added object scrape handling * Also added weapon-on-weapon hit sound * * Revision 1.171 1994/09/02 12:30:37 matt * Fixed weapons which go through objects * * Revision 1.170 1994/09/02 11:55:14 mike * Kill redefinition of a constant which is properly defined in object.h * * Revision 1.169 1994/09/02 11:35:01 matt * Fixed typo * * Revision 1.168 1994/09/02 11:32:48 matt * Fixed object/object collisions, so you can't fly through robots anymore. * Cleaned up object damage system. * * Revision 1.167 1994/08/30 21:58:15 matt * Made phys_apply_force() do nothing to an object if it's not a phys object * * Revision 1.166 1994/08/26 10:47:01 john * New version of controls. * * Revision 1.165 1994/08/25 21:53:57 mike * Prevent counts of -1 which eventually add up to a positive number in do_ai_frame, causing * the too-many-retries behavior. * * Revision 1.164 1994/08/25 18:43:33 john * First revision of new control code. * * Revision 1.163 1994/08/17 22:18:05 mike * Make robots which have rotvel or rotthrust, but not movement, move. * * Revision 1.162 1994/08/13 17:31:18 mike * retry count stuff. * * Revision 1.161 1994/08/11 18:59:16 mike * *** empty log message *** * * Revision 1.160 1994/08/10 19:53:47 mike * Debug code (which is still in...) * and adapt to changed interface to create_path_to_player. * * Revision 1.159 1994/08/08 21:38:43 matt * Cleaned up a code a little and optimized a little * * Revision 1.158 1994/08/08 15:21:50 mike * Trap retry count >= 4, but don't do AI hack unless >= 6. * * Revision 1.157 1994/08/08 11:47:15 matt * Cleaned up fvi and physics a little * * Revision 1.156 1994/08/05 10:10:10 yuan * Commented out debug stuff that was killing framerate. * * Revision 1.155 1994/08/04 19:12:36 matt * Changed a bunch of vecmat calls to use multiple-function routines, and to * allow the use of C macros for some functions * * Revision 1.154 1994/08/04 16:33:57 mike * Kill a pile of RCS stuff. * Call create_path_to_player for a stuck object. * * Revision 1.153 1994/08/04 00:21:02 matt * Cleaned up fvi & physics error handling; put in code to make sure objects * are in correct segment; simplified segment finding for objects and points * * Revision 1.152 1994/08/01 16:25:34 matt * Check for moved_time == 0 when computing hit speed * * Revision 1.151 1994/08/01 13:30:32 matt * Made fvi() check holes in transparent walls, and changed fvi() calling * parms to take all input data in query structure. * * Revision 1.150 1994/07/29 23:41:46 matt * Fixed turn banking, which changed when I added rotational velocity * * Revision 1.149 1994/07/27 20:53:23 matt * Added rotational drag & thrust, so turning now has momemtum like moving * */ #pragma off (unreferenced) static char rcsid[] = "$Id: physics.c 2.2 1995/03/24 14:48:54 john Exp $"; #pragma on (unreferenced) //@@#include #include #include #include "joy.h" #include "mono.h" #include "error.h" #include "inferno.h" #include "segment.h" #include "object.h" #include "physics.h" #include "key.h" #include "game.h" #include "collide.h" #include "fvi.h" #include "newdemo.h" #include "timer.h" #include "ai.h" #include "wall.h" #include "laser.h" //Global variables for physics system #define ROLL_RATE 0x2000 #define DAMP_ANG 0x400 //min angle to bank #define TURNROLL_SCALE (0x4ec4/2) #define BUMP_HACK 1 //if defined, bump player when he gets stuck //--unused-- int mike_mode=0; //check point against each side of segment. return bitmask, where bit //set means behind that side int Physics_cheat_flag = 0; //##//returns the distance of a point (checkp) from a plane (defined by norm & planep) //##fix dist_to_plane(vms_vector *checkp,vms_vector *norm,vms_vector *planep) //##{ //## vms_vector deltap; //## //## vm_vec_sub(&deltap,checkp,planep); //## //## return vm_vec_dot(&deltap,norm); //##} //--unused-- int dpjm_old_joy_x, dpjm_old_joy_y; int floor_levelling=0; //--unused-- level_with_floor() //--unused-- { //--unused-- floor_levelling=1; //--unused-- } //make sure matrix is orthogonal check_and_fix_matrix(vms_matrix *m) { vms_matrix tempm; vm_vector_2_matrix(&tempm,&m->fvec,&m->uvec,NULL); *m = tempm; } void do_physics_align_object( object * obj ) { vms_vector desired_upvec; fixang delta_ang,roll_ang; //vms_vector forvec = {0,0,f1_0}; vms_matrix temp_matrix; fix d,largest_d=-f1_0; int i,best_side; // bank player according to segment orientation //find side of segment that player is most alligned with for (i=0;i<6;i++) { #ifdef COMPACT_SEGS vms_vector _tv1; get_side_normal( &Segments[obj->segnum], i, 0, &_tv1 ); d = vm_vec_dot(&_tv1,&obj->orient.uvec); #else d = vm_vec_dot(&Segments[obj->segnum].sides[i].normals[0],&obj->orient.uvec); #endif if (d > largest_d) {largest_d = d; best_side=i;} } if (floor_levelling) { // old way: used floor's normal as upvec #ifdef COMPACT_SEGS get_side_normal(&Segments[obj->segnum], 3, 0, &desired_upvec ); #else desired_upvec = Segments[obj->segnum].sides[3].normals[0]; #endif } else // new player leveling code: use normal of side closest to our up vec if (get_num_faces(&Segments[obj->segnum].sides[best_side])==2) { #ifdef COMPACT_SEGS vms_vector normals[2]; get_side_normals(&Segments[obj->segnum], best_side, &normals[0], &normals[1] ); desired_upvec.x = (normals[0].x + normals[1].x) / 2; desired_upvec.y = (normals[0].y + normals[1].y) / 2; desired_upvec.z = (normals[0].z + normals[1].z) / 2; vm_vec_normalize(&desired_upvec); #else side *s = &Segments[obj->segnum].sides[best_side]; desired_upvec.x = (s->normals[0].x + s->normals[1].x) / 2; desired_upvec.y = (s->normals[0].y + s->normals[1].y) / 2; desired_upvec.z = (s->normals[0].z + s->normals[1].z) / 2; vm_vec_normalize(&desired_upvec); #endif } else #ifdef COMPACT_SEGS get_side_normal(&Segments[obj->segnum], best_side, 0, &desired_upvec ); #else desired_upvec = Segments[obj->segnum].sides[best_side].normals[0]; #endif if (labs(vm_vec_dot(&desired_upvec,&obj->orient.fvec)) < f1_0/2) { fixang save_delta_ang; vms_angvec tangles; vm_vector_2_matrix(&temp_matrix,&obj->orient.fvec,&desired_upvec,NULL); save_delta_ang = delta_ang = vm_vec_delta_ang(&obj->orient.uvec,&temp_matrix.uvec,&obj->orient.fvec); delta_ang += obj->mtype.phys_info.turnroll; if (abs(delta_ang) > DAMP_ANG) { vms_matrix rotmat, new_pm; roll_ang = fixmul(FrameTime,ROLL_RATE); if (abs(delta_ang) < roll_ang) roll_ang = delta_ang; else if (delta_ang<0) roll_ang = -roll_ang; tangles.p = tangles.h = 0; tangles.b = roll_ang; vm_angles_2_matrix(&rotmat,&tangles); vm_matrix_x_matrix(&new_pm,&obj->orient,&rotmat); obj->orient = new_pm; } else floor_levelling=0; } } set_object_turnroll(object *obj) { fixang desired_bank; desired_bank = -fixmul(obj->mtype.phys_info.rotvel.y,TURNROLL_SCALE); if (obj->mtype.phys_info.turnroll != desired_bank) { fixang delta_ang,max_roll; max_roll = fixmul(ROLL_RATE,FrameTime); delta_ang = desired_bank - obj->mtype.phys_info.turnroll; if (labs(delta_ang) < max_roll) max_roll = delta_ang; else if (delta_ang < 0) max_roll = -max_roll; obj->mtype.phys_info.turnroll += max_roll; } } //list of segments went through int phys_seglist[MAX_FVI_SEGS],n_phys_segs; #define MAX_IGNORE_OBJS 100 #ifndef NDEBUG #define EXTRA_DEBUG 1 //no extra debug when NDEBUG is on #endif #ifdef EXTRA_DEBUG object *debug_obj=NULL; #endif #define XYZ(v) (v)->x,(v)->y,(v)->z int Total_retries=0, Total_sims=0; #ifndef NDEBUG int Dont_move_ai_objects=0; #endif #define FT (f1_0/64) extern int disable_new_fvi_stuff; // ----------------------------------------------------------------------------------------------------------- // add rotational velocity & acceleration void do_physics_sim_rot(object *obj) { vms_angvec tangles; vms_matrix rotmat,new_orient; //fix rotdrag_scale; physics_info *pi; Assert(FrameTime > 0); //Get MATT if hit this! pi = &obj->mtype.phys_info; if (!(pi->rotvel.x || pi->rotvel.y || pi->rotvel.z || pi->rotthrust.x || pi->rotthrust.y || pi->rotthrust.z)) return; if (obj->mtype.phys_info.drag) { int count; vms_vector accel; fix drag,r,k; count = FrameTime / FT; r = FrameTime % FT; k = fixdiv(r,FT); drag = (obj->mtype.phys_info.drag*5)/2; if (obj->mtype.phys_info.flags & PF_USES_THRUST) { vm_vec_copy_scale(&accel,&obj->mtype.phys_info.rotthrust,fixdiv(f1_0,obj->mtype.phys_info.mass)); while (count--) { vm_vec_add2(&obj->mtype.phys_info.rotvel,&accel); vm_vec_scale(&obj->mtype.phys_info.rotvel,f1_0-drag); } //do linear scale on remaining bit of time vm_vec_scale_add2(&obj->mtype.phys_info.rotvel,&accel,k); vm_vec_scale(&obj->mtype.phys_info.rotvel,f1_0-fixmul(k,drag)); } else { fix total_drag=f1_0; while (count--) total_drag = fixmul(total_drag,f1_0-drag); //do linear scale on remaining bit of time total_drag = fixmul(total_drag,f1_0-fixmul(k,drag)); vm_vec_scale(&obj->mtype.phys_info.rotvel,total_drag); } } //mprintf( (0, "Rot vel = %.3f,%.3f,%.3f\n", f2fl(obj->mtype.phys_info.rotvel.x),f2fl(obj->mtype.phys_info.rotvel.y), f2fl(obj->mtype.phys_info.rotvel.z) )); //now rotate object //unrotate object for bank caused by turn if (obj->mtype.phys_info.turnroll) { vms_matrix new_pm; tangles.p = tangles.h = 0; tangles.b = -obj->mtype.phys_info.turnroll; vm_angles_2_matrix(&rotmat,&tangles); vm_matrix_x_matrix(&new_pm,&obj->orient,&rotmat); obj->orient = new_pm; } tangles.p = fixmul(obj->mtype.phys_info.rotvel.x,FrameTime); tangles.h = fixmul(obj->mtype.phys_info.rotvel.y,FrameTime); tangles.b = fixmul(obj->mtype.phys_info.rotvel.z,FrameTime); vm_angles_2_matrix(&rotmat,&tangles); vm_matrix_x_matrix(&new_orient,&obj->orient,&rotmat); obj->orient = new_orient; if (obj->mtype.phys_info.flags & PF_TURNROLL) set_object_turnroll(obj); //re-rotate object for bank caused by turn if (obj->mtype.phys_info.turnroll) { vms_matrix new_pm; tangles.p = tangles.h = 0; tangles.b = obj->mtype.phys_info.turnroll; vm_angles_2_matrix(&rotmat,&tangles); vm_matrix_x_matrix(&new_pm,&obj->orient,&rotmat); obj->orient = new_pm; } check_and_fix_matrix(&obj->orient); } // ----------------------------------------------------------------------------------------------------------- //Simulate a physics object for this frame do_physics_sim(object *obj) { int ignore_obj_list[MAX_IGNORE_OBJS],n_ignore_objs; int iseg; int try_again; int fate; vms_vector frame_vec; //movement in this frame vms_vector new_pos,ipos; //position after this frame int count=0; int objnum; int WallHitSeg, WallHitSide; fvi_info hit_info; fvi_query fq; vms_vector save_pos; int save_seg; fix drag; fix sim_time; vms_vector start_pos; int obj_stopped=0; fix moved_time; //how long objected moved before hit something vms_vector save_p0,save_p1; physics_info *pi; int orig_segnum = obj->segnum; Assert(obj->type != OBJ_NONE); Assert(obj->movement_type == MT_PHYSICS); #ifndef NDEBUG if (Dont_move_ai_objects) if (obj->control_type == CT_AI) return; #endif pi = &obj->mtype.phys_info; do_physics_sim_rot(obj); if (!(pi->velocity.x || pi->velocity.y || pi->velocity.z || pi->thrust.x || pi->thrust.y || pi->thrust.z)) return; objnum = obj-Objects; n_phys_segs = 0; disable_new_fvi_stuff = (obj->type != OBJ_PLAYER); sim_time = FrameTime; //debug_obj = obj; #ifdef EXTRA_DEBUG if (obj == debug_obj) { printf("object %d:\n start pos = %x %x %x\n",objnum,XYZ(&obj->pos)); printf(" thrust = %x %x %x\n",XYZ(&obj->mtype.phys_info.thrust)); printf(" sim_time = %x\n",sim_time); } //check for correct object segment if(!get_seg_masks(&obj->pos,obj->segnum,0).centermask==0) { #ifndef NDEBUG mprintf((0,"Warning: object %d not in given seg!\n",objnum)); #endif //Int3(); Removed by Rob 10/5/94 if (!update_object_seg(obj)) { #ifndef NDEBUG mprintf((0,"Warning: can't find seg for object %d - moving\n",objnum)); #endif if (!(Game_mode & GM_MULTI)) Int3(); compute_segment_center(&obj->pos,&Segments[obj->segnum]); obj->pos.x += objnum; } } #endif start_pos = obj->pos; n_ignore_objs = 0; Assert(obj->mtype.phys_info.brakes==0); //brakes not used anymore? //if uses thrust, cannot have zero drag Assert(!(obj->mtype.phys_info.flags&PF_USES_THRUST) || obj->mtype.phys_info.drag!=0); //mprintf((0,"thrust=%x speed=%x\n",vm_vec_mag(&obj->mtype.phys_info.thrust),vm_vec_mag(&obj->mtype.phys_info.velocity))); //do thrust & drag if ((drag = obj->mtype.phys_info.drag) != 0) { int count; vms_vector accel; fix r,k; count = sim_time / FT; r = sim_time % FT; k = fixdiv(r,FT); if (obj->mtype.phys_info.flags & PF_USES_THRUST) { vm_vec_copy_scale(&accel,&obj->mtype.phys_info.thrust,fixdiv(f1_0,obj->mtype.phys_info.mass)); while (count--) { vm_vec_add2(&obj->mtype.phys_info.velocity,&accel); vm_vec_scale(&obj->mtype.phys_info.velocity,f1_0-drag); } //do linear scale on remaining bit of time vm_vec_scale_add2(&obj->mtype.phys_info.velocity,&accel,k); vm_vec_scale(&obj->mtype.phys_info.velocity,f1_0-fixmul(k,drag)); } else { fix total_drag=f1_0; while (count--) total_drag = fixmul(total_drag,f1_0-drag); //do linear scale on remaining bit of time total_drag = fixmul(total_drag,f1_0-fixmul(k,drag)); vm_vec_scale(&obj->mtype.phys_info.velocity,total_drag); } } #ifdef EXTRA_DEBUG if (obj == debug_obj) printf(" velocity = %x %x %x\n",XYZ(&obj->mtype.phys_info.velocity)); #endif do { try_again = 0; //Move the object vm_vec_copy_scale(&frame_vec, &obj->mtype.phys_info.velocity, sim_time); #ifdef EXTRA_DEBUG if (obj == debug_obj) printf(" pass %d, frame_vec = %x %x %x\n",count,XYZ(&frame_vec)); #endif if ( (frame_vec.x==0) && (frame_vec.y==0) && (frame_vec.z==0) ) break; count++; // If retry count is getting large, then we are trying to do something stupid. if ( count > 3) { if (obj->type == OBJ_PLAYER) { if (count > 8) break; } else break; } vm_vec_add(&new_pos,&obj->pos,&frame_vec); #ifdef EXTRA_DEBUG if (obj == debug_obj) printf(" desired_pos = %x %x %x\n",XYZ(&new_pos)); #endif ignore_obj_list[n_ignore_objs] = -1; #ifdef EXTRA_DEBUG if (obj == debug_obj) { printf(" FVI parms: p0 = %8x %8x %8x, segnum=%x, size=%x\n",XYZ(&obj->pos),obj->segnum,obj->size); printf(" p1 = %8x %8x %8x\n",XYZ(&new_pos)); } #endif fq.p0 = &obj->pos; fq.startseg = obj->segnum; fq.p1 = &new_pos; fq.rad = obj->size; fq.thisobjnum = objnum; fq.ignore_obj_list = ignore_obj_list; fq.flags = FQ_CHECK_OBJS; if (obj->type == OBJ_WEAPON) fq.flags |= FQ_TRANSPOINT; if (obj->type == OBJ_PLAYER) fq.flags |= FQ_GET_SEGLIST; //@@ if (get_seg_masks(&obj->pos,obj->segnum,0).centermask!=0) //@@ Int3(); save_p0 = *fq.p0; save_p1 = *fq.p1; fate = find_vector_intersection(&fq,&hit_info); // Matt: Mike's hack. if (fate == HIT_OBJECT) { object *objp = &Objects[hit_info.hit_object]; if ((objp->type == OBJ_WEAPON) && (objp->id == PROXIMITY_ID)) count--; } #ifndef NDEBUG if (fate == HIT_BAD_P0) { mprintf((0,"Warning: Bad p0 in physics! Object = %i, type = %i [%s]\n", obj-Objects, obj->type, Object_type_names[obj->type])); Int3(); } #endif if (obj->type == OBJ_PLAYER) { int i; if (n_phys_segs && phys_seglist[n_phys_segs-1]==hit_info.seglist[0]) n_phys_segs--; for (i=0;(itype, Object_type_names[obj->type])); #endif //Int3(); //compute_segment_center(&ipos,&Segments[obj->segnum]); //ipos.x += objnum; //iseg = obj->segnum; //fate = HIT_NONE; if (obj->type == OBJ_WEAPON) obj->flags |= OF_SHOULD_BE_DEAD; break; } Assert(!((fate==HIT_WALL) && ((WallHitSeg == -1) || (WallHitSeg > Highest_segment_index)))); //if(!get_seg_masks(&hit_info.hit_pnt,hit_info.hit_seg,0).centermask==0) // Int3(); save_pos = obj->pos; //save the object's position save_seg = obj->segnum; // update object's position and segment number obj->pos = ipos; #ifdef EXTRA_DEBUG if (obj == debug_obj) printf(" new pos = %x %x %x\n",XYZ(&obj->pos)); #endif if ( iseg != obj->segnum ) obj_relink(objnum, iseg ); //if start point not in segment, move object to center of segment if (get_seg_masks(&obj->pos,obj->segnum,0).centermask!=0) { int n; if ((n=find_object_seg(obj))==-1) { //Int3(); if (obj->type==OBJ_PLAYER && (n=find_point_seg(&obj->last_pos,obj->segnum))!=-1) { obj->pos = obj->last_pos; obj_relink(objnum, n ); } else { compute_segment_center(&obj->pos,&Segments[obj->segnum]); obj->pos.x += objnum; } if (obj->type == OBJ_WEAPON) obj->flags |= OF_SHOULD_BE_DEAD; } return; } //calulate new sim time { //vms_vector moved_vec; vms_vector moved_vec_n; fix attempted_dist,actual_dist; actual_dist = vm_vec_normalized_dir(&moved_vec_n,&obj->pos,&save_pos); if (fate==HIT_WALL && vm_vec_dot(&moved_vec_n,&frame_vec) < 0) { //moved backwards //don't change position or sim_time //******* mprintf((0,"Obj %d moved backwards\n",obj-Objects)); #ifdef EXTRA_DEBUG if (obj == debug_obj) printf(" Warning: moved backwards!\n"); #endif obj->pos = save_pos; //iseg = obj->segnum; //don't change segment obj_relink(objnum, save_seg ); moved_time = 0; } else { fix old_sim_time; //if (obj == debug_obj) // printf(" moved_vec = %x %x %x\n",XYZ(&moved_vec)); attempted_dist = vm_vec_mag(&frame_vec); old_sim_time = sim_time; sim_time = fixmuldiv(sim_time,attempted_dist-actual_dist,attempted_dist); moved_time = old_sim_time - sim_time; if (sim_time < 0 || sim_time>old_sim_time) { #ifndef NDEBUG mprintf((0,"Bogus sim_time = %x, old = %x\n",sim_time,old_sim_time)); if (obj == debug_obj) printf(" Bogus sim_time = %x, old = %x, attempted_dist = %x, actual_dist = %x\n",sim_time,old_sim_time,attempted_dist,actual_dist); //Int3(); Removed by Rob #endif sim_time = old_sim_time; //WHY DOES THIS HAPPEN?? moved_time = 0; } } #ifdef EXTRA_DEBUG if (obj == debug_obj) printf(" new sim_time = %x\n",sim_time); #endif } switch( fate ) { case HIT_WALL: { vms_vector moved_v; //@@fix total_d,moved_d; fix hit_speed,wall_part; // Find hit speed vm_vec_sub(&moved_v,&obj->pos,&save_pos); wall_part = vm_vec_dot(&moved_v,&hit_info.hit_wallnorm); if (wall_part != 0 && moved_time>0 && (hit_speed=-fixdiv(wall_part,moved_time))>0) collide_object_with_wall( obj, hit_speed, WallHitSeg, WallHitSide, &hit_info.hit_pnt ); else scrape_object_on_wall(obj, WallHitSeg, WallHitSide, &hit_info.hit_pnt ); Assert( WallHitSeg > -1 ); Assert( WallHitSide > -1 ); if ( !(obj->flags&OF_SHOULD_BE_DEAD) ) { Assert(! (obj->mtype.phys_info.flags & PF_STICK && obj->mtype.phys_info.flags & PF_BOUNCE)); //can't be bounce and stick if (obj->mtype.phys_info.flags & PF_STICK) { //stop moving // mprintf((0, "Object %i stuck at %i:%i\n", obj-Objects, WallHitSeg, WallHitSide)); add_stuck_object(obj, WallHitSeg, WallHitSide); vm_vec_zero(&obj->mtype.phys_info.velocity); obj_stopped = 1; try_again = 0; } else { // Slide object along wall //We're constrained by wall, so subtract wall part from //velocity vector wall_part = vm_vec_dot(&hit_info.hit_wallnorm,&obj->mtype.phys_info.velocity); if (obj->mtype.phys_info.flags & PF_BOUNCE) //bounce off wall wall_part *= 2; //Subtract out wall part twice to achieve bounce vm_vec_scale_add2(&obj->mtype.phys_info.velocity,&hit_info.hit_wallnorm,-wall_part); #ifdef EXTRA_DEBUG if (obj == debug_obj) { printf(" sliding - wall_norm %x %x %x\n",wall_part,XYZ(&hit_info.hit_wallnorm)); printf(" wall_part %x, new velocity = %x %x %x\n",wall_part,XYZ(&obj->mtype.phys_info.velocity)); } #endif try_again = 1; } } break; } case HIT_OBJECT: { vms_vector old_vel; // Mark the hit object so that on a retry the fvi code // ignores this object. Assert(hit_info.hit_object != -1); // Calculcate the hit point between the two objects. { vms_vector *ppos0, *ppos1, pos_hit; fix size0, size1; ppos0 = &Objects[hit_info.hit_object].pos; ppos1 = &obj->pos; size0 = Objects[hit_info.hit_object].size; size1 = obj->size; Assert(size0+size1 != 0); // Error, both sizes are 0, so how did they collide, anyway?!? //vm_vec_scale(vm_vec_sub(&pos_hit, ppos1, ppos0), fixdiv(size0, size0 + size1)); //vm_vec_add2(&pos_hit, ppos0); vm_vec_sub(&pos_hit, ppos1, ppos0); vm_vec_scale_add(&pos_hit,ppos0,&pos_hit,fixdiv(size0, size0 + size1)); old_vel = obj->mtype.phys_info.velocity; collide_two_objects( obj, &Objects[hit_info.hit_object], &pos_hit); } // Let object continue its movement if ( !(obj->flags&OF_SHOULD_BE_DEAD) ) { //obj->pos = save_pos; if (obj->mtype.phys_info.flags&PF_PERSISTENT || (old_vel.x == obj->mtype.phys_info.velocity.x && old_vel.y == obj->mtype.phys_info.velocity.y && old_vel.z == obj->mtype.phys_info.velocity.z)) { //if (Objects[hit_info.hit_object].type == OBJ_POWERUP) ignore_obj_list[n_ignore_objs++] = hit_info.hit_object; try_again = 1; } } break; } case HIT_NONE: break; #ifndef NDEBUG case HIT_BAD_P0: Int3(); // Unexpected collision type: start point not in specified segment. mprintf((0,"Warning: Bad p0 in physics!!!\n")); break; default: // Unknown collision type returned from find_vector_intersection!! Int3(); break; #endif } } while ( try_again ); // Pass retry count info to AI. if (obj->control_type == CT_AI) { if (count > 0) { Ai_local_info[objnum].retry_count = count-1; Total_retries += count-1; Total_sims++; } } if (! obj_stopped) { //Set velocity from actual movement vms_vector moved_vec; vm_vec_sub(&moved_vec,&obj->pos,&start_pos); vm_vec_copy_scale(&obj->mtype.phys_info.velocity,&moved_vec,fixdiv(f1_0,FrameTime)); #ifdef BUMP_HACK if (obj==ConsoleObject && (obj->mtype.phys_info.velocity.x==0 && obj->mtype.phys_info.velocity.y==0 && obj->mtype.phys_info.velocity.z==0) && !(obj->mtype.phys_info.thrust.x==0 && obj->mtype.phys_info.thrust.y==0 && obj->mtype.phys_info.thrust.z==0)) { vms_vector center,bump_vec; //bump player a little towards center of segment to unstick compute_segment_center(¢er,&Segments[obj->segnum]); vm_vec_normalized_dir_quick(&bump_vec,¢er,&obj->pos); vm_vec_scale_add2(&obj->pos,&bump_vec,obj->size/5); } #endif } //Assert(check_point_in_seg(&obj->pos,obj->segnum,0).centermask==0); //if (obj->control_type == CT_FLYING) if (obj->mtype.phys_info.flags & PF_LEVELLING) do_physics_align_object( obj ); //hack to keep player from going through closed doors if (obj->type==OBJ_PLAYER && obj->segnum!=orig_segnum && (Physics_cheat_flag!=0xBADA55) ) { int sidenum; sidenum = find_connect_side(&Segments[obj->segnum],&Segments[orig_segnum]); if (sidenum != -1) { if (! (WALL_IS_DOORWAY(&Segments[orig_segnum],sidenum) & WID_FLY_FLAG)) { side *s; int vertnum,num_faces,i; fix dist; int vertex_list[6]; //bump object back s = &Segments[orig_segnum].sides[sidenum]; create_abs_vertex_lists( &num_faces, vertex_list, orig_segnum, sidenum); //let's pretend this wall is not triangulated vertnum = vertex_list[0]; for (i=1;i<4;i++) if (vertex_list[i] < vertnum) vertnum = vertex_list[i]; #ifdef COMPACT_SEGS { vms_vector _vn; get_side_normal(&Segments[orig_segnum], sidenum, 0, &_vn ); dist = vm_dist_to_plane(&start_pos, &_vn, &Vertices[vertnum]); vm_vec_scale_add(&obj->pos,&start_pos,&_vn,obj->size-dist); } #else dist = vm_dist_to_plane(&start_pos, &s->normals[0], &Vertices[vertnum]); vm_vec_scale_add(&obj->pos,&start_pos,&s->normals[0],obj->size-dist); #endif update_object_seg(obj); } } } //--WE ALWYS WANT THIS IN, MATT AND MIKE DECISION ON 12/10/94, TWO MONTHS AFTER FINAL #ifndef NDEBUG //if end point not in segment, move object to last pos, or segment center if (get_seg_masks(&obj->pos,obj->segnum,0).centermask!=0) { if (find_object_seg(obj)==-1) { int n; //Int3(); if (obj->type==OBJ_PLAYER && (n=find_point_seg(&obj->last_pos,obj->segnum))!=-1) { obj->pos = obj->last_pos; obj_relink(objnum, n ); } else { compute_segment_center(&obj->pos,&Segments[obj->segnum]); obj->pos.x += objnum; } if (obj->type == OBJ_WEAPON) obj->flags |= OF_SHOULD_BE_DEAD; } } //--WE ALWYS WANT THIS IN, MATT AND MIKE DECISION ON 12/10/94, TWO MONTHS AFTER FINAL #endif } //--unused-- //tell us what the given object will do (as far as hiting walls) in //--unused-- //the given time (in seconds) t. Igores acceleration (sorry) //--unused-- //if check_objects is set, check with objects, else just with walls //--unused-- //returns fate, fills in hit time. If fate==HIT_NONE, hit_time undefined //--unused-- int physics_lookahead(object *obj,fix t,int fvi_flags,fix *hit_time, fvi_info *hit_info) //--unused-- { //--unused-- vms_vector new_pos; //--unused-- int objnum,fate; //--unused-- fvi_query fq; //--unused-- //--unused-- Assert(obj->movement_type == MT_PHYSICS); //--unused-- //--unused-- objnum = obj-Objects; //--unused-- //--unused-- vm_vec_scale_add(&new_pos, &obj->pos, &obj->mtype.phys_info.velocity, t); //--unused-- //--unused-- fq.p0 = &obj->pos; //--unused-- fq.startseg = obj->segnum; //--unused-- fq.p1 = &new_pos; //--unused-- fq.rad = obj->size; //--unused-- fq.thisobjnum = objnum; //--unused-- fq.ignore_obj_list = NULL; //--unused-- fq.flags = fvi_flags; //--unused-- //--unused-- fate = find_vector_intersection(&fq,hit_info); //--unused-- //--unused-- if (fate != HIT_NONE) { //--unused-- fix dist,speed; //--unused-- //--unused-- dist = vm_vec_dist(&obj->pos, &hit_info->hit_pnt); //--unused-- //--unused-- speed = vm_vec_mag(&obj->mtype.phys_info.velocity); //--unused-- //--unused-- *hit_time = fixdiv(dist,speed); //--unused-- //--unused-- } //--unused-- //--unused-- return fate; //--unused-- //--unused-- } //Applies an instantaneous force on an object, resulting in an instantaneous //change in velocity. phys_apply_force(object *obj,vms_vector *force_vec) { if (obj->movement_type != MT_PHYSICS) return; //Add in acceleration due to force vm_vec_scale_add2(&obj->mtype.phys_info.velocity,force_vec,fixdiv(f1_0,obj->mtype.phys_info.mass)); } // ---------------------------------------------------------------- // Do *dest = *delta unless: // *delta is pretty small // and they are of different signs. void physics_set_rotvel_and_saturate(fix *dest, fix delta) { if ((delta ^ *dest) < 0) { if (abs(delta) < F1_0/8) { // mprintf((0, "D")); *dest = delta/4; } else // mprintf((0, "d")); *dest = delta; } else { // mprintf((0, "!")); *dest = delta; } } // ------------------------------------------------------------------------------------------------------ // Note: This is the old ai_turn_towards_vector code. // phys_apply_rot used to call ai_turn_towards_vector until I fixed it, which broke phys_apply_rot. void physics_turn_towards_vector(vms_vector *goal_vector, object *obj, fix rate) { vms_angvec dest_angles, cur_angles; fix delta_p, delta_h; vms_vector *rotvel_ptr = &obj->mtype.phys_info.rotvel; // Make this object turn towards the goal_vector. Changes orientation, doesn't change direction of movement. // If no one moves, will be facing goal_vector in 1 second. // Detect null vector. if ((goal_vector->x == 0) && (goal_vector->y == 0) && (goal_vector->z == 0)) return; // Make morph objects turn more slowly. if (obj->control_type == CT_MORPH) rate *= 2; vm_extract_angles_vector(&dest_angles, goal_vector); vm_extract_angles_vector(&cur_angles, &obj->orient.fvec); delta_p = (dest_angles.p - cur_angles.p); delta_h = (dest_angles.h - cur_angles.h); if (delta_p > F1_0/2) delta_p = dest_angles.p - cur_angles.p - F1_0; if (delta_p < -F1_0/2) delta_p = dest_angles.p - cur_angles.p + F1_0; if (delta_h > F1_0/2) delta_h = dest_angles.h - cur_angles.h - F1_0; if (delta_h < -F1_0/2) delta_h = dest_angles.h - cur_angles.h + F1_0; delta_p = fixdiv(delta_p, rate); delta_h = fixdiv(delta_h, rate); if (abs(delta_p) < F1_0/16) delta_p *= 4; if (abs(delta_h) < F1_0/16) delta_h *= 4; physics_set_rotvel_and_saturate(&rotvel_ptr->x, delta_p); physics_set_rotvel_and_saturate(&rotvel_ptr->y, delta_h); rotvel_ptr->z = 0; } // ----------------------------------------------------------------------------- // Applies an instantaneous whack on an object, resulting in an instantaneous // change in orientation. phys_apply_rot(object *obj,vms_vector *force_vec) { fix rate, vecmag; if (obj->movement_type != MT_PHYSICS) return; vecmag = vm_vec_mag(force_vec)/8; if (vecmag < F1_0/256) rate = 4*F1_0; else if (vecmag < obj->mtype.phys_info.mass >> 14) rate = 4*F1_0; else { rate = fixdiv(obj->mtype.phys_info.mass, vecmag); if (obj->type == OBJ_ROBOT) { if (rate < F1_0/4) rate = F1_0/4; obj->ctype.ai_info.SKIP_AI_COUNT = 2; } else { if (rate < F1_0/2) rate = F1_0/2; } } // Turn amount inversely proportional to mass. Third parameter is seconds to do 360 turn. physics_turn_towards_vector(force_vec, obj, rate); } //this routine will set the thrust for an object to a value that will //(hopefully) maintain the object's current velocity set_thrust_from_velocity(object *obj) { fix k; Assert(obj->movement_type == MT_PHYSICS); k = fixmuldiv(obj->mtype.phys_info.mass,obj->mtype.phys_info.drag,(f1_0-obj->mtype.phys_info.drag)); vm_vec_copy_scale(&obj->mtype.phys_info.thrust,&obj->mtype.phys_info.velocity,k); }