Tidas

Untitled

Jun 26th, 2013
154
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.65 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. end;
  26. else
  27. chat.AddText("You are not the Combine!")
  28. end;
  29. end);
Advertisement
Add Comment
Please, Sign In to add comment