Torque3D/Engine/source/afx/afxMagicSpell.cpp

//~~~~~~~~~~~~~~~~~~~~//~~~~~~~~~~~~~~~~~~~~//~~~~~~~~~~~~~~~~~~~~//~~~~~~~~~~~~~~~~~~~~~//
// Arcane-FX for MIT Licensed Open Source version of Torque 3D from GarageGames
// Copyright (C) 2015 Faust Logic, Inc.
//
// Permission is hereby granted, free of charge, to any person obtaining a copy
// of this software and associated documentation files (the "Software"), to
// deal in the Software without restriction, including without limitation the
// rights to use, copy, modify, merge, publish, distribute, sublicense, and/or
// sell copies of the Software, and to permit persons to whom the Software is
// furnished to do so, subject to the following conditions:
//
// The above copyright notice and this permission notice shall be included in
// all copies or substantial portions of the Software.
//
// THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
// IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
// FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
// AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
// LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
// FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS
// IN THE SOFTWARE.
//
//~~~~~~~~~~~~~~~~~~~~//~~~~~~~~~~~~~~~~~~~~//~~~~~~~~~~~~~~~~~~~~//~~~~~~~~~~~~~~~~~~~~~//

#include "afx/arcaneFX.h"

#include "console/engineAPI.h"
#include "T3D/gameBase/gameConnection.h"
#include "sfx/sfxSystem.h"
#include "math/mathIO.h"
#include "T3D/containerQuery.h"

#include "afx/afxChoreographer.h"
#include "afx/afxPhrase.h"
#include "afx/afxMagicSpell.h"

//~~~~~~~~~~~~~~~~~~~~//~~~~~~~~~~~~~~~~~~~~//~~~~~~~~~~~~~~~~~~~~//~~~~~~~~~~~~~~~~~~~~~//
// afxMagicSpellData::ewValidator
//
// When any of the effect list fields (addCastingEffect, etc.) are set, this validator
// intercepts the value and adds it to the appropriate effects list. One validator is
// created for each effect list and an id is used to identify which list to add the effect
// to.
//
void afxMagicSpellData::ewValidator::validateType(SimObject* object, void* typePtr)
{
  afxMagicSpellData* spelldata = dynamic_cast<afxMagicSpellData*>(object);
  afxEffectBaseData** ew = (afxEffectBaseData**)(typePtr);

  if (spelldata && ew)
  {
    switch (id)
    {
    case CASTING_PHRASE:
      spelldata->mCasting_fx_list.push_back(*ew);
      break;
    case LAUNCH_PHRASE:
      spelldata->mLaunch_fx_list.push_back(*ew);
      break;
    case DELIVERY_PHRASE:
      spelldata->mDelivery_fx_list.push_back(*ew);
      break;
    case IMPACT_PHRASE:
      spelldata->mImpact_fx_list.push_back(*ew);
      break;
    case LINGER_PHRASE:
      spelldata->mLinger_fx_list.push_back(*ew);
      break;
    }
    *ew = 0;
  }
}

//~~~~~~~~~~~~~~~~~~~~//~~~~~~~~~~~~~~~~~~~~//~~~~~~~~~~~~~~~~~~~~//~~~~~~~~~~~~~~~~~~~~~//

class SpellFinishStartupEvent : public SimEvent
{
public:
  void process(SimObject* obj)
  {
     afxMagicSpell* spell = dynamic_cast<afxMagicSpell*>(obj);
     if (spell)
       spell->finish_startup();
  }
};

//~~~~~~~~~~~~~~~~~~~~//~~~~~~~~~~~~~~~~~~~~//~~~~~~~~~~~~~~~~~~~~//~~~~~~~~~~~~~~~~~~~~~//
//~~~~~~~~~~~~~~~~~~~~//~~~~~~~~~~~~~~~~~~~~//~~~~~~~~~~~~~~~~~~~~//~~~~~~~~~~~~~~~~~~~~~//
// afxMagicSpellData

IMPLEMENT_CO_DATABLOCK_V1(afxMagicSpellData);

ConsoleDocClass( afxMagicSpellData,
   "@brief Defines the properties of an afxMagicSpell.\n\n"

   "@ingroup afxChoreographers\n"
   "@ingroup AFX\n"
   "@ingroup Datablocks\n"
);

IMPLEMENT_CALLBACK( afxMagicSpellData, onDamage, void,
   (afxMagicSpell* spell, const char* label, const char* flaver, U32 target_id, F32 amount, U8 n, Point3F pos, F32 ad_amount, F32 radius, F32 impulse),
   (spell, label, flaver, target_id, amount, n, pos, ad_amount, radius, impulse),
   "Called when the spell deals damage.\n"
   "@param spell the spell object\n" );

IMPLEMENT_CALLBACK( afxMagicSpellData, onDeactivate, void, (afxMagicSpell* spell), (spell),
   "Called when the spell ends naturally.\n"
   "@param spell the spell object\n" );

IMPLEMENT_CALLBACK( afxMagicSpellData, onInterrupt, void, (afxMagicSpell* spell, ShapeBase* caster), (spell, caster),
   "Called when the spell ends unnaturally due to an interruption.\n"
   "@param spell the spell object\n" );

IMPLEMENT_CALLBACK( afxMagicSpellData, onLaunch, void,
   (afxMagicSpell* spell, ShapeBase* caster, SceneObject* target, afxMagicMissile* missile),
   (spell, caster, target, missile),
   "Called when the spell's casting stage ends and the delivery stage begins.\n"
   "@param spell the spell object\n" );

IMPLEMENT_CALLBACK( afxMagicSpellData, onImpact, void,
   (afxMagicSpell* spell, ShapeBase* caster, SceneObject* impacted, Point3F pos, Point3F normal),
   (spell, caster, impacted, pos, normal),
   "Called at the spell's missile impact marking the end of the deliver stage and the start of the linger stage.\n"
   "@param spell the spell object\n" );

IMPLEMENT_CALLBACK( afxMagicSpellData, onPreactivate, bool,
   (SimObject* param_holder, ShapeBase* caster, SceneObject* target, SimObject* extra),
   (param_holder, caster, target, extra),
   "Called during spell casting before spell instance is fully created.\n");

IMPLEMENT_CALLBACK( afxMagicSpellData, onActivate, void,
   (afxMagicSpell* spell, ShapeBase* caster, SceneObject* target),
   (spell, caster, target),
   "Called when the spell starts.\n"
   "@param spell the spell object\n" );

//~~~~~~~~~~~~~~~~~~~~//~~~~~~~~~~~~~~~~~~~~//~~~~~~~~~~~~~~~~~~~~//~~~~~~~~~~~~~~~~~~~~~//

afxMagicSpellData::afxMagicSpellData()
{
  mCasting_dur = 0.0f;
  mDelivery_dur = 0.0f;
  mLinger_dur = 0.0f;

  mNum_casting_loops = 1;
  mNum_delivery_loops = 1;
  mNum_linger_loops = 1;

  mExtra_casting_time = 0.0f;
  mExtra_delivery_time = 0.0f;
  mExtra_linger_time = 0.0f;

  // interrupt flags
  mDo_move_interrupts = true;
  mMove_interrupt_speed = 2.0f;

  // delivers projectile spells
  mMissile_db = 0;
  mLaunch_on_server_signal = false;
  mPrimary_target_types = PlayerObjectType;

  // dummy entry holds effect-wrapper pointer while a special validator
  // grabs it and adds it to an appropriate effects list
  mDummy_fx_entry = NULL;

  // marked true if datablock ids need to
  // be converted into pointers
  mDo_id_convert = false;
}

afxMagicSpellData::afxMagicSpellData(const afxMagicSpellData& other, bool temp_clone) : afxChoreographerData(other, temp_clone)
{
  mCasting_dur = other.mCasting_dur;
  mDelivery_dur = other.mDelivery_dur;
  mLinger_dur = other.mLinger_dur;
  mNum_casting_loops = other.mNum_casting_loops;
  mNum_delivery_loops = other.mNum_delivery_loops;
  mNum_linger_loops = other.mNum_linger_loops;
  mExtra_casting_time = other.mExtra_casting_time;
  mExtra_delivery_time = other.mExtra_delivery_time;
  mExtra_linger_time = other.mExtra_linger_time;
  mDo_move_interrupts = other.mDo_move_interrupts;
  mMove_interrupt_speed = other.mMove_interrupt_speed;
  mMissile_db = other.mMissile_db;
  mLaunch_on_server_signal = other.mLaunch_on_server_signal;
  mPrimary_target_types = other.mPrimary_target_types;

  mDummy_fx_entry = other.mDummy_fx_entry;
  mDo_id_convert = other.mDo_id_convert;

  mCasting_fx_list = other.mCasting_fx_list;
  mLaunch_fx_list = other.mLaunch_fx_list;
  mDelivery_fx_list = other.mDelivery_fx_list;
  mImpact_fx_list = other.mImpact_fx_list;
  mLinger_fx_list = other.mLinger_fx_list;
}

void afxMagicSpellData::reloadReset()
{
  mCasting_fx_list.clear();
  mLaunch_fx_list.clear();
  mDelivery_fx_list.clear();
  mImpact_fx_list.clear();
  mLinger_fx_list.clear();
}

#define myOffset(field) Offset(field, afxMagicSpellData)

void afxMagicSpellData::initPersistFields()
{
  static ewValidator _castingPhrase(CASTING_PHRASE);
  static ewValidator _launchPhrase(LAUNCH_PHRASE);
  static ewValidator _deliveryPhrase(DELIVERY_PHRASE);
  static ewValidator _impactPhrase(IMPACT_PHRASE);
  static ewValidator _lingerPhrase(LINGER_PHRASE);

  // for each effect list, dummy_fx_entry is set and then a validator adds it to the appropriate effects list

  addGroup("Casting Stage");
  addField("castingDur",            TypeF32,        myOffset(mCasting_dur),
    "...");
  addField("numCastingLoops",       TypeS32,        myOffset(mNum_casting_loops),
    "...");
  addField("extraCastingTime",      TypeF32,        myOffset(mExtra_casting_time),
    "...");
  addFieldV("addCastingEffect", TYPEID<afxEffectBaseData>(), Offset(mDummy_fx_entry, afxMagicSpellData), &_castingPhrase,
    "...");
  endGroup("Casting Stage");

  addGroup("Delivery Stage");
  addField("deliveryDur",           TypeF32,        myOffset(mDelivery_dur),
    "...");
  addField("numDeliveryLoops",      TypeS32,        myOffset(mNum_delivery_loops),
    "...");
  addField("extraDeliveryTime",     TypeF32,        myOffset(mExtra_delivery_time),
    "...");
  addFieldV("addLaunchEffect", TYPEID<afxEffectBaseData>(), Offset(mDummy_fx_entry, afxMagicSpellData), &_launchPhrase,
    "...");
  addFieldV("addDeliveryEffect", TYPEID<afxEffectBaseData>(), Offset(mDummy_fx_entry, afxMagicSpellData), &_deliveryPhrase,
    "...");
  endGroup("Delivery Stage");

  addGroup("Linger Stage");
  addField("lingerDur",             TypeF32,        myOffset(mLinger_dur),
    "...");
  addField("numLingerLoops",        TypeS32,        myOffset(mNum_linger_loops),
    "...");
  addField("extraLingerTime",       TypeF32,        myOffset(mExtra_linger_time),
    "...");
  addFieldV("addImpactEffect", TYPEID<afxEffectBaseData>(), Offset(mDummy_fx_entry, afxMagicSpellData), &_impactPhrase,
    "...");
  addFieldV("addLingerEffect", TYPEID<afxEffectBaseData>(), Offset(mDummy_fx_entry, afxMagicSpellData), &_lingerPhrase,
    "...");
  endGroup("Linger Stage");

  // interrupt flags
  addField("allowMovementInterrupts", TypeBool,     myOffset(mDo_move_interrupts),
    "...");
  addField("movementInterruptSpeed",  TypeF32,      myOffset(mMove_interrupt_speed),
    "...");

  // delivers projectile spells
  addField("missile",               TYPEID<afxMagicMissileData>(), myOffset(mMissile_db),
    "...");
  addField("launchOnServerSignal",  TypeBool,                   myOffset(mLaunch_on_server_signal),
    "...");
  addField("primaryTargetTypes",    TypeS32,                    myOffset(mPrimary_target_types),
    "...");


  Parent::initPersistFields();

  // disallow some field substitutions
  onlyKeepClearSubstitutions("missile"); // subs resolving to "~~", or "~0" are OK
  disableFieldSubstitutions("addCastingEffect");
  disableFieldSubstitutions("addLaunchEffect");
  disableFieldSubstitutions("addDeliveryEffect");
  disableFieldSubstitutions("addImpactEffect");
  disableFieldSubstitutions("addLingerEffect");
}

