/* teleport_zone
trigger_script for teleporting npcs because trigger_teleport Monsters flag is broken
Teleports are "relative"
-Outerbeast

Template entity:-
"classname" "trigger_script"
"m_iszScriptFile" "teleport_zone"
"m_iMode" "2"
// Don't change any of the above! //
"m_iszScriptFunctionName" "TELEPORT_ZONE::TeleportEntities"
"targetname" "target_me"
"origin" "x1 y1 z1"         // Starting position
"angles" "p y r"            // Custom angles
"$v_destination" "x2 y2 z2" // Ending position
"$f_radius" "72"            // Teleport Radius
"$s_brush" "*m"             // Brush model to provide bounds. Needs to be placed in the map as if it were the teleport itself
"$v_mins" "x y z"           // Teleport zone box min origin
"$v_maxs" "x y z"           // Teleport zone box max origin
"spawnflags" "f"            // See below

Flags:
f = 1 : Start Active and running constant, else it only teleports per trigger. Trigger with USE_OFF to disable.
f = 2 : Direct Teleport: entities teleport right at the destination origin, else its relative
f = 4 : Keep Velocity
f = 8 : Teleport Players
f = 16 : Teleport Miscellanous (items, ammo, weapons)
f = 32 : Teleport Monsters
f = 64 : Teleport Pushables

Defaults:
No flags set = Both Players + monsters are affected
No brush or mins/maxs = Teleport uses radius 128 as zone from entity self origin
No destination value = Entity won't work
No angles set = entity original angles is preserved
*/
namespace TELEPORT_ZONE
{

enum teleport_zone_flags
{
    START_ACTIVE        = 1,
    TP_DIRECT           = 2,
    TP_KEEP_VELOCITY    = 4,
    TP_MISC             = 16,
    TP_PUSHABLES        = 64
};

void TeleportEntities(CBaseEntity@ pTriggerScript)
{
    array<CBaseEntity@> P_ENTITIES( g_EngineFuncs.NumberOfEntities() );
    int iNumEntities, flagMask;
    Vector vecStartPos, vecEndPos, vecAbsMin, vecAbsMax;

    CustomKeyvalues@ kvTriggerScript    = pTriggerScript.GetCustomKeyvalues();
    float flRadius                      = kvTriggerScript.HasKeyvalue( "$f_radius" ) ? kvTriggerScript.GetKeyvalue( "$f_radius" ).GetFloat() : 128.0f;
    flagMask                            = pTriggerScript.pev.spawnflags & ~( START_ACTIVE | TP_DIRECT | TP_KEEP_VELOCITY | TP_MISC | TP_PUSHABLES );
    vecStartPos                         = pTriggerScript.GetOrigin();
    bool blBoundsSet                    = SetBounds( EHandle( pTriggerScript ), vecAbsMin, vecAbsMax );
    
    if( kvTriggerScript.HasKeyvalue( "$v_destination" ) )
        vecEndPos = kvTriggerScript.GetKeyvalue( "$v_destination" ).GetVector();
    else
        return;

    if( flagMask == 0 )
        flagMask = FL_CLIENT | FL_MONSTER;

    if( blBoundsSet )
    {
        iNumEntities = g_EntityFuncs.EntitiesInBox( @P_ENTITIES, vecAbsMin, vecAbsMax, flagMask );

        if( pTriggerScript.pev.SpawnFlagBitSet( TP_MISC ) )
            TeleportMisc( vecStartPos, vecEndPos, vecAbsMin, vecAbsMax, pTriggerScript.pev.spawnflags );
        
        if( pTriggerScript.pev.SpawnFlagBitSet( TP_PUSHABLES ) )
            TeleportPushables( vecStartPos, vecEndPos, vecAbsMin, vecAbsMax );
    }
    else
        iNumEntities = g_EntityFuncs.MonstersInSphere( @P_ENTITIES, vecStartPos, flRadius );

    if( iNumEntities < 1 )
        return;

    for( int i = 0; i < iNumEntities; i++ )
    {
        if( P_ENTITIES[i] is null || P_ENTITIES[i].IsBSPModel() )
            continue;

        if( !pTriggerScript.pev.SpawnFlagBitSet( TP_DIRECT ) )
            g_EntityFuncs.SetOrigin( P_ENTITIES[i], P_ENTITIES[i].GetOrigin() + vecEndPos - vecStartPos );
        else
            g_EntityFuncs.SetOrigin( P_ENTITIES[i], vecEndPos );

        P_ENTITIES[i].pev.angles = P_ENTITIES[i].pev.angles + pTriggerScript.pev.angles;

        if( !pTriggerScript.pev.SpawnFlagBitSet( TP_KEEP_VELOCITY ) )
            P_ENTITIES[i].pev.velocity = g_vecZero;
    }

    P_ENTITIES.resize( 0 );

    if( !pTriggerScript.pev.SpawnFlagBitSet( START_ACTIVE ) || pTriggerScript.GetTargetname() != "" )
        pTriggerScript.Use( pTriggerScript, pTriggerScript, USE_OFF, 0.0f );
}
// Teleport miscellaneous stuff like items, ammo and weapons
void TeleportMisc(Vector vecStartPos, Vector vecEndPos, Vector vecAbsMin, Vector vecAbsMax, uint iSpawnflags)
{
    array<CBaseEntity@> P_MISC( g_EngineFuncs.NumberOfEntities() );
    int iNumEntities = g_EntityFuncs.EntitiesInBox( @P_MISC, vecAbsMin, vecAbsMax, 0 );

    if( iNumEntities < 1 || P_MISC.length() < 1 )
        return;

    for( int i = 0; i < iNumEntities; i++ )
    {
        if( P_MISC[i] is null || !P_MISC[i].IsPointEnt() || P_MISC[i].IsBSPModel() || P_MISC[i].IsPlayer() || P_MISC[i].IsMonster() )
            continue;
        // !-BUG-! : "ammo_" entities teleport, but they disappear
        if( cast<CItem@>( P_MISC[i] ) !is null || cast<CBasePlayerItem@>( P_MISC[i] ) !is null )
        {
            if( ( iSpawnflags & TP_DIRECT ) == 0 )
                g_EntityFuncs.SetOrigin( P_MISC[i], P_MISC[i].GetOrigin() + vecEndPos - vecStartPos );
            else
                g_EntityFuncs.SetOrigin( P_MISC[i], vecEndPos );
        }
    }

    P_MISC.resize( 0 );
}
// Teleporting pushables is kind of buggy
void TeleportPushables(Vector vecStartPos, Vector vecEndPos, Vector vecAbsMin, Vector vecAbsMax)
{
    array<CBaseEntity@> P_BRUSHES( g_EngineFuncs.NumberOfEntities() );
    int iNumBrushes = g_EntityFuncs.BrushEntsInBox( @P_BRUSHES, vecAbsMin, vecAbsMax );

    if( iNumBrushes < 1 || P_BRUSHES.length() < 1 )
        return;

    for( int i = 0; i < iNumBrushes; i++ )
    {
        if( P_BRUSHES[i] is null || !P_BRUSHES[i].IsBSPModel() || P_BRUSHES[i].GetClassname() != "func_pushable" )
            continue;

        g_EntityFuncs.SetOrigin( P_BRUSHES[i], P_BRUSHES[i].GetOrigin() + vecEndPos - vecStartPos );
    }
    P_BRUSHES.resize( 0 );
}

bool SetBounds(EHandle hTriggerScript, Vector& out vecMin, Vector& out vecMax)
{
    if( !hTriggerScript )
        return false;

    CustomKeyvalues@ kvTriggerScript = hTriggerScript.GetEntity().GetCustomKeyvalues();

    if( kvTriggerScript.HasKeyvalue( "$v_mins" ) && kvTriggerScript.HasKeyvalue( "$v_maxs" ) )
    {
        if( kvTriggerScript.GetKeyvalue( "$v_mins" ).GetVector() != kvTriggerScript.GetKeyvalue( "$v_maxs" ).GetVector() )
        {
            vecMin = kvTriggerScript.GetKeyvalue( "$v_mins" ).GetVector();
            vecMax = kvTriggerScript.GetKeyvalue( "$v_maxs" ).GetVector();

            return true;
        }
        else
            return false;
    }
    else
        return false;
}

bool SetBrushModel(EHandle hTriggerScript, EHandle& out hBrushModel)
{
    if( !hTriggerScript )
        return false;

    CustomKeyvalues@ kvTriggerScript = hTriggerScript.GetEntity().GetCustomKeyvalues();

    if( kvTriggerScript.HasKeyvalue( "$s_brush" ) )
    {
        CBaseEntity@ pBBox = 
            kvTriggerScript.GetKeyvalue( "$s_brush" ).GetString()[0] == "*" ?
            g_EntityFuncs.FindEntityByString( pBBox, "model", kvTriggerScript.GetKeyvalue( "$s_brush" ).GetString() ) :
            g_EntityFuncs.FindEntityByTargetname( pBBox, kvTriggerScript.GetKeyvalue( "$s_brush" ).GetString() );

        if( pBBox !is null && pBBox.IsBSPModel() )
        {
            hBrushModel = pBBox;
            return hBrushModel.IsValid();
        }
        else
            return false;
    }
    else
        return false; 
}

}