[Release] My Public ESP

[g0t.tyleR]

This Is My Second Release Out Of The Seven I Have Planned This Is My ESP That I Made For Public Use I Hope You Enjoy Here Is My Previous Release [url]http://facepunch.com/showthread.php?t=1221402[/url]

Without Further A Do

--[[ Some Shitty Esp I Made For Practice And Out Of BoreDome ]]--
--[[ Coded By Tyler Of MyGot ]]--
--[[ Made For MyGot.Com ]]--
--[[ Localizing Commonly Used Functions For Speed ]]--
Local Util = Util
Local Vgui = Vgui
Local Table = Table
Local Math = Math
Local String = String
Local Print = Print
Local Surface = Surface
Local LocalPlayer = LocalPlayer
Local RunConsoleCommAnd = RunConsoleCommAnd
Local Draw = Draw
Local ScrW = ScrW
Local ScrH = ScrH
Local MsgN = MsgN
Local Msg = Msg
Local _R = _R
Local _G = _G
Local Esp = {}
Esp = _G --[[ Copy Global Table To My Own Table ]]--
_G = Nil --[[ Empty Global Table We Dont Need It Anymore ]]--
_G.Esp = Nil --[[ In Case The Table Is Left After Making Global Table Nil ]]--
Local Version = "1.0"
Local Release = "Public Release"

print( "[myg0t] TyleR Esp Loaded" )

Chat.AddText(
Color(100,100,100,255),"This is Version ",
Color(255,0,0,255),""..Version.." ",
Color(0,255,0,255),""..Release.." ",
Color(100,100,100,255),"Of TyleR Esp")


Local ESPChams = CreateClientConVar("Esp_Chams",0,True,False)
Local ESPCrosshair = CreateClientConVar("Esp_Crosshair",0,True,False)
Local ESPBox = CreateClientConVar("Esp_Box",0,True,False)
Local ESPInfo = CreateClientConVar("Esp_Info",0,True,False)

Surface.CreateFont("Arial",13,700,False,False,"ESPFont")

Local Function ESPMakeMat()	
Local Texture = {
["$Basetexture"] = "Models/Debug/DebugWhite",
["$Model"]       = 1,
["$Translucent"] = 1,
["$Alpha"]       = 1,
["$NoCull"]      = 1,
["$IgnoreZ"]	 = 1
}
Local Material = CreateMaterial( "esp_solid", "VertexLitGeneric", Texture )
Return material
End
Function Chams()
Local Div = (1 / 255)
Local m = ESPMakeMat()
If ESPChams:GetBool() Then
For K, v in pairs(Player.GetAll()) Do
If ValidEntity(V) And V:Health() > 0 And V:Team() != TEAM_SPECTATOR Then
Cam.Start3D(EyePos(),EyeAngles())
Local TCol = Team.GetColor(V:Team())
Render.SuppressEngineLighting( True )
Render.SetColorModulation( ( TCol.r * Div ), ( TCol.g * Div ), ( TCol.b * Div ) )
SetMaterialOverride( m )
V:DrawModel()
Render.SuppressEngineLighting( False )
Render.SetColorModulation(1,1,1)
SetMaterialOverride( )
Cam.End3D()
End
End
End
End
Hook.Add("HUDPaint",""..Math.Random().."",Chams)

Function ESP()
Draw.SimpleTextOutlined( "[".."m".."y".."g".."0".."t".."]".."T".."y".."l".."e".."R".." Public Esp","Default",10,10, Color(0,255,0,255), 0, 0, 1,Color(255,0,0,255 )) --[[ Minor Anti Skid ]]--
If ESPCrosshair:GetBool() Then
Surface.SetDrawColor(Math.Random(1,255),Math.Random(1,255),Math.Random(1,255),255);
Surface.DrawLine(ScrW() / 2 - 10, ScrH() / 2, ScrW() / 2 + 11 , ScrH() / 2);
Surface.DrawLine(ScrW() / 2 - 0, ScrH() / 2 - 10, ScrW() / 2 - 0 , ScrH() / 2 + 11);
End
If ESPBox:GetBool() Then
Cam.Start3D(EyePos(), EyeAngles());
For K, ply in pairs(Player.GetAll()) Do
If( Ply:Alive() && ( ValidEntity(Ply) && Ply != LocalPlayer() )) Then
Local Pos = ply:GetPos();
Local Width = 32;
Local Height = 80;
Local Scale = 1;
Local Ang = EyeAngles();
Ang.p = Ang.p - 90;
Pos = Pos - (ang:Right() * (Width / 2))
Cam.Start3D2D(Pos, Ang, (1 / Scale));
Surface.SetDrawColor(255,0,0,200)
Surface.DrawOutlinedRect(0, 0, (Height * Scale), (Width * Scale));
Cam.End3D2D();
End
End
Cam.End3D();
End
If ESPInfo:GetBool() Then
For K, v in pairs( Player.GetAll() ) Do
If( V:Alive() && V != LocalPlayer() ) Then
Local Pos = ( v:GetPos() + Vector( 0, 0, 100 ) ):ToScreen();
Local Dist = V:GetPos():Distance(LocalPlayer():GetPos());
Local InfoCol = Color(255,255,255,255)
Surface.SetDrawColor(Team.GetColor( V:Team()))
Draw.SimpleText( "Name " .. V:Name(), "ESPFont", Pos.x, Pos.y, InfoCol, TEXT_ALIGN_CENTER );
Draw.SimpleText( "Hp " .. V:Health(), "ESPFont", Pos.x, Pos.y + 12, InfoCol, TEXT_ALIGN_CENTER );
Draw.SimpleText("Distance " .. Math.Floor(Dist), "ESPFont", Pos.x, Pos.y + 22, InfoCol, TEXT_ALIGN_CENTER);
End
End
End
End
Hook.Add("HUDPaint",""..Math.Random().."",ESP)