-- LTserver ply:SteamID()e

if not SERVER then return end

function Last_Joined_Table_Check()
	if !(sql.TableExists("lastjoin")) then
		MsgN("LastJoined Table Does not Exist, CREATING NOW!")
		LTcreateTable()
	end
end

function LTcreateTable()
	local result = sql.Query("CREATE TABLE lastjoin (player INTEGER UNSIGNED NOT NULL, lastvisit VARCHAR(100) NOT NULL, lastvisittime VARCHAR(100) NOT NULL, firstjoin VARCHAR(100) NOT NULL, timesjoined VARCHAR(100) NOT NULL, steamid VARCHAR(45) NOT NULL, playername VARCHAR(100) NOT NULL, team VARCHAR(45),PRIMARY KEY (player))")
	//MsgN("14: ".. sql.LastError(result))
end
---------------------------------------

function LTonJoin( ply )
	function LTupdateLastVisit(ply)
	timer.Simple(3, function()
	if !ply:IsValid() then return end
        local CheckError = sql.Query("UPDATE lastjoin SET lastvisit = '"..os.date("%B %d 20%y").."', lastvisittime = '"..os.date("%I:%M:%S %p").."', timesjoined = '"..tonumber(ply:GetPData("LastJoinedNum") ).."', playername = "..sql.SQLStr(ply:Nick())..", team = "..sql.SQLStr(team.GetName( ply:Team() )).." WHERE player = "..ply:UniqueID().."")
		//MsgN("23: ".. sql.LastError(CheckError))
	end)
    end
	
	function LTupdateLastVisit2(ply)
		timer.Simple(1, function()
		if !ply:IsValid() then return end
			
			local LTrow22 = sql.Query("SELECT * FROM lastjoin WHERE player = "..ply:UniqueID().." LIMIT 1;")
			//MsgN("32: ".. sql.LastError(LTrow22))
				if not (LTrow22 == nil) then
					for k, v in pairs(LTrow22) do
						PlayerFirstJoinedUpdateAllFirst = tostring(v.lastvisit)
						PlayerFirstJoinedUpdateAllFirst2 = tostring(v.lastvisittime)
					end
				end
			
			
			timer.Simple(1, function()
				if PlayerFirstJoinedUpdateAllFirst == nil || PlayerFirstJoinedUpdateAllFirst == NULL || PlayerFirstJoinedUpdateAllFirst == "" then
					PlayerFirstJoinedUpdateAllFirst = tostring(os.date("%B %d 20%y"))
				elseif PlayerFirstJoinedUpdateAllFirst2 == nil || PlayerFirstJoinedUpdateAllFirst2 == NULL || PlayerFirstJoinedUpdateAllFirst2 == "" then
					PlayerFirstJoinedUpdateAllFirst2 = tostring(os.date("%I:%M:%S %p"))
				end
				local LTQc = sql.Query("UPDATE lastjoin SET firstjoin = '"..PlayerFirstJoinedUpdateAllFirst.." | "..PlayerFirstJoinedUpdateAllFirst2.."' WHERE player = "..ply:UniqueID().."")
				//MsgN("48: ".. sql.LastError(LTQc))
			end)
		end)
    end
     
    function LTaddPly(ply)
	timer.Simple(1, function()
	if !ply:IsValid() then return end
        local LTQc = sql.Query("INSERT into lastjoin ( player, lastvisit, lastvisittime, firstjoin, timesjoined, steamid, playername, team ) VALUES ( '"..ply:UniqueID().."', '"..os.date("%B %d 20%y").."', '"..os.date("%I:%M:%S %p").."', '"..os.date("%B %d 20%y").." | "..os.date("%I:%M:%S %p").."','"..tonumber(1).."', '" .. ply:SteamID() .. "', "..sql.SQLStr(ply:Nick())..", "..sql.SQLStr(team.GetName( ply:Team() ))..")")
		//MsgN("57: ".. sql.LastError(LTQc))
	end)
    end
     

        local LTrow = sql.Query("SELECT * FROM lastjoin WHERE player = '"..ply:UniqueID().."'")
		//MsgN("63: ".. sql.LastError(LTrow))
            if (LTrow) then
				timer.Simple(1, function()
				if !ply:IsValid() then return end
					if tostring(LTrow[1]['lastvisit']) == tostring(os.date("%B %d 20%y")) then
						MsgC(Color(255,255,255),"Player ",ply:Nick()," was last(",Color(0,255,0),tonumber(LTrow[1]['timesjoined']),Color(255,255,255),") on the server: ",Color(255,0,0),"Today at: ",tostring(LTrow[1]['lastvisittime']),Color(255,255,255),".\n" )
						umsg.Start("LastJoined")
						umsg.String(ply:Nick())
						umsg.String("Today at " ..tostring(LTrow[1]['lastvisittime']))
						umsg.Short(ply:Team())
						umsg.Short(tonumber(LTrow[1]['timesjoined']))
						umsg.End()
						ply:SetPData("LastVisitChecker", (tostring(LTrow[1]['lastvisit'])))
						ply:SetPData("LastVisitChecker2", (tostring(LTrow[1]['lastvisittime'])))
						ply:SetPData("LastJoinedNum", (tonumber(LTrow[1]['timesjoined'])+1))
						if tostring(LTrow[1]['firstjoin']) == nil || tostring(LTrow[1]['firstjoin']) == NULL || tostring(LTrow[1]['firstjoin']) == "" || tostring(LTrow[1]['firstjoin']) == " " then
							MsgN("test")
							LTupdateLastVisit2(ply)
						end
						LTupdateLastVisit(ply)
					else
						MsgC(Color(255,255,255),"Player ",ply:Nick()," was last(",Color(0,255,0),tonumber(LTrow[1]['timesjoined']),Color(255,255,255),") on the server: ",Color(255,0,0),tostring(LTrow[1]['lastvisit'])," - ",tostring(LTrow[1]['lastvisittime']),Color(255,255,255),".\n" )
						umsg.Start("LastJoined")
						umsg.String(ply:Nick())
						umsg.String(tostring(LTrow[1]['lastvisit']).." - "..tostring(LTrow[1]['lastvisittime']))
						umsg.Short(ply:Team())
						umsg.Short(tonumber(LTrow[1]['timesjoined']))
						umsg.End()
						ply:SetPData("LastVisitChecker", (tostring(LTrow[1]['lastvisit'])))
						ply:SetPData("LastVisitChecker2", (tostring(LTrow[1]['lastvisittime'])))
						ply:SetPData("LastJoinedNum", (tonumber(LTrow[1]['timesjoined'])+1))
						if tostring(LTrow[1]['firstjoin']) == nil || tostring(LTrow[1]['firstjoin']) == NULL || tostring(LTrow[1]['firstjoin']) == "" || tostring(LTrow[1]['firstjoin']) == " " then
							MsgN("test")
							LTupdateLastVisit2(ply)
						end
						LTupdateLastVisit(ply)
					end
				end)
            else
				timer.Simple(1, function()
				if !ply:IsValid() then return end
				MsgC(Color(255,255,255),"Player ",ply:Nick()," is: ",Color(255,0,0),"New",Color(255,255,255)," to our servers.\n" )
						umsg.Start("LastJoined")
						umsg.String(ply:Nick())
						umsg.String("First Time Joiner!")
						umsg.Short(ply:Team())
						umsg.Short(1)
						umsg.End()
					LTaddPly(ply)
				end)
            end

