AddCSLuaFile()
DEFINE_BASECLASS( "base_wire_entity" )
ENT.PrintName		= "Wire Keypad"

if CLIENT then
	local X = -50
	local Y = -100
	local W = 100
	local H = 200

	local KeyPos = {
		{X+5   , Y+100  , 25, 25, -2.2, 3.45,  1.3 ,  0  }, -- 1
		{X+37.5, Y+100  , 25, 25, -0.6, 1.85,  1.3 ,  0  }, -- 2
		{X+70  , Y+100  , 25, 25,  1.0, 0.25,  1.3 ,  0  }, -- 3

		{X+5   , Y+132.5, 25, 25, -2.2, 3.45,  2.9 , -1.6}, -- 4
		{X+37.5, Y+132.5, 25, 25, -0.6, 1.85,  2.9 , -1.6}, -- 5
		{X+70  , Y+132.5, 25, 25,  1.0, 0.25,  2.9 , -1.6}, -- 6

		{X+5   , Y+165  , 25, 25, -2.2, 3.45,  4.55, -3.3}, -- 7
		{X+37.5, Y+165  , 25, 25, -0.6, 1.85,  4.55, -3.3}, -- 8
		{X+70  , Y+165  , 25, 25,  1.0, 0.25,  4.55, -3.3}, -- 9

		{X+5   , Y+ 67.5, 40, 25, -2.2, 4.25, -0.3 ,  1.6}, -- abort
		{X+55  , Y+ 67.5, 40, 25,  0.3, 1.65, -0.3 ,  1.6}, -- ok
	}

	local fontdata = {
		font 		= "Trebuchet MS",
		weight 		= 400,
		antialias 	= true,
		additive 	= false
	}
	fontdata.size = 34 surface.CreateFont( "Trebuchet34", fontdata )
	fontdata.size = 24 surface.CreateFont( "Trebuchet24", fontdata )

	local highlight_key, highlight_until
	function ENT:Draw()
		self:DrawModel()

		local Ply = LocalPlayer()
		if (Ply:GetShootPos() - self:GetPos()):Length() > 750 then return end

		local pos = self:GetPos() + (self:GetForward() * 1.1)
		local ang = self:GetAngles()
		local rot = Vector(-90, 90, 0)

		ang:RotateAroundAxis(ang:Right(), 	rot.x)
		ang:RotateAroundAxis(ang:Up(), 		rot.y)
		ang:RotateAroundAxis(ang:Forward(), rot.z)

		cam.Start3D2D(pos, ang, 0.05)
			local trace = Ply:GetEyeTrace()

			local pos = self:WorldToLocal(trace.HitPos)

			surface.SetDrawColor(0, 0, 0, 255)
			surface.DrawRect(X-5, Y-5, W+10, H+10)

			surface.SetDrawColor(50, 75, 50, 255)
			surface.DrawRect(X+5, Y+5, 90, 50)

			for k,v in pairs(KeyPos) do
				local text = k
				local textx = v[1] + 9
				local texty = v[2] + 4
				local x = (pos.y - v[5]) / (v[5] + v[6])
				local y = 1 - (pos.z + v[7]) / (v[7] + v[8])
				local highlight_current_key = highlight_key == k and highlight_until >= CurTime()

				if (k == 10) then
					text = "ABORT"
					textx = v[1] + 2
					texty = v[2] + 4
					surface.SetDrawColor(150, 25, 25, 255)
				elseif (k == 11) then
					text = "OK"
					textx = v[1] + 12
					texty = v[2] + 5
					surface.SetDrawColor(25, 150, 25, 255)
				else
					surface.SetDrawColor(150, 150, 150, 255)
				end

				if highlight_current_key or (trace.Entity == self and x >= 0 and y >= 0 and x <= 1 and y <= 1) then
					if (k <= 9) then
						surface.SetDrawColor(200, 200, 200, 255)
					elseif (k == 10) then
						surface.SetDrawColor(200, 50, 50, 255)
					elseif (k == 11) then
						surface.SetDrawColor(50, 200, 50, 255)
					end

					if Ply:KeyDown(IN_USE) and not Ply.KeyOnce and not highlight_current_key then
						net.Start("wire_keypad")
							net.WriteEntity(self)
							net.WriteUInt(k, 4)
						net.SendToServer()
						Ply.KeyOnce = true
					end
				end
				surface.DrawRect(v[1], v[2], v[3], v[4])
				draw.DrawText(text, "Trebuchet18", textx, texty, Color(0, 0, 0, 255))
			end

			local Display = self:GetNWString("keypad_display", "")
			if Display == "y" then
				draw.DrawText("ACCESS", "Trebuchet24", X+17, Y+7, Color(0, 255, 0, 255))
				draw.DrawText("GRANTED","Trebuchet24", X+7, Y+27, Color(0, 255, 0, 255))
			elseif Display == "n" then
				draw.DrawText("ACCESS", "Trebuchet24", X+17, Y+7, Color(255, 0, 0, 255))
				draw.DrawText("DENIED", "Trebuchet24", X+19, Y+27, Color(255, 0, 0, 255))
			else
				draw.DrawText(Display,  "Trebuchet34", X+17, Y+10, Color(255, 255, 255, 255))
			end
		cam.End3D2D()
	end

	hook.Add("KeyRelease", "Keypad_KeyReleased", function(Ply, key)
		Ply.KeyOnce = false
	end)

	local binds = {
		["+gm_special 1" ] = 1,
		["+gm_special 2" ] = 2,
		["+gm_special 3" ] = 3,
		["+gm_special 4" ] = 4,
		["+gm_special 5" ] = 5,
		["+gm_special 6" ] = 6,
		["+gm_special 7" ] = 7,
		["+gm_special 8" ] = 8,
		["+gm_special 9" ] = 9,
		["+gm_special 11"] = 11,
		["+gm_special 12"] = 10,
	}

	hook.Add("PlayerBindPress", "keypad_PlayerBindPress", function(ply, bind, pressed)
		if not pressed then return end
		local command = binds[bind]
		if not command then return end

		local trace = ply:GetEyeTraceNoCursor()
		local ent = trace.Entity
		if not IsValid(ent) then return end

		if ent:GetClass() ~= "gmod_wire_keypad" then return end

		net.Start("wire_keypad")
			net.WriteEntity(ent)
			net.WriteUInt(command, 4)
		net.SendToServer()

		highlight_key, highlight_until = command, CurTime()+0.5
		return true
	end)
	return