bool afxMagicSpellData::onAdd()
{
  if (Parent::onAdd() == false)
    return false;

  if (mMissile_db != NULL && mDelivery_dur == 0.0)
    mDelivery_dur = -1;

  return true;
}

void afxMagicSpellData::pack_fx(BitStream* stream, const afxEffectList& fx, bool packed)
{
  stream->writeInt(fx.size(), EFFECTS_PER_PHRASE_BITS);
  for (int i = 0; i < fx.size(); i++)
    writeDatablockID(stream, fx[i], packed);
}

void afxMagicSpellData::unpack_fx(BitStream* stream, afxEffectList& fx)
{
  fx.clear();
  S32 n_fx = stream->readInt(EFFECTS_PER_PHRASE_BITS);
  for (int i = 0; i < n_fx; i++)
    fx.push_back((afxEffectWrapperData*)(uintptr_t)readDatablockID(stream));
}

void afxMagicSpellData::packData(BitStream* stream)
{
	Parent::packData(stream);

  stream->write(mCasting_dur);
  stream->write(mDelivery_dur);
  stream->write(mLinger_dur);
  //
  stream->write(mNum_casting_loops);
  stream->write(mNum_delivery_loops);
  stream->write(mNum_linger_loops);
  //
  stream->write(mExtra_casting_time);
  stream->write(mExtra_delivery_time);
  stream->write(mExtra_linger_time);

  stream->writeFlag(mDo_move_interrupts);
  stream->write(mMove_interrupt_speed);

  writeDatablockID(stream, mMissile_db, mPacked);
  stream->write(mLaunch_on_server_signal);
  stream->write(mPrimary_target_types);

  pack_fx(stream, mCasting_fx_list, mPacked);
  pack_fx(stream, mLaunch_fx_list, mPacked);
  pack_fx(stream, mDelivery_fx_list, mPacked);
  pack_fx(stream, mImpact_fx_list, mPacked);
  pack_fx(stream, mLinger_fx_list, mPacked);
}

void afxMagicSpellData::unpackData(BitStream* stream)
{
  Parent::unpackData(stream);

  stream->read(&mCasting_dur);
  stream->read(&mDelivery_dur);
  stream->read(&mLinger_dur);
  //
  stream->read(&mNum_casting_loops);
  stream->read(&mNum_delivery_loops);
  stream->read(&mNum_linger_loops);
  //
  stream->read(&mExtra_casting_time);
  stream->read(&mExtra_delivery_time);
  stream->read(&mExtra_linger_time);

  mDo_move_interrupts = stream->readFlag();
  stream->read(&mMove_interrupt_speed);

  mMissile_db = (afxMagicMissileData*)(uintptr_t)readDatablockID(stream);
  stream->read(&mLaunch_on_server_signal);
  stream->read(&mPrimary_target_types);

  mDo_id_convert = true;
  unpack_fx(stream, mCasting_fx_list);
  unpack_fx(stream, mLaunch_fx_list);
  unpack_fx(stream, mDelivery_fx_list);
  unpack_fx(stream, mImpact_fx_list);
  unpack_fx(stream, mLinger_fx_list);
}

bool afxMagicSpellData::writeField(StringTableEntry fieldname, const char* value)
{
   if (!Parent::writeField(fieldname, value))
      return false;

   // don't write the dynamic array fields
   if( fieldname == StringTable->insert("addCastingEffect") )
      return false;
   if( fieldname == StringTable->insert("addLaunchEffect") )
      return false;
   if( fieldname == StringTable->insert("addDeliveryEffect") )
      return false;
   if( fieldname == StringTable->insert("addImpactEffect") )
      return false;
   if( fieldname == StringTable->insert("addLingerEffect") )
      return false;

   return true;
}

inline void expand_fx_list(afxEffectList& fx_list, const char* tag)
{
  for (S32 i = 0; i < fx_list.size(); i++)
  {
    SimObjectId db_id = SimObjectId((uintptr_t)fx_list[i]);
    if (db_id != 0)
    {
      // try to convert id to pointer
      if (!Sim::findObject(db_id, fx_list[i]))
      {
        Con::errorf(ConsoleLogEntry::General,
          "afxMagicSpellData::preload() -- bad datablockId: 0x%x (%s)",
          db_id, tag);
      }
    }
  }
}

bool afxMagicSpellData::preload(bool server, String &errorStr)
{
  if (!Parent::preload(server, errorStr))
    return false;

  // Resolve objects transmitted from server
  if (!server)
  {
    if (mDo_id_convert)
    {
      SimObjectId missile_id = SimObjectId((uintptr_t)mMissile_db);
      if (missile_id != 0)
      {
        // try to convert id to pointer
        if (!Sim::findObject(missile_id, mMissile_db))
        {
          Con::errorf(ConsoleLogEntry::General,
            "afxMagicSpellData::preload() -- bad datablockId: 0x%x (missile)",
            missile_id);
        }
      }
      expand_fx_list(mCasting_fx_list, "casting");
      expand_fx_list(mLaunch_fx_list, "launch");
      expand_fx_list(mDelivery_fx_list, "delivery");
      expand_fx_list(mImpact_fx_list, "impact");
      expand_fx_list(mLinger_fx_list, "linger");
	  mDo_id_convert = false;
    }
  }

  return true;
}

void afxMagicSpellData::gatherConstraintDefs(Vector<afxConstraintDef>& defs)
{
  afxConstraintDef::gather_cons_defs(defs, mCasting_fx_list);
  afxConstraintDef::gather_cons_defs(defs, mLaunch_fx_list);
  afxConstraintDef::gather_cons_defs(defs, mDelivery_fx_list);
  afxConstraintDef::gather_cons_defs(defs, mImpact_fx_list);
  afxConstraintDef::gather_cons_defs(defs, mLinger_fx_list);

  if (mMissile_db)
    mMissile_db->gather_cons_defs(defs);
}

//~~~~~~~~~~~~~~~~~~~~//~~~~~~~~~~~~~~~~~~~~//

DefineEngineMethod(afxMagicSpellData, reset, void, (),,
                   "Resets a spell datablock during reload.\n\n"
                   "@ingroup AFX")
{
  object->reloadReset();
}

DefineEngineMethod(afxMagicSpellData, pushCastingEffect, void, (afxEffectBaseData* effect),,
                   "Adds an effect (wrapper or group) to a spell's casting phase.\n\n"
                   "@ingroup AFX")
{
  if (!effect)
  {
    Con::errorf(ConsoleLogEntry::General,
                "afxMagicSpellData::addCastingEffect() -- "
                "missing afxEffectWrapperData.");
    return;
  }

  object->mCasting_fx_list.push_back(effect);
}

DefineEngineMethod(afxMagicSpellData, pushLaunchEffect, void, (afxEffectBaseData* effect),,
                   "Adds an effect (wrapper or group) to a spell's launch phase.\n\n"
                   "@ingroup AFX")

{
  if (!effect)
  {
    Con::errorf(ConsoleLogEntry::General,
                "afxMagicSpellData::addLaunchEffect() -- "
                "failed to find afxEffectWrapperData.");
    return;
  }

  object->mLaunch_fx_list.push_back(effect);
}

DefineEngineMethod(afxMagicSpellData, pushDeliveryEffect, void, (afxEffectBaseData* effect),,
                   "Adds an effect (wrapper or group) to a spell's delivery phase.\n\n"
                   "@ingroup AFX")

{
  if (!effect)
  {
    Con::errorf(ConsoleLogEntry::General,
                "afxMagicSpellData::addDeliveryEffect() -- "
                "missing afxEffectWrapperData.");
    return;
  }

  object->mDelivery_fx_list.push_back(effect);
}

DefineEngineMethod(afxMagicSpellData, pushImpactEffect, void, (afxEffectBaseData* effect),,
                   "Adds an effect (wrapper or group) to a spell's impact phase.\n\n"
                   "@ingroup AFX")

{
  if (!effect)
  {
    Con::errorf(ConsoleLogEntry::General,
                "afxMagicSpellData::addImpactEffect() -- "
                "missing afxEffectWrapperData.");
    return;
  }

  object->mImpact_fx_list.push_back(effect);
}

DefineEngineMethod(afxMagicSpellData, pushLingerEffect, void, (afxEffectBaseData* effect),,
                   "Adds an effect (wrapper or group) to a spell's linger phase.\n\n"
                   "@ingroup AFX")

{
  if (!effect)
  {
    Con::errorf(ConsoleLogEntry::General,
                "afxMagicSpellData::addLingerEffect() -- "
                "missing afxEffectWrapperData.");
    return;
  }

  object->mLinger_fx_list.push_back(effect);
}


//~~~~~~~~~~~~~~~~~~~~//~~~~~~~~~~~~~~~~~~~~//~~~~~~~~~~~~~~~~~~~~//~~~~~~~~~~~~~~~~~~~~~//
//~~~~~~~~~~~~~~~~~~~~//~~~~~~~~~~~~~~~~~~~~//~~~~~~~~~~~~~~~~~~~~//~~~~~~~~~~~~~~~~~~~~~//
// afxMagicSpell

IMPLEMENT_GLOBAL_CALLBACK( onCastingStart, void, (), (),
   "A callout called on clients by spells when the casting stage begins.\n"
   "@ingroup AFX\n" );

IMPLEMENT_GLOBAL_CALLBACK( onCastingProgressUpdate, void, (F32 frac), (frac),
   "A callout called periodically on clients by spells to indicate casting progress.\n"
   "@ingroup AFX\n" );

IMPLEMENT_GLOBAL_CALLBACK( onCastingEnd, void, (), (),
   "A callout called on clients by spells when the casting stage ends.\n"
   "@ingroup AFX\n" );

//~~~~~~~~~~~~~~~~~~~~//~~~~~~~~~~~~~~~~~~~~//~~~~~~~~~~~~~~~~~~~~//~~~~~~~~~~~~~~~~~~~~~//
//~~~~~~~~~~~~~~~~~~~~//~~~~~~~~~~~~~~~~~~~~//~~~~~~~~~~~~~~~~~~~~//~~~~~~~~~~~~~~~~~~~~~//
// CastingPhrase_C
//    Subclass of afxPhrase for the client casting phrase.
//    This subclass adds handling of the casting progress
//    bar in cases where the caster is the client's control
//    object.
//

class CastingPhrase_C : public afxPhrase
{
  typedef afxPhrase Parent;
  ShapeBase*    mCaster;
  bool          mNotify_castbar;
  F32           mCastbar_progress;
public:
  /*C*/         CastingPhrase_C(ShapeBase* caster, bool notify_castbar);
  virtual void  start(F32 startstamp, F32 timestamp);
  virtual void  update(F32 dt, F32 timestamp);
  virtual void  stop(F32 timestamp);
  virtual void  interrupt(F32 timestamp);
};

CastingPhrase_C::CastingPhrase_C(ShapeBase* c, bool notify)
  : afxPhrase(false, true)
{
  mCaster = c;
  mNotify_castbar = notify;
  mCastbar_progress = 0.0f;
}

void CastingPhrase_C::start(F32 startstamp, F32 timestamp)
{
  Parent::start(startstamp, timestamp); //START
  if (mNotify_castbar)
  {
    mCastbar_progress = 0.0f;
    onCastingStart_callback();
  }
}

