AMXX.pl: Support AMX Mod X i SourceMod

public diablo_preThink(id)
{

if(is_user_alive(id))
{
  if(bKlasa[id])
  {
   if(pev(id, pev_button) & IN_USE)
   {
    if(canThrowHook[id] && !gHooked[id])
    {
     throw_hook(id)

    }
    return PLUGIN_HANDLED
   }
   else
    del_hook(id)
  }
}
return PLUGIN_HANDLED

}
public del_hook(id)
{
// Remove players hook
if (!canThrowHook[id])
  remove_hook(id)

return PLUGIN_HANDLED
}
public round_bstart()
{
for (new i = 1; i <= gMaxPlayers; i++)
{
  if (is_user_connected(i))
  {
   if(!canThrowHook[i])
    remove_hook(i)
  }
}
}
public Restart()
{
for (new id = 0; id < gMaxPlayers; id++)
{
  if (is_user_connected(id))
   gRestart[id] = true
}
}
public Update(id)
{
if (!gUpdate[id])
  gUpdate[id] = true

return PLUGIN_CONTINUE
}
public ResetHUD(id)
{
if (gRestart[id])
{
  gRestart[id] = false
  return
}
if (gUpdate[id])
{
  gUpdate[id] = false
  return
}
if (gHooked[id])
{
  remove_hook(id)
}
}
public fwTouch(ptr, ptd)
{
if (!pev_valid(ptr))
  return FMRES_IGNORED

new id = pev(ptr, pev_owner)

// Get classname
static szPtrClass[32]
pev(ptr, pev_classname, szPtrClass, charsmax(szPtrClass))

if (equali(szPtrClass, "Hook"))
{ 
  static Float:fOrigin[3]
  pev(ptr, pev_origin, fOrigin)

  if (pev_valid(ptd))
  {
   static szPtdClass[32]
   pev(ptd, pev_classname, szPtdClass, charsmax(szPtdClass))

   if (!get_pcvar_num(pPlayers) && /*equali(szPtdClass, "player")*/ is_user_alive(ptd))
   {
    // Hit a player
    if (get_pcvar_num(pSound))
     emit_sound(ptr, CHAN_STATIC, "weapons/xbow_hitbod1.wav", 1.0, ATTN_NORM, 0, PITCH_NORM)
    remove_hook(id)

    return FMRES_HANDLED
   }
   else if (equali(szPtdClass, "hostage_entity"))
   {
    // Makes an hostage follow
    if (get_pcvar_num(pHostage) && get_user_team(id) == 2)
    {    
     //cs_set_hostage_foll(ptd, (cs_get_hostage_foll(ptd) == id) ? 0 : id)
     // With the use function we have the sounds!
     dllfunc(DLLFunc_Use, ptd, id)
    }
    if (!get_pcvar_num(pPlayers))
    {
     if(get_pcvar_num(pSound))
      emit_sound(ptr, CHAN_STATIC, "weapons/xbow_hitbod1.wav", 1.0, ATTN_NORM, 0, PITCH_NORM)
     remove_hook(id)
    }
    return FMRES_HANDLED
   }
   else if (get_pcvar_num(pOpenDoors) && equali(szPtdClass, "func_door") || equali(szPtdClass, "func_door_rotating"))
   {
    // Open doors
    // Double doors tested in de_nuke and de_wallmart
    static szTargetName[32]
    pev(ptd, pev_targetname, szTargetName, charsmax(szTargetName))
    if (strlen(szTargetName) > 0)
    {
     static ent
     while ((ent = engfunc(EngFunc_FindEntityByString, ent, "target", szTargetName)) > 0)
     {
      static szEntClass[32]
      pev(ent, pev_classname, szEntClass, charsmax(szEntClass))

      if (equali(szEntClass, "trigger_multiple"))
      {
       dllfunc(DLLFunc_Touch, ent, id)
       goto stopdoors // No need to touch anymore
      }
     }
    }

    // No double doors.. just touch it
    dllfunc(DLLFunc_Touch, ptd, id)
stopdoors:   
   }
   else if (get_pcvar_num(pUseButtons) && equali(szPtdClass, "func_button"))
   {
    if (pev(ptd, pev_spawnflags) & SF_BUTTON_TOUCH_ONLY)
     dllfunc(DLLFunc_Touch, ptd, id) // Touch only
    else  
     dllfunc(DLLFunc_Use, ptd, id) // Use Buttons  
   }
  }

  // If cvar sv_hooksky is 0 and hook is in the sky remove it!
  new iContents = engfunc(EngFunc_PointContents, fOrigin)
  if (!get_pcvar_num(pHookSky) && iContents == CONTENTS_SKY)
  {
   if(get_pcvar_num(pSound))
    emit_sound(ptr, CHAN_STATIC, "weapons/xbow_hit2.wav", 1.0, ATTN_NORM, 0, PITCH_NORM)
   remove_hook(id)
   return FMRES_HANDLED
  }

  // Pick up weapons..
  if (get_pcvar_num(pWeapons))
  {
   static ent
   while ((ent = engfunc(EngFunc_FindEntityInSphere, ent, fOrigin, 15.0)) > 0)
   {
    static szentClass[32]
    pev(ent, pev_classname, szentClass, charsmax(szentClass))

    if (equali(szentClass, "weaponbox") || equali(szentClass, "armoury_entity"))
     dllfunc(DLLFunc_Touch, ent, id)
   }
  }

  // Player is now hooked
  gHooked[id] = true
  // Play sound
  if (get_pcvar_num(pSound))
   emit_sound(ptr, CHAN_STATIC, "weapons/xbow_hit1.wav", 1.0, ATTN_NORM, 0, PITCH_NORM)

  // Make some sparks <img src='https://amxx.pl/public/style_emoticons/<#EMO_DIR#>/biggrin.png' class='bbc_emoticon' alt=':D' />
  message_begin_f(MSG_BROADCAST, SVC_TEMPENTITY, fOrigin, 0)
  write_byte(9) // TE_SPARKS
  write_coord_f(fOrigin[0]) // Origin
  write_coord_f(fOrigin[1])
  write_coord_f(fOrigin[2])
  message_end() 

  // Stop the hook from moving
  set_pev(ptr, pev_velocity, Float:{0.0, 0.0, 0.0})
  set_pev(ptr, pev_movetype, MOVETYPE_NONE)

  //Task
  if (!task_exists(id + 856))
  {
   static TaskData[2]
   TaskData[0] = id
   TaskData[1] = ptr
   gotohook(TaskData)

   set_task(0.1, "gotohook", id + 856, TaskData, 2, "b")
  }
}
return FMRES_HANDLED
}
public hookthink(param[])
{
new id = param[0]
new HookEnt = param[1]

if (!is_user_alive(id) || !pev_valid(HookEnt) || !pev_valid(id))
{
  remove_task(id + 890)
  return PLUGIN_HANDLED
}


static Float:entOrigin[3]
pev(HookEnt, pev_origin, entOrigin)

// If user is behind a box or something.. remove it
// only works if sv_interrupt 1 or higher is
if (get_pcvar_num(pInterrupt))
{
  static Float:usrOrigin[3]
  pev(id, pev_origin, usrOrigin)

  static tr
  engfunc(EngFunc_TraceLine, usrOrigin, entOrigin, 1, -1, tr)

  static Float:fFraction
  get_tr2(tr, TR_flFraction, fFraction)

  if (fFraction != 1.0)
   remove_hook(id)
}

// If cvar sv_hooksky is 0 and hook is in the sky remove it!
new iContents = engfunc(EngFunc_PointContents, entOrigin)
if (!get_pcvar_num(pHookSky) && iContents == CONTENTS_SKY)
{
  if(get_pcvar_num(pSound))
   emit_sound(HookEnt, CHAN_STATIC, "weapons/xbow_hit2.wav", 1.0, ATTN_NORM, 0, PITCH_NORM)
  remove_hook(id)
}

return PLUGIN_HANDLED
}
public gotohook(param[])
{
new id = param[0]
new HookEnt = param[1]
if (!is_user_alive(id) || !pev_valid(HookEnt) || !pev_valid(id))
{
  remove_task(id + 856)
  return PLUGIN_HANDLED
}
// If the round isnt started velocity is just 0
static Float:fVelocity[3]
fVelocity = Float:{0.0, 0.0, 1.0}

// If the round is started and player is hooked we can set the user velocity!
if (gHooked[id])
{
  static Float:fHookOrigin[3], Float:fUsrOrigin[3], Float:fDist
  pev(HookEnt, pev_origin, fHookOrigin)
  pev(id, pev_origin, fUsrOrigin)

  fDist = vector_distance(fHookOrigin, fUsrOrigin)

  if (fDist >= 30.0)
  {
   new Float:fSpeed = get_pcvar_float(pSpeed)

   fSpeed *= 0.52

   fVelocity[0] = (fHookOrigin[0] - fUsrOrigin[0]) * (2.0 * fSpeed) / fDist
   fVelocity[1] = (fHookOrigin[1] - fUsrOrigin[1]) * (2.0 * fSpeed) / fDist
   fVelocity[2] = (fHookOrigin[2] - fUsrOrigin[2]) * (2.0 * fSpeed) / fDist
  }
}
// Set the velocity
set_pev(id, pev_velocity, fVelocity)

return PLUGIN_HANDLED
}

