topkek.lua

/*
 __      __  _      _  ______  _   _
 \ \    / / | |    | |/ / __ \| \ | |
  \ \  / /__| |    | ' / |  | |  \| |
   \ \/ / _ \ |    |  <| |  | | . ` | File stealer 2015 :D
    \  /  __/ |____| . \ |__| | |\  |
     \/ \___|______|_|\_\____/|_| \_|


-=-=-=-INFO-=-==-

File Name: lua/topkek.lua (2924490998)
Date Received: 19/06/2015 (19:21:29)
Current PlayerName: ♫ Mr_Saw ♫
Player SteamID: STEAM_0:1:66184896
Player URL: http://steamcommunity.com/profiles/76561198092635521/
Player IP: -snip-

-=-=-=INFO CLOSED-=-=-
-  Stolen by Velkon :D
*/

--___________            ____  __._______________  __.   _________            .__        __          --
--\__    ___/___ ______ |    |/ _|\_   _____/    |/ _|  /   _____/ ___________|__|______/  |_  ______--
--  |    | /  _ \\____ \|      <   |    __)_|      <    \_____  \_/ ___\_  __ \  \____ \   __\/  ___/--
--  |    |(  <_> )  |_> >    |  \  |        \    |  \   /        \  \___|  | \/  |  |_> >  |  \___ \ --
--  |____| \____/|   __/|____|__ \/_______  /____|__ \ /_______  /\___  >__|  |__|   __/|__| /____  >--
--               |__|           \/        \/        \/         \/     \/         |__|             \/ --


-- things to add/do
-- add rage aimbot
-- add normal aimbot (may not be in release)





-- Some basic shit

-- colors
red	            	            	            	            	            	            	                                                   = Color(255,0,0,255);
black	            	            	            	            	            	                                                   = Color(0,0,0,255);
green	            	            	            	            	            	                                                   = Color(0,255,0,255);
white	            	            	            	            	            	                                                   = Color(255,255,255,255);
blue	            	            	            	            	            	                                                   = Color(0,0,255,255);
cyan	            	            	            	            	            	                                                   = Color(0,255,255,255);
pink 	            	            	            	            	            	                                                   = Color(255,0,255,255);
blue	            	            	            	            	            	                                                   = Color(0,0,255,255);
grey	            	            	            	            	            	                                                   = Color(100,100,100,255);
gold	            	            	            	            	            	                                                   = Color(255,228,0,255);
lblue	            	            	            	            	            	                                                   = Color(155,205,248);
lgreen	            	            	            	            	            	                                                   = Color(174,255,0);
iceblue	            	            	            	            	            	                                                   = Color(116,187,251,255);
local rcc = RunConsoleCommand;
local ply = LocalPlayer()


-- shitty one time Wallhack
function K_DrawWallhack()
    hook.Add( "PreDrawHalos", "KillerWallhack", function()
    halo.Add( player.GetAll(), red, 0, 0, 2, true, true )
    halo.Add( ents.FindByClass( "prop_physics" ), green, 0, 0, 2, true, true )
    halo.Add( ents.FindByClass( "npc_*" ), blue, 0, 0, 2, true, true )
    halo.Add( ents.FindByClass( "sent_*" ), gold, 0, 0, 2, true, true )
    halo.Add( ents.FindByClass( "gmod_*" ), gold, 0, 0, 2, true, true )
    end )
end
concommand.Add("k_drawwallhack",K_DrawWallhack)

-- Bunnyhop
function BH()
    if LocalPlayer():IsOnGround() and input.IsKeyDown( KEY_SPACE ) then
        RunConsoleCommand("+jump")
    else
	                                     RunConsoleCommand("-jump")
    end
end

concommand.Add("K_+bhop", function()
    hook.Add("Think", "KBHop", BH)
end)

concommand.Add("K_-bhop", function()
    hook.Remove("Think", "KBHop")
	                                                   LocalPlayer():ConCommand("-jump")
end)




-- Rainbow Physgun (Clientside only)

local Num = 0
CreateConVar("K_physgunchangespeed", 100, 8,"Changes the speed that the physgun changes color, Default is 100")
local function rainbow()
    Num = Num + 1
    if Num >=  GetConVarNumber("K_physgunchangespeed") then -- this is the speed of the change
        LocalPlayer():SetWeaponColor(Vector(math.Rand(0,255),math.Rand(0,255),math.Rand(0,255)))
        Num = 0
    end