void CastingPhrase_C::update(F32 dt, F32 timestamp)
{
  Parent::update(dt, timestamp);

  if (!mNotify_castbar)
    return;

  if (mDur > 0 && mNum_loops > 0)
  {
    F32 nfrac = (timestamp - mStartTime)/(mDur*mNum_loops);
    if (nfrac - mCastbar_progress > 1.0f/200.0f)
    {
      mCastbar_progress = (nfrac < 1.0f) ? nfrac : 1.0f;
      onCastingProgressUpdate_callback(mCastbar_progress);
    }
  }
}

void CastingPhrase_C::stop(F32 timestamp)
{
  Parent::stop(timestamp);
  if (mCastbar_progress)
  {
    onCastingEnd_callback();
    mNotify_castbar = false;
  }
}

void CastingPhrase_C::interrupt(F32 timestamp)
{
  Parent::interrupt(timestamp);
  if (mNotify_castbar)
  {
    onCastingEnd_callback();
	mNotify_castbar = false;
  }
}

//~~~~~~~~~~~~~~~~~~~~//~~~~~~~~~~~~~~~~~~~~//~~~~~~~~~~~~~~~~~~~~//~~~~~~~~~~~~~~~~~~~~~//
//~~~~~~~~~~~~~~~~~~~~//~~~~~~~~~~~~~~~~~~~~//~~~~~~~~~~~~~~~~~~~~//~~~~~~~~~~~~~~~~~~~~~//
// some enum to name converters for debugging purposes

#ifdef USE_FOR_DEBUG_MESSAGES
static char* name_from_state(U8 s)
{
  switch (s)
  {
  case afxMagicSpell::INACTIVE_STATE:
    return "inactive";
  case afxMagicSpell::CASTING_STATE:
    return "casting";
  case afxMagicSpell::DELIVERY_STATE:
    return "delivery";
  case afxMagicSpell::LINGER_STATE:
    return "linger";
  case afxMagicSpell::CLEANUP_STATE:
    return "cleanup";
  case afxMagicSpell::DONE_STATE:
    return "done";
  }

  return "unknown";
}

static char* name_from_event(U8 e)
{
  switch (e)
  {
  case afxMagicSpell::NULL_EVENT:
    return "null";
  case afxMagicSpell::ACTIVATE_EVENT:
    return "activate";
  case afxMagicSpell::LAUNCH_EVENT:
    return "launch";
  case afxMagicSpell::IMPACT_EVENT:
    return "impact";
  case afxMagicSpell::SHUTDOWN_EVENT:
    return "shutdown";
  case afxMagicSpell::DEACTIVATE_EVENT:
    return "deactivate";
  case afxMagicSpell::INTERRUPT_PHASE_EVENT:
    return "interrupt_phase";
  case afxMagicSpell::INTERRUPT_SPELL_EVENT:
    return "interrupt_spell";
  }

  return "unknown";
}
#endif

//~~~~~~~~~~~~~~~~~~~~//~~~~~~~~~~~~~~~~~~~~//~~~~~~~~~~~~~~~~~~~~//~~~~~~~~~~~~~~~~~~~~~//
//~~~~~~~~~~~~~~~~~~~~//~~~~~~~~~~~~~~~~~~~~//~~~~~~~~~~~~~~~~~~~~//~~~~~~~~~~~~~~~~~~~~~//
// afxMagicSpell

IMPLEMENT_CO_NETOBJECT_V1(afxMagicSpell);

ConsoleDocClass( afxMagicSpell,
   "@brief A magic spell effects choreographer.\n\n"

   "@ingroup afxChoreographers\n"
   "@ingroup AFX\n"
);

// static
StringTableEntry  afxMagicSpell::CASTER_CONS;
StringTableEntry  afxMagicSpell::TARGET_CONS;
StringTableEntry  afxMagicSpell::MISSILE_CONS;
StringTableEntry  afxMagicSpell::CAMERA_CONS;
StringTableEntry  afxMagicSpell::LISTENER_CONS;
StringTableEntry  afxMagicSpell::IMPACT_POINT_CONS;
StringTableEntry  afxMagicSpell::IMPACTED_OBJECT_CONS;

void afxMagicSpell::init()
{
  // setup static predefined constraint names
  if (CASTER_CONS == 0)
  {
    CASTER_CONS = StringTable->insert("caster");
    TARGET_CONS = StringTable->insert("target");
    MISSILE_CONS = StringTable->insert("missile");
    CAMERA_CONS = StringTable->insert("camera");
    LISTENER_CONS = StringTable->insert("listener");
    IMPACT_POINT_CONS = StringTable->insert("impactPoint");
    IMPACTED_OBJECT_CONS = StringTable->insert("impactedObject");
  }

  // afxMagicSpell is always in scope, however effects
  // do their own scoping in that they will shut off if
  // their position constraint leaves scope.
  //
  //   note -- ghosting is delayed until constraint
  //           initialization is done.
  //
  //mNetFlags.set(Ghostable | ScopeAlways);
  mNetFlags.clear(Ghostable | ScopeAlways);

  mDatablock = NULL;
  mExeblock = NULL;
  mMissile_db = NULL;

  mCaster = NULL;
  mTarget = NULL;

  mCaster_field = NULL;
  mTarget_field = NULL;

  mCaster_scope_id = 0;
  mTarget_scope_id = 0;
  mTarget_is_shape = false;

  mConstraints_initialized = false;
  mScoping_initialized = false;

  mSpell_state = (U8) INACTIVE_STATE;
  mSpell_elapsed = 0;

  // define named constraints
  constraint_mgr->defineConstraint(OBJECT_CONSTRAINT,  CASTER_CONS);
  constraint_mgr->defineConstraint(OBJECT_CONSTRAINT,  TARGET_CONS);
  constraint_mgr->defineConstraint(OBJECT_CONSTRAINT, MISSILE_CONS);
  constraint_mgr->defineConstraint(CAMERA_CONSTRAINT, CAMERA_CONS);
  constraint_mgr->defineConstraint(POINT_CONSTRAINT,  LISTENER_CONS);
  constraint_mgr->defineConstraint(POINT_CONSTRAINT,  IMPACT_POINT_CONS);
  constraint_mgr->defineConstraint(OBJECT_CONSTRAINT,  IMPACTED_OBJECT_CONS);

  for (S32 i = 0; i < NUM_PHRASES; i++)
  {
    mPhrases[i] = NULL;
    mTfactors[i] = 1.0f;
  }

  mNotify_castbar = false;
  mOverall_time_factor = 1.0f;

  mCamera_cons_obj = 0;

  mMarks_mask = 0;

  mMissile = NULL;
  mMissile_is_armed = false;
  mImpacted_obj = NULL;
  mImpact_pos.zero();
  mImpact_norm.set(0,0,1);
  mImpacted_scope_id = 0;
  mImpacted_is_shape = false;
}

afxMagicSpell::afxMagicSpell()
{
  started_with_newop = true;
  init();
}

afxMagicSpell::afxMagicSpell(ShapeBase* caster, SceneObject* target)
{
  started_with_newop = false;
  init();

  mCaster = caster;
  if (caster)
  {
    mCaster_field = caster;
    deleteNotify(caster);
    processAfter(caster);
  }

  mTarget = target;
  if (target)
  {
    mTarget_field = target;
    deleteNotify(target);
  }
}

afxMagicSpell::~afxMagicSpell()
{
  for (S32 i = 0; i < NUM_PHRASES; i++)
  {
    if (mPhrases[i])
    {
      mPhrases[i]->interrupt(mSpell_elapsed);
      delete mPhrases[i];
    }
  }

  if (mMissile)
    mMissile->deleteObject();

  if (mMissile_db && mMissile_db->isTempClone())
  {
    delete mMissile_db;
    mMissile_db = 0;
  }

   if (mDatablock && mDatablock->isTempClone())
   {
     delete mDatablock;
	 mDatablock = 0;
   }
}

//~~~~~~~~~~~~~~~~~~~~//~~~~~~~~~~~~~~~~~~~~//~~~~~~~~~~~~~~~~~~~~//~~~~~~~~~~~~~~~~~~~~~//

// STANDARD OVERLOADED METHODS //

bool afxMagicSpell::onNewDataBlock(GameBaseData* dptr, bool reload)
{
  mDatablock = dynamic_cast<afxMagicSpellData*>(dptr);
  if (!mDatablock || !Parent::onNewDataBlock(dptr, reload))
    return false;

  if (isServerObject() && started_with_newop)
  {
    // copy dynamic fields from the datablock but
    // don't replace fields with a value
    assignDynamicFieldsFrom(dptr, arcaneFX::sParameterFieldPrefix, true);
  }

  mExeblock = mDatablock;
  mMissile_db = mDatablock->mMissile_db;

  if (isClientObject())
  {
    // make a temp datablock clone if there are substitutions
    if (mDatablock->getSubstitutionCount() > 0)
    {
      afxMagicSpellData* orig_db = mDatablock;
	  mDatablock = new afxMagicSpellData(*orig_db, true);
	  mExeblock = orig_db;
	  mMissile_db = mDatablock->mMissile_db;
      // Don't perform substitutions yet, the spell's dynamic fields haven't
      // arrived yet and the substitutions may refer to them. Hold off and do
      // in in the onAdd() method.
    }
  }
  else if (started_with_newop)
  {
    // make a temp datablock clone if there are substitutions
    if (mDatablock->getSubstitutionCount() > 0)
    {
      afxMagicSpellData* orig_db = mDatablock;
	  mDatablock = new afxMagicSpellData(*orig_db, true);
	  mExeblock = orig_db;
      orig_db->performSubstitutions(mDatablock, this, ranking);
	  mMissile_db = mDatablock->mMissile_db;
    }
  }

  return true;
}

void afxMagicSpell::processTick(const Move* m)
{
  Parent::processTick(m);

  // don't process moves or client ticks
  if (m != 0 || isClientObject())
    return;

  process_server();
}

void afxMagicSpell::advanceTime(F32 dt)
{
  Parent::advanceTime(dt);

  process_client(dt);
}

bool afxMagicSpell::onAdd()
{
  if (!Parent::onAdd())
    return false ;

  if (isClientObject())
  {
    if (mDatablock->isTempClone())
    {
      afxMagicSpellData* orig_db = (afxMagicSpellData*)mExeblock;
      orig_db->performSubstitutions(mDatablock, this, ranking);
	  mMissile_db = mDatablock->mMissile_db;
      mNotify_castbar = (mNotify_castbar && (mDatablock->mCasting_dur > 0.0f));
    }
  }
  else if (started_with_newop && !postpone_activation)
  {
    if (!activationCallInit())
      return false;
    activate();
  }

  return true ;
}

void afxMagicSpell::onRemove()
{
  Parent::onRemove();
}

void afxMagicSpell::onDeleteNotify(SimObject* obj)
{
  // caster deleted?
  ShapeBase* shape = dynamic_cast<ShapeBase*>(obj);
  if (shape == mCaster)
  {
    clearProcessAfter();
	mCaster = NULL;
    mCaster_field = NULL;
	mCaster_scope_id = 0;
  }

  // target deleted?
  SceneObject* scene_obj = dynamic_cast<SceneObject*>(obj);
  if (scene_obj == mTarget)
  {
    mTarget = NULL;
    mTarget_field = NULL;
    mTarget_scope_id = 0;
    mTarget_is_shape = false;
  }

  // impacted_obj deleted?
  if (scene_obj == mImpacted_obj)
  {
    mImpacted_obj = NULL;
    mImpacted_scope_id = 0;
    mImpacted_is_shape = false;
  }

  // missile deleted?
  afxMagicMissile* missile = dynamic_cast<afxMagicMissile*>(obj);
  if (missile != NULL && missile == mMissile)
  {
    mMissile = NULL;
  }

  // something else
  Parent::onDeleteNotify(obj);
}

