prj/cam/src/engfeat/flinder.cpp

   1 /*
   2 @Copyright Looking Glass Studios, Inc.
   3 1996,1997,1998,1999,2000 Unpublished Work.
   4 */
   5
   6 ////////////////////////////////////////////////////////////////////////////////
   7 // $Header: r:/t2repos/thief2/src/engfeat/flinder.cpp,v 1.2 1999/04/28 13:49:42 XEMU Exp $
   8
   9 #include <lg.h>
  10 #include <comtools.h>
  11 #include <appagg.h>
  12 #include <matrix.h>
  13 #include <rand.h>
  14
  15 #include <iobjsys.h>
  16 #include <objedit.h>
  17 #include <objpos.h>
  18 #include <objdef.h>
  19 #include <objshape.h>
  20
  21 #include <sphrcst.h>
  22 #include <sphrcsts.h>
  23 #include <wrtype.h>
  24 #include <port.h>
  25
  26 #include <phprop.h>
  27 #include <physapi.h>
  28
  29 #include <flinder.h>
  30
  31 // Must be last header
  32 #include <dbmem.h>
  33
  34 void CreateFlinders(ObjID victim, ObjID flinder, int count, BOOL scatter, float impulse, const mxs_vector &offset)
  35 {
  36    if (OBJ_IS_CONCRETE(flinder))
  37    {
  38       Warning(("%s attempts to flinderize with concrete flinders?\n", ObjWarnName(victim)));
  39       return;
  40    }
  41
  42    if (count == 0)
  43    {
  44       Warning(("%s attempt to flinderize into %s, but 0 count?\n", ObjWarnName(victim), ObjWarnName(flinder)));
  45       return;
  46    }
  47
  48    mxs_vector flinder_loc;
  49    Position  *pPos;
  50    int i, j;
  51
  52    if ((pPos = ObjPosGet(victim)) == NULL)
  53    {
  54       Warning(("Attempt to flinderize object %d w/o position!\n", victim));
  55       return;
  56    }
  57
  58    if (!scatter)
  59    {
  60       mxs_matrix obj_rot;
  61
  62       mx_ang2mat(&obj_rot, &pPos->fac);
  63       mx_mat_mul_vec(&flinder_loc, &obj_rot, &offset);
  64       mx_addeq_vec(&flinder_loc, &pPos->loc.vec);
  65    }
  66
  67    AutoAppIPtr_(ObjectSystem, pObjSys);
  68
  69    for (i=0; i<count; i++)
  70    {
  71       // create the flinder
  72       ObjID flinder_obj = pObjSys->BeginCreate(flinder, kObjectConcrete);
  73
  74       // find a valid location for this flinder, if we're scattering
  75       if (scatter)
  76       {
  77          cPhysDimsProp *pDimsProp;
  78
  79          if (!g_pPhysDimsProp->Get(flinder_obj, &pDimsProp))
  80          {
  81             Warning(("Non-physical flinder obj %s?\n", ObjWarnName(flinder)));
  82             pObjSys->EndCreate(flinder_obj);
  83             pObjSys->Destroy(flinder_obj);
  84             return;
  85          }
  86
  87          // this probably should be the object-relative bbox, and then we should
  88          // rotate it ourselves, but that forces us to ang2mat for each flinderize
  89          // link, and we just don't care that much.
  90          mxs_vector bmin, bmax;
  91          ObjGetWorldBBox(victim, &bmin, &bmax);
  92
  93          for (j=0; j<3; j++)
  94          {
  95             mxs_real rand_amt = ((float)(Rand() % 1024) / 1024.0);
  96             flinder_loc.el[j] = ((bmax.el[j] - bmin.el[j]) * rand_amt) + bmin.el[j];
  97          }
  98
  99          Location start, end;
 100
 101          MakeHintedLocationFromVector(&start, &pPos->loc.vec, &pPos->loc);
 102          MakeHintedLocationFromVector(&end, &flinder_loc, &pPos->loc);
 103
 104          if (pDimsProp->radius[0] == 0.0)
 105          {
 106             Location hit;
 107
 108             if (!PortalRaycast(&start, &end, &hit, FALSE))
 109                mx_interpolate_vec(&flinder_loc, &start.vec, &hit.vec, 0.95);
 110             else
 111                flinder_loc = end.vec;
 112          }
 113          else
 114          {
 115             int contact_count;
 116
 117             if ((contact_count = SphrSpherecastStatic(&start, &end, pDimsProp->radius[0], 0)) > 0)
 118             {
 119                sSphrContact *pContact = &gaSphrContact[0];
 120                for (j=1; j<contact_count; j++)
 121                {
 122                   if (gaSphrContact[j].time < pContact->time)
 123                      pContact = &gaSphrContact[j];
 124                }
 125
 126                mx_interpolate_vec(&flinder_loc, &start.vec, &pContact->point_on_ray, 0.95);
 127             }
 128             else
 129                flinder_loc = end.vec;
 130          }
 131       }
 132
 133       // update its position
 134       ObjPosUpdate(flinder_obj, &flinder_loc, &pPos->fac);
 135       pObjSys->EndCreate(flinder_obj);
 136
 137       // apply a velocity away
 138       mxs_vector velocity;
 139       mxs_vector rot_velocity;
 140       mxs_real   obj_impulse;
 141
 142       mx_sub_vec(&velocity, &flinder_loc, &pPos->loc.vec);
 143       if (mx_mag2_vec(&velocity) > 0.0001)
 144          mx_normeq_vec(&velocity);
 145
 146       obj_impulse = impulse + (((float)(Rand() % 1024) / 1024.0) * impulse * 0.5) - impulse * 0.25;
 147
 148       mx_scaleeq_vec(&velocity, impulse);
 149       PhysSetVelocity(flinder_obj, &velocity);
 150
 151       // apply a rotational velocity, too
 152       for (j=0; j<3; j++)
 153          rot_velocity.el[j] = ((float)(Rand() % 1024) / 512.0) - 1.0;
 154
 155       mx_scaleeq_vec(&rot_velocity, impulse * 0.6);
 156       PhysSetRotationalVelocity(flinder_obj, &rot_velocity);
 157    }
 158 }
 159
 160
 161