AWarn.DefaultValues = { awarn_kick = 1, awarn_kick_threshold = 3, awarn_ban = 1, awarn_ban_threshold = 5, awarn_ban_time = 30, awarn_decay = 1, awarn_decay_rate = 30, awarn_reasonrequired = 1 }

local loc = AWarn.localizations.localLang


util.AddNetworkString("SendPlayerWarns")
util.AddNetworkString("SendOwnWarns")
util.AddNetworkString("AWarnMenu")
util.AddNetworkString("AWarnClientMenu")
util.AddNetworkString("AWarnOptionsMenu")
util.AddNetworkString("AWarnNotification")
util.AddNetworkString("AWarnNotification2")
util.AddNetworkString("AWarnChatMessage")
util.AddNetworkString("awarn_openoptions")
util.AddNetworkString("awarn_openmenu")
util.AddNetworkString("awarn_fetchwarnings")
util.AddNetworkString("awarn_fetchwarnings_byid")
util.AddNetworkString("awarn_fetchownwarnings")
util.AddNetworkString("awarn_deletesinglewarn")
util.AddNetworkString("awarn_deletewarningsid")
util.AddNetworkString("awarn_deletewarnings")
util.AddNetworkString("awarn_removewarningsid")
util.AddNetworkString("awarn_removewarnings")
util.AddNetworkString("awarn_removewarn")
util.AddNetworkString("awarn_warn")
util.AddNetworkString("awarn_warnid")
util.AddNetworkString("awarn_changeconvarbool")
util.AddNetworkString("awarn_changeconvar")
util.AddNetworkString("Casier:Warn:Sanction")
util.AddNetworkString("Casier:Warn:Msg")


function awarn_loadscript()
	awarn_tbl_exist()
end
hook.Add( "Initialize", "Awarn_Initialize", awarn_loadscript )


function awarn_kick( ply, message )
	if ulx then
		ULib.kick( ply, message )
	else
		ply:Kick( message )
	end
end

function awarn_ban( ply, time, message )
	if ulx then
		ULib.kickban( ply, time, message )
	else
		ply:Ban( time, true, message )
	end
end

function awarn_playerdisconnected( ply )
	timer.Remove( ply:SteamID64() .. "_awarn_decay" )
end
hook.Add( "PlayerDisconnected", "awarn_playerdisconnected", awarn_playerdisconnected )

net.Receive( "awarn_fetchwarnings", function( l, ply )

	if not awarn_checkadmin_view( ply ) then
		AWSendMessage( ply, "Casier: " .. AWarn.localizations[loc].sv1)
		return
	end
	local player_type = net.ReadString()
	local player_target = net.ReadString()
	if player_type == "playername" then
		local target_ply = awarn_getUser( player_target )

		if target_ply then
			awarn_sendwarnings( ply, target_ply )
		else
			AWSendMessage( ply, "Casier: " .. AWarn.localizations[loc].cl37)
		end
	elseif player_type == "playerid" then
		awarn_sendwarnings_id( ply, player_target )
	end

end )

net.Receive( "awarn_fetchownwarnings", function( l, ply )

	awarn_sendownwarnings( ply )

end )

net.Receive( "awarn_changeconvarbool", function( l, ply )

	local allowed = { "awarn_kick", "awarn_ban", "awarn_decay", "awarn_reasonrequired", "awarn_reset_warnings_after_ban", "awarn_logging" }
	local convar = net.ReadString()
	local val = net.ReadString()

	if not awarn_checkadmin_options( ply ) then
		AWSendMessage( ply, "Casier: " .. AWarn.localizations[loc].sv1)
		return
	end

	if not table.HasValue( allowed, convar ) then
		AWSendMessage( ply, "Casier: " .. AWarn.localizations[loc].sv2)
		return
	end

	if val == "true" then
		GetConVar( convar ):SetBool( false )
		return
	end
	GetConVar( convar ):SetBool( true )

end )