// static
void afxMagicSpell::initPersistFields()
{
  addField("caster", TYPEID<SimObject>(), Offset(mCaster_field, afxMagicSpell),
    "...");
  addField("target", TYPEID<SimObject>(), Offset(mTarget_field, afxMagicSpell),
    "...");

  Parent::initPersistFields();
}

//~~~~~~~~~~~~~~~~~~~~//~~~~~~~~~~~~~~~~~~~~//~~~~~~~~~~~~~~~~~~~~//~~~~~~~~~~~~~~~~~~~~~//

void afxMagicSpell::pack_constraint_info(NetConnection* conn, BitStream* stream)
{
  // pack caster's ghost index or scope id if not yet ghosted
  if (stream->writeFlag(mCaster != NULL))
  {
    S32 ghost_idx = conn->getGhostIndex(mCaster);
    if (stream->writeFlag(ghost_idx != -1))
      stream->writeRangedU32(U32(ghost_idx), 0, NetConnection::MaxGhostCount);
    else
    {
      bool bit = (mCaster) ? (mCaster->getScopeId() > 0) : false;
      if (stream->writeFlag(bit))
        stream->writeInt(mCaster->getScopeId(), NetObject::SCOPE_ID_BITS);
    }
  }

  // pack target's ghost index or scope id if not yet ghosted
  if (stream->writeFlag(mTarget != NULL))
  {
    S32 ghost_idx = conn->getGhostIndex(mTarget);
    if (stream->writeFlag(ghost_idx != -1))
      stream->writeRangedU32(U32(ghost_idx), 0, NetConnection::MaxGhostCount);
    else
    {
      if (stream->writeFlag(mTarget->getScopeId() > 0))
      {
        stream->writeInt(mTarget->getScopeId(), NetObject::SCOPE_ID_BITS);
        stream->writeFlag(dynamic_cast<ShapeBase*>(mTarget) != NULL); // is shape?
      }
    }
  }

  Parent::pack_constraint_info(conn, stream);
}

void afxMagicSpell::unpack_constraint_info(NetConnection* conn, BitStream* stream)
{
  mCaster = NULL;
  mCaster_field = NULL;
  mCaster_scope_id = 0;
  if (stream->readFlag()) // has caster
  {
    if (stream->readFlag()) // has ghost_idx
    {
      S32 ghost_idx = stream->readRangedU32(0, NetConnection::MaxGhostCount);
	  mCaster = dynamic_cast<ShapeBase*>(conn->resolveGhost(ghost_idx));
      if (mCaster)
      {
        mCaster_field = mCaster;
        deleteNotify(mCaster);
        processAfter(mCaster);
      }
    }
    else
    {
      if (stream->readFlag()) // has scope_id (is always a shape)
		  mCaster_scope_id = stream->readInt(NetObject::SCOPE_ID_BITS);
    }
  }

  mTarget = NULL;
  mTarget_field = NULL;
  mTarget_scope_id = 0;
  mTarget_is_shape = false;
  if (stream->readFlag()) // has target
  {
    if (stream->readFlag()) // has ghost_idx
    {
      S32 ghost_idx = stream->readRangedU32(0, NetConnection::MaxGhostCount);
      mTarget = dynamic_cast<SceneObject*>(conn->resolveGhost(ghost_idx));
      if (mTarget)
      {
        mTarget_field = mTarget;
        deleteNotify(mTarget);
      }
    }
    else
    {
      if (stream->readFlag()) // has scope_id
      {
        mTarget_scope_id = stream->readInt(NetObject::SCOPE_ID_BITS);
        mTarget_is_shape = stream->readFlag(); // is shape?
      }
    }
  }

  Parent::unpack_constraint_info(conn, stream);
}

U32 afxMagicSpell::packUpdate(NetConnection* conn, U32 mask, BitStream* stream)
{
  S32 mark_stream_pos = stream->getCurPos();

  U32 retMask = Parent::packUpdate(conn, mask, stream);

  // InitialUpdate
  if (stream->writeFlag(mask & InitialUpdateMask))
  {
    // pack extra object's ghost index or scope id if not yet ghosted
    if (stream->writeFlag(dynamic_cast<NetObject*>(mExtra) != 0))
    {
      NetObject* net_extra = (NetObject*)mExtra;
      S32 ghost_idx = conn->getGhostIndex(net_extra);
      if (stream->writeFlag(ghost_idx != -1))
         stream->writeRangedU32(U32(ghost_idx), 0, NetConnection::MaxGhostCount);
      else
      {
        if (stream->writeFlag(net_extra->getScopeId() > 0))
        {
          stream->writeInt(net_extra->getScopeId(), NetObject::SCOPE_ID_BITS);
        }
      }
    }

    // pack initial exec conditions
    stream->write(exec_conds_mask);

    // flag if this client owns the spellcaster
    bool client_owns_caster = is_caster_client(mCaster, dynamic_cast<GameConnection*>(conn));
    stream->writeFlag(client_owns_caster);

    // pack per-phrase time-factor values
    for (S32 i = 0; i < NUM_PHRASES; i++)
      stream->write(mTfactors[i]);

    // flag if this conn is zoned-in yet
    bool zoned_in = client_owns_caster;
    if (!zoned_in)
    {
      GameConnection* gconn = dynamic_cast<GameConnection*>(conn);
      zoned_in = (gconn) ? gconn->isZonedIn() : false;
    }
    if (stream->writeFlag(zoned_in))
      pack_constraint_info(conn, stream);
  }

  // StateEvent or SyncEvent
  if (stream->writeFlag((mask & StateEventMask) || (mask & SyncEventMask)))
  {
    stream->write(mMarks_mask);
    stream->write(mSpell_state);
    stream->write(state_elapsed());
    stream->write(mSpell_elapsed);
  }

  // SyncEvent
  if (stream->writeFlag((mask & SyncEventMask) && !(mask & InitialUpdateMask)))
  {
    pack_constraint_info(conn, stream);
  }

  // LaunchEvent
  if (stream->writeFlag((mask & LaunchEventMask) && (mMarks_mask & MARK_LAUNCH) && mMissile))
  {
    F32 vel; Point3F vel_vec;
    mMissile->getStartingVelocityValues(vel, vel_vec);
    // pack launch vector and velocity
    stream->write(vel);
    mathWrite(*stream, vel_vec);
  }

  // ImpactEvent
  if (stream->writeFlag(((mask & ImpactEventMask) || (mask & SyncEventMask)) && (mMarks_mask & MARK_IMPACT)))
  {
    // pack impact objects's ghost index or scope id if not yet ghosted
    if (stream->writeFlag(mImpacted_obj != NULL))
    {
      S32 ghost_idx = conn->getGhostIndex(mImpacted_obj);
      if (stream->writeFlag(ghost_idx != -1))
        stream->writeRangedU32(U32(ghost_idx), 0, NetConnection::MaxGhostCount);
      else
      {
        if (stream->writeFlag(mImpacted_obj->getScopeId() > 0))
        {
          stream->writeInt(mImpacted_obj->getScopeId(), NetObject::SCOPE_ID_BITS);
          stream->writeFlag(dynamic_cast<ShapeBase*>(mImpacted_obj) != NULL);
        }
      }
    }

    // pack impact position and normal
    mathWrite(*stream, mImpact_pos);
    mathWrite(*stream, mImpact_norm);
    stream->write(exec_conds_mask);

    ShapeBase* temp_shape;
    stream->writeFlag(mCaster != 0 && mCaster->getDamageState() == ShapeBase::Enabled);
    temp_shape = dynamic_cast<ShapeBase*>(mTarget);
    stream->writeFlag(temp_shape != 0 && temp_shape->getDamageState() == ShapeBase::Enabled);
    temp_shape = dynamic_cast<ShapeBase*>(mImpacted_obj);
    stream->writeFlag(temp_shape != 0 && temp_shape->getDamageState() == ShapeBase::Enabled);
  }

  check_packet_usage(conn, stream, mark_stream_pos, "afxMagicSpell:");

  AssertISV(stream->isValid(), "afxMagicSpell::packUpdate(): write failure occurred, possibly caused by packet-size overrun.");

  return retMask;
}

//~~~~~~~~~~~~~~~~~~~~//

 // CONSTRAINT REMAPPING <<
bool afxMagicSpell::remap_builtin_constraint(SceneObject* obj, const char* cons_name)
{
  StringTableEntry cons_name_ste = StringTable->insert(cons_name);

  if (cons_name_ste == CASTER_CONS)
    return true;
  if (cons_name_ste == TARGET_CONS)
  {
    if (obj && mTarget && obj != mTarget && !mTarget_cons_id.undefined())
    {
      mTarget = obj;
      constraint_mgr->setReferenceObject(mTarget_cons_id, mTarget);
      if (isServerObject())
      {
        if (mTarget->isScopeable())
          constraint_mgr->addScopeableObject(mTarget);
      }
    }
    return true;
  }
  if (cons_name_ste == MISSILE_CONS)
    return true;
  if (cons_name_ste == CAMERA_CONS)
    return true;
  if (cons_name_ste == LISTENER_CONS)
    return true;
  if (cons_name_ste == IMPACT_POINT_CONS)
    return true;
  if (cons_name_ste == IMPACTED_OBJECT_CONS)
    return true;

  return false;
}
 // CONSTRAINT REMAPPING >>

void afxMagicSpell::unpackUpdate(NetConnection * conn, BitStream * stream)
{
  Parent::unpackUpdate(conn, stream);

  bool initial_update = false;
  bool zoned_in = true;
  bool do_sync_event = false;
  U16 new_marks_mask = 0;
  U8 new_spell_state = INACTIVE_STATE;
  F32 new_state_elapsed = 0;
  F32 new_spell_elapsed = 0;;

  // InitialUpdate
  if (stream->readFlag())
  {
    initial_update = true;

    // extra sent
    if (stream->readFlag())
    {
      // cleanup?
      if (stream->readFlag()) // is ghost_idx
      {
        S32 ghost_idx = stream->readRangedU32(0, NetConnection::MaxGhostCount);
		mExtra = dynamic_cast<SimObject*>(conn->resolveGhost(ghost_idx));
      }
      else
      {
        if (stream->readFlag()) // has scope_id
        {
          // JTF NOTE: U16 extra_scope_id = stream->readInt(NetObject::SCOPE_ID_BITS);
          stream->readInt(NetObject::SCOPE_ID_BITS);
        }
      }
    }

    // unpack initial exec conditions
    stream->read(&exec_conds_mask);

    // if this is controlling client for the caster,
    // enable castbar updates
    bool client_owns_caster = stream->readFlag();
    if (client_owns_caster)
      mNotify_castbar = Con::isFunction("onCastingStart");

    // unpack per-phrase time-factor values
    for (S32 i = 0; i < NUM_PHRASES; i++)
      stream->read(&mTfactors[i]);

    // if client is marked as fully zoned in
    if ((zoned_in = stream->readFlag()) == true)
    {
      unpack_constraint_info(conn, stream);
      init_constraints();
    }
  }

  // StateEvent or SyncEvent
  // this state data is sent for both state-events and
  // sync-events
  if (stream->readFlag())
  {
    stream->read(&new_marks_mask);
    stream->read(&new_spell_state);
    stream->read(&new_state_elapsed);
    stream->read(&new_spell_elapsed);
    mMarks_mask = new_marks_mask;
  }

  // SyncEvent
  if ((do_sync_event = stream->readFlag()) == true)
  {
    unpack_constraint_info(conn, stream);
    init_constraints();
  }

  // LaunchEvent
  if (stream->readFlag())
  {
    F32 vel; Point3F vel_vec;
    stream->read(&vel);
    mathRead(*stream, &vel_vec);
    if (mMissile)
    {
      mMissile->setStartingVelocity(vel);
	  mMissile->setStartingVelocityVector(vel_vec);
    }
  }

  // ImpactEvent
  if (stream->readFlag())
  {
    if (mImpacted_obj)
      clearNotify(mImpacted_obj);
    mImpacted_obj = NULL;
    mImpacted_scope_id = 0;
    mImpacted_is_shape = false;
    if (stream->readFlag()) // is impacted_obj
    {
      if (stream->readFlag()) // is ghost_idx
      {
        S32 ghost_idx = stream->readRangedU32(0, NetConnection::MaxGhostCount);
        mImpacted_obj = dynamic_cast<SceneObject*>(conn->resolveGhost(ghost_idx));
        if (mImpacted_obj)
          deleteNotify(mImpacted_obj);
      }
      else
      {
        if (stream->readFlag()) // has scope_id
        {
          mImpacted_scope_id = stream->readInt(NetObject::SCOPE_ID_BITS);
          mImpacted_is_shape = stream->readFlag(); // is shape?
        }
      }
    }

    mathRead(*stream, &mImpact_pos);
    mathRead(*stream, &mImpact_norm);
    stream->read(&exec_conds_mask);

    bool caster_alive = stream->readFlag();
    bool target_alive = stream->readFlag();
    bool impacted_alive = stream->readFlag();

    afxConstraint* cons;
    if ((cons = constraint_mgr->getConstraint(mCaster_cons_id)) != 0)
      cons->setLivingState(caster_alive);
    if ((cons = constraint_mgr->getConstraint(mTarget_cons_id)) != 0)
      cons->setLivingState(target_alive);
    if ((cons = constraint_mgr->getConstraint(mImpacted_cons_id)) != 0)
      cons->setLivingState(impacted_alive);
  }

  //~~~~~~~~~~~~~~~~~~~~//

  if (!zoned_in)
    mSpell_state = LATE_STATE;

  // need to adjust state info to get all synced up with spell on server
  if (do_sync_event && !initial_update)
    sync_client(new_marks_mask, new_spell_state, new_state_elapsed, new_spell_elapsed);
}

