SHARE
TWEET

Untitled

a guest Sep 22nd, 2019 85 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. local sW, sH = ScrW(), ScrH()
  2.  
  3. local prevFrame = {}
  4. local prevValue = 1
  5.  
  6. surface.CreateFont("Get2Lost", {
  7.     font = "Open Sans",
  8.     size = 500,
  9.     weight = 1000,
  10.     antialias = true,
  11.     scanlines = 2.5,
  12. })
  13.  
  14. surface.CreateFont("Get2LostBlurred", {
  15.     font = "Open Sans",
  16.     size = 500,
  17.     weight = 1000,
  18.     antialias = true,
  19.     blursize = 10
  20. })
  21.  
  22. surface.SetFont("Get2Lost")
  23. local tW, tH = surface.GetTextSize("ΣNIGMA")
  24.  
  25. local audio
  26. local function AudioVizualier()
  27.     if not audio then return end
  28.     local tbl = {}
  29.     audio:FFT(tbl, FFT_4096)
  30.  
  31.     prevValue = Lerp(5 * FrameTime(), prevValue, math.Rand(0, 1))
  32.     local h = CurTime() * 250 % 360
  33.     surface.SetDrawColor(ColorAlpha(HSVToColor(360 - h, 1, prevValue), 125))
  34.     surface.DrawRect(0, 0, sW, sH)
  35.  
  36.     local color = HSVToColor(h, 1, prevValue)
  37.    
  38.     surface.SetFont("Get2LostBlurred")
  39.     surface.SetTextColor(ColorAlpha(color_white, math.random(225, 255)))
  40.     surface.SetTextPos(sW / 2 - tW / 2, sH / 2 - tH / 2)
  41.     surface.DrawText("0pie")
  42.  
  43.     surface.SetFont("Get2Lost")
  44.     surface.SetTextColor(color)
  45.     surface.SetTextPos(sW / 2 - tW / 2, sH / 2 - tH / 2)
  46.     surface.DrawText("0pie")
  47.  
  48.     surface.SetDrawColor(color)
  49.     for i = 0, sW, 20 do
  50.         local avg = 0
  51.         for j = 1, 30 do
  52.             avg = avg + tbl[i + j]
  53.         end
  54.         if not prevFrame[i] then prevFrame[i] = 0 end
  55.         prevFrame[i] = Lerp(30 * FrameTime(), prevFrame[i], avg * 5000)
  56.        
  57.         surface.DrawRect(i, sH - prevFrame[i] + 1, 20, prevFrame[i])
  58.         surface.DrawRect(sW - i - 20, sH - prevFrame[i] + 1, 20, prevFrame[i])
  59.  
  60.         surface.DrawRect(i, 0, 20, prevFrame[i])
  61.         surface.DrawRect(sW - i - 20, 0, 20, prevFrame[i])
  62.     end
  63. end
  64.  
  65. sound.PlayURL("https://symogyt.000webhostapp.com/hard-to-find-feat-mc-holocaust-trippjones-freddie-dredd.mp3", "noblock", function(s)
  66.     if not IsValid(s) then return end
  67.     audio = s
  68.    
  69.     local oldhooks = {}
  70.     for k, v in pairs(hook.GetTable().HUDPaint) do
  71.         oldhooks[k] = v
  72.         hook.Remove("HUDPaint", k)
  73.     end
  74.  
  75.     hook.Add("HUDShouldDraw", "Get2Lost", function(n)
  76.         if n == "CHudGMod" then return end
  77.         return false
  78.     end)
  79.  
  80.     hook.Add("HUDPaint", "Get2Lost", AudioVizualier)
  81.  
  82.     local intensity = 1
  83.     timer.Create("ScreenShake", 5, 0, function()
  84.         util.ScreenShake(vector_origin, 7 * intensity, 10, 5, 0)
  85.         intensity = intensity + 1
  86.     end)
  87.  
  88.     local function stop()
  89.         audio = nil
  90.         timer.Remove("ScreenShake")
  91.         hook.Remove("HUDPaint", "Get2Lost")
  92.         hook.Remove("HUDShouldDraw", "Get2Lost")
  93.         for k, v in pairs(oldhooks) do
  94.             hook.Add("HUDPaint", k, v)
  95.             oldhooks[k] = nil
  96.         end
  97.         s:Stop()
  98.     end
  99.     timer.Simple(60, stop)
  100.     concommand.Add("lelstop", stop)
  101. end)
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
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top