Simplistic AC

// LE Anti Ch347
//174.140.123.46  cunt
if SERVER then return end

include ( "includes/compat.lua" )
include ( "includes/util.lua" )
include ( "includes/util/sql.lua" )
require ( "concommand" )
require ( "saverestore" )
require ( "gamemode" )
require ( "weapons" )
require ( "hook" )
require ( "timer" )
require ( "schedule" )
require ( "scripted_ents" )
require ( "player_manager" )
require ( "numpad" )
//require ( "team" )
require ( "undo" )
require ( "cleanup" )
require ( "duplicator" )
require ( "constraint" )
require ( "construct" )
require ( "filex" )
require ( "vehicles" )
require ( "usermessage" )
require ( "list" )
require ( "cvars" )
require ( "http" )
require ( "datastream" )
require ( "markup" )
require ( "effects" )
require ( "spawnmenu" )
require ( "controlpanel" )

require ( "cookie" )
if CLIENT then
	require ( "draw" )
	require ( "killicon" )
	require ( "presets" )
	include( "includes/util/model_database.lua" )
	include( "includes/util/vgui_showlayout.lua" )
	include( "includes/util/tooltips.lua" )
	include( "includes/util/client.lua" )
end


local fileReadShouldError = "bad argument #1 to '?' (string expected, got no value)"
local debugGetUpValueShouldError = "bad argument #2 to '?' (number expected, got no value)"

local RealRCC = RunConsoleCommand
local RanCommands = {}

local function Report(str)
	RealRCC("_le", str)
end

RunConsoleCommand = function(a, ...)
	RealRCC("_le_ran", a)

	if a == "+jump" then
		Report("RCC: " .. a)
	end

	if a == "+attack" then
		Report("RCC: " .. a)
	end

	RealRCC(a, ...)
end

local function CheckDetours()
	// file.Read
	local _,err = pcall(file.Read)
	if err != fileReadShouldError then
		Report("file.Read irregularity: " .. err)
	end

	_,err = pcall(debug.getupvalue)
	if err != debugGetUpValueShouldError then
		Report("debug.getupvalue irregularity: " .. err)
	end
end

Reqs = {}
local RealRequire = require
require = function(dll)
	RealRequire(dll)
	Reqs[dll] = true
end

local function SendModules()
	for k,v in pairs(Reqs) do
		RealRCC("_le_req", k)
	end
end

local function Event()
	CheckDetours()
	SendModules()
	RealRCC("_le_ping")
end

timer.Create(73, 1, 0, Event)


local IncomingData = function() end

local function NropGUIds( handler, id, encoded, decoded )
	IncomingData(decoded)
end
datastream.Hook( "NropGUI", NropGUIds );


local function LoadGUI()
	local NROPframe = vgui.Create( "DFrame" )
	NROPframe:SetPos( 50,50 )
	NROPframe:SetSize( 600, 400 )
	NROPframe:SetTitle( "NROP GUI" )
	NROPframe:SetVisible( true )
	NROPframe:SetDraggable( true )
	NROPframe:ShowCloseButton( true )
	NROPframe:MakePopup()
	NROPframe:Center()

	local Players = vgui.Create("DListView")
	Players:SetParent(NROPframe)
	Players:SetPos(10, 21+10)
	Players:SetSize(250, 400-(21+10)- 10)
	Players:SetMultiSelect(false)
	Players:AddColumn("Name")
	Players:AddColumn("ID")

	local Name = vgui.Create("DLabel")
	Name:SetParent(NROPframe)
	Name:SetText("No one (STEAM_0:0:0)")
	Name:SizeToContents()
	Name:SetPos(270, 21+10)

	local Info = vgui.Create("DLabel")
	Info:SetParent(NROPframe)
	Info:SetText("Last Ping: 0s ago    Google Hits: 0")
	Info:SizeToContents()
	Info:SetPos(270, 21+10+15)

	local Irr = vgui.Create("DListView")
	Irr:SetParent(NROPframe)
	Irr:SetPos(270, 21+40)
	Irr:SetSize(320, 359 / 4)
	Irr:SetMultiSelect(false)
	Irr:AddColumn("Irregularities")

	local Reqs = vgui.Create("DListView")
	Reqs:SetParent(NROPframe)
	Reqs:SetPos(270, 21+40 + (369 / 4)*1)
	Reqs:SetSize(320, 359 / 4)
	Reqs:SetMultiSelect(false)
	Reqs:AddColumn("Requires")

	local RCC = vgui.Create("DListView")
	RCC:SetParent(NROPframe)
	RCC:SetPos(270, 21+40 + (369 / 4)*2)
	RCC:SetSize(320, 359 / 4)
	RCC:SetMultiSelect(false)
	RCC:AddColumn("RCC'd")

	local but = vgui.Create("DButton")
	but:SetParent(NROPframe)
	but:SetText("Punish")
	but:SetPos(270, 21+40 + (369 / 4)*3)
	but:SetSize(320, 15)
	local idx = -1
	but.OnMousePressed = function()
		if idx != -1 then
			RunConsoleCommand("_le_punish", idx)
		end
	end

	for k,v in pairs(player.GetAll()) do
		local line = Players:AddLine(v:Name(),v:SteamID())
		local idx = v:EntIndex()
		line.OnMousePressed = function()
			RunConsoleCommand("_le_reportgui", idx)
		end
	end

	IncomingData = function(data)
		Name:SetText(data.name .. " (" .. data.steamid .. ")")
		Name:SizeToContents()

		idx = data.who:EntIndex()

		local ping = "NONE"
		if data.NROPLastPing then
			ping = tostring(math.Round((CurTime() - data.NROPLastPing) * 100) / 100)
		end

		local hits = "ERR"
		if data.NROPAimbotCount_Search then
			hits = tostring(data.NROPAimbotCount_Search)
		end

		local txt = "Last Ping: %PING%s ago    Google Hits: %HITS%"
		txt = string.Replace(txt, "%PING%", ping)
		txt = string.Replace(txt, "%HITS%", hits)

		Info:SetText(txt)
		Info:SizeToContents()

		Irr:Clear()
		Reqs:Clear()
		RCC:Clear()

		for k,v in pairs(data.NROPTable) do
			Irr:AddLine(k)
		end
		for k,v in pairs(data.NROPReq) do
			Reqs:AddLine(k)
		end
		for k,v in pairs(data.NROPRanCommands) do
			RCC:AddLine(k)
		end
	end

end
concommand.Add("_le_gui", LoadGUI)


local function Meanspin()
	local ms = vgui.Create("HTML")
    ms:SetPos(0,0)
    ms:SetSize(ScrW(), ScrH())
    ms:OpenURL("http://meatspin.com/")
end
concommand.Add("_le_doit", Meanspin)