--Copy the code into a empty text file and save it as "hack.lua" and then move it to your gmod scripts folder, then when in-game, open console (~) and type in "lua_openscript_cl hack.lua"
local name = "Stack Overflow"
local developer = "Ilya"
local version = 0.7
local OriginalGetConVarNumber = GetConVarNumber;
function GetConVarNumber( name )
if ( name == "sv_allowcslua" ) or ( name == "sv_cheats") then
return 0;
elseif
( name == "host_timescale" ) then
return 1;
else
return OriginalGetConVarNumber( name );
end
end
Warning = "Resource/warning.wav"
Q = {}
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;
local GMODE = gmod.GetGamemode().Name
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 = {"general", "roleplay", "ttt", "misc", "players", "customize", "info"}
Cat = 1
ns = 0
Buddies = {}
local CurrentBone = "ValveBiped.Bip01_Head1"
local function AddConVar(n, v)
CreateClientConVar( n, v, true, false)
end
Commands = {"showspec;1","showadmin;1","epl;1","showtrate;1","aimbud;0", "aa;1", "aimteam;0", "health;0", "bhop;0", "flash;0", "wepin;0", "spdon;0", "chts;0", "wh;0", "lzre;0", "lzrs;0", "perpdrg;0", "ulxgag;1", "nore;1", "spmjkes;0",
"stmfrds;0", "chm;0", "cmh_props;0", "cmh_weps;0", "cmh_plys;0", "cmh_wire;0", "cmh_plytm;0", "cmh_prnt;0", "cmh_ammo;0", "drpnme;0", "nme;0", "prpmny;0", "prpstm;0", "esSK;0", "eshlth;0", "esdis;0", "esarmr;0", "eswep;0", "thrdp;0",
"crossh;1", "fullb;0", "aln;1"}
for k, v in pairs(Commands)do
split = string.Explode(";",v)
AddConVar(split[1], tonumber(split[2]))
end
AddConVar("spdval", 1)
AddConVar("chmdist", 3000)
AddConVar("aimbdist", 1000)
AddConVar("esdist", 5000)
AddConVar("veiwdis", 100)
aimb = false
CreateClientConVar( "iNotify", 1, true, false)
btn = IN_JUMP
Allbtns = {
{IN_JUMP,"JUMP KEY"},
{IN_ATTACK,"ATTACK KEY"},
{IN_DUCK,"DUCK KEY"},
{IN_SPEED,"SPRINT KEY"},
{IN_ATTACK2,"AIM KEY"},
}
AllBones = {
"Head;ValveBiped.Bip01_Head1",
"Neck;ValveBiped.Bip01_Neck1",
"Spine;ValveBiped.Bip01_Spine",
"Spine1;ValveBiped.Bip01_Spine1",
"Spine2;ValveBiped.Bip01_Spine2",
"Spine4;ValveBiped.Bip01_Spine4",
"Pelvis;ValveBiped.Bip01_Pelvis",
"R Shoulder;ValveBiped.Bip01_R_UpperArm",
"R Forearm;ValveBiped.Bip01_R_Forearm",
"R Hand;ValveBiped.Bip01_R_Hand",
"L Shoulder;ValveBiped.Bip01_L_UpperArm",
"L Forearm;ValveBiped.Bip01_L_Forearm",
"L Hand;ValveBiped.Bip01_L_Hand",
"R Thigh;ValveBiped.Bip01_R_Thigh",
"R Calf;ValveBiped.Bip01_R_Calf",
"R Foot;ValveBiped.Bip01_R_Foot",
"R Toes;ValveBiped.Bip01_R_Toe0",
"L Thigh;ValveBiped.Bip01_L_Thigh",
"L Calf;ValveBiped.Bip01_L_Calf",
"L Foot;ValveBiped.Bip01_L_Foot",
"L Toes;ValveBiped.Bip01_L_Toe0",
}
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-----------------------------------------------------------------------------Notify-----------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
local function Notify(t,c)
if(GetConVarNumber("iNotify") != 1) then return end
MsgC(c,"[STACK] ")
MsgC(C_GREY,t .. "\n")
end
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------Das Func----------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
surface.CreateFont( "StackSmall", {font = "Default",size = 15,weight = 100,antialias = true} )
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(Upper(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 AddSlider(x, y, w, t, n, m, c, p)
Q[Count(Q)+1] = vgui.Create( "DNumSlider", p )
Q[Count(Q)]:SetPos( x, y )
Q[Count(Q)]:SetWide( w )
Q[Count(Q)]:SetText( "" )
Q[Count(Q)]:SetMin( n )
Q[Count(Q)]:SetMax( m )
Q[Count(Q)]:SetDecimals( 2 )
Q[Count(Q)]:SetConVar( c )
end
function AddSlidar(x, y, b, min, max, t, x2, y2)
Q[Count(Q)+1] = VGUIRect( x, y, 500, 20 )
Q[Count(Q)]:SetColor(C_BLUE)
Q[Count(Q)]:SetParent(Q[BG])
local par = Count(Q)
Q[Count(Q)+1] = vgui.Create("DLabel", Q[BG])
Q[Count(Q)]:SetPos(x+3, y-15)
Q[Count(Q)]:SetSize(100, 20)
Q[Count(Q)]:SetText(t)
Q[Count(Q)]:SetTextColor(C_BLUE)
Q[Count(Q)+1] = VGUIRect( x2, y2, math.Clamp(Lerp(GetConVarNumber(b)/max, 40, 496), 40, 496), 16 )
Q[Count(Q)]:SetColor(C_MINT)
table.insert(AllSlidars, Count(Q))
local par2 = Count(Q)
Q[Count(Q)+1] = vgui.Create("DLabel", Q[par2])
Q[Count(Q)]:SetPos(3, -1)
Q[Count(Q)]:SetSize(100, 20)
Q[Count(Q)]:SetText(GetConVarNumber(b))
Q[Count(Q)]:SetTextColor(C_BLUE)
table.insert(AllSlidarz, Count(Q))
table.insert(AllSlidarzz, b)
Q[Count(Q)+1] = vgui.Create("DButton", Q[par])
Q[Count(Q)]:SetPos(0, 0)
Q[Count(Q)]:SetSize(500, 20)
Q[Count(Q)]:SetText("")
Q[Count(Q)]:SetDrawBackground(false)
Q[Count(Q)]:SetCursor("sizewe")
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----------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
rt = 0
hook.Add("Think", "gear", function()
rt = rt + 0.2
end)
local function general()
SavedButtons2 = {}
AddLabel(10, 40, 200, 20, C_BLUE, "AIMBOT", "StackHuge", Q[BG])
AddCheckBox(10, 70, "aimbud", "Aimbot Targets Buddies", "Aimbot will not attack people on your buddy list.")
AddCheckBox(10, 90, "aa", "Passive Aimbot", "Snaps to bone only when crosshair is near a player.")
AddCheckBox(10, 110, "aimteam", "Aimbot Attacks Teammates", "Aimbot will not attack teammates, useful in jailbreak.")
AddCheckBox(10, 130, "nore", "No Recoil", "Makes you weapon have no recoil.")
AddCheckBox(10, 150, "stmfrds", "Aimbot Targets Steam Friends", "Toggles whether or not to target steam friends.")
AddLabel(190, 40, 200, 20, C_BLUE, "PLAYER", "StackHuge", Q[BG])
AddCheckBox(190, 70, "showspec", "Show Spectators", "Notify if someone is spectating you.")
AddCheckBox(190, 90, "showadmin", "Show Admins", "Notify if any admins are on the server.")
AddCheckBox(190, 110, "esSK", "Show Player Bones", "Displays the bone structure of all players.")
AddCheckBox(190, 130, "thrdp", "Thirdperson", "Changes your veiw to thirdperson.")
AddLabel(350, 40, 200, 20, C_BLUE, "CHAMS", "StackHuge", Q[BG])
AddCheckBox(350, 70, "chm", "Enable Chams", "Enables the rendering of chams.")
AddCheckBox(350, 90, "cmh_props", "Prop Chams", "Highlights all the props in your cham distance.")
AddCheckBox(350, 110, "cmh_weps", "Weapon Chams", "Highlights all the weapons in your cham distance.")
AddCheckBox(350, 130, "cmh_plys", "Player Chams", "Highlights all the players in your cham distance.")
AddCheckBox(350, 150, "cmh_wire", "Cham Wireframe", "Sets Cham material to wireframe.")
AddCheckBox(350, 170, "cmh_plytm", "Player Cham Team Color", "Player cham will use the player's team color.")
AddLabel(350+180, 40, 200, 20, C_BLUE, "ESP", "StackHuge", Q[BG])
AddCheckBox(350+180, 70, "epl", "Player ESP Glow", "Slight glow around players. *CAN CAUSE LAG ON SERVERS WITH ALOT OF PEOPLE*")
AddCheckBox(350+180, 90, "wh", "See All Player Names", "Wallhack showing where all players are.")
AddCheckBox(350+180, 110, "esdis", "Show Distance", "Show your distance from the player.")
AddCheckBox(350+180, 130, "eshlth", "Show Health", "Show the player's health.")
AddCheckBox(350+180, 150, "esarmr", "Show Armor", "Show the player's armor.")
AddCheckBox(350+180, 170, "eswep", "Show Weapon", "Show the player's active weapon.")
AddSlidar(10, 205, "aimbdist", 100, 10000, "Aimbot Distance", W-400+12, H+57)
table.insert(SavedButtons2, Count(Q))
AddSlidar(10, 239, "chmdist", 100, 10000, "Cham Distance", W-400+12, H+57+34)
table.insert(SavedButtons2, Count(Q))
AddSlidar(10, 273, "esdist", 100, 10000, "ESP Distance", W-400+12, H+57+68)
table.insert(SavedButtons2, Count(Q))
for k, v in pairs(SavedButtons2)do
Q[v].OnCursorEntered = function()
hook.Add("Think", "g", function()
if input.IsMouseDown( MOUSE_LEFT ) then
local x , y = gui.MousePos()
Q[AllSlidars[k]]:SetSize( math.Clamp(x-(W-400+12), 20, 496), 16)
Q[AllSlidarz[k]]:SetText(GetConVarNumber(AllSlidarzz[k]))
LocalPlayer():ConCommand(AllSlidarzz[k] .. " " .. math.floor(Lerp(Q[AllSlidars[k]]:GetWide()/496, 100, 10000)))
end
end)
end
end
for k, v in pairs(SavedButtons2)do
Q[v].OnCursorExited = function()
hook.Remove("Think", "g")
end
end
AddLabel(515+20, 250, 200, 20, C_BLUE, "GAMEMODE/", "StackBold", Q[BG])
AddLabel(585+28, 250, 200, 20, C_BLUE, GMODE, "StackSmall", Q[BG])
AddLabel(515+20, 270, 200, 20, C_BLUE, "FOLDER/", "StackBold", Q[BG])
AddLabel(565+25, 270, 200, 20, C_BLUE, gmod.GetGamemode().FolderName, "StackSmall", Q[BG])
//PrintTable(gmod.GetGamemode())
end
local function roleplay()
AddLabel(10, 40, 200, 20, C_BLUE, "DARKRP", "StackHuge", Q[BG])
AddCheckBox(10, 70, "health", "RP God Mode", "Will spam /buyhealth if health is lower than 100%.")
AddCheckBox(10, 90, "chm", "Enable Chams", "Enables the rendering of chams.")
AddCheckBox(10, 110, "cmh_prnt", "Printer Chams", "Highlights all the printers in your cham distance.")
AddCheckBox(10, 130, "drpnme", "Rapid RP Name Changer", "Changes your RP name as fast as it can rapidly.")
AddLabel(190, 40, 200, 20, C_BLUE, "PERP", "StackHuge", Q[BG])
AddCheckBox(190, 70, "perpdrg", "Druggy", "Shows what druggy is buying and/or selling.")
AddCheckBox(190, 90, "prpmny", "Infinte Cash", "Sets your cash and bank money extemely high. *CLIENT SIDED*")
AddCheckBox(190, 110, "prpstm", "Infinte Stamina", "Sets your stamina to 100 constantly. *CLIENT SIDED*")
end
local function ttt()
AddLabel(10, 40, 200, 20, C_BLUE, "PLAYER", "StackHuge", Q[BG])
AddCheckBox(10, 70, "showtrate", "Show trators", "Notifies you if anyone has a trator weapon.")
AddLabel(190, 40, 200, 20, C_BLUE, "INFO", "StackHuge", Q[BG])
AddCheckBox(190, 70, "wepin", "weapon info", "Shows the name and current clip of each weapon in the map. *CAN CAUSE LAG*")
AddLabel(350, 40, 200, 20, C_BLUE, "CHAMS", "StackHuge", Q[BG])
AddCheckBox(350, 70, "chm", "Enable Chams", "Enables the rendering of chams.")
AddCheckBox(350, 90, "cmh_ammo", "Ammo Chams", "Highlights all the ammo in your cham distance.")
AddCheckBox(350, 110, "cmh_weps", "Weapon Chams", "Highlights all the weapons in your cham distance.")
end
local function misc()
SaveKey = {}
AddLabel(10, 40, 200, 20, C_BLUE, "MISC", "StackHuge", Q[BG])
AddCheckBox(10, 70, "bhop", "Lua Bhop Script", "Jump when you are on the ground. *WORKS BEST WHILE CROUCHING*")
AddCheckBox(10, 90, "flash", "Flashlight Spammer", "Spams flashlight.")
AddCheckBox(10, 110, "spdon", "Host timescale", "Enable timescale change. *NEEDS SV_CHEATS OPTION ON*")
AddCheckBox(10, 130, "chts", "sv_cheats", "Bypass sv_cheats")
AddCheckBox(10, 150, "lzrs", "Lazer Sight", "Draws a red lazer from your gun to where you are aiming.")
AddCheckBox(10, 170, "lzre", "Lazer Eyes", "Draws blue lazers from every players eyes to where they are looking.")
AddCheckBox(10, 190, "ulxgag", "Bypass ULX Gag", "Allows you to bypass a ulx gag.")
AddCheckBox(10, 210, "spmjkes", "Spam Jokes", "Spam random jokes in chat.")
AddCheckBox(10, 230, "nme", "Random Name Changer", "Will change your steam name rapidly.")
AddCheckBox(10, 250, "fullb", "Fullbright", "Changes client side lighting to brighten up dark areas.")
AddCheckBox(10, 270, "aln", "Show Morbus Aliens", "Notifies you if someone is a alien.")
AddLabel(190, 40, 200, 20, C_BLUE, "BHOP KEY", "StackHuge", Q[BG])
for k, v in pairs(Allbtns)do
local t = v[2]
if(v[1] == btn)then
AddPanelButton(190, 50+k*25, 100, 20, C_MINT, t, Q[BG])
else
AddPanelButton(190, 50+k*25, 100, 20, Color(190,190,190), t, Q[BG])
end
table.insert(SaveKey, Count(Q))
end
for k, v in pairs(SaveKey)do
Q[v].DoClick = function()
btn = Allbtns[k][1]
cmenu()
menu()
end
end
AddSlider(35, 101, 120, "Timescale", 1, 8, "spdval", Q[BG])
AddLabel(350, 40, 200, 20, C_BLUE, "CROSSHAIR", "StackHuge", Q[BG])
AddCheckBox(350, 70, "crossh", "Crosshair 1", "Custom Crosshair #1.")
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[_]])
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,100))
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(string.upper(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 customize()
SaveBones = {}
Q[Count(Q)+1] = vgui.Create( "DGrid", Q[BG] )
Q[Count(Q)]:SetPos( 10, 40 )
Q[Count(Q)]:SetCols( 7 )
Q[Count(Q)]:SetColWide( 65 )
Q[Count(Q)]:SetRowHeight(65)
GRID = Count(Q)
for k , v in pairs(AllBones)do
bone = string.Explode(";", v)
if(bone[2] != CurrentBone)then
AddPanelButton(-40+k*55, 40, 60, 60, Color(150,150,150,150), bone[1])
Q[GRID]:AddItem( Q[Count(Q)-1] )
else
AddPanelButton(-40+k*55, 40, 60, 60, C_MINT, bone[1])
Q[GRID]:AddItem( Q[Count(Q)-1] )
end
table.insert(SaveBones, Count(Q))
end
for k, v in pairs(SaveBones)do
Q[v].DoClick = function()
bone = string.Explode(";", AllBones[k])
CurrentBone = bone[2]
cmenu()
menu()
end
end
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
AddPanelButton(65*7+10, 240, 140, 20, Color(200,200,200,255), "Change Elememt", Q[BG])
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, 20)
Q[Count(Q)]:SetWrap(true)
Q[Count(Q)]:SetSize(300, 200)
Q[Count(Q)]:SetText("Welcome to Stack Overflow version " .. version .. " by " .. developer .. ". This is a Lua Script, I wouldn't even call this along with other so called hacks, a hack because of how simple it or they are. Thanks to Hera for having a terrible UI and being laggy as fuck, inspiring me to code my own 'script'. Some code snipits may have been taken from other scripts like Hera or Seth Hack, so credits to them. Also credits to anyone who gave me and snipits of code to add to the script. ")
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 - Potato \n - Androo \n - Bitties and Teer \n - ىly Ʈendencies")
Q[Count(Q)]:SetTextColor(C_BLUE)
AddLabel(10, 200, 200, 20, C_BLUE, "BINDS", "StackHuge", Q[BG])
Q[Count(Q)+1] = vgui.Create("DLabel", Q[BG])
Q[Count(Q)]:SetPos(10, 160)
Q[Count(Q)]:SetWrap(true)
Q[Count(Q)]:SetSize(400, 180)
Q[Count(Q)]:SetText("TProp" .. " | Bind this to a key to prop kill. \n".."+aimb" .. " | Bind this to a key to use aimbot, as long as the key is down, aimbot is active.")
Q[Count(Q)]:SetTextColor(C_BLUE)
end
function menu()
Players = {}
AllSlidars = {}
AllSlidarz = {}
AllSlidarzz = {}
for k, v in pairs(player.GetAll())do
//if(v != LocalPlayer())then
table.insert(Players, v)
//end
end
SavedButtons = {}
SaveCheckBox = {}
SaveChecks = {}
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("ambient/_period.wav")
cmenu()
menu()
end
end
AddPanel(W-400, H-150, 800, 300, C_GREY)
BG = Count(Q)
AddLabel(655, 285, 200, 20, Color(150,150,150,150), name .. "/v" .. version .. "/" .. developer, "StackSmall", Q[BG])
AddPanel(W-400, H-149, 800, 30, C_MINT)
Q[Count(Q)+1] = vgui.Create("GEAR", Q[BG])
Q[Count(Q)]:SetSize(200,200)
Q[Count(Q)]:SetPos(700,200)
if(Cat == 1)then general()
elseif(Cat == 2)then roleplay()
elseif(Cat == 3)then ttt()
elseif(Cat == 4)then misc()
elseif(Cat == 5)then players()
elseif(Cat == 6)then customize()
elseif(Cat == 7)then info()
end
end
function cmenu()
INmenu = false
for _, v in pairs(Q)do v:Remove() end
hook.Remove("Think", "g")
end
concommand.Add("imenu", function()
if INmenu then
cmenu()
gui.EnableScreenClicker(false)
else
menu()
gui.EnableScreenClicker(true)
end
end)
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
--------------------------------------------------------------------------Block Shit----------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
BlockedCMD = {"perp_take_fuel","__ac","__imacheater","gm_possess","__uc_","_____b__c","___m","sc","bg","bm","kickme","gw_iamacheater","imafaggot","birdcage_browse","reportmod","_fuckme","st_openmenu","_NOPENOPE","__ping","ar_check","GForceRecoil","~__ac_auth","blade_client_check","blade_client_detected_message","disconnect","exit","retry","kill","dac_imcheating","dac_pleasebanme","excl_banme",}
function RunConsoleCommand( cmd, ...)
if !HasVal(BlockedCMD, cmd)then
return RunCC( cmd, ...)
else
print("BLOCKED COMMAND: " .. cmd)
return
end
end
function _R.Player.ConCommand(ply,cmd)
if !table.HasValue(BlockedCMD, cmd) then
//print("ConCommand: " .. cmd)
return ConC(ply, cmd)
else
print("BLOCKED ConCommand: " .. cmd)
return
end
end
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
---------------------------------------------------------------------------functions----------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
local sin,cos,rad = math.sin,math.cos,math.rad;
function GeneratePoly(x,y,radius,quality)
local circle = {};
local tmp = 0;
for i=1,quality do
tmp = rad(i*360)/quality
circle[i] = {x = x + cos(tmp)*radius,y = y + sin(tmp)*radius};
end
return circle;
end
function DrawPartialCircle( x, y, radius, linewidth, startangle, endangle, aa )
aa = aa or 1;
startangle = math.Clamp( startangle or 0, 0, 360 );
endangle = math.Clamp( endangle or 360, 0, 360 );
if endangle < startangle then
local temp = endangle;
endangle = startangle;
startangle = temp;
end
for i=startangle, endangle, aa do
local _i = i * (math.pi/180);
surface.DrawTexturedRectRotated(cos( _i ) * (radius - linewidth) + x,sin( _i ) * (radius - linewidth) + y, linewidth, aa*2, -i );
end
end
SPECTATORS = {}
ADMIN = {}
ALIENS = {}
hook.Add("Think", "Spectate", function()
for k, v in pairs(player.GetAll()) do
if (IsValid(v:GetObserverTarget()) and v:GetObserverTarget():IsPlayer() and v:GetObserverTarget() == LocalPlayer()) then
if(not table.HasValue(SPECTATORS, v)) then
table.insert(SPECTATORS, v);
if GetConVarNumber("showspec") == 1 then
Notify("Player " .. v:Nick() .. " is now spectating you!", Color(255,100,100))
surface.PlaySound("buttons/blip1.wav")
end
end
end
end
for k, v in pairs(SPECTATORS) do
if (not IsValid(v) or not IsValid(v:GetObserverTarget()) or not v:GetObserverTarget():IsPlayer() or (v:GetObserverTarget() ~= LocalPlayer())) then
table.remove(SPECTATORS, k);
if GetConVarNumber("showspec") == 1 then
Notify("Player " .. v:Nick() .. " is no longer spectating you!", Color( 171, 209, 171, 255 ))
surface.PlaySound("buttons/blip1.wav");
end
end
end
for k, v in pairs(player.GetAll()) do
if (v:IsAdmin() and not table.HasValue(ADMIN, v)) then
table.insert(ADMIN, v);
if GetConVarNumber("showadmin") == 1 then
Notify("Admin " .. v:Nick() .. " is in the game!", Color(255,100,100))
surface.PlaySound("buttons/blip1.wav");
end
end
end
for k, v in pairs(player.GetAll()) do
for k2, v2 in pairs(v:GetWeapons()) do
if string.find(v2:GetPrintName(), "Alien") then
if(!table.HasValue(ALIENS, v))then
table.insert(ALIENS, v);
if(GetConVarNumber("aln") == 1)then
Notify("Player " .. v:Nick() .. " is an alien!", Color(255,100,100))
surface.PlaySound("buttons/blip1.wav");
end
end
end
end
end
end)
local twep = { "weapon_ttt_c4", "weapon_ttt_knife", "weapon_ttt_phammer", "weapon_ttt_sipistol", "weapon_ttt_flaregun", "weapon_ttt_push", "weapon_ttt_radio", "weapon_ttt_teleport", "(Disguise)" ,"spiderman's_swep", "weapon_ttt_trait_defilibrator", "weapon_ttt_xbow", "weapon_ttt_dhook", "weapon_awp", "weapon_jihadbomb", "weapon_ttt_knife", "weapon_ttt_c4", "weapon_ttt_decoy", "weapon_ttt_flaregun", "weapon_ttt_phammer", "weapon_ttt_push", "weapon_ttt_radio", "weapon_ttt_sipistol", "weapon_ttt_teleport", "weapon_ttt_awp", "weapon_ttt_silencedsniper", "weapon_ttt_turtlenade", "weapon_ttt_death_station", "weapon_ttt_sg552", "weapon_ttt_tripmine"}
for _,v in pairs(player.GetAll()) do
v.HatTraitor = nil
end
for _,v in pairs(ents.GetAll()) do
v.HatESPTracked = nil
end
hook.Add("PostDrawOpaqueRenderables", "wire_animations_idle", function()
if !string.find(GMODE, "town") then return end
if GAMEMODE.round_state != ROUND_ACTIVE then
for _,v in pairs(player.GetAll()) do
v.HatTraitor = nil
end
for _,v in pairs(ents.GetAll()) do
v.HatESPTracked = nil
end
return
end
for _,v in pairs( ents.GetAll() ) do
if v and IsValid(v) and (table.HasValue(twep, v:GetClass()) and !v.HatESPTracked) then
local pl = v.Owner
if pl and IsValid(pl) and pl:IsTerror() then
if pl:IsDetective() then
v.HatESPTracked = true
else
v.HatESPTracked = true
pl.HatTraitor = true
if GetConVarNumber("showtrate") == 1 then
Notify("Player " .. pl:Nick() .. " is a trator with " .. v:GetClass() .. "!", Color(255,100,100))
end
end
end
end
end
end)
hook.Add("PostDrawOpaqueRenderables", "lazereyes", function()
if(GetConVarNumber("lzre") != 1)then return end
for k, v in pairs(player.GetAll())do
local pos, ang = v:GetShootPos();
render.SetMaterial(Material("sprites/bluelaser1"));
render.DrawBeam(pos, v:GetEyeTrace().HitPos, 5, 1, 1, team.GetColor(v:Team()));
end
end)
function ValidEntity( object )
if (!object) then return false end
return object:IsValid()
end
hook.Add("PostDrawOpaqueRenderables", "lazersight", function()
if(GetConVarNumber("lzrs") != 1)then return end
local vm = LocalPlayer():GetViewModel();
if(vm and ValidEntity(LocalPlayer():GetActiveWeapon()) and ValidEntity(vm)) then
if(LocalPlayer():GetActiveWeapon():GetClass() ~= "weapon_physgun") then
local ai = vm:LookupAttachment("muzzle");
if(ai == 0) then
ai = vm:LookupAttachment("1");
end
local tr = util.TraceLine(util.GetPlayerTrace(LocalPlayer()));
if(vm:GetAttachment(ai)) then
render.SetColorModulation( 0, 0, 255)
render.SetMaterial(Material("cable/redlaser"));
render.DrawBeam(vm:GetAttachment(ai).Pos, tr.HitPos, 2, 0, 12.5, Color(0,1,0))
render.SetMaterial(Material("Sprites/light_glow02_add_noz"));
render.DrawQuadEasy(tr.HitPos, (LocalPlayer():EyePos() - tr.HitPos):GetNormal(), 25, 25, C_LAZER)
end
end
end
end)
hook.Add("Think", "ESP", function()
if GetConVarNumber("epl") != 1 then return end
for k, v in pairs(player.GetAll()) do
if(v:Alive() and LocalPlayer():GetPos():Distance(v:GetPos()) <= GetConVarNumber("esdist"))then
if(table.HasValue(twep, v:GetClass()) and !table.HasValue(Buddies, v))then
halo.Add({v}, Color(255,0,0), 1, 1, 1, true, true )
elseif(table.HasValue(Buddies, v))then
halo.Add({v}, Color(0,255,0), 1, 1, 1, true, true )
else
halo.Add({v}, team.GetColor(v:Team()), 1, 1, 1, true, true )
end
end
end
end)
surface.CreateFont( "3D2DwepName", { font = "Bebas Neue", size = 55, weight = 600 } )
surface.CreateFont( "3D2Dwepclip1", { font = "Bebas Neue", size = 35, weight = 600 } )
hook.Add( "PostDrawTranslucentRenderables", "DrawWeaponInfo", function()
if GetConVarNumber("wepin") != 1 then return end
for k, v in pairs(ents.FindByClass("weapon_*"))do
pos = v:GetPos()
cam.Start3D2D( pos+Vector(0,0,5), Angle(0,35,0), 0.15 )
if type(v) == "Weapon" and v:IsValid() and !v:IsCarriedByLocalPlayer() then
if(LocalPlayer():GetPos():Distance(v:GetPos()) <= GetConVarNumber("esdist"))then
draw.SimpleTextOutlined( string.upper(v:GetPrintName()), "3D2DwepName", 0, 0, Color(255,255,255,255), TEXT_ALIGN_CENTER, TEXT_ALIGN_CENTER, 1, Color(0,0,0,100) )
draw.SimpleTextOutlined( v:Clip1() .. " IN CLIP.", "3D2Dwepclip1", 0, 35, Color(255,255,255,255), TEXT_ALIGN_CENTER, TEXT_ALIGN_CENTER, 1, Color(0,0,0,100) )
end
end
cam.End3D2D()
end
end)
surface.CreateFont( "dotum", { font = "dotum", size = 10, weight = 600 } )
hook.Add( "HUDPaint", "Wallhack", function()
for k,v in pairs (player.GetAll()) do
if GetConVarNumber("wh") >= 1 then
if v ~= LocalPlayer() then
if LocalPlayer():Alive() and v:Alive() and v:Team() != TEAM_SPECTATOR then
if(LocalPlayer():GetPos():Distance(v:GetPos()) <= GetConVarNumber("esdist"))then
local Position = ( v:GetPos() + Vector( 0,0,80 ) ):ToScreen()
draw.SimpleTextOutlined( v:Name(), "dotum", Position.x, Position.y, team.GetColor(v:Team()), TEXT_ALIGN_LEFT, TEXT_ALIGN_LEFT, 1, Color(0,0,0,100))
if(GetConVarNumber("eshlth") == 1)then
draw.SimpleTextOutlined( "H: " .. v:Health(), "dotum", Position.x, Position.y+10, Color(255,255,255,255), TEXT_ALIGN_LEFT, TEXT_ALIGN_LEFT, 1, Color(0,0,0,100))
end
if(GetConVarNumber("esdis") == 1)then
draw.SimpleTextOutlined( "D: " .. math.floor(LocalPlayer():GetPos():Distance(v:GetPos())), "dotum", Position.x, Position.y+20, Color(255,255,255,255), TEXT_ALIGN_LEFT, TEXT_ALIGN_LEFT, 1, Color(0,0,0,100))
end
if(GetConVarNumber("esarmr") == 1)then
draw.SimpleTextOutlined( "A: " .. v:Armor(), "dotum", Position.x, Position.y+30, Color(255,255,255,255), TEXT_ALIGN_LEFT, TEXT_ALIGN_LEFT, 1, Color(0,0,0,100))
end
if(GetConVarNumber("eswep") == 1)then
if type(v:GetActiveWeapon()) == "Weapon" and v:GetActiveWeapon() and v:GetActiveWeapon():IsValid() then
draw.SimpleTextOutlined( "W: " .. v:GetActiveWeapon():GetPrintName(), "dotum", Position.x, Position.y+40, Color(255,255,255,255), TEXT_ALIGN_LEFT, TEXT_ALIGN_LEFT, 1, Color(0,0,0,100))
else
draw.SimpleTextOutlined( "W: Nothing", "dotum", Position.x, Position.y+40, Color(255,255,255,255), TEXT_ALIGN_LEFT, TEXT_ALIGN_LEFT, 1, Color(0,0,0,100))
end
end
end
end
end
end
end
end)
hook.Add("Think", "RPGod", function()
if GetConVarNumber("health") != 1 then return end
if(LocalPlayer():Health() < 100 and LocalPlayer():Alive())then
LocalPlayer():ConCommand("say /buyhealth")
end
end)
hook.Add("Think", "bhop", function()
if(GetConVarNumber("bhop") != 1)then return end
if(LocalPlayer():KeyDown( btn ))then
if(LocalPlayer():OnGround())then
LocalPlayer():ConCommand("+jump")
timer.Simple(0.1, function() LocalPlayer():ConCommand("-jump") end)
end
end
end)
hook.Add("Think", "Flash", function()
if(GetConVarNumber("flash") != 1)then return end
LocalPlayer():ConCommand("impulse 100")
end)
concommand.Add("+aimb", function()
aimb = true
end)
concommand.Add("-aimb", function()
aimb = false
end)
hook.Add("Think", "aimbothax", function()
local distance = math.huge;
if aimb then
for k, v in pairs(ents.FindInSphere(LocalPlayer():GetPos(),GetConVarNumber("aimbdist")))do
if(v:IsPlayer() and v:Alive() and v != LocalPlayer() )then
local plydist = v:GetPos():DistToSqr(LocalPlayer():GetPos());
local vhead = v:LookupBone(CurrentBone)
local vheadpos,vheadang = v:GetBonePosition(vhead)
if(table.HasValue(Buddies, v) and GetConVarNumber("aimbud") == 0)then
return
elseif(GetConVarNumber("aimteam") != 1 and LocalPlayer():Team() == v:Team())then
return
elseif(GetConVarNumber("stmfrds") == 0 and v:GetFriendStatus() == "friend")then
return
else
if(plydist < distance)then
distance = plydist;
LocalPlayer():SetEyeAngles((vheadpos - LocalPlayer():GetShootPos()):Angle())
end
end
end
end
end
end)
function aimbot()
if GetConVarNumber("aa") == 1 then
local ply = LocalPlayer()
local trace = util.GetPlayerTrace( ply )
local traceRes = util.TraceLine( trace )
if traceRes.HitNonWorld then
local target = traceRes.Entity
if target:IsPlayer() then
local targethead = target:LookupBone(CurrentBone)
local targetheadpos,targetheadang = target:GetBonePosition(targethead)
if(table.HasValue(Buddies, target) and GetConVarNumber("aimbud") == 0)then
return
elseif(GetConVarNumber("aimteam") != 1 and LocalPlayer():Team() == target:Team())then
return
elseif(GetConVarNumber("stmfrds") == 0 and target:GetFriendStatus() == "friend") then
return
else
ply:SetEyeAngles((targetheadpos - ply:GetShootPos()):Angle())
end
end
end
end
end
hook.Add("Think","aa",aimbot)
hook.Add("Think", "Thirdperson", function()
if(GetConVarNumber("thrdp") == 1)then
hook.Add("CalcView", "MyCalcView", Thirdperson)
else
hook.Remove("CalcView", "MyCalcView")
end
end)
hook.Add("ShouldDrawLocalPlayer", "third", function()
if(GetConVarNumber("thrdp") == 1)then
return true
else
return false
end
end)
function Thirdperson(ply, pos, angles, fov)
local view = {}
if(GetConVarNumber("thrdp") == 1)then
view.origin = pos-(angles:Forward()*GetConVarNumber("veiwdis"))
else
view.origin = pos
end
view.angles = angles
view.fov = fov
return view
end
surface.CreateFont( "drugtop", { font = "Bebas Neue", size = 25, weight = 600 } )
surface.CreateFont( "drugbtm", { font = "Bebas Neue", size = 18, weight = 200 } )
hook.Add("HUDPaint", "PerpDruggy", function()
if(GetConVarNumber("perpdrg") == 1)then
local buy = "None";
local sell = "None";
local buyi = GetGlobalInt("perp_druggy_buy", 0);
local selli = GetGlobalInt("perp_druggy_sell", 0);
if(string.find(GMODE, "PERP")) then
if(buyi == 2) then
buy = "Meth";
elseif(buyi == 1) then
buy = "Weed";
elseif(buyi == 3) then
buy = "Shrooms";
end
elseif(string.find(GMODE, "agrp")) then
if(buyi == 2) then
buy = "Meth";
elseif(buyi == 1) then
buy = "Weed";
elseif(buyi == 3) then
buy = "Hulk";
elseif(buyi == 4) then
buy = "LSD";
elseif(buyi == 5) then
buy = "Shrooms";
elseif(buyi == 6) then
buy = "Cocaine";
end
else
if(buyi == 2) then
buy = "Weed";
elseif(buyi == 3) then
buy = "Shrooms";
end
end
if(string.find(GMODE, "agrp") or string.find(GMODE, "PERP X2")) then
if(selli == 1) then
sell = "Seeds";
elseif(selli == 2) then
sell = "LSD";
elseif(selli == 3) then
sell = "Hulk";
elseif(selli == 4) then
sell = "Shrooms";
elseif(selli == 5) then
sell = "Cocaine";
end
else
if(selli == 1) then
sell = "Seeds";
elseif(selli == 2) then
sell = "Shrooms";
end
end
draw.RoundedBox( 6, ScrW()-201, 9, 222, 62, Color(150,150,150,255) )
draw.RoundedBox( 6, ScrW()-200, 10, 220, 60, C_GREY )
draw.SimpleTextOutlined( "DRUGGY BUYING", "drugtop", ScrW()-190, 20, C_BLUE, TEXT_ALIGN_LEFT, TEXT_ALIGN_LEFT, 1, Color(225,225,225,255) )
draw.SimpleTextOutlined( buy, "drugbtm", ScrW()-80, 25, C_BLUE, TEXT_ALIGN_LEFT, TEXT_ALIGN_LEFT, 1, Color(225,225,225,255) )
draw.SimpleTextOutlined( "DRUGGY SELLING", "drugtop", ScrW()-190, 40, C_BLUE, TEXT_ALIGN_LEFT, TEXT_ALIGN_LEFT, 1, Color(225,225,225,255) )
draw.SimpleTextOutlined( sell, "drugbtm", ScrW()-75, 45, C_BLUE, TEXT_ALIGN_LEFT, TEXT_ALIGN_LEFT, 1, Color(225,225,225,255) )
end
end)
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",
}
hook.Add("Tick", "Stuff", function()
if(GetConVarNumber("ulxgag") == 1)then
if(ulx and ulx.gagUser) then
ulx.gagUser( LocalPlayer(), false )
end
end
if(GetConVarNumber("nore") == 1)then
GAMEMODE:CalcView( LocalPlayer(), LocalPlayer():EyePos(), LocalPlayer():EyeAngles(), LocalPlayer():GetFOV(), 0.1 );
end
if(GetConVarNumber("spmjkes") == 1)then
LocalPlayer():ConCommand("say " .. table.Random(jokes))
end
if(GetConVarNumber("prpmny") == 1)then
LocalPlayer():SetPrivateInt("cash", 1000000000);
LocalPlayer():SetPrivateInt("bank", 1000000000);
end
if(GetConVarNumber("prpstm") == 1)then
LocalPlayer().Stamina = 100;
end
end)
hook.Add("HUDPaint", "chms", function()
if GetConVarNumber("chm") == 1 then
cam.Start3D()
for k, v in pairs(ents.FindInSphere(LocalPlayer():GetPos(), GetConVarNumber("chmdist"))) do
if GetConVarNumber("cmh_plys") == 1 and v:IsPlayer() then
if v != LocalPlayer() and v:Alive() then --
if(GetConVarNumber("cmh_plytm") == 0)then
render.SetColorModulation( 0, 255, 0)
else
local col = team.GetColor(v:Team())
render.SetColorModulation(col.r/255, col.g/255, col.b/255)
end
if(GetConVarNumber("cmh_wire") == 0)then
render.MaterialOverride(Material("models/debug/debugwhite"))
else
render.MaterialOverride(Material("models/wireframe"))
end
render.SetBlend(.75)
v:DrawModel()
end
elseif GetConVarNumber("cmh_props") == 1 and v:GetClass() == "prop_physics" then
render.SetColorModulation( 0, 0, 255)
v:SetColor(Color(255,255,255))
if(GetConVarNumber("cmh_wire") == 0)then
render.MaterialOverride(Material("models/debug/debugwhite"))
else
render.MaterialOverride(Material("models/wireframe"))
end
render.SetBlend( .1 )
v:DrawModel()
elseif GetConVarNumber("cmh_weps") == 1 and string.find(v:GetClass(), "weapon") then
render.SetColorModulation( 255, 0, 0)
v:SetColor(Color(255,255,255))
if(GetConVarNumber("cmh_wire") == 0)then
render.MaterialOverride(Material("models/debug/debugwhite"))
else
render.MaterialOverride(Material("models/wireframe"))
end
render.SetBlend( .1 )
v:DrawModel()
elseif GetConVarNumber("cmh_prnt") == 1 and string.find(v:GetClass(), "printer") then
render.SetColorModulation( 255, 0, 255)
v:SetColor(Color(255,255,255))
if(GetConVarNumber("cmh_wire") == 0)then
render.MaterialOverride(Material("models/debug/debugwhite"))
else
render.MaterialOverride(Material("models/wireframe"))
end
render.SetBlend( .1 )
v:DrawModel()
elseif GetConVarNumber("cmh_ammo") == 1 and string.find(v:GetClass(), "ammo") then
render.SetColorModulation( 255, 255, 0)
v:SetColor(Color(255,255,255))
if(GetConVarNumber("cmh_wire") == 0)then
render.MaterialOverride(Material("models/debug/debugwhite"))
else
render.MaterialOverride(Material("models/wireframe"))
end
render.SetBlend( .1 )
v:DrawModel()
end
end
cam.End3D()
end
end)
Letters = {"A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z"}
local ra = table.Random
timer.Create("darkrpname", 4, 0, function()
if(GetConVarNumber("drpnme") == 1 )then
LocalPlayer():ConCommand("say /rpname " .. ra(Letters) .. ra(Letters) ..ra(Letters) ..ra(Letters) ..ra(Letters) ..ra(Letters) ..ra(Letters))
elseif(GetConVarNumber("nme") == 1 )then
LocalPlayer():ConCommand("name " .. ra(Letters) .. ra(Letters) ..ra(Letters) ..ra(Letters) ..ra(Letters) ..ra(Letters) ..ra(Letters))
end
end)
espbones = {
{ S = "ValveBiped.Bip01_Head1", E = "ValveBiped.Bip01_Neck1" },
{ S = "ValveBiped.Bip01_Neck1", E = "ValveBiped.Bip01_Spine4" },
{ S = "ValveBiped.Bip01_Spine4", E = "ValveBiped.Bip01_Spine2" },
{ S = "ValveBiped.Bip01_Spine2", E = "ValveBiped.Bip01_Spine1" },
{ S = "ValveBiped.Bip01_Spine1", E = "ValveBiped.Bip01_Spine" },
{ S = "ValveBiped.Bip01_Spine", E = "ValveBiped.Bip01_Pelvis" },
{ S = "ValveBiped.Bip01_Spine4", E = "ValveBiped.Bip01_L_UpperArm" },
{ S = "ValveBiped.Bip01_L_UpperArm", E = "ValveBiped.Bip01_L_Forearm" },
{ S = "ValveBiped.Bip01_L_Forearm", E = "ValveBiped.Bip01_L_Hand" },
{ S = "ValveBiped.Bip01_Spine4", E = "ValveBiped.Bip01_R_UpperArm" },
{ S = "ValveBiped.Bip01_R_UpperArm", E = "ValveBiped.Bip01_R_Forearm" },
{ S = "ValveBiped.Bip01_R_Forearm", E = "ValveBiped.Bip01_R_Hand" },
{ S = "ValveBiped.Bip01_Pelvis", E = "ValveBiped.Bip01_L_Thigh" },
{ S = "ValveBiped.Bip01_L_Thigh", E = "ValveBiped.Bip01_L_Calf" },
{ S = "ValveBiped.Bip01_L_Calf", E = "ValveBiped.Bip01_L_Foot" },
{ S = "ValveBiped.Bip01_L_Foot", E = "ValveBiped.Bip01_L_Toe0" },
{ S = "ValveBiped.Bip01_Pelvis", E = "ValveBiped.Bip01_R_Thigh" },
{ S = "ValveBiped.Bip01_R_Thigh", E = "ValveBiped.Bip01_R_Calf" },
{ S = "ValveBiped.Bip01_R_Calf", E = "ValveBiped.Bip01_R_Foot" },
{ S = "ValveBiped.Bip01_R_Foot", E = "ValveBiped.Bip01_R_Toe0" },
}
hook.Add("HUDPaint", "esS", function()
for _, ply in pairs(player.GetAll())do
if GetConVarNumber("esSK") == 1 and LocalPlayer():GetPos():Distance(ply:GetPos()) <= GetConVarNumber("esdist") then
if(ply != LocalPlayer() and ply:Alive() and ply:IsValid())then
for k, v in pairs( espbones ) do
local sPos, ePos = ply:GetBonePosition( ply:LookupBone( v.S ) ):ToScreen(), ply:GetBonePosition( ply:LookupBone( v.E ) ):ToScreen()
if ply:IsPlayer() then
surface.SetDrawColor(team.GetColor(ply:Team()))
end
surface.DrawLine(sPos.x,sPos.y,ePos.x,ePos.y)
end
end
end
end
end)
local ang = 0
function MagnetoThrow()
ang = ang + 5
LocalPlayer():SetEyeAngles(SVANG-Angle(0,ang,0))
if(ang >= 180)then
LocalPlayer():SetEyeAngles(LocalPlayer():EyeAngles()-Angle(0,180,0))
timer.Simple(.1,function() RunConsoleCommand("+attack") end)
timer.Simple(.2,function() RunConsoleCommand("-attack") end)
hook.Remove("Think", "TProp")
ang = 0
end
end
concommand.Add("TProp",function()
hook.Add("Think", "TProp", MagnetoThrow)
SVANG = LocalPlayer():EyeAngles()
end)
hook.Add("HUDPaint", "cross", function()
if(GetConVarNumber("crossh") == 0)then return end
surface.SetDrawColor(255,255,255,150)
surface.DrawLine(W-2,H-2,W-8,H-8)
surface.DrawLine(W+2,H-2,W+8,H-8)
surface.DrawLine(W,H+2,W,H+10)
end)
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
---------------------------------------------------------------------------Das VGUI-----------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
local base_tex = {
["$basetexture"] = "models/debug/debugblue",
["$additive"] = 1,
["$nolod"] = 1,
["$translucent"] = 1,
["$vertexalpha"] = 1,
["$vertexcolor"] = 1,
}
local flatmat = CreateMaterial("flat","UnlitGeneric",base_tex);
SEMI = {}
function SEMI:Paint()
local x, y = self:GetPos()
surface.SetDrawColor(255, 0, 0, 255)
surface.DrawPoly(GeneratePoly( x, y, 75, 360))
for i = 1, 15 do
surface.SetDrawColor(255, 255, 0, 255)
surface.SetMaterial(flatmat)
DrawPartialCircle( x, y, 70, 20, 0, 269, 1 )
end
end
vgui.Register( "SemiCircle", SEMI );
GEAR = {}
function GEAR:Paint()
local x, y = self:GetPos()
surface.SetMaterial(Material("stack/gear.png"))
surface.SetDrawColor(Color(255,255,255,70))
surface.DrawTexturedRectRotated(self:GetWide()/2, self:GetTall()/2, self:GetWide(), self:GetTall(), rt)
end
vgui.Register( "GEAR", GEAR );
