Upload

gamemodes/darkrp/plugins/combinesuits/derma/cl_visorscroller.lua

@@ -0,0 +1,156 @@
+--[[
+| This file was obtained through the combined efforts
+| of Madbluntz & Plymouth Antiquarian Society.
+|
+| Credits: lifestorm, Gregory Wayne Rossel JR.,
+| 	Maloy, DrPepper10 @ RIP, Atle!
+|
+| Visit for more: https://plymouth.thetwilightzone.ru/
+--]]
+
+local PLUGIN = PLUGIN
+
+surface.CreateFont("VisorScrolling", {
+	font = "Tahoma",
+	size = ScreenScale(24 / 3),
+	weight = 0,
+	antialias = true,
+})
+
+local PANEL = {}
+
+function PANEL:Init()
+	self.scrollingmessage = "SOCIO-STABILITÉ INTACTE" -- Default Message
+	self.scrollspeed = 150 -- Default Scrollspeed
+	self.scrollingcolor = "blue" -- If Color Is Not Defined Fallback On This
+	self.width = ScrW() * 0.1823 -- Width Of The Box
+	self.open = false
+	self.closed = true
+
+	self:SetTall(0)
+	self:SetWidth(self.width)
+	self:SetPos(ScrW() - self.width / 2 - 50 - self.width / 2, 50)
+
+	ix.gui.visor = self
+end
+
+function PANEL:DrawScrollingText(w, h)
+	local text = self.scrollingmessage.."     ///     " -- So The Message Appears Like So, EX: JUDGEMENT WAIVER     ///   JUDGEMENT WAIVER
+	surface.SetFont("VisorScrolling") -- Set The Font
+
+	local textw, _ = surface.GetTextSize(text) -- Text Size From The Font
+	surface.SetTextColor(Schema.colors[self.scrollingcolor]) -- Set The Color To The Variable
+
+	local x = RealTime() * self.scrollspeed % textw * -1 -- Magic
+	while (x < w) do -- More Magic
+		surface.SetTextPos(x, 8.5)
+		surface.DrawText(text)
+		x = x + textw
+	end
+end
+
+function PANEL:DrawCorners(x, y, w, h)
+	local length = 12
+	local thickness = 3
+
+	surface.DrawRect(x, y, length, thickness) -- Top Left
+	surface.DrawRect(x, y, thickness, length)
+
+	surface.DrawRect(x + (w - length), y, length, thickness) -- Top Right
+	surface.DrawRect(x + (w - thickness), y, thickness, length)
+
+	surface.DrawRect(x, y + (h - length), thickness, length) -- Bottom Left
+	surface.DrawRect(x, y + (h - thickness), length, thickness)
+
+	surface.DrawRect(x + (w - thickness), y + (h - length), thickness, length) -- Bottom Right
+	surface.DrawRect(x + (w - length), y + (h - thickness), length, thickness)
+end
+
+function PANEL:Open()
+	if (self.open) then return end
+
+	-- check if close animation finished
+	if (!self.closed) then
+		self.shouldReopen = true
+	end
+
+	surface.PlaySound("ui/hint.wav")
+
+	self.open = CurTime() -- It's open so it's set to true.
+	self.closed = false
+
+	surface.SetFont("VisorScrolling")
+	local _, textH = surface.GetTextSize("000")
+	local x, y = self:GetPos()
+
+	self:SetAlpha(255) -- Make Sure Its Visible
+	self:SizeTo(-1, textH + 15.5, 0.3, 0) -- Animation
+	self:MoveTo(x, (y - (textH / 2)), 0.3, 0)
+end
+
+function PANEL:Close()
+	if (!self.open) then return end
+	self.open = false -- It's not open so it's set to false.
+
+	surface.SetFont("VisorScrolling") -- Get The Height/Width Of The Font So We Can Move It Accordingly
+	local _, textH = surface.GetTextSize("000")
+	local x, y = self:GetPos()
+
+	self:SizeTo(-1, 0, 0.3, 0, -1, function()
+		self.closed = true
+		if (self.shouldReopen) then
+			self.shouldReopen = nil
+			-- make sure to reopen with latest data
+			self.scrollingcolor = GetNetVar("visorColor", "blue")
+			self.scrollingmessage = GetNetVar("visorText", "SOCIO-STABILITÉ INTACTE")
+			self:Open()
+		end
+	end) -- Animation
+	self:MoveTo(x, (y + (textH / 2)), 0.3, 0)
+end
+
+function PANEL:Think()
+	if (!IsValid(LocalPlayer())) then return end
+
+	if (LocalPlayer():HasActiveCombineMask() or LocalPlayer():IsDispatch()) then
+		-- Close if blue and open for more than 10 seconds
+		if (self.open and (self.open < CurTime() - 10)) then
+			self:Close()
+		end
+
+		-- Check if text/colors needs to be updated
+		if (self.scrollingcolor != GetNetVar("visorColor", "blue") or self.scrollingmessage != GetNetVar("visorText", "SOCIO-STABILITÉ INTACTE")) then
+			-- If open for at least five seconds, close
+			-- If fully closed, update and open
+			if (self.open and (self.open < CurTime() - 5)) then
+				self:Close()
+			elseif (self.closed) then
+				self.scrollingcolor = GetNetVar("visorColor", "blue")
+				self.scrollingmessage = GetNetVar("visorText", "SOCIO-STABILITÉ INTACTE")
+				self:Open()
+			end
+		end
+
+	end
+end
+
+function PANEL:Paint(w, h)
+	if (!LocalPlayer():HasActiveCombineMask() and !LocalPlayer():IsDispatch()) then
+		return
+	end
+
+	if (self.closed) then
+		return
+	end
+
+	local color = Schema.colors[self.scrollingcolor]
+	surface.SetDrawColor(color.r, color.g, color.b, 25) -- Background
+	surface.DrawRect(0, 0, w, h)
+
+	self:DrawScrollingText(self.width, h) -- Scrolling Text
+
+	surface.SetDrawColor(color) -- Corners
+	self:DrawCorners(0, 0, w, h)
+end
+
+vgui.Register("ixVisorScroller", PANEL, Panel)