end -- No more client

util.PrecacheSound("buttons/button8.wav")
util.PrecacheSound("buttons/button9.wav")
util.PrecacheSound("buttons/button14.wav")
util.PrecacheSound("buttons/button15.wav")

function ENT:Initialize()
	BaseClass.Initialize(self)

	self.Outputs = WireLib.CreateOutputs(self, {"Valid", "Invalid"})

	self.CurrentNum = 0
end

function ENT:Setup(password, securemode)
	self.Password = password
	self.Secure = securemode
end

util.AddNetworkString("wire_keypad")
net.Receive("wire_keypad", function(netlen, ply)
	local ent = net.ReadEntity()
	if not IsValid(ent) or not ent.Password then return end

	if ent.CurrentNum == -1 then return end -- Display still shows ACCESS from a past success
	if (ply:GetShootPos() - ent:GetPos()):Length() > 50 then return end

	local key = net.ReadUInt(4)

	if key == 10 then -- Reset
		ent:SetNWString("keypad_display", "")
		ent:EmitSound("buttons/button14.wav")
		ent.CurrentNum = 0
	elseif key == 11 or ent.CurrentNum > 999 then -- Accept
		local access = (ent.Password == util.CRC(ent.CurrentNum))
		if access then
			ent:SetNWString("keypad_display", "y")
			Wire_TriggerOutput(ent, "Valid", 1)
			ent:EmitSound("buttons/button9.wav")
		else
			ent:SetNWString("keypad_display", "n")
			Wire_TriggerOutput(ent, "Invalid", 1)
			ent:EmitSound("buttons/button8.wav")
		end

		ent.CurrentNum = -1
		timer.Create("wire_keypad_"..ent:EntIndex().."_"..tostring(access), 2, 1, function()
			if IsValid(ent) then
				ent:SetNWString("keypad_display", "")
				ent.CurrentNum = 0
				if access then
					Wire_TriggerOutput(ent, "Valid", 0)
				else
					Wire_TriggerOutput(ent, "Invalid", 0)
				end
			end
		end)
	else
		ent.CurrentNum = ent.CurrentNum * 10 + key

		if ent.Secure then
			ent:SetNWString("keypad_display", string.rep("*", string.len(ent.CurrentNum)))
		else
			ent:SetNWString("keypad_display", tostring(ent.CurrentNum))
		end
		ent:EmitSound("buttons/button15.wav")
	end
end)

duplicator.RegisterEntityClass("sent_keypad", WireLib.MakeWireEnt, "Data", "Pass", "secure")
duplicator.RegisterEntityClass("gmod_wire_keypad", WireLib.MakeWireEnt, "Data", "Password", "Secure")
scripted_ents.Alias("sent_keypad", "gmod_wire_keypad")