end

local function rainbowhookadd()

    hook.Add("Think","Testing",rainbow)
end
concommand.Add("K_+rainbow",rainbowhookadd)

local function rainbowhookremove()
    Num = 0
    hook.Remove("Think","Testing")
end
concommand.Add("K_-rainbow",rainbowhookremove)

-- flashlight spam

local function flashlightSpam()
    if input.IsKeyDown(KEY_H) then
        LocalPlayer():ConCommand("impulse 100")
    end
end


local function fsadd()
    print("Hold H to spam")
    chat.AddText( Color( 0, 255, 0), "Hold H to spam")
    hook.Add("Think","fs",flashlightSpam)
end
concommand.Add("K_+flashlightspam",fsadd)
local function fsremove()
    hook.Remove("Think","fs")
end
concommand.Add("K_-flashlightspam",fsremove)


-- Aimbots

-- "realistic" aimbot
function aimbotRealistic()
    if LocalPlayer():GetEyeTraceNoCursor().Entity:IsNPC() or LocalPlayer():GetEyeTraceNoCursor().Entity:IsPlayer() then
        target = LocalPlayer():GetEyeTraceNoCursor().Entity
        aimbone = LocalPlayer():GetEyeTraceNoCursor().Entity:LookupBone("ValveBiped.Bip01_Head1")
        targetheadpos,targetheadang = LocalPlayer():GetEyeTraceNoCursor().Entity:GetBonePosition(aimbone)
        LocalPlayer():SetEyeAngles((targetheadpos - LocalPlayer():GetShootPos()):Angle())
        if GetConVarNumber("K_aimbot_autofire") == 1 then
            rcc("+attack")
        end
    else
        if GetConVarNumber("K_aimbot_autofire") == 1 then
                rcc("-attack")
        end
    end
end

function realisticEnable()
    hook.Add("Think","realistic",aimbotRealistic)
end
function realisticDisable()
    hook.Remove("Think","realistic")
end
concommand.Add("K_aimbot_+realistic",realisticEnable)
concommand.Add("K_aimbot_-realistic",realisticDisable)

CreateConVar("K_aimbot_autofire",0)




-- no recoil (inspired by ponyhack)
function makenorecoil()
    local weapon = LocalPlayer():GetActiveWeapon()
    if !IsValid(weapon) then
        return
    end
    if weapon.Primary then
        weapon.Primary.Recoil = 0
        weapon.Primary.KickUp = 0
        weapon.Primary.KickDown = 0
        weapon.Primary.KickHorizontal = 0
    end
end


function nrenable()
    hook.Add("Think","nr",makenorecoil)
end
function nrdisable()
    hook.Remove("Think","nr")
end
concommand.Add("K_+norecoil",nrenable)
concommand.Add("K_-norecoil",nrdisable)







-- chams (Credit to project-dead)
local function MESPCheck(v)
    if v:Alive() == true && v:Health() ~= 0 && v:Health() >= 0 && v ~= LocalPlayer() && LocalPlayer():Alive() then
        return true
    else
        return false
    end
end
hook.Add("HUDPaint", "chams", function()
    for k,v in pairs(player.GetAll()) do
        if GetConVarNumber("K_chams") == 1 then
            if MESPCheck(v) then
                cam.Start3D(EyePos(), EyeAngles())
	         	     v:SetMaterial("models/debug/debugwhite")
	         	     v:SetColor(Color(20, 71, 244, 255))
	         	     render.MaterialOverride("models/debug/debugwhite")
	         	     render.SuppressEngineLighting( false )
	         	     render.SetBlend( 0.3 )
	         	     render.SetColorModulation( 0, 1, 0 )
	         	     v:DrawModel()
	         	     if GetConVarNumber("dead_chams_wire") >= 1 then
	         	         v:SetMaterial("models/wireframe")
	         	         render.MaterialOverride("models/wireframe")
	         	         v:DrawModel()
	         	     end
	         	     cam.End3D()
	         	  end
	       end
    end
end)
CreateConVar("K_chams",0)