public throw_hook(id)
{
// Get origin and angle for the hook
static Float:fOrigin[3], Float:fAngle[3],Float:fvAngle[3]
static Float:fStart[3]
pev(id, pev_origin, fOrigin)

pev(id, pev_angles, fAngle)
pev(id, pev_v_angle, fvAngle)

if (get_pcvar_num(pInstant))
{
  get_user_hitpoint(id, fStart)

  if (engfunc(EngFunc_PointContents, fStart) != CONTENTS_SKY)
  {
   static Float:fSize[3]
   pev(id, pev_size, fSize)

   fOrigin[0] = fStart[0] + floatcos(fvAngle[1], degrees) * (-10.0 + fSize[0])
   fOrigin[1] = fStart[1] + floatsin(fvAngle[1], degrees) * (-10.0 + fSize[1])
   fOrigin[2] = fStart[2]
  }
  else
   xs_vec_copy(fStart, fOrigin)
}

// Make the hook!
Hook[id] = engfunc(EngFunc_CreateNamedEntity, engfunc(EngFunc_AllocString, "info_target"))

if (Hook[id])
{
  // Player cant throw hook now
  canThrowHook[id] = false

  static const Float:fMins[3] = {-2.840000, -14.180000, -2.840000}
  static const Float:fMaxs[3] = {2.840000, 0.020000, 2.840000}

  //Set some Data
  set_pev(Hook[id], pev_classname, "Hook")

  engfunc(EngFunc_SetModel, Hook[id], "models/rpgrocket.mdl")
  engfunc(EngFunc_SetOrigin, Hook[id], fOrigin)
  engfunc(EngFunc_SetSize, Hook[id], fMins, fMaxs) 

  //set_pev(Hook[id], pev_mins, fMins)
  //set_pev(Hook[id], pev_maxs, fMaxs)

  set_pev(Hook[id], pev_angles, fAngle)

  set_pev(Hook[id], pev_solid, 2)
  set_pev(Hook[id], pev_movetype, 5)
  set_pev(Hook[id], pev_owner, id)

  //Set hook velocity
  static Float:fForward[3], Float:Velocity[3]
  new Float:fSpeed = get_pcvar_float(pThrowSpeed)

  engfunc(EngFunc_MakeVectors, fvAngle)
  global_get(glb_v_forward, fForward)

  Velocity[0] = fForward[0] * fSpeed
  Velocity[1] = fForward[1] * fSpeed
  Velocity[2] = fForward[2] * fSpeed

  set_pev(Hook[id], pev_velocity, Velocity)
  // Make the line between Hook and Player
  message_begin_f(MSG_BROADCAST, SVC_TEMPENTITY, Float:{0.0, 0.0, 0.0}, 0)
  if (get_pcvar_num(pInstant))
  {
   write_byte(1) // TE_BEAMPOINT
   write_short(id) // Startent
   write_coord_f(fStart[0]) // End pos
   write_coord_f(fStart[1])
   write_coord_f(fStart[2])
  }
  else
  {
   write_byte(8) // TE_BEAMENTS
   write_short(id) // Start Ent
   write_short(Hook[id]) // End Ent
  }
  write_short(sprBeam) // Sprite
  write_byte(1) // StartFrame
  write_byte(1) // FrameRate
  write_byte(600) // Life
  write_byte(get_pcvar_num(pWidth)) // Width
  write_byte(get_pcvar_num(pHookNoise)) // Noise
  // Colors now
  if (get_pcvar_num(pColor))
  {
   if (get_user_team(id) == 1) // Terrorist
   {
    write_byte(255) // R
    write_byte(255) // G
    write_byte(255) // B
   }
   #if defined _cstrike_included
   else if(cs_get_user_vip(id)) // vip for cstrike
   {
    write_byte(255) // R
    write_byte(255) // G
    write_byte(255) // B
   }
   #endif // _cstrike_included
   else if(get_user_team(id) == 2) // CT
   {
    write_byte(255) // R
    write_byte(255) // G
    write_byte(255) // B
   }
   else
   {
    write_byte(255) // R
    write_byte(255) // G
    write_byte(255) // B
   }
  }
  else
  {
   write_byte(255) // R
   write_byte(255) // G
   write_byte(255) // B
  }
  write_byte(192) // Brightness
  write_byte(0) // Scroll speed
  message_end()

  if (get_pcvar_num(pSound) && !get_pcvar_num(pInstant))
   emit_sound(id, CHAN_BODY, "weapons/xbow_fire1.wav", VOL_NORM, ATTN_NORM, 0, PITCH_HIGH)

  static TaskData[2]
  TaskData[0] = id
  TaskData[1] = Hook[id]

  set_task(0.1, "hookthink", id + 890, TaskData, 2, "b")
}
else
  client_print(id, print_chat, "Can't create hook")
}
public remove_hook(id)
{
//Player can now throw hooks
canThrowHook[id] = true

// Remove the hook if it is valid
if (pev_valid(Hook[id]))
  engfunc(EngFunc_RemoveEntity, Hook[id])
Hook[id] = 0

// Remove the line between user and hook
if (is_user_connected(id))
{
  message_begin(MSG_BROADCAST, SVC_TEMPENTITY, {0,0,0}, id)
  write_byte(99) // TE_KILLBEAM
  write_short(id) // entity
  message_end()
}

// Player is not hooked anymore
gHooked[id] = false
return 1
}
// Stock by Chaosphere
stock get_user_hitpoint(id, Float:hOrigin[3])
{
if (!is_user_alive(id))
  return 0

static Float:fOrigin[3], Float:fvAngle[3], Float:fvOffset[3], Float:fvOrigin[3], Float:feOrigin[3]
static Float:fTemp[3]

pev(id, pev_origin, fOrigin)
pev(id, pev_v_angle, fvAngle)
pev(id, pev_view_ofs, fvOffset)

xs_vec_add(fOrigin, fvOffset, fvOrigin)

engfunc(EngFunc_AngleVectors, fvAngle, feOrigin, fTemp, fTemp)

xs_vec_mul_scalar(feOrigin, 8192.0, feOrigin)
xs_vec_add(fvOrigin, feOrigin, feOrigin)

static tr
engfunc(EngFunc_TraceLine, fvOrigin, feOrigin, 0, id, tr)
get_tr2(tr, TR_vecEndPos, hOrigin)
//global_get(glb_trace_endpos, hOrigin)

return 1
}
stock statusMsg(id, szMsg[], {Float,_}:...)
{
static iStatusText
if (!iStatusText)
  iStatusText = get_user_msgid("StatusText")

static szBuffer[512]
vformat(szBuffer, charsmax(szBuffer), szMsg, 3)

message_begin((id == 0) ? MSG_ALL : MSG_ONE, iStatusText, _, id)
write_byte(0) // Unknown
write_string(szBuffer) // Message
message_end()

return 1
}