--[[
| 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 CAMI = CAMI
local ix = ix
local IsValid = IsValid
local net = net
local tonumber = tonumber
local Color = Color
local chat = chat
local string = string

local PLUGIN = PLUGIN

PLUGIN.name = "CID"
PLUGIN.author = "Gr4Ss"
PLUGIN.description = "Adds identification cards and credits as digital currency."

CAMI.RegisterPrivilege({
	Name = "Helix - Set Credits",
	MinAccess = "superadmin"
})

ix.config.Add("creditsNoConnection", false, "Disable the use of credits in some situations, simulating the connection to the Combine network being down.", nil, {
	category = "Miscellaneous"
})

ix.config.Add("requestDeviceAction", "just used request device.", "The action that should be sent after someone uses request device.", nil, {
	category = "Miscellaneous"
})

ix.char.RegisterVar("cid", {
	field = "cid",
	fieldType = ix.type.string,
	default = nil,
	bNoDisplay = true
})

ix.char.RegisterVar("idCardBackup", {
	field = "idCardBackup",
	default = {},
	bNoDisplay = true,
	bNoNetworking = true
})

ix.char.RegisterVar("idCard", {
	field = "idcard",
	fieldType = ix.type.number,
	default = nil,
	bNoDisplay = true,
	OnSet = function(self, value)
		local client = self:GetPlayer()

		if (IsValid(client)) then
			self.vars.idCard = value

			net.Start("ixCharacterVarChanged")
				net.WriteUInt(self:GetID(), 32)
				net.WriteString("idCard")
				net.WriteType(self.vars.idCard)
			net.Broadcast()
		end
	end,
	OnGet = function(self, default)
		local idCard = self.vars.idCard

		return tonumber(idCard) or 0
	end,
	OnAdjust = function(self, client, data, value, newData)
		newData.idCard = value
	end
})

ix.util.Include("cl_plugin.lua")
ix.util.Include("sh_commands.lua")
ix.util.Include("sv_hooks.lua")
ix.util.Include("sv_net.lua")
ix.util.Include("sv_plugin.lua")

ix.lang.AddTable("english", {
	cmdCharSetCredits = "Bir karakterin Kredilerini ayarlayın.",
	cmdCharGiveCredits = "Bir karaktere Kredi verin.",
	cmdRequest = "Sivil Koruma için yardım talebinde bulunun. Envanterinizden kimlik kartına bağlı bir talep cihazı kullanacak.",

	setCredits = "%s'nin kredilerini %s olarak ayarladınız.",
	giveCredits = "%s'ye %s kredi verdiniz.",

	scanning = "Tarama...",
	idNotFound = "HATA: Biyolojik imza bulunamadı.",
	idNoBlank = "HATA: Boş kart takılmadı.",
	idCardAdded = "BAŞARILI: Kimlik Kartı oluşturuldu.",
	idCardRecreated = "BAŞARILI: Kimlik Kartı yeniden oluşturuldu.",
	idNotAllowed = "Cihazı kullanmaya çalıştığınızda yanıt vermiyor.",

	posBound = "BAŞARILI: POS terminali belirtilen Kimlik Kartına bağlandı.",
	posBoundInactiveCard = "HATA: Kimlik Kartı artık aktif değil. Lütfen etkin olmayan kartı hemen imha edin.",

	posRequestSent = "BİLGİ: Kredi işlemi gerçekleştiriliyor...",
	posRequestExecuting = "BİLGİ: İşlem gerçekleştiriliyor... lütfen bekleyin...",
	posTransactionSuccess = "BAŞARILI: İşlem tamamlandı.",
	posError = "HATA: Beklenmeyen bir hata oluştu. İşlem sonlandırıldı.",
	posBoundCardNotActive = "HATA: Bağlı Kimlik Kartı artık aktif değil. Lütfen etkin olmayan kartı hemen imha edin.",
	posCardNotActive = "HATA: Kullanılan Kimlik Kartı artık aktif değil. Lütfen etkin olmayan kartı hemen imha edin.",
	posTransOngoing = "%s yeni bir işlem başlatmaya çalıştı, ancak siz hala başka bir işlemi tamamlıyorsunuz.",
	posTransExpired = "İşleminiz sona erdi.",
	posTransactionRefused = "POS işleminiz reddedildi veya zaman aşımına uğradı.",

	numNotValid = "Geçersiz kredi miktarı belirttiniz!",
	reasonNotValid = "İşlem için geçersiz bir sebep belirttiniz!",
	transactionNoMoney = "HATA: Yetersiz kredi.",
	transactionOwnChars = "HATA: Kendi karakterleriniz arasında kredi transferi yapamazsınız!",
	transactionSelf = "HATA: Kendinize kredi transferi yapamazsınız!",

	rdBound = "BAŞARILI: Talep Cihazı belirtilen Kimlik Kartına başarıyla bağlandı.",
	rdError = "HATA: Beklenmeyen bir hata oluştu. Talebinizi manuel olarak iletmek için bir Sivil Koruma görevlisi bulun.",
	rdMoreThanOne = "Birden fazla bağlı talep cihazınız var, envanterinizden hangisini kullanmak istediğinizi seçin.",
	rdNoRD = "Bir talep cihazınız yok, ya da bir kimlik kartına bağlı değil!",
	rdFreqLimit = "Talepler arasında en az 10 saniye bekleyin.",

	cwuBound = "BAŞARILI: CWU Kartı belirtilen Kimlik Kartına başarıyla bağlandı.",
	dobBound = "BAŞARILI: DOB Kartı belirtilen Kimlik Kartına başarıyla bağlandı.",
	cmruBound = "BAŞARILI: CMRU Kartı belirtilen Kimlik Kartına başarıyla bağlandı.",
	conBound = "BAŞARILI: CCR Kartı belirtilen Kimlik Kartına başarıyla bağlandı.",

	targetTransactionInProgress = "Bu kişinin zaten devam eden bir işlemi var!",

	idCardIssued = "%s için yeni kimlik kartı %s tarafından verildi",

	errorNoConnection = "HATA: BAĞLANTI YOK"
})

ix.lang.AddTable("spanish", {
	posBoundCardNotActive = "ERROR: La tarjeta ID vinculada ya no está activa. Por favor, deshágase de la tarjeta inactiva inmediatamente.",
	posTransExpired = "Tu transacción ha caducado.",
	posTransactionSuccess = "ÉXITO: Transacción completada.",
	posTransOngoing = "%s ha intentado iniciar una nueva transacción, pero todavía estás terminando otra transacción.",
	posRequestExecuting = "INFO: Ejecutando la transacción... por favor espere...",
	numNotValid = "¡Has especificado una cantidad de créditos inválida!",
	posError = "ERROR: Se ha producido un error inesperado. La transacción ha finalizado.",
	posCardNotActive = "ERROR: La tarjeta ID vinculada ya no está activa. Por favor, deshágase de la tarjeta inactiva inmediatamente.",
	reasonNotValid = "¡Has especificado un motivo no válido para la transacción!",
	transactionOwnChars = "ERROR: ¡No puedes transferir créditos entre tus propios personajes!",
	transactionNoMoney = "ERROR: Créditos insuficientes.",
	targetTransactionInProgress = "¡Esta persona ya tiene una transacción en curso!",
	transactionSelf = "ERROR: ¡No puedes transferirte créditos a ti mismo!",
	rdError = "ERROR: Se ha producido un error inesperado. Por favor, busque a un agente de Protección Civil para presentar tu solicitud manualmente.",
	giveCredits = "Has dado %s %s créditos.",
	scanning = "Escaneando...",
	cmdCharSetCredits = "Establecer los créditos de un personaje.",
	cmdCharGiveCredits = "Dar créditos a un personaje.",
	posTransactionRefused = "Su transacción en del datafono ha sido rechazada o ha expirado.",
	idNoBlank = "ERROR: No se ha insertado ninguna tarjeta en blanco.",
	posBoundInactiveCard = "ERROR: La tarjeta de identificación ya no está activa. Por favor, deshágase de la tarjeta inactiva inmediatamente.",
	rdNoRD = "¡No tiene un dispositivo de socorro, o no está vinculado a una tarjeta de identificación!",
	idCardAdded = "ÉXITO: Tarjeta de identificación creada.",
	posRequestSent = "INFO: Realizando una transacción de crédito...",
	idCardRecreated = "ÉXITO: Tarjeta de identificación recreada.",
	posBound = "ÉXITO: El datafono está vinculado a la tarjeta de identificación especificada.",
	idNotAllowed = "El dispositivo no responde cuando intentas utilizarlo.",
	idNotFound = "ERROR: Señal Biológica no encontrada.",
	rdMoreThanOne = "Tienes más de un dispositivo de socorro vinculado, por favor selecciona en tu inventario cuál quieres usar.",
	rdFreqLimit = "Por favor, espere al menos 10 segundos entre peticiones.",
	cmdRequest = "Realiza una solicitud de ayuda a Protección Civil. Utilizará un dispositivo de socorro vinculado a una tarjeta de identificación de tu inventario.",
	rdBound = "ÉXITO: El dispositivo de socorro se ha vinculado con éxito a la tarjeta de identificación especificada.",
	setCredits = "Los créditos de %s han sido establecidos a %s.",
	cwuBound = "ÉXITO: Tarjeta UTC vinculada con éxito a la tarjeta ID especificada.",
	idCardIssued = "Nuevo documento de identidad emitido para %s por %s"
})

do
	local CLASS = {}
	CLASS.color = Color(175, 125, 100)
	CLASS.format = "%s, #%s requests %s\"%s\""
	CLASS.formatCP = "%s requests %s\"%s\""

	function CLASS:CanHear(speaker, listener, data)
		if data.otherListeners and data.otherListeners[listener] then return true end
		return listener == speaker or listener:HasActiveCombineSuit() or ix.faction.Get(listener:Team()).canHearRequests == true
	end

	local requestTypes = {
		[REQUEST_CP] = "CP",
		[REQUEST_MED] = "CMRU",
		[REQUEST_WORK] = "CWU"
	}

	function CLASS:OnChatAdd(speaker, text, aonymous, data)
		local requestType = ""

		if (data.requestType) then
			requestType = requestTypes[data.requestType].." "
		end

		if (speaker:IsCombine()) then
			chat.AddText(self.color, string.format(self.formatCP, "Protection Unit", requestType, text))
		else
			chat.AddText(self.color, string.format(self.format, data.name, data.cid, requestType, text))
		end
	end

	ix.chat.Register("request", CLASS)
end