net.Receive( "awarn_changeconvar", function( l, ply )

	local allowed = { "awarn_kick_threshold", "awarn_ban_threshold", "awarn_ban_time", "awarn_decay_rate" }
	local convar = net.ReadString()
	local val = net.ReadInt(32)

	if not awarn_checkadmin_options( ply ) then
		AWSendMessage( ply, "Casier: " .. AWarn.localizations[loc].sv1)
		return
	end

	if not table.HasValue( allowed, convar ) then
		AWSendMessage( ply, "Casier: " .. AWarn.localizations[loc].sv2)
		return
	end

	if val < 0 then
		AWSendMessage( ply, "Casier: " .. AWarn.localizations[loc].sv3)
		return
	end

	GetConVar( convar ):SetInt( val )

end )

function AWSendMessage( ply, message )
    if IsValid(ply) then
        ply:PrintMessage( HUD_PRINTTALK, message )
    else
        print( message )
    end
end

function AWarn_ChatWarn( ply, text, public )
    if (string.sub(string.lower(text), 1, string.len( AWarn.Command ) ) == AWarn.Command ) then
		local args = string.Explode( " ", text )
		if #args == 1 then
			ply:ConCommand( "awarn_menu" )
		else
			table.remove( args, 1 )
			awarn_con_warn( ply, _, args )
		end
		return false
    end
end
hook.Add( "PlayerSay", "AWarn_ChatWarn", AWarn_ChatWarn )