end
hook.Add( "PlayerInitialSpawn", "LastJoinInitialSpawn", LTonJoin )


function LTupdatePlayer(ply)
	local LTQc = sql.Query("UPDATE lastjoin SET lastvisit = '"..os.date("%B %d 20%y").."', lastvisittime = '"..os.date("%I:%M:%S %p").."', steamid = '"..ply:SteamID().."', playername = "..sql.SQLStr(tostring(ply:Nick()))..", team = "..sql.SQLStr(tostring(team.GetName( ply:Team()))).." WHERE player = "..ply:UniqueID()..";")
	//MsgN("117: ".. sql.LastError(LTQc))
end
hook.Add( "PlayerDisconnected", "LastJoinDisconnect", LTupdatePlayer )


function LastJoinedCmd(ply,cmd,args)
if args[1] == nil then return end
LJST = (args[1]..args[2]..args[3]..args[4]..args[5])
--MsgN(tostring(LJST))
    function LTcheckRow2(args)
        local LTrow2 = sql.Query("SELECT * FROM lastjoin WHERE steamid = '"..tostring(LJST).."' LIMIT 1")
			//MsgN("128: ".. sql.LastError(LTrow2))
            if (LTrow2) then
				MsgC(Color(0,255,255),"~LAST JOINED CHECK~","\n",Color(255,0,0),"Player Name",Color(255,255,255),": ",tostring(LTrow2[1]['playername']),"\n",Color(255,0,0),"Team",Color(255,255,255),": ",tostring(LTrow2[1]['team']),"\n",Color(255,0,0),"Last Online",Color(255,255,255),"(",Color(255,255,0),tonumber(LTrow2[1]['timesjoined']),Color(255,255,255),"): ",tostring(LTrow2[1]['lastvisit'])," - ",tostring(LTrow2[1]['lastvisittime']),"\n",Color(255,0,0),"Joined",Color(255,255,255),": ",tostring(LTrow2[1]['firstjoin']),"\n")
            end
    end
    LTcheckRow2(args)