-- chat spammer
spamwords={
    "FUCK THIS SERVER",
    "THIS SERVER HAS BEEN HAXORED",
    "FUCK",
    "SHIT",
    "PISS",
    "CUNT",
    "FUCKING NAZI",
    "9 FUCKING 11",
    "GET CANCER",
    "THIS SERVER SUCKS FUCKING DICK",
    "FUCK YOU",
    "WWW MPGH COM",
    "THIS SERVER CAN SUCK MY DICK"
}
function chatspam()
    rand = math.random(0,11)
    rcc("say" ,spamwords[rand])
end

function csenable()
    hook.Add("Think","cs",chatspam)
end
function csdisable()
    hook.Remove("Think","cs")
end
concommand.Add("K_+chatspam",csenable)
concommand.Add("K_-chatspam",csdisable)







--propspammers
-- spam explosive barrels
function explosivespam()
    rcc("prop_physics_create","/props_c17/oildrum001_explosive.mdl")
end
function explosivespamenable()
    hook.Add("Think","es",explosivespam)
end
function explosivespamdisable()
    hook.Remove("Think","es")
end
concommand.Add("K_spam_+explosives",explosivespamenable)
concommand.Add("K_spam_-explosives",explosivespamdisable)

--propspam

function propspam()
    rcc("prop_physics_create","props_phx/construct/metal_wire1x1x2.mdl")
end
function propspamenable()
    hook.Add("Think","ps",propspam)
end
function propspamdisable()
    hook.Remove("Think","ps")
end
concommand.Add("K_spam_+propspam",propspamenable)
concommand.Add("K_spam_-propspam",propspamdisable)

-- 360 noscope


function Final()
    targetheadpos,targetheadang = target:GetBonePosition(aimbone)
    LocalPlayer():SetEyeAngles((targetheadpos - LocalPlayer():GetShootPos()):Angle())
    timer.Create("6",0.0001,1,function() LocalPlayer():ConCommand("+attack") end)
    timer.Create("7",0.1,1,function() LocalPlayer():ConCommand("-attack") end)
end

function two()
    LocalPlayer():ConCommand("-jump")
    timer.Create("1",0.1,1,function() LocalPlayer():SetEyeAngles(LocalPlayer():EyeAngles() + Angle(0,90,0) ) end)
    timer.Create("2",0.2,1,function() LocalPlayer():SetEyeAngles(LocalPlayer():EyeAngles() + Angle(0,90,0)) end)
    timer.Create("3",0.3,1,function() LocalPlayer():SetEyeAngles(LocalPlayer():EyeAngles() + Angle(0,90,0)) end)
    timer.Create("4",0.4,1,function() LocalPlayer():SetEyeAngles(LocalPlayer():EyeAngles() + Angle(0,90,0)) end)
    timer.Create("5",0.5,1,Final)
end

function one()
    if LocalPlayer():GetEyeTraceNoCursor().Entity:IsNPC() or LocalPlayer():GetEyeTraceNoCursor().Entity:IsPlayer() then
        target = LocalPlayer():GetEyeTraceNoCursor().Entity
        aimbone = LocalPlayer():GetEyeTraceNoCursor().Entity:LookupBone("ValveBiped.Bip01_Head1")
        targetheadpos,targetheadang = LocalPlayer():GetEyeTraceNoCursor().Entity:GetBonePosition(aimbone)
        LocalPlayer():SetEyeAngles((targetheadpos - LocalPlayer():GetShootPos()):Angle())
        LocalPlayer():ConCommand("+jump")
        timer.Create("1",0.2,1,two)
    else
        print("You are not currently looking at a player/npc")
    end
end


concommand.Add("K_noscope",one)



