Tidas

Untitled

Jun 26th, 2013
160
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.99 KB | None | 0 0
  1. local set = CreateClientConVar("bio", 0, FCVAR_SERVER_CAN_EXECUTE)
  2. local glowMaterial = Material("sprites/glow04_noz");
  3. local glowColor = Color(0, 162, 255, 255);
  4.  
  5. hook.Add( "HUDPaint", "Tracking", function()
  6. if(Schema:PlayerIsCombine(LocalPlayer())) then
  7. for k, v in pairs(player.GetAll()) do
  8. local pos = v:GetPos()
  9. if(v:Alive() and v:HasInitialized() and v != LocalPlayer() and Schema:PlayerIsCombine(v)) then
  10. if(set:GetInt() == 1) then
  11. local distance = math.floor(tostring(LocalPlayer():GetPos():Distance(v:GetPos()) / 16 * .3048))
  12. draw.SimpleTextOutlined(v:Name(), "DebugFixed", v:EyePos():ToScreen().x, v:EyePos():ToScreen().y - 20, Color(255, 255, 255), 1, 1, 1, Color(0, 0, 0))
  13. if(distance == 1) then
  14. draw.SimpleTextOutlined("<:: Distance | "..distance.." meter", "DebugFixed", v:EyePos():ToScreen().x + 132, v:EyePos():ToScreen().y + 20, Color(255, 255, 255), 1, 1, 1, Color(0, 0, 0))
  15. else
  16. draw.SimpleTextOutlined("<:: Distance | "..distance.." meters", "DebugFixed", v:EyePos():ToScreen().x + 132, v:EyePos():ToScreen().y + 20, Color(255, 255, 255), 1, 1, 1, Color(0, 0, 0))
  17. end;
  18. draw.SimpleTextOutlined("<:: Health | "..v:Health(), "DebugFixed", v:EyePos():ToScreen().x + 105, v:EyePos():ToScreen().y, Color(255, 255, 255), 1, 1, 1, Color(0, 0, 0))
  19. end;
  20. cam.Start3D( EyePos(), EyeAngles() );
  21. render.SetMaterial(glowMaterial);
  22. render.DrawSprite(Vector(pos.x, pos.y, pos.z + 75), LocalPlayer():GetPos():Distance(v:GetPos()) / 20, LocalPlayer():GetPos():Distance(v:GetPos()) / 20, glowColor);
  23. cam.End3D();
  24. end;
  25. if(!v:Alive() and !timer.Exists(v:Name())) then
  26. timer.Create(v:Name(), 10, 1, function()
  27. cam.Start3D( EyePos(), EyeAngles() );
  28. render.DrawSprite(Vector(pos.x, pos.y, pos.z + 75), LocalPlayer():GetPos():Distance(v:GetPos()) / 20, LocalPlayer():GetPos():Distance(v:GetPos()) / 20, Color(255, 0, 0, 255));
  29. cam.End3D();
  30. timer.Destry(v:Name())
  31. end)
  32. end;
  33. end;
  34. end;
  35. end);
Advertisement
Add Comment
Please, Sign In to add comment