void afxMagicSpell::sync_with_clients()
{
  setMaskBits(SyncEventMask);
}

//~~~~~~~~~~~~~~~~~~~~//~~~~~~~~~~~~~~~~~~~~//~~~~~~~~~~~~~~~~~~~~//~~~~~~~~~~~~~~~~~~~~~//
// private

bool afxMagicSpell::state_expired()
{
  afxPhrase* phrase = NULL;

  switch (mSpell_state)
  {
  case CASTING_STATE:
    phrase = mPhrases[CASTING_PHRASE];
    break;
  case DELIVERY_STATE:
    phrase = mPhrases[DELIVERY_PHRASE];
    break;
  case LINGER_STATE:
    phrase = mPhrases[LINGER_PHRASE];
    break;
  }

  if (phrase)
  {
    if (phrase->expired(mSpell_elapsed))
      return (!phrase->recycle(mSpell_elapsed));
    return false;
  }

  return true;
}

F32 afxMagicSpell::state_elapsed()
{
  afxPhrase* phrase = NULL;

  switch (mSpell_state)
  {
  case CASTING_STATE:
    phrase = mPhrases[CASTING_PHRASE];
    break;
  case DELIVERY_STATE:
    phrase = mPhrases[DELIVERY_PHRASE];
    break;
  case LINGER_STATE:
    phrase = mPhrases[LINGER_PHRASE];
    break;
  }

  return (phrase) ? phrase->elapsed(mSpell_elapsed) : 0.0f;
}

void afxMagicSpell::init_constraints()
{
  if (mConstraints_initialized)
  {
    //Con::printf("CONSTRAINTS ALREADY INITIALIZED");
    return;
  }

  Vector<afxConstraintDef> defs;
  mDatablock->gatherConstraintDefs(defs);

  constraint_mgr->initConstraintDefs(defs, isServerObject());

  if (isServerObject())
  {
    mCaster_cons_id = constraint_mgr->setReferenceObject(CASTER_CONS, mCaster);
    mTarget_cons_id = constraint_mgr->setReferenceObject(TARGET_CONS, mTarget);
#if defined(AFX_CAP_SCOPE_TRACKING)
    if (mCaster && mCaster->isScopeable())
      constraint_mgr->addScopeableObject(mCaster);

    if (mTarget && mTarget->isScopeable())
      constraint_mgr->addScopeableObject(mTarget);
#endif

    // find local camera
	mCamera_cons_obj = get_camera();
    if (mCamera_cons_obj)
      mCamera_cons_id = constraint_mgr->setReferenceObject(CAMERA_CONS, mCamera_cons_obj);
  }
  else // if (isClientObject())
  {
    if (mCaster)
      mCaster_cons_id = constraint_mgr->setReferenceObject(CASTER_CONS, mCaster);
    else if (mCaster_scope_id > 0)
      mCaster_cons_id = constraint_mgr->setReferenceObjectByScopeId(CASTER_CONS, mCaster_scope_id, true);

    if (mTarget)
      mTarget_cons_id = constraint_mgr->setReferenceObject(TARGET_CONS, mTarget);
    else if (mTarget_scope_id > 0)
      mTarget_cons_id = constraint_mgr->setReferenceObjectByScopeId(TARGET_CONS, mTarget_scope_id, mTarget_is_shape);

    // find local camera
	mCamera_cons_obj = get_camera();
    if (mCamera_cons_obj)
      mCamera_cons_id = constraint_mgr->setReferenceObject(CAMERA_CONS, mCamera_cons_obj);

    // find local listener
    Point3F listener_pos;
    listener_pos = SFX->getListener().getTransform().getPosition();
    mListener_cons_id = constraint_mgr->setReferencePoint(LISTENER_CONS, listener_pos);
  }

  constraint_mgr->adjustProcessOrdering(this);

  mConstraints_initialized = true;
}

void afxMagicSpell::init_scoping()
{
  if (mScoping_initialized)
  {
    //Con::printf("SCOPING ALREADY INITIALIZED");
    return;
  }

  if (isServerObject())
  {
    if (explicit_clients.size() > 0)
    {
      for (U32 i = 0; i < explicit_clients.size(); i++)
        explicit_clients[i]->objectLocalScopeAlways(this);
    }
    else
    {
      mNetFlags.set(Ghostable);
      setScopeAlways();
    }
    mScoping_initialized = true;
  }
}

void afxMagicSpell::setup_casting_fx()
{
  if (isServerObject())
    mPhrases[CASTING_PHRASE] = new afxPhrase(isServerObject(), true);
  else
    mPhrases[CASTING_PHRASE] = new CastingPhrase_C(mCaster, mNotify_castbar);

  if (mPhrases[CASTING_PHRASE])
    mPhrases[CASTING_PHRASE]->init(mDatablock->mCasting_fx_list, mDatablock->mCasting_dur, this,
                                  mTfactors[CASTING_PHRASE], mDatablock->mNum_casting_loops, 0,
                                  mDatablock->mExtra_casting_time);
}

void afxMagicSpell::setup_launch_fx()
{
  mPhrases[LAUNCH_PHRASE] = new afxPhrase(isServerObject(), false);
  if (mPhrases[LAUNCH_PHRASE])
    mPhrases[LAUNCH_PHRASE]->init(mDatablock->mLaunch_fx_list, -1, this,
                                 mTfactors[LAUNCH_PHRASE], 1);
}

void afxMagicSpell::setup_delivery_fx()
{
  mPhrases[DELIVERY_PHRASE] = new afxPhrase(isServerObject(), true);
  if (mPhrases[DELIVERY_PHRASE])
  {
    mPhrases[DELIVERY_PHRASE]->init(mDatablock->mDelivery_fx_list, mDatablock->mDelivery_dur, this,
                                   mTfactors[DELIVERY_PHRASE], mDatablock->mNum_delivery_loops, 0,
                                   mDatablock->mExtra_delivery_time);
  }
}

void afxMagicSpell::setup_impact_fx()
{
  mPhrases[IMPACT_PHRASE] = new afxPhrase(isServerObject(), false);
  if (mPhrases[IMPACT_PHRASE])
  {
    mPhrases[IMPACT_PHRASE]->init(mDatablock->mImpact_fx_list, -1, this,
                                 mTfactors[IMPACT_PHRASE], 1);
  }
}

void afxMagicSpell::setup_linger_fx()
{
  mPhrases[LINGER_PHRASE] = new afxPhrase(isServerObject(), true);
  if (mPhrases[LINGER_PHRASE])
    mPhrases[LINGER_PHRASE]->init(mDatablock->mLinger_fx_list, mDatablock->mLinger_dur, this,
                                 mTfactors[LINGER_PHRASE], mDatablock->mNum_linger_loops, 0,
                                 mDatablock->mExtra_linger_time);
}

bool afxMagicSpell::cleanup_over()
{
  for (S32 i = 0; i < NUM_PHRASES; i++)
    if (mPhrases[i] && !mPhrases[i]->isEmpty())
      return false;

  return true;
}

//~~~~~~~~~~~~~~~~~~~~//~~~~~~~~~~~~~~~~~~~~//~~~~~~~~~~~~~~~~~~~~//~~~~~~~~~~~~~~~~~~~~~//
// private
//
// MISSILE STUFF
//

void afxMagicSpell::init_missile_s(afxMagicMissileData* mm_db)
{
  if (mMissile)
    clearNotify(mMissile);

  // create the missile
  mMissile = new afxMagicMissile(true, false);
  mMissile->setSubstitutionData(this, ranking);
  mMissile->setDataBlock(mm_db);
  mMissile->setChoreographer(this);
  if (!mMissile->registerObject())
  {
    Con::errorf("afxMagicSpell: failed to register missile instance.");
    delete mMissile;
	mMissile = NULL;
  }

  if (mMissile)
  {
    deleteNotify(mMissile);
    registerForCleanup(mMissile);
  }
}

void afxMagicSpell::launch_missile_s()
{
  if (mMissile)
  {
	  mMissile->launch();
    constraint_mgr->setReferenceObject(MISSILE_CONS, mMissile);
  }
}

void afxMagicSpell::init_missile_c(afxMagicMissileData* mm_db)
{
  if (mMissile)
    clearNotify(mMissile);

  // create the missile
  mMissile = new afxMagicMissile(false, true);
  mMissile->setSubstitutionData(this, ranking);
  mMissile->setDataBlock(mm_db);
  mMissile->setChoreographer(this);
  if (!mMissile->registerObject())
  {
    Con::errorf("afxMagicSpell: failed to register missile instance.");
    delete mMissile;
	mMissile = NULL;
  }

  if (mMissile)
  {
    deleteNotify(mMissile);
    registerForCleanup(mMissile);
  }
}

void afxMagicSpell::launch_missile_c()
{
  if (mMissile)
  {
    mMissile->launch();
    constraint_mgr->setReferenceObject(MISSILE_CONS, mMissile);
  }
}

bool afxMagicSpell::is_impact_in_water(SceneObject* obj, const Point3F& p)
{
  // AFX_T3D_BROKEN -- water impact detection is disabled. Look at projectile.
  return false;
}

void afxMagicSpell::impactNotify(const Point3F& p, const Point3F& n, SceneObject* obj)
{
  if (isClientObject())
    return;

  ///impact_time_ms = spell_elapsed_ms;
  if (mImpacted_obj)
      clearNotify(mImpacted_obj);
  mImpacted_obj = obj;
  mImpact_pos = p;
  mImpact_norm = n;

  if (mImpacted_obj != NULL)
  {
    deleteNotify(mImpacted_obj);
    exec_conds_mask |= IMPACTED_SOMETHING;
    if (mImpacted_obj == mTarget)
      exec_conds_mask |= IMPACTED_TARGET;
    if (mImpacted_obj->getTypeMask() & mDatablock->mPrimary_target_types)
      exec_conds_mask |= IMPACTED_PRIMARY;
  }

  if (is_impact_in_water(obj, p))
    exec_conds_mask |= IMPACT_IN_WATER;

  postSpellEvent(IMPACT_EVENT);

  if (mMissile)
    clearNotify(mMissile);
  mMissile = NULL;
}

