////////////////////////////////////////////////////////////////////////////
// Real Time Strategy - NWN - Timed Upgrade
//=========================================================================
// By Deva Bryson Winblood.  02/25/2003
////////////////////////////////////////////////////////////////////////////
/* when this goes off it will ClearAllActions(), apply an effect
   in 1.5 seconds destroy the creature, replace it with the upgrade with
   damage applied. */

#include "uc_h"


void main()
{
    //SendMessageToPC(GetFirstPC(),"A timed upgrade should have executed!!");
    object oMe=OBJECT_SELF;
    int nNowTime=GetTimeHour()+GetCalendarDay()*24+GetCalendarMonth()*24*30+GetCalendarYear()*24*30*12;
    if (nNowTime<GetLocalInt(oMe,"nTimeToUpgrade"))
    { // not ready to upgrade yet
        DelayCommand(18.0,ExecuteScript("rts_timed_upg",oMe));
        return;
    } // not ready to upgrade yet
    object oNew;
    location lLoc=GetLocation(oMe);
    string sID=GetLocalString(oMe,"sTeamID");
    int nUnitNum=GetLocalInt(oMe,"nUnitNum");
    string sRes=GetUnitTimedUpgradeResRef(sID,nUnitNum);
    int nNewNum=GetUnitTimedUpgradeUnitNum(sID,nUnitNum);
    effect eVFX=EffectVisualEffect(VFX_IMP_HEAD_NATURE);
    effect eGhost=EffectCutsceneGhost();
    int nMHP=GetMaxHitPoints(oMe);
    int nCHP=GetCurrentHitPoints(oMe);
    int nDmg=nMHP-nCHP;
    object oDestWP=GetLocalObject(oMe,"oDestWP");
    int nS=GetLocalInt(oMe,"nSState");
    int nM=GetLocalInt(oMe,"nMState");
    int nTotalTime=GetLocalInt(oMe,"nBornTime");
    int nKills=GetLocalInt(oMe,"nKills");
    object oAttacker=GetLastAttacker();
    float fDist=GetDistanceBetween(oAttacker,oMe);
    effect eDmg=EffectDamage(nDmg);
    location lLocation=GetLocalLocation(oMe,"lLocation");
    int bFormationGuard=GetLocalInt(oMe,"bFormationGuard");
    if (GetIsDead(oAttacker)||fDist==0.0||fDist>20.0) oAttacker=OBJECT_INVALID;
    ApplyEffectToObject(DURATION_TYPE_TEMPORARY,eVFX,oMe,1.0);
    ApplyEffectToObject(DURATION_TYPE_TEMPORARY,eGhost,oMe,10.0);
    DelayCommand(1.5,DestroyObject(oMe));
    oNew=CreateObject(OBJECT_TYPE_CREATURE,sRes,lLoc);
    ChangeFaction(oNew,oMe);
    SetLocalString(oNew,"sTeamID",sID);
    SetLocalInt(oNew,"nUnitNum",nNewNum);
    if (nNewNum>-1)
    { // valid num
        if(GetUnitTimedUpgradeTime(sID,nNewNum)>0)
        { // also has timed upgrade
            int nTimeBefore=GetLocalInt(oMe,"nTimeToUpgrade");
            int nNextTime=nTimeBefore+GetUnitTimedUpgradeTime(sID,nNewNum);
            SetLocalInt(oNew,"nTimeToUpgrade",nNextTime);
        } // also has timed upgrade
    } // valid num
    if (oAttacker!=OBJECT_INVALID)
    { // set last attacker
      AssignCommand(oAttacker,ClearAllActions());
      AssignCommand(oAttacker,ApplyEffectToObject(DURATION_TYPE_INSTANT,eDmg,oNew,1.0));
    }// set last attacker
    else
      ApplyEffectToObject(DURATION_TYPE_INSTANT,eDmg,oNew,1.0);
    SetLocalInt(oNew,"nSState",nS); // set substate on upgraded version of me
    SetLocalInt(oNew,"nMState",nM); // set mainstate on upgraded version of me
    SetLocalInt(oNew,"nBornTime",nTotalTime); // set original time on the upgrade
    SetLocalInt(oNew,"nKills",nKills); // Set kills accurate on upgrade
    SetLocalObject(oNew,"oDestWP",oDestWP) ; // preserve following, or destination
    SetLocalLocation(oNew,"lLocation",lLocation);
    SetLocalInt(oNew,"bFormationGuard",bFormationGuard);
}