AddCSLuaFile()

if SERVER then
	AddCSLuaFile("cl_init.lua")

	util.AddNetworkString("DarkRP_keypadData")
end

SWEP.Base = "weapon_base"

SWEP.PrintName = "Admin Keypad Checker"
SWEP.Author = "DarkRP Developers"
SWEP.Instructions = "Left click on a keypad or fading door to check it\nRight click to clear"
SWEP.Slot = 5
SWEP.SlotPos = 1
SWEP.DrawAmmo = false
SWEP.ViewModelFlip = false
SWEP.Primary.ClipSize = 0
SWEP.Primary.Ammo = ""
SWEP.Secondary.Ammo = ""

SWEP.Spawnable = true
SWEP.AdminOnly = true
SWEP.Category = "DarkRP (Utility)"

SWEP.HoldType = "normal"
SWEP.ViewModel = Model("models/weapons/c_pistol.mdl")
SWEP.WorldModel = "models/weapons/w_toolgun.mdl"
SWEP.IconLetter = ""

SWEP.ViewModel = "models/weapons/c_pistol.mdl"
SWEP.UseHands = true

/*
	Gets which entities are controlled by which keyboard keys
*/
local function getTargets(keypad, keyPass, keyDenied, delayPass, delayDenied)
	local targets = {}
	local Owner = keypad:CPPIGetOwner()

	for k,v in pairs(numpad.OnDownItems or {}) do
		if v.key == keyPass and v.ply == Owner then
			table.insert(targets, {type = L.keypad_checker_entering_right_pass, name = v.name, ent = v.ent, original = keypad})
		end
		if v.key == keyDenied and v.ply == Owner then
			table.insert(targets, {type = L.keypad_checker_entering_wrong_pass, name = v.name, ent = v.ent, original = keypad})
		end
	end

	for k,v in pairs(numpad.OnUpItems or {}) do
		if v.key == keyPass and v.ply == Owner then
			table.insert(targets, {type = L.keypad_checker_after_right_pass, name = v.name, delay = math.Round(delayPass, 2), ent = v.ent, original = keypad})
		end
		if v.key == keyDenied and v.ply == Owner then
			table.insert(targets, {type = L.keypad_checker_after_wrong_pass, name = v.name, delay = math.Round(delayDenied, 2), ent = v.ent, original = keypad})
		end
	end

	return targets
end

/*---------------------------------------------------------------------------
Get the entities that are affected by the keypad
---------------------------------------------------------------------------*/
local function get_sent_keypad_Info(keypad)
	local keyPass = keypad:GetNetVar("keypad_keygroup1", 0)
	local keyDenied = keypad:GetNetVar("keypad_keygroup2", 0)
	local delayPass = keypad:GetNetVar("keypad_length1", 0)
	local delayDenied = keypad:GetNetVar("keypad_length2", 0)

	return getTargets(keypad, keyPass, keyDenied, delayPass, delayDenied)
end

/*---------------------------------------------------------------------------
Overload for a different keypad addon
---------------------------------------------------------------------------*/
local function get_keypad_Info(keypad)
	local keyPass = tonumber(keypad.KeypadData.KeyGranted) or 0
	local keyDenied = tonumber(keypad.KeypadData.KeyDenied) or 0
	local delayPass = tonumber(keypad.KeypadData.LengthGranted) or 0
	local delayDenied = tonumber(keypad.KeypadData.LengthDenied) or 0

	return getTargets(keypad, keyPass, keyDenied, delayPass, delayDenied)
end


/*---------------------------------------------------------------------------
Get the keypads that trigger this entity
---------------------------------------------------------------------------*/
local function getEntityKeypad(ent)
	local targets = {}
	local doorKeys = {} -- The numpad keys that activate this entity
	local entOwner = ent:CPPIGetOwner()

	for k,v in pairs(numpad.OnDownItems or {}) do
		if v.ent == ent then
			table.insert(doorKeys, v.key)
		end
	end

	for k,v in pairs(numpad.OnUpItems or {}) do
		if v.ent == ent then
			table.insert(doorKeys, v.key)
		end
	end

	for k,v in pairs(ents.FindByClass("sent_keypad")) do
		local vOwner = v:CPPIGetOwner()

		if vOwner == entOwner and table.HasValue(doorKeys, v:GetNetVar("keypad_keygroup1", 0)) then
			table.insert(targets, {type = L.keypad_checker_right_pass_entered, ent = v, original = ent})
		end
		if vOwner == entOwner and  table.HasValue(doorKeys, v:GetNetVar("keypad_keygroup2", 0)) then
			table.insert(targets, {type = L.keypad_checker_wrong_pass_entered, ent = v, original = ent})
		end
	end

	for k,v in pairs(ents.FindByClass("keypad")) do
		local vOwner = v:CPPIGetOwner()

		if vOwner == entOwner and table.HasValue(doorKeys, tonumber(v.KeypadData.KeyGranted) or 0) then
			table.insert(targets, {type = L.keypad_checker_right_pass_entered, ent = v, original = ent})
		end
		if vOwner == entOwner and  table.HasValue(doorKeys, tonumber(v.KeypadData.KeyDenied) or 0) then
			table.insert(targets, {type = L.keypad_checker_wrong_pass_entered, ent = v, original = ent})
		end
	end

	return targets
end

/*---------------------------------------------------------------------------
Send the info to the client
---------------------------------------------------------------------------*/
function SWEP:PrimaryAttack()
	self:SetNextPrimaryFire(CurTime() + 0.3)
	if not SERVER then return end

	local trace = self:GetOwner():GetEyeTrace()
	if not IsValid(trace.Entity) then return end
	local ent, class = trace.Entity, string.lower(trace.Entity:GetClass() or "")
	local data

	if class == "sent_keypad" then
		data = get_sent_keypad_Info(ent)
		self:GetOwner():Notify('ooc', L.keypad_checker_controls_x_entities:format(#data / 2))
	elseif class == "keypad" then
		data = get_keypad_Info(ent)
		self:GetOwner():Notify('ooc', L.keypad_checker_controls_x_entities:format(#data / 2))
	else
		data = getEntityKeypad(ent)
		self:GetOwner():Notify('ooc', L.keypad_checker_controlled_by_x_keypads:format(#data))
	end

	net.Start("DarkRP_keypadData")
		net.WriteTable(data)
	net.Send(self:GetOwner())
end

function SWEP:SecondaryAttack()
end

if not SERVER then return end

/*---------------------------------------------------------------------------
Registering numpad data
---------------------------------------------------------------------------*/
local oldNumpadUp = numpad.OnUp
local oldNumpadDown = numpad.OnDown

function numpad.OnUp(ply, key, name, ent, ...)
	numpad.OnUpItems = numpad.OnUpItems or {}
	table.insert(numpad.OnUpItems, {ply = ply, key = key, name = name, ent = ent, arg = {...}})

	return oldNumpadUp(ply, key, name, ent, ...)
end

function numpad.OnDown(ply, key, name, ent, ...)
	numpad.OnDownItems = numpad.OnDownItems or {}
	table.insert(numpad.OnDownItems, {ply = ply, key = key, name = name, ent = ent, arg = {...}})

	return oldNumpadDown(ply, key, name, ent, ...)
end