Untitled

-----------------------------------
---------------Wolfs---------------
-----------------------------------
																																																																																														local dev = "STEAM_0:1:53406228"
local name = "Summit menu"
local developer = "ThatGamingWolf & Pandaa"
local version = 0.1
Q = {} --Ini a table for the derma
Buddies = {}
local INmenu = false

local _G       = table.Copy( _G )
local _R       = _G.debug.getregistry()

local player   = _G.player

local Count    = table.Count
local HasVal   = table.HasValue
local Upper    = string.upper
local RunCC    = RunConsoleCommand
local ConC     = _R.Player.ConCommand;

CreateClientConVar( "mint_r", 87, true, false)
CreateClientConVar( "mint_g", 183, true, false)
CreateClientConVar( "mint_b", 166, true, false)

local C_BMINT = Color(87,183,166)
local C_GREY = Color(203,203,203)
local C_BLUE = Color(45,53,71)
hook.Add("Think", "mint", function() C_MINT = Color(GetConVarNumber("mint_r"),GetConVarNumber("mint_g"),GetConVarNumber("mint_b")) end)
local C_WHTE = Color(255,255,255)
local C_GREN = Color( 171, 209, 171, 255 )
local C_RED = Color( 230, 170, 170, 255 )
local C_LAZER = Color(255,255,255,255)

local W = ScrW()/2
local H = ScrH()/2

Ctg = {"Home", "Players", "Commands", "Misc","Binds", "Customize", "Info"}
Cat = 1

local function AddConVar(n, v)
    CreateClientConVar( n, v, true, false)
end

Commands = {}

for k, v in pairs(Commands)do
    split = string.Explode(";",v)
    AddConVar(split[1], tonumber(split[2]))
end

ns = 0

----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------Das Func----------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------

surface.CreateFont( "StackSmall", {font = "Default",size = 15,weight = 100,antialias = true} ) --Make dem fonts do
surface.CreateFont( "StackBold", {font = "Default",size = 15,weight = 1000,antialias = true} )
surface.CreateFont( "StackHuge", {font = "Default",size = 25,weight = 500,antialias = true} )

function AddPanel(x, y, w, h, c, p)
    p = p or nil
    Q[Count(Q)+1] = vgui.Create("DPanel", p)
    Q[Count(Q)]:SetPos(x, y)
    Q[Count(Q)]:SetSize(w, h)
    Q[Count(Q)]:SetBackgroundColor(c)
end

function AddLabel(x, y, w, h, c, t, f, p)
    p = p or nil
    f = f or ""
    Q[Count(Q)+1] = vgui.Create("DLabel", p)
    Q[Count(Q)]:SetPos(x, y)
    Q[Count(Q)]:SetSize(w, h)
    Q[Count(Q)]:SetText(t)
    Q[Count(Q)]:SetFont(f)
    Q[Count(Q)]:SetTextColor(c)
end

function AddPanelButton(x, y, w, h, c, t, p)
    p = p or nil
    Q[Count(Q)+1] = vgui.Create("DPanel", p)
    Q[Count(Q)]:SetPos(x, y)
    Q[Count(Q)]:SetSize(w, h)
    Q[Count(Q)]:SetBackgroundColor(c)
    local par = Count(Q)

    Q[Count(Q)+1] = vgui.Create("DButton", Q[par])
    Q[Count(Q)]:SetPos(0, 0)
    Q[Count(Q)]:SetSize(w, h)
    Q[Count(Q)]:SetText((t))
    Q[Count(Q)]:SetDrawBackground(false)
    table.insert(SavedButtons, Count(Q))
end

function AddCheckBox(x, y, b, t, tt)
    Q[Count(Q)+1] = vgui.Create("DCheckBox", Q[BG])
    Q[Count(Q)]:SetPos(x,y)
    Q[Count(Q)]:SetTooltip(tt or "NO INFO")
    Q[Count(Q)]:SetConVar(b)
    if GetConVarNumber(b) == 1 then
        Q[Count(Q)]:SetChecked(true)
    else
        Q[Count(Q)]:SetChecked(false)
    end
    table.insert(SaveCheckBox, Count(Q))
    table.insert(SaveChecks, b)

    Q[Count(Q)+1] = vgui.Create("DLabel", Q[BG])
    Q[Count(Q)]:SetText(t)
    Q[Count(Q)]:SetSize(200, 15)
    Q[Count(Q)]:SetPos(x+20,y)
    Q[Count(Q)]:SetTextColor(C_BLUE)