void afxMagicSpell::executeScriptEvent(const char* method, afxConstraint* cons,
                                        const MatrixF& xfm, const char* data)
{
  SceneObject* cons_obj = (cons) ? cons->getSceneObject() : NULL;

  char *arg_buf = Con::getArgBuffer(256);
  Point3F pos;
  xfm.getColumn(3,&pos);
  AngAxisF aa(xfm);
  dSprintf(arg_buf,256,"%g %g %g %g %g %g %g",
           pos.x, pos.y, pos.z,
           aa.axis.x, aa.axis.y, aa.axis.z, aa.angle);

  // CALL SCRIPT afxChoreographerData::method(%spell, %caster, %constraint, %transform, %data)
  Con::executef(mExeblock, method,
                getIdString(),
                (mCaster) ? mCaster->getIdString() : "",
                (cons_obj) ? cons_obj->getIdString() : "",
                arg_buf,
                data);
}

void afxMagicSpell::inflictDamage(const char * label, const char* flavor, SimObjectId target_id,
                                   F32 amount, U8 n, F32 ad_amount, F32 radius, Point3F pos, F32 impulse)
{
 // Con::printf("INFLICT-DAMAGE label=%s flav=%s id=%d amt=%g n=%d rad=%g pos=(%g %g %g) imp=%g",
 //             label, flavor, target_id, amount, n, radius, pos.x, pos.y, pos.z, impulse);

  // CALL SCRIPT afxMagicSpellData::onDamage()
  //    onDamage(%spell, %label, %type, %damaged_obj, %amount, %count, %pos, %ad_amount,
  //             %radius, %impulse)
  mDatablock->onDamage_callback(this, label, flavor, target_id, amount, n, pos, ad_amount, radius, impulse);
}


//~~~~~~~~~~~~~~~~~~~~//~~~~~~~~~~~~~~~~~~~~//~~~~~~~~~~~~~~~~~~~~//~~~~~~~~~~~~~~~~~~~~~//
// private

void afxMagicSpell::process_server()
{
  if (mSpell_state != INACTIVE_STATE)
    mSpell_elapsed += TickSec;

  U8 pending_state = mSpell_state;

  // check for state changes
  switch (mSpell_state)
  {

  case INACTIVE_STATE:
    if (mMarks_mask & MARK_ACTIVATE)
      pending_state = CASTING_STATE;
    break;

  case CASTING_STATE:
    if (mDatablock->mCasting_dur > 0.0f && mDatablock->mDo_move_interrupts && is_caster_moving())
    {
      displayScreenMessage(mCaster, "SPELL INTERRUPTED.");
      postSpellEvent(INTERRUPT_SPELL_EVENT);
    }
    if (mMarks_mask & MARK_INTERRUPT_CASTING)
      pending_state = CLEANUP_STATE;
    else if (mMarks_mask & MARK_END_CASTING)
      pending_state = DELIVERY_STATE;
    else if (mMarks_mask & MARK_LAUNCH)
      pending_state = DELIVERY_STATE;
    else if (state_expired())
      pending_state = DELIVERY_STATE;
    break;

  case DELIVERY_STATE:
    if (mMarks_mask & MARK_INTERRUPT_DELIVERY)
      pending_state = CLEANUP_STATE;
    else if (mMarks_mask & MARK_END_DELIVERY)
      pending_state = LINGER_STATE;
    else if (mMarks_mask & MARK_IMPACT)
      pending_state = LINGER_STATE;
    else if (state_expired())
      pending_state = LINGER_STATE;
    break;

  case LINGER_STATE:
    if (mMarks_mask & MARK_INTERRUPT_LINGER)
      pending_state = CLEANUP_STATE;
    else if (mMarks_mask & MARK_END_LINGER)
      pending_state = CLEANUP_STATE;
    else if (mMarks_mask & MARK_SHUTDOWN)
      pending_state = CLEANUP_STATE;
    else if (state_expired())
      pending_state = CLEANUP_STATE;
    break;

  case CLEANUP_STATE:
    if ((mMarks_mask & MARK_INTERRUPT_CLEANUP) || cleanup_over())
      pending_state = DONE_STATE;
    break;
  }

  if (mSpell_state != pending_state)
    change_state_s(pending_state);

  if (mSpell_state == INACTIVE_STATE)
    return;

  //--------------------------//

  // sample the constraints
  constraint_mgr->sample(TickSec, Platform::getVirtualMilliseconds());

  for (S32 i = 0; i < NUM_PHRASES; i++)
    if (mPhrases[i])
      mPhrases[i]->update(TickSec, mSpell_elapsed);

  if (mMissile_is_armed)
  {
    launch_missile_s();
	mMissile_is_armed = false;
  }
}

void afxMagicSpell::change_state_s(U8 pending_state)
{
  if (mSpell_state == pending_state)
    return;

  // LEAVING THIS STATE
  switch (mSpell_state)
  {
  case INACTIVE_STATE:
    break;
  case CASTING_STATE:
    leave_casting_state_s();
    break;
  case DELIVERY_STATE:
    leave_delivery_state_s();
    break;
  case LINGER_STATE:
    leave_linger_state_s();
    break;
  case CLEANUP_STATE:
    break;
  case DONE_STATE:
    break;
  }

  mSpell_state = pending_state;

  // ENTERING THIS STATE
  switch (pending_state)
  {
  case INACTIVE_STATE:
    break;
  case CASTING_STATE:
    enter_casting_state_s();
    break;
  case DELIVERY_STATE:
    enter_delivery_state_s();
    break;
  case LINGER_STATE:
    enter_linger_state_s();
    break;
  case CLEANUP_STATE:
    break;
  case DONE_STATE:
    enter_done_state_s();
    break;
  }
}

void afxMagicSpell::enter_done_state_s()
{
  postSpellEvent(DEACTIVATE_EVENT);

  if (mMarks_mask & MARK_INTERRUPTS)
  {
    Sim::postEvent(this, new ObjectDeleteEvent, Sim::getCurrentTime() + 500);
  }
  else
  {
    F32 done_time = mSpell_elapsed;

    for (S32 i = 0; i < NUM_PHRASES; i++)
    {
      if (mPhrases[i])
      {
        F32 phrase_done;
        if (mPhrases[i]->willStop() && mPhrases[i]->isInfinite())
          phrase_done = mSpell_elapsed + mPhrases[i]->calcAfterLife();
        else
          phrase_done = mPhrases[i]->calcDoneTime();
        if (phrase_done > done_time)
          done_time = phrase_done;
      }
    }

    F32 time_left = done_time - mSpell_elapsed;
    if (time_left < 0)
      time_left = 0;

    Sim::postEvent(this, new ObjectDeleteEvent, Sim::getCurrentTime() + time_left*1000 + 500);
  }

  // CALL SCRIPT afxMagicSpellData::onDeactivate(%spell)
  mDatablock->onDeactivate_callback(this);
}

void afxMagicSpell::enter_casting_state_s()
{
  // note - onActivate() is called in cast_spell() instead of here to make sure any
  // new time-factor settings resolve before they are sent off to the clients.

  // stamp constraint-mgr starting time and reset spell timer
  constraint_mgr->setStartTime(Platform::getVirtualMilliseconds());
  mSpell_elapsed = 0;

  setup_dynamic_constraints();

  // start casting effects
  setup_casting_fx();
  if (mPhrases[CASTING_PHRASE])
    mPhrases[CASTING_PHRASE]->start(mSpell_elapsed, mSpell_elapsed);

  // initialize missile
  if (mMissile_db)
  {
    mMissile_db = mMissile_db->cloneAndPerformSubstitutions(this, ranking);
    init_missile_s(mMissile_db);
  }
}

void afxMagicSpell::leave_casting_state_s()
{
  if (mPhrases[CASTING_PHRASE])
  {
    if (mMarks_mask & MARK_INTERRUPT_CASTING)
    {
      //Con::printf("INTERRUPT CASTING (S)");
      mPhrases[CASTING_PHRASE]->interrupt(mSpell_elapsed);
    }
    else
    {
      //Con::printf("LEAVING CASTING (S)");
      mPhrases[CASTING_PHRASE]->stop(mSpell_elapsed);
    }
  }

  if (mMarks_mask & MARK_INTERRUPT_CASTING)
  {
    // CALL SCRIPT afxMagicSpellData::onInterrupt(%spell, %caster)
    mDatablock->onInterrupt_callback(this, mCaster);
  }
}

void afxMagicSpell::enter_delivery_state_s()
{
  // CALL SCRIPT afxMagicSpellData::onLaunch(%spell, %caster, %target, %missile)
  mDatablock->onLaunch_callback(this, mCaster, mTarget, mMissile);

  if (mDatablock->mLaunch_on_server_signal)
    postSpellEvent(LAUNCH_EVENT);

  mMissile_is_armed = true;

  // start launch effects
  setup_launch_fx();
  if (mPhrases[LAUNCH_PHRASE])
    mPhrases[LAUNCH_PHRASE]->start(mSpell_elapsed, mSpell_elapsed); //START

  // start delivery effects
  setup_delivery_fx();
  if (mPhrases[DELIVERY_PHRASE])
    mPhrases[DELIVERY_PHRASE]->start(mSpell_elapsed, mSpell_elapsed); //START
}

void afxMagicSpell::leave_delivery_state_s()
{
  if (mPhrases[DELIVERY_PHRASE])
  {
    if (mMarks_mask & MARK_INTERRUPT_DELIVERY)
    {
      //Con::printf("INTERRUPT DELIVERY (S)");
      mPhrases[DELIVERY_PHRASE]->interrupt(mSpell_elapsed);
    }
    else
    {
      //Con::printf("LEAVING DELIVERY (S)");
      mPhrases[DELIVERY_PHRASE]->stop(mSpell_elapsed);
    }
  }

  if (!mMissile && !(mMarks_mask & MARK_IMPACT))
  {
    if (mTarget)
    {
      Point3F p = afxMagicSpell::getShapeImpactPos(mTarget);
      Point3F n = Point3F(0,0,1);
      impactNotify(p, n, mTarget);
    }
    else
    {
      Point3F p = Point3F(0,0,0);
      Point3F n = Point3F(0,0,1);
      impactNotify(p, n, 0);
    }
  }
}

void afxMagicSpell::enter_linger_state_s()
{
  if (mImpacted_obj)
  {
    mImpacted_cons_id = constraint_mgr->setReferenceObject(IMPACTED_OBJECT_CONS, mImpacted_obj);
#if defined(AFX_CAP_SCOPE_TRACKING)
    if (mImpacted_obj->isScopeable())
      constraint_mgr->addScopeableObject(mImpacted_obj);
#endif
  }
  else
    constraint_mgr->setReferencePoint(IMPACTED_OBJECT_CONS, mImpact_pos, mImpact_norm);
  constraint_mgr->setReferencePoint(IMPACT_POINT_CONS, mImpact_pos, mImpact_norm);
  constraint_mgr->setReferenceObject(MISSILE_CONS, 0);

  // start impact effects
  setup_impact_fx();
  if (mPhrases[IMPACT_PHRASE])
    mPhrases[IMPACT_PHRASE]->start(mSpell_elapsed, mSpell_elapsed); //START

  // start linger effects
  setup_linger_fx();
  if (mPhrases[LINGER_PHRASE])
    mPhrases[LINGER_PHRASE]->start(mSpell_elapsed, mSpell_elapsed); //START

#if 0 // code temporarily replaced with old callback technique in order to avoid engine bug.
  // CALL SCRIPT afxMagicSpellData::onImpact(%spell, %caster, %impactedObj, %impactedPos, %impactedNorm)
  mDatablock->onImpact_callback(this, mCaster, mImpacted_obj, mImpact_pos, mImpact_norm);
#else
  char pos_buf[128];
  dSprintf(pos_buf, sizeof(pos_buf), "%g %g %g", mImpact_pos.x, mImpact_pos.y, mImpact_pos.z);
  char norm_buf[128];
  dSprintf(norm_buf, sizeof(norm_buf), "%g %g %g", mImpact_norm.x, mImpact_norm.y, mImpact_norm.z);
  Con::executef(mExeblock, "onImpact", getIdString(),
     (mCaster) ? mCaster->getIdString(): "",
     (mImpacted_obj) ? mImpacted_obj->getIdString(): "",
     pos_buf, norm_buf);
#endif
}