end
concommand.Add("lastjoined",LastJoinedCmd)


function LastJoinedCmdA(ply,cmd,args)
    function LTcheckRow23(args)
        local LTQc = sql.Query("SELECT * FROM lastjoin ORDER BY timesjoined DESC LIMIT 10;")
		//MsgN("141: ".. sql.LastError(LTQc))
			for k, v in pairs(LTQc) do
				MsgC(Color(0,255,255),"~LAST JOINED CHECK ","[",k,"]","~","\n",Color(255,0,0),"Player Name",Color(255,255,255),": ",tostring(v.playername),"\n",Color(255,0,0),"Team",Color(255,255,255),": ",tostring(v.team),"\n",Color(255,0,0),"Last Online",Color(255,255,255),"(",Color(255,255,0),tonumber(v.timesjoined),Color(255,255,255),"): ",tostring(v.lastvisit)," - ",tostring(v.lastvisittime),"\n",Color(255,0,0),"Joined",Color(255,255,255),": ",tostring(v.firstjoin),"\n")
			end
    end
    LTcheckRow23(args)
end
concommand.Add("lastjoinedtop",LastJoinedCmdA)


hook.Add("PlayerSay", "PlayerSayECheckFirst", function( ply, text )
	local text = string.Explode(" ",text)
	if text[1] == "!checkjoin" && text[2] == nil then
		local LTQc = sql.Query("SELECT * FROM lastjoin WHERE player = '"..tostring(ply:UniqueID()).."' LIMIT 1;")
		//MsgN("124: ".. sql.LastError(LTQc))
		
			if not (LTQc) then
				for k, v in pairs(LTQc) do
					MsgC(Color(0,255,255),"~LAST JOINED CHECK ","[",tostring(v.id),"]","~","\n",Color(255,0,0),"Player Name",Color(255,255,255),": ",tostring(v.playername),"\n",Color(255,0,0),"Team",Color(255,255,255),": ",tostring(v.team),"\n",Color(255,0,0),"Last Online",Color(255,255,255),"(",Color(255,255,0),tonumber(v.timesjoined),Color(255,255,255),"): ",tostring(v.lastvisit)," - ",tostring(v.lastvisittime),"\n",Color(255,0,0),"Joined",Color(255,255,255),": ",tostring(v.firstjoin),"\n")
					umsg.Start("CheckJoinedPly", ply)
						umsg.String(tostring(v.playername))
						umsg.String(tostring(v.team))
						umsg.String(tostring(v.timesjoined))
						umsg.String(tostring(ply:GetPData("LastVisitChecker")))
						umsg.String(tostring(ply:GetPData("LastVisitChecker2")))
						umsg.String(tostring(v.firstjoin))
					umsg.End()
				end
			end
		
	elseif text[1] == "!checkjoin" && text[2] != nil then
		JoinedServerCheckJoinTbl = {}
		JoinedServerCountNames = {}
		RockStarNameLastJoined = nil
		for k,v in pairs(text) do
			if 1 < k then
				table.insert(JoinedServerCheckJoinTbl,tostring(string.lower(v)))
			end
		end
		
		for k, v in pairs(player.GetAll()) do
			if string.match(tostring(string.lower(v:Nick())), string.Implode(" ",JoinedServerCheckJoinTbl)) != nil then
				table.insert(JoinedServerCountNames,tostring(string.lower(v:Nick())))
				RockStarNameLastJoined = v:UniqueID()
				RockStarNameLastJoinedCK = tostring(v:GetPData("LastVisitChecker"))
				RockStarNameLastJoinedCK2 = tostring(v:GetPData("LastVisitChecker2"))
			end
		end
		if RockStarNameLastJoined == nil || JoinedServerCountNames == nil then return end
		for k,v in pairs(JoinedServerCountNames) do
			if k != 1 then
			MsgN("Too many names!")
			umsg.Start("LastJoinedError", ply)
				umsg.String(tostring("Please be more specific, there happens too be two people with the same name!"))
			umsg.End()
			return end
		end

		local LTQc = sql.Query("SELECT * FROM lastjoin WHERE player = '"..tostring(RockStarNameLastJoined).."' LIMIT 1;")
		//MsgN("198: ".. sql.LastError(LTQc))
		
			if not (LTQc == nil) then
				for k, v in pairs(LTQc) do
					MsgC(Color(0,255,255),"~LAST JOINED CHECK ","[",tostring(v.id),"]","~","\n",Color(255,0,0),"Player Name",Color(255,255,255),": ",tostring(v.playername),"\n",Color(255,0,0),"Team",Color(255,255,255),": ",tostring(v.team),"\n",Color(255,0,0),"Last Online",Color(255,255,255),"(",Color(255,255,0),tonumber(v.timesjoined),Color(255,255,255),"): ",tostring(v.lastvisit)," - ",tostring(v.lastvisittime),"\n",Color(255,0,0),"Joined",Color(255,255,255),": ",tostring(v.firstjoin),"\n")
					umsg.Start("CheckJoinedPly", ply)
						umsg.String(tostring(v.playername))
						umsg.String(tostring(v.team))
						umsg.String(tostring(v.timesjoined))
						umsg.String(tostring(ply:GetPData("LastVisitChecker")))
						umsg.String(tostring(ply:GetPData("LastVisitChecker2")))
						umsg.String(tostring(v.firstjoin))
					umsg.End()
				end
			end



	elseif text[1] == "!ocheckjoin" && text[2] != nil then
		local LTQc = sql.Query("SELECT * FROM lastjoin WHERE steamid = '"..tostring(text[2]).."' LIMIT 1;")
		
		if not (LTQc == nil) then
			for k, v in pairs(LTQc) do
				MsgC(Color(0,255,255),"~LAST JOINED CHECK ","[",tostring(v.id),"]","~","\n",Color(255,0,0),"Player Name",Color(255,255,255),": ",tostring(v.playername),"\n",Color(255,0,0),"Team",Color(255,255,255),": ",tostring(v.team),"\n",Color(255,0,0),"Last Online",Color(255,255,255),"(",Color(255,255,0),tonumber(v.timesjoined),Color(255,255,255),"): ",tostring(v.lastvisit)," - ",tostring(v.lastvisittime),"\n",Color(255,0,0),"Joined",Color(255,255,255),": ",tostring(v.firstjoin),"\n")
				umsg.Start("CheckJoinedPly", ply)
					umsg.String(tostring(v.playername))
					umsg.String(tostring(v.team))
					umsg.String(tostring(v.timesjoined))
					umsg.String(tostring(v.lastvisit))
					umsg.String(tostring(v.lastvisittime))
					umsg.String(tostring(v.firstjoin))
				umsg.End()
			end
		end
	end
end)

Last_Joined_Table_Check()