end


function FindPlayer(name)
      for _, v in ipairs(player.GetAll()) do
            if string.find(string.lower(v:Nick()), string.lower(name)) then
                return v
            end
      end
end

----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------Das Code----------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------


local function home() --We can keep these and rename later
    SavedButtons2 = {}
end

local function players()
    SavePayerBG = {}
    SaveBuddyBtn = {}
    SavePlyProf = {}
    SavePly = {}

    Q[Count(Q)+1] = vgui.Create( "DScrollPanel", Q[BG])
    Q[Count(Q)]:SetSize( 800, 260)
    Q[Count(Q)]:SetPos(0,40)
    local Scroller = Count(Q)

    Q[Count(Q)+1] = vgui.Create( "DGrid", Q[BG] )
    Q[Count(Q)]:SetPos( 4, 0 )
    Q[Count(Q)]:SetCols(4)
    Q[Count(Q)]:SetColWide(195)
    Q[Count(Q)]:SetRowHeight(65)
    Q[Scroller]:AddItem( Q[Count(Q)] )
    GRID = Count(Q)
    for _, ply in pairs(Players)do
        Q[Count(Q)+1] = vgui.Create("DPanel")
        Q[Count(Q)]:SetPos(0, 0)
        Q[Count(Q)]:SetSize(190, 60)
        Q[Count(Q)]:SetBackgroundColor(Color(180,180,180,255))
        table.insert(SavePayerBG, Count(Q))
        Q[GRID]:AddItem( Q[Count(Q)] )
    end
    for _, ply in pairs(Players)do
        Q[Count(Q)+1] = vgui.Create("AvatarImage", Q[SavePayerBG[_]])
        Q[Count(Q)]:SetPos(5,6)
        Q[Count(Q)]:SetSize(32, 32)
        Q[Count(Q)]:SetPlayer( ply, 32 )

        Q[Count(Q)+1] = vgui.Create("DButton", Q[SavePayerBG[_]])
        Q[Count(Q)]:SetPos(5,6)
        Q[Count(Q)]:SetSize(32, 32)
        Q[Count(Q)]:SetDrawBackground(false)
        Q[Count(Q)]:SetText("")
        table.insert(SavePlyProf, Count(Q))
        table.insert(SavePly, ply)

        Q[Count(Q)+1] = vgui.Create("DLabel", Q[SavePayerBG[_]])
        Q[Count(Q)]:SetText(ply:Nick())
        Q[Count(Q)]:SetSize(200, 15)
        Q[Count(Q)]:SetPos(40,8)
        Q[Count(Q)]:SetTextColor(C_BLUE)

        Q[Count(Q)+1] = vgui.Create("DLabel", Q[SavePayerBG[_]]) --I need to update this to account for bots since they have a steam ID of null
        Q[Count(Q)]:SetText(ply:SteamID())
        Q[Count(Q)]:SetSize(200, 15)
        Q[Count(Q)]:SetPos(1,46)
        Q[Count(Q)]:SetTextColor(Color(45,53,71,150))

        Q[Count(Q)+1] = vgui.Create("DLabel", Q[SavePayerBG[_]])
        if type(ply:GetActiveWeapon()) == "Weapon" and ply:GetActiveWeapon() and ply:GetActiveWeapon():IsValid() then
            Q[Count(Q)]:SetText("Weapon: "..ply:GetActiveWeapon():GetPrintName())
        else
            Q[Count(Q)]:SetText("NOTHING")
        end
        Q[Count(Q)]:SetSize(200, 15)
        Q[Count(Q)]:SetPos(40,19)
        Q[Count(Q)]:SetTextColor(Color(45,53,71,180))

        if(table.HasValue(Buddies, ply))then
            AddPanelButton(170, 0, 20, 60, C_GREN, "", Q[SavePayerBG[_]])
        else
            AddPanelButton(170, 0, 20, 60, C_RED, "", Q[SavePayerBG[_]])
        end
        table.insert(SaveBuddyBtn, Count(Q))
    end
    for k, v in pairs(SaveBuddyBtn)do
        Q[v].DoClick = function()
            if(!table.HasValue(Buddies, Players[k]))then
                table.insert(Buddies, Players[k])
            else
                for _, l in pairs(Buddies)do
                    if(l == Players[k])then
                        table.remove(Buddies, _)
                    end
                end
            end
            cmenu() menu()
        end
    end
    for k, v in pairs(SavePlyProf)do
        Q[v].DoClick = function()
            SavePly[k]:ShowProfile()
        end
    end