-- derma shit (for menu)
function newmenu()
    local DButton17
    local DButton16
    local DLabel8
    local DButton15
    local DButton14
    local DButton13
    local DLabel7
    local DButton12
    local DLabel6
    local DButton11
    local DButton10
    local DButton9
    local DButton8
    local DButton7
    local DButton6
    local DLabel5
    local DLabel4
    local DButton4
    local DLabel3
    local DLabel2
    local DLabel1
    local DButton3
    local DButton2
    local DButton1
    local DCheckBox1
    local DFrame1

    DFrame1 = vgui.Create('DFrame')
    --DFrame1:SetSize(520, 360)
    DFrame1:SetSize(650, 500)
    --DFrame1:SetPos(ScrW()/2,ScrH()/2)
    DFrame1:SetTitle('TopKEK Scripts')
    DFrame1:SetSizable(true)
    DFrame1:SetDeleteOnClose(false)
    DFrame1.Paint = function( self, w, h )
	                   draw.RoundedBox( 0, 0, 0, w, h, Color( 20, 20, 20, 255 ) )
    end
    DFrame1:MakePopup()


    DButton17 = vgui.Create('DButton')
    DButton17:SetParent(DFrame1)
    DButton17:SetSize(140, 13)
    --DButton17:SetPos(440, 410)
    DButton17:SetPos(420, 410)
    DButton17:SetText('Planned Features')
    DButton17.Paint = function( self, w, h )
	             draw.RoundedBox(0, 0, 0, w, h, Color(0,180, 255, 250) )
    end
    DButton17.DoClick = function()
        chat.AddText( Color( 0, 255, 0), "Upcoming features:")
        chat.AddText( Color( 0, 255, 0), "RAGE Aimbot")
        chat.AddText( Color( 0, 255, 0), "Murder and TTT testers")
        chat.AddText( Color( 0, 255, 0), "Normal Aimbot")
    end

    DButton16 = vgui.Create('DButton')
    DButton16:SetParent(DFrame1)
    DButton16:SetSize(140, 20)
    DButton16:SetPos(250, 340)
    DButton16:SetText('Disable Flashlight Spam')
    DButton16.Paint = function( self, w, h )
	             draw.RoundedBox(0, 0, 0, w, h, Color(0,180, 255, 250) )
    end
    DButton16.DoClick = function()
        rcc("K_-flashlightspam")
    end

    DLabel8 = vgui.Create('DLabel')
    DLabel8:SetParent(DFrame1)
    DLabel8:SetPos(290, 290)
    DLabel8:SetText('Flashlight Spam')
    DLabel8:SizeToContents()

    DButton15 = vgui.Create('DButton')
    DButton15:SetParent(DFrame1)
    DButton15:SetSize(140, 20)
    DButton15:SetPos(250, 310)
    DButton15:SetText('Enable Flashlight Spam')
    DButton15.Paint = function( self, w, h )
	             draw.RoundedBox(0, 0, 0, w, h, Color(0,180, 255, 250) )
    end
    DButton15.DoClick = function()
        rcc("K_+flashlightspam")
    end

    DButton14 = vgui.Create('DButton')
    DButton14:SetParent(DFrame1)
    DButton14:SetSize(140, 20)
    DButton14:SetPos(250, 260)
    DButton14:SetText('Disable No Recoil')
    DButton14.Paint = function( self, w, h )
	             draw.RoundedBox(0, 0, 0, w, h, Color(0,180, 255, 250) )
    end
    DButton14.DoClick = function()
        rcc("K_-norecoil")
    end

    DButton13 = vgui.Create('DButton')
    DButton13:SetParent(DFrame1)
    DButton13:SetSize(140, 20)
    DButton13:SetPos(250, 230)
    DButton13:SetText('Enable No Recoil')
    DButton13.Paint = function( self, w, h )
	             draw.RoundedBox(0, 0, 0, w, h, Color(0,180, 255, 250) )
    end
    DButton13.DoClick = function()
        rcc("K_+norecoil")
    end

    DLabel7 = vgui.Create('DLabel')
    DLabel7:SetParent(DFrame1)
    DLabel7:SetPos(300, 210)
    DLabel7:SetText('No Recoil')
    DLabel7:SizeToContents()

    DButton12 = vgui.Create('DButton')
    DButton12:SetParent(DFrame1)
    DButton12:SetSize(140, 20)
    DButton12:SetPos(250, 170)
    DButton12:SetText('Disable Chat Spam')
    DButton12.Paint = function( self, w, h )
	             draw.RoundedBox(0, 0, 0, w, h, Color(0,180, 255, 250) )
    end
    DButton12.DoClick = function()
        rcc("K_-chatspam")
    end

    DLabel6 = vgui.Create('DLabel')
    DLabel6:SetParent(DFrame1)
    DLabel6:SetPos(300, 110)
    DLabel6:SetText('Chat Spam')
    DLabel6:SizeToContents()

    DButton11 = vgui.Create('DButton')
    DButton11:SetParent(DFrame1)
    DButton11:SetSize(140, 20)
    DButton11:SetPos(250, 140)
    DButton11:SetText('Enable Chat Spam')
    DButton11.Paint = function( self, w, h )
	             draw.RoundedBox(0, 0, 0, w, h, Color(0,180, 255, 250) )
    end
    DButton11.DoClick = function()
        rcc("K_+chatspam")
    end

    DButton10 = vgui.Create('DButton')
    DButton10:SetParent(DFrame1)
    DButton10:SetSize(140, 20)
    DButton10:SetPos(80, 280)
    DButton10:SetText('Disable Bhop')
    DButton10.Paint = function( self, w, h )
	             draw.RoundedBox(0, 0, 0, w, h, Color(0,180, 255, 250) )
    end
    DButton10.DoClick = function()
        rcc("K_-bhop")
    end

    DButton9 = vgui.Create('DButton')
    DButton9:SetParent(DFrame1)
    DButton9:SetSize(140, 20)
    DButton9:SetPos(80, 420)
    DButton9:SetText('Disable Explosive Spam')
    DButton9.Paint = function( self, w, h )
	             draw.RoundedBox(0, 0, 0, w, h, Color(0,180, 255, 250) )
    end
    DButton9.DoClick = function()
        rcc("K_spam_-explosives")
    end

    DButton8 = vgui.Create('DButton')
    DButton8:SetParent(DFrame1)
    DButton8:SetSize(140, 20)
    DButton8:SetPos(80, 390)
    DButton8:SetText('Enable Explosive Spam')
    DButton8.Paint = function( self, w, h )
	             draw.RoundedBox(0, 0, 0, w, h, Color(0,180, 255, 250) )
    end
    DButton8.DoClick = function()
        rcc("K_spam_+explosives")
    end

    DButton7 = vgui.Create('DButton')
    DButton7:SetParent(DFrame1)
    DButton7:SetSize(140, 20)
    DButton7:SetPos(80, 360)
    DButton7:SetText('Disable Prop Spam')
    DButton7.Paint = function( self, w, h )
	             draw.RoundedBox(0, 0, 0, w, h, Color(0,180, 255, 250) )
    end
    DButton7.DoClick = function()
        rcc("K_spam_-propspam")
    end

    DButton6 = vgui.Create('DButton')
    DButton6:SetParent(DFrame1)
    DButton6:SetSize(140, 20)
    DButton6:SetPos(80, 330)
    DButton6:SetText('Enable Prop Spam')
    DButton6.Paint = function( self, w, h )
	             draw.RoundedBox(0, 0, 0, w, h, Color(0,180, 255, 250) )
    end
    DButton6.DoClick = function()
        rcc("K_spam_+propspam")
    end

    DLabel5 = vgui.Create('DLabel')
    DLabel5:SetParent(DFrame1)
    DLabel5:SetPos(120, 310)
    DLabel5:SetText('Prop Spam')
    DLabel5:SizeToContents()

    DLabel4 = vgui.Create('DLabel')
    DLabel4:SetParent(DFrame1)
    DLabel4:SetPos(470, 320)
    DLabel4:SetText('Misc')
    DLabel4:SizeToContents()

    DButton4 = vgui.Create('DButton')
    DButton4:SetParent(DFrame1)
    DButton4:SetSize(140, 20)
    DButton4:SetPos(80, 250)
    DButton4:SetText('Enable Bhop')
    DButton4.Paint = function( self, w, h )
	             draw.RoundedBox(0, 0, 0, w, h, Color(0,180, 255, 250) )
    end
    DButton4.DoClick = function()
        rcc("K_+bhop")
    end

    DLabel3 = vgui.Create('DLabel')
    DLabel3:SetParent(DFrame1)
    DLabel3:SetPos(130, 230)
    DLabel3:SetText('Bhop')
    DLabel3:SizeToContents()

    DLabel2 = vgui.Create('DLabel')
    DLabel2:SetParent(DFrame1)
    DLabel2:SetPos(130, 110)
    DLabel2:SetText('Wallhack')
    DLabel2:SizeToContents()

    DLabel1 = vgui.Create('DLabel')
    DLabel1:SetParent(DFrame1)
    DLabel1:SetPos(470, 110)
    DLabel1:SetText('Aimbot')
    DLabel1:SizeToContents()

    DButton3 = vgui.Create('DButton')
    DButton3:SetParent(DFrame1)
    DButton3:SetSize(140, 20)
    DButton3:SetPos(80, 140)
    DButton3:SetText('Draw Simple Wallhack')
    DButton3.Paint = function( self, w, h )
	             draw.RoundedBox(0, 0, 0, w, h, Color(0,180, 255, 250) )
    end
    DButton3.DoClick = function()
        rcc("k_drawwallhack")
    end


    DButton1 = vgui.Create('DButton')
    DButton1:SetParent(DFrame1)
    DButton1:SetSize(140, 20)
    DButton1:SetPos(420, 130)
    DButton1:SetText('Enable Realistic Aimbot')
    DButton1.Paint = function( self, w, h )
	             draw.RoundedBox(0, 0, 0, w, h, Color(0,180, 255, 250) )
    end
    DButton1.DoClick = function()
        rcc("K_aimbot_+realistic")
    end

    DButton2 = vgui.Create('DButton')
    DButton2:SetParent(DFrame1)
    DButton2:SetSize(140, 20)
    DButton2:SetPos(420, 160)
    DButton2:SetText('Disable Realistic Aimbot')
    DButton2.Paint = function( self, w, h )
	             draw.RoundedBox(0, 0, 0, w, h, Color(0,180, 255, 250) )
    end
    DButton2.DoClick = function()
        rcc("K_aimbot_-realistic")
    end


    DButton20 = vgui.Create('DButton')
    DButton20:SetParent(DFrame1)
    DButton20:SetSize(140, 20)
    DButton20:SetPos(420, 350)
    DButton20:SetText('Enable Rainbow Physgun')
    DButton20.Paint = function( self, w, h )
	          draw.RoundedBox(0, 0, 0, w, h, Color(0,180, 255, 250) )
    end
    DButton20.DoClick = function()
        rcc("K_+rainbow")
    end

    DButton21 = vgui.Create('DButton')
    DButton21:SetParent(DFrame1)
    DButton21:SetSize(140, 20)
    DButton21:SetPos(420, 380)
    DButton21:SetText('Disable Rainbow Physgun')
    DButton21.Paint = function( self, w, h )
	             draw.RoundedBox(0, 0, 0, w, h, Color(0,180, 255, 250) )
    end
    DButton21.DoClick = function()
        rcc("K_-rainbow")
    end



    DButton30 = vgui.Create('DButton')
    DButton30:SetParent(DFrame1)
    DButton30:SetSize(140, 20)
    DButton30:SetPos(80, 170)
    DButton30:SetText('Enable Chams')
    DButton30.Paint = function( self, w, h )
	             draw.RoundedBox(0, 0, 0, w, h, Color(0,180, 255, 250) )
    end
    DButton30.DoClick = function()
        rcc("K_chams",1)
    end


    DButton31 = vgui.Create('DButton')
    DButton31:SetParent(DFrame1)
    DButton31:SetSize(140, 20)
    DButton31:SetPos(80, 200)
    DButton31:SetText('Disable Chams')
    DButton31.Paint = function( self, w, h )
	             draw.RoundedBox(0, 0, 0, w, h, Color(0,180, 255, 250) )
    end
    DButton31.DoClick = function()
        rcc("K_chams",0)
    end

    local checkbox30 = vgui.Create( "DCheckBoxLabel", DermaPanel )
    checkbox30:SetParent(DFrame1)
    checkbox30:SetPos(420, 190)
    checkbox30:SetText( "Aimbot AutoFire" )
    checkbox30:SetConVar( "K_aimbot_autofire" )
    checkbox30:SetValue( 0 )
    checkbox30:SizeToContents()



end
concommand.Add("K_menu",newmenu)




chat.AddText( pink, "TopKEK Scripts Loaded")
chat.AddText( gold, "This server shall fall to you")
--rcc("K_+rainbow")