void afxMagicSpell::leave_linger_state_s()
{
  if (mPhrases[LINGER_PHRASE])
  {
    if (mMarks_mask & MARK_INTERRUPT_LINGER)
    {
      //Con::printf("INTERRUPT LINGER (S)");
      mPhrases[LINGER_PHRASE]->interrupt(mSpell_elapsed);
    }
    else
    {
      //Con::printf("LEAVING LINGER (S)");
      mPhrases[LINGER_PHRASE]->stop(mSpell_elapsed);
    }
  }
}



//~~~~~~~~~~~~~~~~~~~~//~~~~~~~~~~~~~~~~~~~~//~~~~~~~~~~~~~~~~~~~~//~~~~~~~~~~~~~~~~~~~~~//
// private

void afxMagicSpell::process_client(F32 dt)
{
  mSpell_elapsed += dt; //SPELL_ELAPSED

  U8 pending_state = mSpell_state;

  // check for state changes
  switch (mSpell_state)
  {
  case INACTIVE_STATE:
    if (mMarks_mask & MARK_ACTIVATE)
      pending_state = CASTING_STATE;
    break;
  case CASTING_STATE:
    if (mMarks_mask & MARK_INTERRUPT_CASTING)
      pending_state = CLEANUP_STATE;
    else if (mMarks_mask & MARK_END_CASTING)
      pending_state = DELIVERY_STATE;
    else if (mDatablock->mLaunch_on_server_signal)
    {
      if (mMarks_mask & MARK_LAUNCH)
        pending_state = DELIVERY_STATE;
    }
    else
    {
      if (state_expired())
        pending_state = DELIVERY_STATE;
    }
    break;
  case DELIVERY_STATE:
    if (mMarks_mask & MARK_INTERRUPT_DELIVERY)
      pending_state = CLEANUP_STATE;
    else if (mMarks_mask & MARK_END_DELIVERY)
      pending_state = LINGER_STATE;
    else if (mMarks_mask & MARK_IMPACT)
      pending_state = LINGER_STATE;
    else
      state_expired();
    break;
  case LINGER_STATE:
    if (mMarks_mask & MARK_INTERRUPT_LINGER)
      pending_state = CLEANUP_STATE;
    else if (mMarks_mask & MARK_END_LINGER)
      pending_state = CLEANUP_STATE;
    else if (mMarks_mask & MARK_SHUTDOWN)
      pending_state = CLEANUP_STATE;
    else if (state_expired())
      pending_state = CLEANUP_STATE;
    break;
  case CLEANUP_STATE:
    if ((mMarks_mask & MARK_INTERRUPT_CLEANUP) || cleanup_over())
      pending_state = DONE_STATE;
    break;
  }

  if (mSpell_state != pending_state)
    change_state_c(pending_state);

  if (mSpell_state == INACTIVE_STATE)
    return;

  //--------------------------//

  // update the listener constraint position
  if (!mListener_cons_id.undefined())
  {
    Point3F listener_pos;
    listener_pos = SFX->getListener().getTransform().getPosition();
    constraint_mgr->setReferencePoint(mListener_cons_id, listener_pos);
  }

  // find local camera position
  Point3F cam_pos;
  SceneObject* current_cam = get_camera(&cam_pos);

  // detect camera changes
  if (!mCamera_cons_id.undefined() && current_cam != mCamera_cons_obj)
  {
    constraint_mgr->setReferenceObject(mCamera_cons_id, current_cam);
	mCamera_cons_obj = current_cam;
  }

  // sample the constraints
  constraint_mgr->sample(dt, Platform::getVirtualMilliseconds(), (current_cam) ? &cam_pos : 0);

  // update active effects lists
  for (S32 i = 0; i < NUM_PHRASES; i++)
    if (mPhrases[i])
      mPhrases[i]->update(dt, mSpell_elapsed);

  if (mMissile_is_armed)
  {
    launch_missile_c();
	mMissile_is_armed = false;
  }
}

void afxMagicSpell::change_state_c(U8 pending_state)
{
  if (mSpell_state == pending_state)
    return;

  // LEAVING THIS STATE
  switch (mSpell_state)
  {
  case INACTIVE_STATE:
    break;
  case CASTING_STATE:
    leave_casting_state_c();
    break;
  case DELIVERY_STATE:
    leave_delivery_state_c();
    break;
  case LINGER_STATE:
    leave_linger_state_c();
    break;
  case CLEANUP_STATE:
    break;
  case DONE_STATE:
    break;
  }

  mSpell_state = pending_state;

  // ENTERING THIS STATE
  switch (pending_state)
  {
  case INACTIVE_STATE:
    break;
  case CASTING_STATE:
    enter_casting_state_c(mSpell_elapsed);
    break;
  case DELIVERY_STATE:
    enter_delivery_state_c(mSpell_elapsed);
    break;
  case LINGER_STATE:
    enter_linger_state_c(mSpell_elapsed);
    break;
  case CLEANUP_STATE:
    break;
  case DONE_STATE:
    break;
  }
}

void afxMagicSpell::enter_casting_state_c(F32 starttime)
{
  // stamp constraint-mgr starting time
  constraint_mgr->setStartTime(Platform::getVirtualMilliseconds() - (U32)(mSpell_elapsed *1000));
  //spell_elapsed = 0; //SPELL_ELAPSED

  setup_dynamic_constraints();

  // start casting effects and castbar
  setup_casting_fx();
  if (mPhrases[CASTING_PHRASE])
    mPhrases[CASTING_PHRASE]->start(starttime, mSpell_elapsed); //START

  // initialize missile
  if (mMissile_db)
  {
    mMissile_db = mMissile_db->cloneAndPerformSubstitutions(this, ranking);
    init_missile_c(mMissile_db);
  }
}

void afxMagicSpell::leave_casting_state_c()
{
  if (mPhrases[CASTING_PHRASE])
  {
    if (mMarks_mask & MARK_INTERRUPT_CASTING)
    {
      //Con::printf("INTERRUPT CASTING (C)");
      mPhrases[CASTING_PHRASE]->interrupt(mSpell_elapsed);
    }
    else
    {
      //Con::printf("LEAVING CASTING (C)");
      mPhrases[CASTING_PHRASE]->stop(mSpell_elapsed);
    }
  }
}

void afxMagicSpell::enter_delivery_state_c(F32 starttime)
{
  mMissile_is_armed = true;

  setup_launch_fx();
  if (mPhrases[LAUNCH_PHRASE])
    mPhrases[LAUNCH_PHRASE]->start(starttime, mSpell_elapsed); //START

  setup_delivery_fx();
  if (mPhrases[DELIVERY_PHRASE])
    mPhrases[DELIVERY_PHRASE]->start(starttime, mSpell_elapsed); //START
}

void afxMagicSpell::leave_delivery_state_c()
{
  if (mMissile)
  {
    clearNotify(mMissile);
	mMissile->deleteObject();
	mMissile = NULL;
  }

  if (mPhrases[DELIVERY_PHRASE])
  {
    if (mMarks_mask & MARK_INTERRUPT_DELIVERY)
    {
      //Con::printf("INTERRUPT DELIVERY (C)");
      mPhrases[DELIVERY_PHRASE]->interrupt(mSpell_elapsed);
    }
    else
    {
      //Con::printf("LEAVING DELIVERY (C)");
      mPhrases[DELIVERY_PHRASE]->stop(mSpell_elapsed);
    }
  }
}

void afxMagicSpell::enter_linger_state_c(F32 starttime)
{
  if (mImpacted_obj)
    mImpacted_cons_id = constraint_mgr->setReferenceObject(IMPACTED_OBJECT_CONS, mImpacted_obj);
  else if (mImpacted_scope_id > 0)
    mImpacted_cons_id = constraint_mgr->setReferenceObjectByScopeId(IMPACTED_OBJECT_CONS, mImpacted_scope_id, mImpacted_is_shape);
  else
    constraint_mgr->setReferencePoint(IMPACTED_OBJECT_CONS, mImpact_pos, mImpact_norm);
  constraint_mgr->setReferencePoint(IMPACT_POINT_CONS, mImpact_pos, mImpact_norm);
  constraint_mgr->setReferenceObject(MISSILE_CONS, 0);

  setup_impact_fx();
  if (mPhrases[IMPACT_PHRASE])
    mPhrases[IMPACT_PHRASE]->start(starttime, mSpell_elapsed); //START

  setup_linger_fx();
  if (mPhrases[LINGER_PHRASE])
  {
    mPhrases[LINGER_PHRASE]->start(starttime, mSpell_elapsed); //START
  }
}

void afxMagicSpell::leave_linger_state_c()
{
  if (mPhrases[LINGER_PHRASE])
  {
    if (mMarks_mask & MARK_INTERRUPT_LINGER)
    {
      //Con::printf("INTERRUPT LINGER (C)");
      mPhrases[LINGER_PHRASE]->interrupt(mSpell_elapsed);
    }
    else
    {
      //Con::printf("LEAVING LINGER (C)");
      mPhrases[LINGER_PHRASE]->stop(mSpell_elapsed);
    }
  }
}

void afxMagicSpell::sync_client(U16 marks, U8 state, F32 elapsed, F32 spell_elapsed)
{
  //Con::printf("SYNC marks=%d old_state=%s state=%s elapsed=%g spell_elapsed=%g",
  //            marks, name_from_state(spell_state), name_from_state(state), elapsed,
  //            spell_elapsed);

  if (mSpell_state != LATE_STATE)
    return;

  mMarks_mask = marks;

  // don't want to be started on late zoning clients
  if (!mDatablock->exec_on_new_clients)
  {
    mSpell_state = DONE_STATE;
  }

  // it looks like we're ghosting pretty late and
  // should just return to the inactive state.
  else if ((marks & (MARK_INTERRUPTS | MARK_DEACTIVATE | MARK_SHUTDOWN)) ||
           (((marks & MARK_IMPACT) || (marks & MARK_END_DELIVERY)) && (marks & MARK_END_LINGER)))
  {
    mSpell_state = DONE_STATE;
  }

  // it looks like we should be in the linger state.
  else if ((marks & MARK_IMPACT) ||
           (((marks & MARK_LAUNCH) || (marks & MARK_END_CASTING)) && (marks & MARK_END_DELIVERY)))
  {
    mSpell_state = LINGER_STATE;
    mSpell_elapsed = spell_elapsed;
    enter_linger_state_c(spell_elapsed-elapsed);
  }

  // it looks like we should be in the delivery state.
  else if ((marks & MARK_LAUNCH) || (marks & MARK_END_CASTING))
  {
    mSpell_state = DELIVERY_STATE;
	mSpell_elapsed = spell_elapsed;
    enter_delivery_state_c(spell_elapsed-elapsed);
  }

  // it looks like we should be in the casting state.
  else if (marks & MARK_ACTIVATE)
  {
    mSpell_state = CASTING_STATE; //SPELL_STATE
	mSpell_elapsed = spell_elapsed;
    enter_casting_state_c(spell_elapsed-elapsed);
  }
}

//~~~~~~~~~~~~~~~~~~~~//~~~~~~~~~~~~~~~~~~~~//~~~~~~~~~~~~~~~~~~~~//~~~~~~~~~~~~~~~~~~~~~//
// public:

