prj/cam/src/ai/aidbgcmp.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/aidbgcmp.cpp,v 1.11 2000/02/19 12:17:29 toml Exp $
   8 //
   9 //
  10 //
  11
  12 // #define PROFILE_ON 1
  13
  14 #include <lg.h>
  15 #include <mprintf.h>
  16 #include <str.h>
  17
  18 #include <label.h>
  19 #include <speech.h>
  20 #include <tagdbin.h>
  21
  22 #include <aiapiabl.h>
  23 #include <aiapiact.h>
  24 #include <aidbgcmp.h>
  25 #include <aidebug.h>
  26 #include <aibasctm.h>
  27 #include <aigoal.h>
  28 #include <memall.h>
  29 #include <dbmem.h>   // must be last header!
  30
  31 ///////////////////////////////////////////////////////////////////////////////
  32 //
  33 // CLASS: cAIFlowDebugger
  34 //
  35
  36 STDMETHODIMP_(const char *) cAIFlowDebugger::GetName()
  37 {
  38    return "Flow debugging component";
  39 }
  40
  41 ///////////////////////////////////////
  42
  43 STDMETHODIMP_(void) cAIFlowDebugger::Init()
  44 {
  45    SetNotifications(kAICN_ActionProgress | kAICN_GoalProgress | kAICN_ModeChange | kAICN_GoalChange | kAICN_ActionChange);
  46 }
  47
  48 ///////////////////////////////////////
  49
  50 STDMETHODIMP_(void) cAIFlowDebugger::OnActionProgress(IAIAction * pAction)
  51 {
  52 #ifndef SHIP
  53    // mprintf("***** %d\n", pAction->GetResult());
  54    if (AIIsWatched(Flow, GetID()))
  55    {
  56       if (!pAction->InProgress())
  57       {
  58          cStr desc;
  59          pAction->Describe(&desc);
  60          AIWatch2(Flow,
  61                   GetID(),
  62                   "%s action \"%s\"",
  63                   (pAction->GetResult() == kAIR_Success) ? "completed" : "failed to complete",
  64                   desc.operator const char *());
  65       }
  66    }
  67 #endif
  68 }
  69
  70 ///////////////////////////////////////
  71
  72 STDMETHODIMP_(void) cAIFlowDebugger::OnGoalProgress(const cAIGoal * pGoal)
  73 {
  74 #ifndef SHIP
  75    if (AIIsWatched(Flow, GetID()))
  76    {
  77       if (!pGoal->InProgress())
  78       {
  79          cStr desc;
  80          pGoal->Describe(&desc);
  81          AIWatch2(Flow,
  82                   GetID(),
  83                   "%s goal \"%s\"",
  84                   (pGoal->result == kAIR_Success) ? "satisfied" : "failed to satisfy",
  85                   desc.operator const char *());
  86       }
  87    }
  88 #endif
  89 }
  90
  91 ///////////////////////////////////////
  92
  93 STDMETHODIMP_(void) cAIFlowDebugger::OnModeChange(eAIMode previous, eAIMode mode)
  94 {
  95    AIWatch1(Flow,
  96             GetID(),
  97             "changed to mode \"%s\"",
  98             AIGetModeName(mode));
  99 }
 100
 101 ///////////////////////////////////////
 102
 103 STDMETHODIMP_(void) cAIFlowDebugger::OnGoalChange(const cAIGoal * pPrevious, const cAIGoal * pGoal)
 104 {
 105 // @TBD (toml 06-12-98): this whole class has to be ifndef ship
 106 #ifndef SHIP
 107    if (AIIsWatched(Flow, GetID()))
 108    {
 109       cStr desc;
 110       const char * pszAbilityName;
 111       if (pGoal)
 112       {
 113          pGoal->Describe(&desc);
 114          pszAbilityName = pGoal->pOwner->GetName();
 115       }
 116       else
 117       {
 118          desc = "(No goal)";
 119          pszAbilityName = "(none)";
 120       }
 121
 122       AIWatch2(Flow, GetID(),
 123                "changed goal to \"%s\", ability \"%s\"", desc.operator const char *(), pszAbilityName);
 124    }
 125 #endif
 126 }
 127
 128 ///////////////////////////////////////
 129
 130 STDMETHODIMP_(void) cAIFlowDebugger::OnActionChange(IAIAction * pPrevious, IAIAction * pAction)
 131 {
 132 #ifndef SHIP
 133    if (AIIsWatched(Flow, GetID()))
 134    {
 135       cStr desc;
 136       const char * pszAbilityName;
 137       if (pAction)
 138       {
 139          pAction->Describe(&desc);
 140          pszAbilityName = pAction->Access()->pOwner->GetName();
 141       }
 142       else
 143       {
 144          desc = "(No action)";
 145          pszAbilityName = "(none)";
 146       }
 147
 148       AIWatch2(Flow, GetID(),
 149                "changed action to \"%s\" from ability \"%s\"", desc.operator const char *(), pszAbilityName);
 150    }
 151 #endif
 152 }
 153
 154 ///////////////////////////////////////////////////////////////////////////////