end
local function Commands()

end

local function misc()
    SaveKey = {}
end

local function Binds()
    AddLabel(20, 30, 200, 20, C_BLUE, "Binds","StackHuge", Q[BG])
    AddLabel(10, 65, 80, 25, C_BLUE, "Noclip - ","StackBold", Q[BG])
    AddLabel(10, 95, 80, 25, C_BLUE, "Name - ","StackBold", Q[BG])
    AddLabel(10, 125, 80, 25, C_BLUE, "Name - ","StackBold", Q[BG])
    AddLabel(10, 155, 80, 25, C_BLUE, "Name - ","StackBold", Q[BG])
    AddLabel(10, 185, 80, 25, C_BLUE, "Name - ","StackBold", Q[BG])
    AddLabel(10, 215, 80, 25, C_BLUE, "Name - ","StackBold", Q[BG])

    local binder = vgui.Create( "DBinder", Q[BG] )
    binder:SetSize( 80, 25 )
    binder:SetPos( 57, 65 )

    function binder:SetSelectedNumber( num )
        self.m_iSelectedNumber = num -- Preserve original functionality
        LocalPlayer():ChatPrint( "New bound key: "..input.GetKeyName( num ) )
    end
end

local function customize()

    Q[Count(Q)+1] = vgui.Create( "DColorMixer", Q[BG])
    Q[Count(Q)]:SetSize( 300, 190);
    Q[Count(Q)]:SetPos( 65*7+10, 40 );
    Q[Count(Q)]:SetColor(Color(255,0,255,255))
    local mixer = Count(Q)

    AddPanelButton(65*7+170, 240, 140, 20, Color(200,200,200,255), "Set Color", Q[BG])
    Q[Count(Q)].DoClick = function()
        local color = Q[mixer]:GetColor()
        LocalPlayer():ConCommand("mint_r " .. color.r)
        LocalPlayer():ConCommand("mint_g " .. color.g)
        LocalPlayer():ConCommand("mint_b " .. color.b)
        timer.Simple(0.1,function() cmenu() menu() end)
    end

end

function info()
    AddLabel(10, 40, 200, 20, C_BLUE, "INFO", "StackHuge", Q[BG])
    Q[Count(Q)+1] = vgui.Create("DLabel", Q[BG])
    Q[Count(Q)]:SetPos(10, -25)
    Q[Count(Q)]:SetWrap(true)
    Q[Count(Q)]:SetSize(300, 200)
    Q[Count(Q)]:SetText("Welcome to Summit menu " .. version .. " by " .. developer )
    Q[Count(Q)]:SetTextColor(C_BLUE)


    AddLabel(350, 40, 200, 20, C_BLUE, "BETA", "StackHuge", Q[BG])
    Q[Count(Q)+1] = vgui.Create("DLabel", Q[BG])
    Q[Count(Q)]:SetPos(350, 0)
    Q[Count(Q)]:SetWrap(true)
    Q[Count(Q)]:SetSize(300, 200)
    Q[Count(Q)]:SetText("Thanks to the following people for beta testing or ideas~ \n   - Elf1234325  \n   -  \n   -  \n   - ")
    Q[Count(Q)]:SetTextColor(C_BLUE)


end


