prj/cam/src/ai/aiscrpt.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/ai/aiscrpt.cpp,v 1.17 2000/02/19 12:45:34 toml Exp $
   8 //
   9 //
  10 //
  11
  12 #include <lg.h>
  13 #include <mprintf.h>
  14 #include <appagg.h>
  15
  16 #include <link.h>
  17 #include <relation.h>
  18
  19 #include <aiapiiai.h>
  20 #include <scrptapi.h>
  21 #include <scrptsrv.h>
  22 #include <scrptmsg.h>
  23
  24 #include <aialert.h>
  25 #include <aiapi.h>
  26 #include <aiaware.h>
  27 #include <aiprcore.h>
  28 #include <aiscrabl.h>
  29 #include <aisignal.h>
  30 #include <aisound.h>
  31 #include <speech.h>
  32
  33 #include <objscrt.h>
  34 #include <aiscrpt.h>
  35
  36 #include <netmsg.h>
  37 #include <memall.h>
  38 #include <dbmem.h>   // must be last header!
  39
  40 ///////////////////////////////////////////////////////////////////////////////
  41 //
  42 // Messages
  43 //
  44
  45 IMPLEMENT_SCRMSG_PERSISTENT(sAISignalMsg)
  46 {
  47    PersistenceHeader(sScrMsg, kAISignalMsgVer);
  48    PersistentEnum(signal);
  49
  50    return TRUE;
  51 }
  52
  53 IMPLEMENT_SCRMSG_PERSISTENT(sAIPatrolPointMsg)
  54 {
  55    PersistenceHeader(sScrMsg, kAIPatrolPointMsgVer);
  56    PersistentEnum(patrolObj);
  57
  58    return TRUE;
  59 }
  60
  61 IMPLEMENT_SCRMSG_PERSISTENT(sAIModeChangeMsg)
  62 {
  63    PersistenceHeader(sScrMsg, kAIModeChangeMsgVer);
  64    PersistentEnum(mode);
  65    PersistentEnum(previous_mode);
  66
  67    return TRUE;
  68 }
  69
  70
  71 IMPLEMENT_SCRMSG_PERSISTENT(sAIAlertnessMsg)
  72 {
  73    PersistenceHeader(sScrMsg, kAIAlertnessMsgVer);
  74    PersistentEnum(level);
  75    PersistentEnum(oldLevel);
  76
  77    return TRUE;
  78 }
  79
  80
  81 IMPLEMENT_SCRMSG_PERSISTENT(sAIHighAlertMsg)
  82 {
  83    PersistenceHeader(sScrMsg, kAIHighAlertMsgVer);
  84    PersistentEnum(level);
  85    PersistentEnum(oldLevel);
  86
  87    return TRUE;
  88 }
  89
  90 IMPLEMENT_SCRMSG_PERSISTENT(sAIResultMsg)
  91 {
  92    PersistenceHeader(sScrMsg, kAIResultMsgVer);
  93    PersistentEnum(action);
  94    PersistentEnum(result);
  95    Persistent(data);
  96
  97    return TRUE;
  98 }
  99
 100 IMPLEMENT_SCRMSG_PERSISTENT(sAIObjActResultMsg)
 101 {
 102    PersistenceHeader(sAIResultMsg, kAIObjActResultMsgVer);
 103    Persistent(target);
 104
 105    return TRUE;
 106 }
 107
 108 #if 0
 109 IMPLEMENT_SCRMSG_PERSISTENT(sAIMnvrResultMsg)
 110 {
 111    PersistenceHeader(sAIResultMsg, kAIMnvrResultMsgVer);
 112    Persistent(maneuver);
 113
 114    return TRUE;
 115 }
 116 #endif
 117
 118 ///////////////////////////////////////////////////////////////////////////////
 119 //
 120 // Distributed services
 121 //
 122 // These are the implementations for script service methods that may need
 123 // to be sent to AIs on other machines.
 124 //
 125 // @TBD (justin 2/12/99): Many more of the services should be distributed
 126 // like this. Essentially, anything that may get invoked by a script on an
 127 // object *other* than the AI itself should be treated like this. For the
 128 // time being, AI.Signal() is the high-priority, since it's usually called
 129 // by other objects.
 130 //
 131
 132 //////////
 133 //
 134 // AI.Signal()
 135 //
 136 static void doSignal(ObjID objIdAI, const char *signalName)
 137 {
 138    cAIBasicScript * pBasicScript = cAIBasicScript::AccessBasicScript(objIdAI);
 139
 140    if (pBasicScript)
 141    {
 142       IInternalAI * pAI = pBasicScript->AccessOuterAI();
 143       sAISignal signal;
 144       signal.name = signalName;
 145       pAI->NotifySignal(&signal);
 146    }
 147 }
 148
 149 static cNetMsg *g_pAISignalMsg = NULL;
 150
 151 // Message contains an ObjID and a string, and will be sent to the object's
 152 // owner. If that is this machine, it will loopback.
 153 static sNetMsgDesc g_pAISignalDesc =
 154 {
 155    kNMF_SendToObjOwner,
 156    "AISignal",
 157    "AI.Signal Script Service",
 158    NULL,
 159    doSignal,
 160    {{kNMPT_ReceiverObjID},
 161     {kNMPT_String},
 162     {kNMPT_End}}
 163 };
 164
 165 ///////////////////////////////////////////////////////////////////////////////
 166 //
 167 // CLASS: cAIScrSrv
 168 //
 169
 170 eAIPriority g_AIScriptPriorityToAIPriority[] =
 171 {
 172    kAIP_Low,                                     // kLowPriorityAction
 173    kAIP_Normal,                                  // kNormalPriorityAction
 174    kAIP_VeryHigh                                 // kHighPriorityAction
 175 };
 176
 177 eAISpeed g_AIScriptSpeedToAISpeed[] =
 178 {
 179    kAIS_Slow,                                    // kSlow
 180    kAIS_Normal,                                  // kNormalSpeed
 181    kAIS_Fast                                     // kFast
 182 };
 183
 184 #define ScrPriToAIPri(pri) g_AIScriptPriorityToAIPriority[pri]
 185 // @TBD (toml 05-25-98): remove this test after the next skup
 186 #define ScrSpdToAISpd(spd)  \
 187    (((spd) > kAIS_Fast) ?  \
 188       (((spd) == 100) ? kAIS_Fast : kAIS_Normal) : \
 189       g_AIScriptSpeedToAISpeed[(spd)])
 190
 191 DECLARE_SCRIPT_SERVICE_IMPL(cAIScrSrv, AI)
 192 {
 193 public:
 194
 195    STDMETHOD_(void, Init)()
 196    {
 197       g_pAISignalMsg = new cNetMsg(&g_pAISignalDesc);
 198    }
 199
 200    STDMETHOD_(void, End)()
 201    {
 202       if (g_pAISignalMsg)
 203       {
 204          delete g_pAISignalMsg;
 205          g_pAISignalMsg = NULL;
 206       }
 207    }
 208
 209    STDMETHOD_(boolean, MakeGotoObjLoc)(ObjID objIdAI, const object &objIdTarget, eAIScriptSpeed speed, eAIActionPriority priority, const cMultiParm ref dataToSendOnReach)
 210    {
 211       cAIBasicScript * pBasicScript = cAIBasicScript::AccessBasicScript(objIdAI);
 212       if (pBasicScript)
 213       {
 214          // @TBD (toml 05-25-98): casts bad
 215          return pBasicScript->GotoObjLoc(ScriptObjID(objIdTarget),
 216                                          ScrSpdToAISpd(speed),
 217                                          ScrPriToAIPri(priority),
 218                                          dataToSendOnReach);
 219       }
 220       return FALSE;
 221    }
 222
 223 #if 0
 224    STDMETHOD_(boolean, MakeDoManeuver)(ObjID objIdAI, const string ref Maneuver, eAIActionPriority priority, const cMultiParm ref dataToSendOnCompletion)
 225    {
 226       cAI * pAI;
 227       g_pAIPool->GetObjAI(objIdAI, pAI);
 228       if (pAI)
 229          return pAI->GetScriptCtx()->DoManeuver(Maneuver, priority, dataToSendOnCompletion);
 230
 231       return FALSE;
 232    }
 233 #endif
 234
 235    STDMETHOD_(boolean, MakeFrobObj)(ObjID objIdAI, const object &objIdTarget, eAIActionPriority priority, const cMultiParm ref dataToSendOnReach)
 236    {
 237       cAIBasicScript * pBasicScript = cAIBasicScript::AccessBasicScript(objIdAI);
 238       if (pBasicScript)
 239       {
 240          // @TBD (toml 05-25-98): casts bad
 241          return pBasicScript->FrobObj(ScriptObjID(objIdTarget),
 242                                       OBJ_NULL,
 243                                       ScrPriToAIPri(priority),
 244                                       dataToSendOnReach);
 245       }
 246       return FALSE;
 247    }
 248
 249    STDMETHOD_(boolean, MakeFrobObj)(ObjID objIdAI, const object &objIdTarget, const object &objWith, eAIActionPriority priority, const cMultiParm ref dataToSendOnReach)
 250    {
 251       cAIBasicScript * pBasicScript = cAIBasicScript::AccessBasicScript(objIdAI);
 252       if (pBasicScript)
 253       {
 254          // @TBD (toml 05-25-98): casts bad
 255          return pBasicScript->FrobObj(ScriptObjID(objIdTarget),
 256                                       ScriptObjID(objWith),
 257                                       ScrPriToAIPri(priority),
 258                                       dataToSendOnReach);
 259       }
 260       return FALSE;
 261    }
 262
 263    STDMETHOD_(eAIScriptAlertLevel, GetAlertLevel)(ObjID objIdAI)
 264    {
 265       cAIBasicScript * pBasicScript = cAIBasicScript::AccessBasicScript(objIdAI);
 266       if (pBasicScript)
 267       {
 268          return (eAIScriptAlertLevel)pBasicScript->AccessOuterAI()->GetState()->GetAlertness();
 269       }
 270       return kNoAlert;
 271    }
 272
 273    STDMETHOD_(void, SetMinimumAlert)(ObjID objIdAI, eAIScriptAlertLevel level)
 274    {
 275       cAIBasicScript * pBasicScript = cAIBasicScript::AccessBasicScript(objIdAI);
 276       if (pBasicScript)
 277       {
 278          sAIAlertCap defCap;
 279          sAIAlertCap * pAlertCap;
 280          if (!g_pAIAlertCapProperty->Get(objIdAI, &pAlertCap))
 281             pAlertCap = &defCap;
 282
 283          if (pAlertCap->minLevel != (eAIAwareLevel)level)
 284          {
 285             pAlertCap->minLevel = (eAIAwareLevel)level;
 286             g_pAIAlertCapProperty->Set(objIdAI, pAlertCap);
 287          }
 288       }
 289    }
 290
 291    STDMETHOD_(void, ClearGoals)(ObjID objIdAI)
 292    {
 293       // I'm not exactly sure if this is meaningful in the new AI
 294    }
 295
 296    // @HACK.  The whole thing.  Also, this only supports stopping
 297    // speech, despite the existance of a matching flag to stop motions.
 298    STDMETHOD_(void, SetScriptFlags)(ObjID objIdAI, int fFlags)
 299    {
 300       cAIBasicScript * pBasicScript
 301          = cAIBasicScript::AccessBasicScript(objIdAI);
 302
 303       if (pBasicScript)
 304       {
 305          IInternalAI *pAI = pBasicScript->AccessOuterAI();
 306          cAISoundEnactor *pEnactor
 307             = (cAISoundEnactor *) pAI->AccessSoundEnactor();
 308
 309          if (!pEnactor)
 310             return;
 311
 312          if (fFlags & kSpeechOff)
 313          {
 314             pEnactor->m_fSpeechStop = TRUE;
 315             SpeechHalt(objIdAI);
 316          }
 317          else
 318             pEnactor->m_fSpeechStop = FALSE;
 319       }
 320    }
 321
 322    STDMETHOD_(void, ClearAlertness)(ObjID objIdAI)
 323    {
 324       cAIBasicScript * pBasicScript = cAIBasicScript::AccessBasicScript(objIdAI);
 325       if (pBasicScript)
 326       {
 327          sAIAlertness defaultAlertness;
 328          sAIAlertness * pAlertness;
 329          if (!g_pAIAlertnessProperty->Get(objIdAI, &pAlertness))
 330             pAlertness = &defaultAlertness;
 331          pAlertness->level = kAIAL_Lowest;
 332          g_pAIAlertnessProperty->Set(objIdAI, pAlertness);
 333          LinkDestroyMany(objIdAI, LINKOBJ_WILDCARD, g_pAIAwarenessLinks->GetID());
 334       }
 335    }
 336
 337    STDMETHOD_(void, Signal)(ObjID objIdAI, const string ref signalName)
 338    {
 339       // This will go to doSignal() on the AI's host machine:
 340       g_pAISignalMsg->Send(OBJ_NULL, objIdAI, signalName);
 341    }
 342
 343    STDMETHOD_(boolean, StartConversation)(ObjID conversationID)
 344    {
 345       AutoAppIPtr(AIManager);
 346       return pAIManager->StartConversation(conversationID);
 347    }
 348
 349 };
 350
 351 IMPLEMENT_SCRIPT_SERVICE_IMPL(cAIScrSrv, AI);
 352
 353 ///////////////////////////////////////////////////////////////////////////////
 354