#include <amxmodx>
#include <fakemeta>
#include <hamsandwich>
#include <xs>

#define VERSION "0.0.1"
#define PLUGIN "Animated Spray"

//#define m_nCustomSprayFrames 381
//#define m_flNextDecalTime 382
//#define m_nCustomSprayFrames 485 
#define m_flNextDecalTime 486 
#define GetCustomDecalFrames(%0)    6 // get_pdata_int(%0,m_nCustomSprayFrames)
// #define SetCustomDecalFrames(%0,%1)    set_pdata_int(%0,m_nCustomSprayFrames,%1)

#define MAX_PLAYERS 32

#define UTIL_MakeVectors(%0)    engfunc(EngFunc_MakeVectors,%0)
#define TRACE_LINE(%0,%1,%2,%3,%4)    engfunc(EngFunc_TraceLine,%0,%1,%2,%3,%4)
#define ALLOC_STRING(%0) engfunc(EngFunc_AllocString, %0)
#define CREATE_NAMED_ENTITY(%0) engfunc(EngFunc_CreateNamedEntity, %0)
#define REMOVE_ENTITY(%0) engfunc(EngFunc_RemoveEntity, %0)
#define WRITE_COORD(%0) engfunc(EngFunc_WriteCoord,%0)

new const SPRAY_SOUND[] = "player/sprayer.wav"
new const INFO_TARGET[] = "info_target"
new g_iFirstDecalIndex
new decalfrequency
new g_iMaxPlayers
new g_iPlayerSprayCan[MAX_PLAYERS+1]

public plugin_init()
{
   register_plugin(PLUGIN, VERSION, "ConnorMcLeod")
   decalfrequency = get_cvar_pointer("decalfrequency")
   RegisterHam(Ham_Player_ImpulseCommands, "player", "CBasePlayer_ImpulseCommands")
   RegisterHam(Ham_Think, INFO_TARGET, "CSprayCan_Think")
   g_iFirstDecalIndex = engfunc(EngFunc_DecalIndex, "{biohaz")
   g_iMaxPlayers = get_maxplayers()
}
/*public plugin_cfg()
{
   
}*/
public plugin_precache()
{
   precache_sound(SPRAY_SOUND)
}

public CBasePlayer_ImpulseCommands( id )
{
   if( pev(id, pev_impulse) == 201 )
   {
      static Float:flGameTime ; flGameTime = get_gametime()
      if( flGameTime >= get_pdata_float(id, m_flNextDecalTime) )
      {
         new Float:start[3], Float:end[3], Float:origin[3], Float:v_angle[3]
         pev(id, pev_v_angle, v_angle)
         UTIL_MakeVectors(v_angle)
         pev(id, pev_origin, origin)
         pev(id, pev_view_ofs, end)
         xs_vec_add(origin, end, start)
         global_get(glb_v_forward, end)
         xs_vec_mul_scalar(end, 128.0, end)
         xs_vec_add(start, end, end)
         
         UTIL_TraceLine ( start, end, IGNORE_MONSTERS, id)
         
         new Float:flFraction
         get_tr2(0, TR_flFraction, flFraction)
         
         if ( flFraction != 1.0 )
         {
            set_pdata_float(id, m_flNextDecalTime, flGameTime + get_pcvar_float(decalfrequency))
            static info_target
            if( !info_target )
            {
               info_target = ALLOC_STRING( INFO_TARGET )
            }
            new ent = CREATE_NAMED_ENTITY( info_target )
            origin[2] += 32.0
            set_pev(ent, pev_origin, origin)
            set_pev(ent, pev_angles, v_angle)
            
            g_iPlayerSprayCan[id] = ent
            set_pev(ent, pev_frame, 0.0)
            
            set_pev(ent, pev_nextthink, flGameTime + 0.1)
            emit_sound(ent, CHAN_VOICE, SPRAY_SOUND, 1.0, ATTN_NORM, 0, PITCH_NORM)
         }
      }
      set_pev(id, pev_impulse, 0)
   }
}

public CSprayCan_Think( ent )
{
   new id
   for(id = g_iMaxPlayers; id>=0; id--)
   {
      if( g_iPlayerSprayCan[id] == ent )
      {
         break
      }
   }
   if( id <= 0 )
   {
      return
   }
   
   new nFrames = GetCustomDecalFrames( id )
   
   new Float:start[3], Float:end[3]
   pev(ent, pev_angles, start)
   UTIL_MakeVectors( start )
   
   pev(ent, pev_origin, start)
   global_get(glb_v_forward, end)
   xs_vec_mul_scalar(end, 128.0, end)
   xs_vec_add(end, start, end)
   
   UTIL_TraceLine (start, end, IGNORE_MONSTERS, id)
   
   new Float:frame
   pev(ent, pev_frame, frame)
   UTIL_DecalTrace(0, g_iFirstDecalIndex - floatround(frame))
   
   if ( ++frame >= nFrames)
   {
      REMOVE_ENTITY(ent)
      g_iPlayerSprayCan[id] = 0
      return
   }
   set_pev(ent, pev_frame, frame)
set_pev(ent, pev_nextthink, get_gametime() + 0.1)
}

UTIL_DecalTrace( pTrace, index )
{
   
   static entityIndex, pHit,
   message, Float:vecEndPos[3]
   pHit = get_tr2(pTrace, TR_pHit)
   if ( pev_valid(pHit) )
   {
      if ( !ExecuteHam(Ham_IsBSPModel, pHit) )
         return;
      entityIndex = pHit
   }
   else 
      entityIndex = 0
      
      message = TE_DECAL;
      
   if ( entityIndex != 0 )
   {
      if ( index > 255 )
      {
         message = TE_DECALHIGH;
         index -= 256
      }
   }
   else
   {
      message = TE_WORLDDECAL;
      if ( index > 255 )
      {
         message = TE_WORLDDECALHIGH;
         index -= 256
      }
   }
   
   get_tr2(pTrace, TR_vecEndPos, vecEndPos)
   
   message_begin( MSG_BROADCAST, SVC_TEMPENTITY )
   {
      write_byte( message )
      WRITE_COORD( vecEndPos[0] )
      WRITE_COORD( vecEndPos[1] )
      WRITE_COORD( vecEndPos[2] )
      write_byte( index )
      if ( entityIndex )
      {
         write_short( entityIndex )
      }
   }
   message_end()
}  

UTIL_TraceLine( Float:vecStart[3], Float:vecEnd[3], igmon, pentIgnore, ptr=0 )
{
   TRACE_LINE( vecStart, vecEnd, igmon == IGNORE_MONSTERS, pentIgnore, ptr )
}