void afxMagicSpell::postSpellEvent(U8 event)
{
  setMaskBits(StateEventMask);

  switch (event)
  {
  case ACTIVATE_EVENT:
    mMarks_mask |= MARK_ACTIVATE;
    break;
  case LAUNCH_EVENT:
    mMarks_mask |= MARK_LAUNCH;
    setMaskBits(LaunchEventMask);
    break;
  case IMPACT_EVENT:
    mMarks_mask |= MARK_IMPACT;
    setMaskBits(ImpactEventMask);
    break;
  case SHUTDOWN_EVENT:
    mMarks_mask |= MARK_SHUTDOWN;
    break;
  case DEACTIVATE_EVENT:
    mMarks_mask |= MARK_DEACTIVATE;
    break;
  case INTERRUPT_PHASE_EVENT:
    if (mSpell_state == CASTING_STATE)
      mMarks_mask |= MARK_END_CASTING;
    else if (mSpell_state == DELIVERY_STATE)
      mMarks_mask |= MARK_END_DELIVERY;
    else if (mSpell_state == LINGER_STATE)
      mMarks_mask |= MARK_END_LINGER;
    break;
  case INTERRUPT_SPELL_EVENT:
    if (mSpell_state == CASTING_STATE)
      mMarks_mask |= MARK_INTERRUPT_CASTING;
    else if (mSpell_state == DELIVERY_STATE)
      mMarks_mask |= MARK_INTERRUPT_DELIVERY;
    else if (mSpell_state == LINGER_STATE)
      mMarks_mask |= MARK_INTERRUPT_LINGER;
    else if (mSpell_state == CLEANUP_STATE)
      mMarks_mask |= MARK_INTERRUPT_CLEANUP;
    break;
  }
}

void afxMagicSpell::resolveTimeFactors()
{
  for (S32 i = 0; i < NUM_PHRASES; i++)
    mTfactors[i] *= mOverall_time_factor;
}

//~~~~~~~~~~~~~~~~~~~~//~~~~~~~~~~~~~~~~~~~~//~~~~~~~~~~~~~~~~~~~~//~~~~~~~~~~~~~~~~~~~~~//

void afxMagicSpell::finish_startup()
{
#if !defined(BROKEN_POINT_IN_WATER)
  // test if caster is in water
  if (mCaster)
  {
    Point3F pos = mCaster->getPosition();
    if (mCaster->pointInWater(pos))
      exec_conds_mask |= CASTER_IN_WATER;
  }
#endif

  resolveTimeFactors();

  init_constraints();
  init_scoping();

  postSpellEvent(afxMagicSpell::ACTIVATE_EVENT);
}

// static
afxMagicSpell*
afxMagicSpell::cast_spell(afxMagicSpellData* datablock, ShapeBase* caster, SceneObject* target, SimObject* extra)
{
  AssertFatal(datablock != NULL, "Datablock is missing.");
  AssertFatal(caster != NULL, "Caster is missing.");

  afxMagicSpellData* exeblock = datablock;

  SimObject* param_holder = new SimObject();
  if (!param_holder->registerObject())
  {
    Con::errorf("afxMagicSpell: failed to register parameter object.");
    delete param_holder;
    return 0;
  }

  param_holder->assignDynamicFieldsFrom(datablock, arcaneFX::sParameterFieldPrefix);
  if (extra)
  {
    // copy dynamic fields from the extra object to the param holder
    param_holder->assignDynamicFieldsFrom(extra, arcaneFX::sParameterFieldPrefix);
  }

  if (datablock->isMethod("onPreactivate"))
  {
     // CALL SCRIPT afxMagicSpellData::onPreactivate(%params, %caster, %target, %extra)
     bool result = datablock->onPreactivate_callback(param_holder, caster, target, extra);
     if (!result)
     {
   #if defined(TORQUE_DEBUG)
       Con::warnf("afxMagicSpell: onPreactivate() returned false, spell aborted.");
   #endif
       Sim::postEvent(param_holder, new ObjectDeleteEvent, Sim::getCurrentTime());
       return 0;
     }
  }

  // make a temp datablock clone if there are substitutions
  if (datablock->getSubstitutionCount() > 0)
  {
    datablock = new afxMagicSpellData(*exeblock, true);
    exeblock->performSubstitutions(datablock, param_holder);
  }

  // create a new spell instance
  afxMagicSpell* spell = new afxMagicSpell(caster, target);
  spell->setDataBlock(datablock);
  spell->mExeblock = exeblock;
  spell->setExtra(extra);

  // copy dynamic fields from the param holder to the spell
  spell->assignDynamicFieldsFrom(param_holder, arcaneFX::sParameterFieldPrefix);
  Sim::postEvent(param_holder, new ObjectDeleteEvent, Sim::getCurrentTime());

  // register
  if (!spell->registerObject())
  {
    Con::errorf("afxMagicSpell: failed to register spell instance.");
    Sim::postEvent(spell, new ObjectDeleteEvent, Sim::getCurrentTime());
    return 0;
  }
  registerForCleanup(spell);

  spell->activate();

  return spell;
}

IMPLEMENT_GLOBAL_CALLBACK( DisplayScreenMessage, void, (GameConnection* client, const char* message), (client, message),
   "Called to display a screen message.\n"
   "@ingroup AFX\n" );

void afxMagicSpell::displayScreenMessage(ShapeBase* caster, const char* msg)
{
  if (!caster)
    return;

  GameConnection* client = caster->getControllingClient();
  if (client)
    DisplayScreenMessage_callback(client, msg);
}

Point3F afxMagicSpell::getShapeImpactPos(SceneObject* obj)
{
  Point3F pos = obj->getRenderPosition();
  if (obj->getTypeMask() & CorpseObjectType)
    pos.z += 0.5f;
  else
    pos.z += (obj->getObjBox().len_z()/2);
  return pos;
}

void afxMagicSpell::restoreObject(SceneObject* obj)
{
  if (obj->getScopeId() == mCaster_scope_id && dynamic_cast<ShapeBase*>(obj) != NULL)
  {
    mCaster_scope_id = 0;
	mCaster = (ShapeBase*)obj;
	mCaster_field = mCaster;
    deleteNotify(mCaster);
    processAfter(mCaster);
  }

  if (obj->getScopeId() == mTarget_scope_id)
  {
    mTarget_scope_id = 0;
	mTarget = obj;
    mTarget_field = mTarget;
    deleteNotify(mTarget);
  }

  if (obj->getScopeId() == mImpacted_scope_id)
  {
    mImpacted_scope_id = 0;
	mImpacted_obj = obj;
    deleteNotify(mImpacted_obj);
  }
}

bool afxMagicSpell::activationCallInit(bool postponed)
{
  if (postponed && (!started_with_newop || !postpone_activation))
  {
    Con::errorf("afxMagicSpell::activate() -- activate() is only required when creating a spell with the \"new\" operator "
                "and the postponeActivation field is set to \"true\".");
    return false;
  }

  if (!mCaster_field)
  {
    Con::errorf("afxMagicSpell::activate() -- no spellcaster specified.");
    return false;
  }

  mCaster = dynamic_cast<ShapeBase*>(mCaster_field);
  if (!mCaster)
  {
    Con::errorf("afxMagicSpell::activate() -- spellcaster is not a ShapeBase derived object.");
    return false;
  }

  if (mTarget_field)
  {
    mTarget = dynamic_cast<SceneObject*>(mTarget_field);
    if (!mTarget)
      Con::warnf("afxMagicSpell::activate() -- target is not a SceneObject derived object.");
  }

  return true;
}

void afxMagicSpell::activate()
{
  // separating the final part of startup allows the calling script
  // to make certain types of calls on the returned spell that need
  // to happen prior to object registration.
  Sim::postEvent(this, new SpellFinishStartupEvent, Sim::getCurrentTime());

  mCaster_field = mCaster;
  mTarget_field = mTarget;

  // CALL SCRIPT afxMagicSpellData::onActivate(%spell, %caster, %target)
  mDatablock->onActivate_callback(this, mCaster, mTarget);
}

//~~~~~~~~~~~~~~~~~~~~//~~~~~~~~~~~~~~~~~~~~//~~~~~~~~~~~~~~~~~~~~//~~~~~~~~~~~~~~~~~~~~~//
// console methods/functions

DefineEngineMethod(afxMagicSpell, getCaster, S32, (),,
                   "Returns ID of the spell's caster object.\n\n"
                   "@ingroup AFX")
{
  ShapeBase* caster = object->getCaster();
  return (caster) ? caster->getId() : -1;
}

DefineEngineMethod(afxMagicSpell, getTarget, S32, (),,
                   "Returns ID of the spell's target object.\n\n"
                   "@ingroup AFX")
{
  SceneObject* target = object->getTarget();
  return (target) ? target->getId() : -1;
}

DefineEngineMethod(afxMagicSpell, getMissile, S32, (),,
                   "Returns ID of the spell's magic-missile object.\n\n"
                   "@ingroup AFX")
{
  afxMagicMissile* missile = object->getMissile();
  return (missile) ? missile->getId() : -1;
}

DefineEngineMethod(afxMagicSpell, getImpactedObject, S32, (),,
                   "Returns ID of impacted-object for the spell.\n\n"
                   "@ingroup AFX")
{
  SceneObject* imp_obj = object->getImpactedObject();
  return (imp_obj) ? imp_obj->getId() : -1;
}

DefineEngineStringlyVariadicMethod(afxMagicSpell, setTimeFactor, void, 3, 4, "(F32 factor) or (string phase, F32 factor)"
   "Sets the time-factor for the spell, either overall or for a specific phrase.\n\n"
   "@ingroup AFX")
{
   if (argc == 3)
      object->setTimeFactor(argv[2].getFloat());
   else
   {
      F32 value = argv[3].getFloat();

      if (dStricmp(argv[2], "overall") == 0)
         object->setTimeFactor(dAtof(argv[3]));
      else if (dStricmp(argv[2], "casting") == 0)
         object->setTimeFactor(afxMagicSpell::CASTING_PHRASE, value);
      else if (dStricmp(argv[2], "launch") == 0)
         object->setTimeFactor(afxMagicSpell::LAUNCH_PHRASE, value);
      else if (dStricmp(argv[2], "delivery") == 0)
         object->setTimeFactor(afxMagicSpell::DELIVERY_PHRASE, value);
      else if (dStricmp(argv[2], "impact") == 0)
         object->setTimeFactor(afxMagicSpell::IMPACT_PHRASE, value);
      else if (dStricmp(argv[2], "linger") == 0)
         object->setTimeFactor(afxMagicSpell::LINGER_PHRASE, value);
      else
         Con::errorf("afxMagicSpell::setTimeFactor() -- unknown spell phrase [%s].", argv[2].getString());
   }
}

DefineEngineMethod(afxMagicSpell, interruptStage, void, (),,
                   "Interrupts the current stage of a magic spell causing it to move onto the next one.\n\n"
                   "@ingroup AFX")
{
  object->postSpellEvent(afxMagicSpell::INTERRUPT_PHASE_EVENT);
}

DefineEngineMethod(afxMagicSpell, interrupt, void, (),,
                   "Interrupts and deletes a running magic spell.\n\n"
                   "@ingroup AFX")
{
  object->postSpellEvent(afxMagicSpell::INTERRUPT_SPELL_EVENT);
}

DefineEngineMethod(afxMagicSpell, activate, void, (),,
                   "Activates a magic spell that was started with postponeActivation=true.\n\n"
                   "@ingroup AFX")
{
  if (object->activationCallInit(true))
    object->activate();
}

DefineEngineFunction(castSpell, S32,	(afxMagicSpellData* datablock, ShapeBase* caster, SceneObject* target, SimObject* extra),
										(nullAsType<afxMagicSpellData*>(), nullAsType<ShapeBase*>(), nullAsType<SceneObject*>(), nullAsType<SimObject*>()),		
                     "Instantiates the magic spell defined by datablock and cast by caster.\n\n"
                     "@ingroup AFX")
{
  if (!datablock)
  {
    Con::errorf("castSpell() -- missing valid spell datablock.");
    return 0;
  }

  if (!caster)
  {
    Con::errorf("castSpell() -- missing valid spellcaster.");
    return 0;
  }

  // target is optional (depends on spell)

  // note -- we must examine all arguments prior to calling cast_spell because
  // it calls Con::executef() which will overwrite the argument array.
  afxMagicSpell* spell = afxMagicSpell::cast_spell(datablock, caster, target, extra);

  return (spell) ? spell->getId() : 0;
}

//~~~~~~~~~~~~~~~~~~~~//~~~~~~~~~~~~~~~~~~~~//~~~~~~~~~~~~~~~~~~~~//~~~~~~~~~~~~~~~~~~~~~//