function awarn_con_warn( ply, _, args )

	if not ( #args >= 1 ) then return end
	local tar = awarn_getUser( args[1] )
	local reason = table.concat( args, " ", 2 )

	if (string.sub(string.lower(args[1]), 1, 5) == "steam") then
		if string.len(args[1]) == 7 then
			AWSendMessage( ply, "Casier: " .. AWarn.localizations[loc].cl36)
			return
		end
		tid = AWarn_ConvertSteamID( args[1] )
		awarn_warnplayerid( ply, tid, reason )
		return
	end

	if not (IsValid(tar)) then return end
	awarn_warnplayer( ply, tar, reason )

end
concommand.Add( "awarn_warn", awarn_con_warn )


net.Receive( "awarn_warn", function( l, ply )

	awarn_warnplayer( ply, net.ReadEntity(), net.ReadString() )

end )

net.Receive( "awarn_warnid", function( l, ply )

	awarn_warnplayerid( ply, net.ReadString(), net.ReadString() )

end )


function awarn_warnplayer( ply, tar, reason )

	if not awarn_checkadmin_warn( ply ) then
		AWSendMessage( ply, "Casier: " .. AWarn.localizations[loc].sv1)
		return
	end

	if table.HasValue( AWarn.userBlacklist, tar:SteamID() ) then
		AWSendMessage( ply, "Casier: " .. AWarn.localizations[loc].sv9)
		return
	end

	if table.HasValue( AWarn.groupBlacklist, tar:GetUserGroup() ) then
		AWSendMessage( ply, "Casier: " .. AWarn.localizations[loc].sv10)
		return
	end

	if awarn_checkadmin_warn( tar ) and not GetConVar("awarn_allow_warnadmin"):GetBool() then
		AWSendMessage( ply, "Casier: " .. AWarn.localizations[loc].sv4)
		return
	end

	target_ply = tar
	if reason == nil then reason = "" end

	if not IsValid(target_ply) then return end
	if not target_ply:IsPlayer() then return end

	--if tobool(GetGlobalInt( "awarn_reasonrequired", 1 )) then
	if GetConVar("awarn_reasonrequired"):GetBool() then
		if not reason then
			AWSendMessage( ply, "Casier: " .. AWarn.localizations[loc].sv5)
			return
		end
		if reason == "" then
			AWSendMessage( ply, "Casier: " .. AWarn.localizations[loc].sv5)
			return
		end
	end

	if not reason then reason = "NONE GIVEN" end
	if reason == "" then reason = "NONE GIVEN" end

	if target_ply then
		for k, v in pairs(player.GetAll()) do
			if v ~= target_ply then
				net.Start("AWarnNotification")
					net.WriteEntity( ply )
					net.WriteEntity( target_ply )
					net.WriteString( reason )
				net.Send( v )
			end
		end


		if IsValid(ply) then
            awarn_addwarning( target_ply:SteamID64(), reason, ply:Nick() )
            ServerLog( "[Casier] " .. ply:Nick() .. " Ã  averti(e) " .. target_ply:Nick() .. " pour la raison: " .. reason.. "\n" )
			if GetConVar("awarn_logging"):GetBool() then
				awarn_log( ply:Nick() .. " Ã  averti(e) " .. target_ply:Nick() .. " pour la raison: " .. reason )
			end
        else
            awarn_addwarning( target_ply:SteamID64(), reason, "[CONSOLE]" )
            ServerLog( "[Casier] [CONSOLE] Ã  averti(e) " .. target_ply:Nick() .. " pour la raison: " .. reason.. "\n" )
			if GetConVar("awarn_logging"):GetBool() then
				awarn_log( "[CONSOLE] Ã  averti(e) " .. target_ply:Nick() .. " pour la raison: " .. reason )
			end
        end
		awarn_incwarnings( target_ply )

		local t1 = {}
        if IsValid( ply ) then
            t1 = { Color(60,60,60), "[", Color(30,90,150), "Casier", Color(60,60,60), "] ", Color(255,255,255), AWarn.localizations[loc].sv6 .. " ", ply, ": ", Color(150,40,40), reason }
        else
            t1 = { Color(60,60,60), "[", Color(30,90,150), "Casier", Color(60,60,60), "] ", Color(255,255,255), AWarn.localizations[loc].sv6 .. " ", Color(100,100,100), "[CONSOLE]", Color(255,255,255), ": ", Color(150,40,40), reason }
        end
		net.Start("AWarnChatMessage") net.WriteTable(t1) net.Send( target_ply )

		local t5 = { Color(60,60,60), "[", Color(30,90,150), "Casier", Color(60,60,60), "] ", Color(255,255,255), AWarn.localizations[loc].sv7 }
		net.Start("AWarnChatMessage") net.WriteTable(t5) net.Send( target_ply )

		if IsValid( ply ) then
            awarn_sendwarnings( ply, target_ply )
        end

		local AWarnPlayerWarned = hook.Call( "AWarnPlayerWarned", GAMEMODE, target_ply, ply, reason )

	else
		AWSendMessage( ply, "Casier: " .. AWarn.localizations[loc].cl37)
	end

end

function awarn_warnplayerid( ply, tarid, reason )

	if not awarn_checkadmin_warn( ply ) then
		AWSendMessage( ply, "Casier: " .. AWarn.localizations[loc].sv1)
		return
	end

	if table.HasValue( AWarn.userBlacklist, util.SteamIDFrom64( tarid ) ) then
		AWSendMessage( ply, "Casier: " .. AWarn.localizations[loc].sv9)
		return
	end

	if GetConVar("awarn_reasonrequired"):GetBool() then
		if not reason then
			AWSendMessage( ply, "Casier: " .. AWarn.localizations[loc].sv5)
			return
		end
		if reason == "" then
			AWSendMessage( ply, "Casier: " .. AWarn.localizations[loc].sv5)
			return
		end
	end

	if not reason then reason = "NONE GIVEN" end
	if reason == "" then reason = "NONE GIVEN" end

	local tar_name = tarid
	local tar_ply = nil
	for k, v in pairs( player.GetAll() ) do
		if v:SteamID64() == tostring(tarid) then
			tar_name = v:Nick()
			tar_ply = v
			awarn_warnplayer( ply, tar_ply, reason )
			return
		end
	end

	if not tar_ply then tar_ply = game.GetWorld() end
	for k, v in pairs(player.GetAll()) do
		if v ~= tar_ply then
			net.Start("AWarnNotification")
				net.WriteEntity( ply )
				net.WriteEntity( tar_ply )
				net.WriteString( reason )
				net.WriteString( tostring(tarid) )
			net.Send( v )
		end
	end


	if IsValid(ply) then
		awarn_addwarning( tarid, reason, ply:Nick() )
		ServerLog( "[Casier] " .. ply:Nick() .. " warned " .. tostring(tar_name) .. " for reason: " .. reason.. "\n" )
		if GetConVar("awarn_logging"):GetBool() then
			awarn_log( ply:Nick() .. " warned " .. tostring(tar_name) .. " for reason: " .. reason )
		end
	else
		awarn_addwarning( tarid, reason, "[CONSOLE]" )
		ServerLog( "[Casier] [CONSOLE] warned " .. tostring(tar_name) .. " for reason: " .. reason.. "\n" )
		if GetConVar("awarn_logging"):GetBool() then
			awarn_log( "[CONSOLE] warned " .. tostring(tar_name) .. " for reason: " .. reason )
		end
	end
	awarn_incwarningsid( tarid )

	local AWarnPlayerIDWarned = hook.Call( "AWarnPlayerIDWarned", GAMEMODE, tarid, ply, reason )
end

function awarn_remwarn( ply, tar )

	if not awarn_checkadmin_remove( ply ) then
		AWSendMessage( ply, "Casier: " .. AWarn.localizations[loc].sv1)
		return
	end

	local target_ply = awarn_getUser( tar )

	if target_ply then
		awarn_decwarnings( target_ply, ply )
        if IsValid( ply ) then
            awarn_sendwarnings( ply, target_ply )
        end
	else
		AWSendMessage( ply, "Casier: Player not found!")
	end

end

net.Receive( "awarn_removewarnid", function( l, ply )

	if not awarn_checkadmin_remove( ply ) then
		AWSendMessage( ply, "Casier: " .. AWarn.localizations[loc].sv1)
		return
	end

	local uid = net.ReadString()
	awarn_decwarningsid( uid, ply )

end )

net.Receive( "awarn_removewarn", function( l, ply )
    if not IsValid( ply ) then return end
	local p_id = net.ReadString()

    if (string.sub(string.lower( p_id ), 1, 5) == "steam") then
		if string.len(args[1]) == 7 then
		AWSendMessage( ply, "Casier: " .. AWarn.localizations[loc].cl36)
			return
		end
        id = AWarn_ConvertSteamID( p_id )
		awarn_decwarningsid( id, ply )
        return
    end
	awarn_remwarn( ply, p_id )

end )

net.Receive( "awarn_deletewarnings", function( l, ply )

	if not awarn_checkadmin_delete( ply ) then
		AWSendMessage( ply, "Casier: " .. AWarn.localizations[loc].sv1)
		return
	end

	local target_ply = awarn_getUser( net.ReadString() )

	if target_ply then
		awarn_delwarnings( target_ply, ply )
	else
		AWSendMessage( ply, "Casier: " .. AWarn.localizations[loc].cl37)
	end

end )

concommand.Add( "awarn_deletewarnings", function( ply, _, args )
	if IsValid(ply) then return end
	if #args ~= 1 then return end
	local target_ply = awarn_getUser( args[1] )

	if target_ply then
		awarn_delwarnings( target_ply, ply )
	else
		AWSendMessage( ply, "Casier: " .. AWarn.localizations[loc].cl37)
	end
end )

net.Receive( "awarn_deletewarningsid", function( l, ply )
	if not awarn_checkadmin_delete( ply ) then
		AWSendMessage( ply, "Casier: " .. AWarn.localizations[loc].sv1)
		return
	end

	local uid = net.ReadString()

	awarn_delwarningsid( uid, ply )
end )

concommand.Add( "awarn_deletewarningsid", function( ply, _, args )
	if IsValid(ply) then return end
	if #args ~= 1 then return end

	local uid = args[1]
	awarn_delwarningsid( uid, ply )
end )

net.Receive( "awarn_openmenu", function( l, ply )

    if not IsValid( ply ) then
		AWSendMessage( ply, "Casier: " .. AWarn.localizations[loc].sv8)
        return
    end

	if not awarn_checkadmin_view( ply ) then
		net.Start("AWarnClientMenu")
		net.Send( ply )
		return
	end


	net.Start("AWarnMenu")
	net.Send( ply )

end )

net.Receive( "awarn_openoptions", function( l, ply )

    if not IsValid( ply ) then
		AWSendMessage( ply, "Casier: " .. AWarn.localizations[loc].sv8)
        return
    end

	if not awarn_checkadmin_options( ply ) then
		AWSendMessage( ply, "Casier: " .. AWarn.localizations[loc].sv1)
		return
	end


	net.Start("AWarnOptionsMenu")
	net.Send( ply )

end )

net.Receive( "awarn_deletesinglewarn", function( l, ply )

	if not awarn_checkadmin_delete( ply ) then
		AWSendMessage( ply, "AWarn: " .. AWarn.localizations[loc].sv1)
		return
	end

	local warningid = net.ReadInt(16)

	awarn_delsinglewarning( ply, warningid )

end )

AWarn.PunishmentSequence = AWarn.PunishmentSequence or {}

function AWarn.RegisterPunishment( TBL )
	AWarn.PunishmentSequence[ TBL.NumberOfWarnings ] = TBL
end

local files, dirs = file.Find("awarn/modules/*.lua", "LUA")
for k, v in pairs( files ) do
	ServerLog("AWarn: Loading module (" .. v .. ")\n")
	include( "awarn/modules/" .. v )
end

local function GetPlayerByName( strName )
	local strEnt = Entity( 0 )

	for k,v in pairs( player.GetAll() ) do
		if v:Nick() == strName then
			strEnt = v
			break
		end
	end

	return strEnt
end

net.Receive( "Casier:Warn:Sanction", function( _, pPlayer )
	if !awarn_checkadmin_view( ply ) then return end

	local strName = net.ReadString()
	local strKey = net.ReadString()
	local strRaison = net.ReadString() or ""

	if !AWarn.Raisons[ strKey ] then return end

	local pVictim = GetPlayerByName( strName )

	if !IsValid( pVictim ) then return end

	local tblInfos = AWarn.Raisons[ strKey ]

	if tblInfos['sanction'] == "ban" then
		if ULib then
			ULib.ban( pVictim, tonumber( tblInfos['temps'] ), tblInfos['message'], pPlayer )
		else
			pVictim:Ban( tonumber( tblInfos['temps'] ), true )
		end
		awarn_warnplayer( pPlayer, pVictim, tblInfos['message'] )
	end

	if tblInfos['sanction'] == "kick" then
		ULib.kick( pVictim, tblInfos['message'], pPlayer )
		awarn_warnplayer( pPlayer, pVictim, tblInfos['message'] )
	end

	if tblInfos['sanction'] == "avert" then
		awarn_warnplayer( pPlayer, pVictim, strRaison )
	end

	for k,v in pairs( player.GetAll() ) do
		if !awarn_checkadmin_view( v ) then continue end

		net.Start( "Casier:Warn:Msg" )
		net.WriteEntity( pVictim )
		net.Send( v )
	end
end)

hook.Add( "PlayerNoClip", "Casier:Warn:NoClip", function( pPlayer, boolState )
	if awarn_checkadmin_view( pPlayer ) && !pPlayer.Casier_AdminMode then
		return false
	end
end)

hook.Add( "PlayerSay", "Casier:Warn:Say", function( pPlayer, text )
	if text == "!admin" then
		if awarn_checkadmin_view( pPlayer ) then
			if pPlayer.Casier_AdminMode then
				RunConsoleCommand( "ulx", "ungod", "$" .. pPlayer:SteamID() )
				if pPlayer:GetMoveType() != MOVETYPE_WALK then
					RunConsoleCommand( "ulx", "noclip", "$" .. pPlayer:SteamID() )
				end
				RunConsoleCommand( "FAdmin", "uncloak", "$" .. pPlayer:SteamID() )

				pPlayer.Casier_AdminMode = false
			else
				RunConsoleCommand( "ulx", "god", "$" .. pPlayer:SteamID() )
				RunConsoleCommand( "ulx", "noclip", "$" .. pPlayer:SteamID() )
				RunConsoleCommand( "FAdmin", "cloak", "$" .. pPlayer:SteamID() )

				pPlayer.Casier_AdminMode = true
			end

			return ""
		end
	end
end)