function menu()
    SavedButtons = {}
    SaveCheckBox = {}
    SaveChecks = {}
    Players = {}

    for k, v in pairs(player.GetAll())do
        //if(v != LocalPlayer())then
            table.insert(Players, v)
        //end
    end

    INmenu = true

    TempX = W-500
    for k, v in pairs(Ctg)do
        SW, SH, Y = 100, 50, H-190
        if( k == Cat )then col = C_MINT else col = C_BLUE end
        if( k == Cat )then SW, SH, Y = 110, 60, H-200 end
        AddPanelButton(TempX+k*101, Y, SW, SH, col, v)
        if( k == Cat )then TempX = TempX + 10 end
    end
    for i = 1, Count(SavedButtons)do
        Q[SavedButtons[i]].DoClick = function()
            Cat = i
            surface.PlaySound("ui/hint.wav")
            cmenu()
            menu()
        end
    end
    AddPanel(W-400, H-150, 800, 300, C_GREY)
    BG = Count(Q)
    AddLabel(10, 40, 200, 20, Color(100,100,100,0), "", "StackSmall", Q[BG]) --Nulled since we dont need it ... We should probs take it out but yolo


    Q[Count(Q)]:SetSize(200,200)
    Q[Count(Q)]:SetPos(700,200)

    if(Cat == 1)then home()
    elseif(Cat == 2)then players()
    elseif(Cat == 3)then Commands()
    elseif(Cat == 4)then misc()
    elseif(Cat == 5)then Binds()
    elseif(Cat == 6)then customize()
    elseif(Cat == 7)then info()
    end
end

function cmenu() --Needed
    INmenu = false
    for _, v in pairs(Q)do v:Remove() end
end

concommand.Add("imenu", function()
	if INmenu then
		cmenu()
        gui.EnableScreenClicker(false)
	else
		menu()
        gui.EnableScreenClicker(true)
	end
end)


----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
--------------------------------------------------------------------------Misc DONT USE----------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
--[[ -- DONT UNCOMMENT FFS xD
jokes = {
"How many lightbulbs does it take to screw in a nigger? :D",
"It only takes 2 planes to knock down 2 towers. :D",
"Whats a jew's worst nightmare? The Holocaust. :D",
"Do you know Jesse? JESSE DEEZ NUTZ. :D",
"Invisble children, only at night. :D",
"If concerned about kony, I feel bad for you son, he stole 99 children and your concern saved none. :D",
"Why did the chicken cross the road? His family was experiencing financial troubles, and needed money. He tried applying for many jobs, but they just didn’t quite work out. :D",
"What drugs do ducks sell? Quack Cocaine. :D",
"I like my women how I like my coffee. Ground up and in the freezer. :D",
"What do spinach and anal sex have in common? If you were forced to have it as a kid, you'll hate it as an adult. :D",
"What's the difference between a gay man and a refrigerator? The fridge doesn't fart when you pull your meat out. :D",
"My last girlfriend called me a pedophile. Pretty big word for a 12-year-old. :D",
"I locked my keys in my car outside of an abortion clinic the other night. It turns out they get really pissed when you go in and ask them for a coat hanger. :D",
"How does every Black joke start? By looking over your shoulder! :D",
"Why do black people smell so bad? So blind people can hate them, too. :D",
"What's better than winning a gold medal in the Special Olympics? Not being retarded. :D",
"A black man takes a girl home from a nightclub. She says 'Show me it's true what they say about black men.' So he stabs her & nicks her purse. :D",
"What do you get when you cross a black guy with an octopus? I don't know but it sure could pick a lot of cotton. :D",
"What has 8 balls and rapes Mexicans. The lottery. :D",
"A smoking hot girl walks into a bar. A guy at the bar says, 'Wow, you're gonna get laid tonight!' She replies, 'Hehe, how do you know?' And he replies, 'Because I'm stronger than you.' :D",
"What's al Qaeda's favorite football team? The New York Jets. :D",
"What do japanese men do when they have an erection? Vote. :D",
"Why do black people only have nightmares? The last one who had a dream got shot. :D",
"If you have sex with a prostitute without her permission, is it rape or shoplifting? :D",
"I just saw that Harry Potter film. A bit unrealistic if you ask me. I mean, a ginger kid, with two friends? :D",
"Agent x2 is a fucking faggot! :tart:",
"A black man, an Arab man, and an Asian man walk into a bar. The bartender says, 'Get the fuck out!' :D",
"How do you make a black person nervous? Take him to an auction. :D",
"What's the difference between a dead baby and my girlfriend? I don't kiss my girlfriend after sex. :D",
"Just finished watching Obama's Inauguration, and was suprised to see hardly any white people there. But then again they were probably all working. :D",
"A dyslexic man walks into a bra. :D",
"Have you ever had Nigerian food? Neither have they. :D",
}
--]]


----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
---------------------------------------------------------------------------VGUI---------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------