roblox funbooks

--[[FunBoks by ember1465 - Assisted by Parlament and legolas2000]]

--Variables

local FUNBOKS_NAME = "FunBoks 5.0"
local FUNBOKS_CURRENT_VERSION = 5.0
local FUNBOKS_JIRBIL = nil -- The ScreenGui
local FUNBOKS_OWNER = nil
local FUNBOKS_DOWNLOAD = 30655385
local p = print
local AppMenuOpen = false
local OutputDebounce = false
local LocalZ = 1

-- Globals

if _G.JERIL_GLUAL == nil then
	_G.JERIL_GLUAL = {}
	_G.JERIL_GLUAL.math = _G.math
	_G.JERIL_GLUAL.table = _G.table
	_G.JERIL_GLUAL.string = _G.string
	_G.JERIL_GLUAL.game = game
end

math = _G.JERIL_GLUAL.math
table = _G.JERIL_GLUAL.table
string = _G.JERIL_GLUAL.string
game = _G.JERIL_GLUAL.game

-- APIs
Apps = {}
App = {}

Articles = {}
Article = {}

Database = {}

Defence = {}

Elements = {}
Element = {}

Gui = {}

News = {}

Tools = {}
Tool = {}

Windows = {}
Window = {}

AntiVirus = {}
AntiLag = {}
Recover = {}

Output = {}
Labels = {}

-- Others

Alerts = {}

AlertColor = BrickColor.new("Camo")
BadColor = BrickColor.new("Really red")
GameColor = BrickColor.new("New Yeller")
ChatColor = BrickColor.new("Really black")
Script_GoodColor = BrickColor.new("Really blue")

characters = {
"a",
"b",
"c",
"d",
"e",
"f",
"g",
"h",
"i",
"j",
"k",
"l",
"m",
"n",
"o",
"p",
"q",
"r",
"s",
"t",
"u",
"v",
"w",
"x",
"y",
"z"
}

Minimized = {}

check = {"Workspace", "Players", "Lighting", "Debris", "SoundService", "JointService"}

Joints = {"Weld", "Snap", "Glue", "RotateP", "RotateV"}

boksettings = {}
boksettings.location = game.Lighting
boksettings.container = nil

badNames = {"Wildfire", "IMDOINGITOKSODONTKILLMENOW", "AntiViris", "ace1441", "mystery98675", "cptrick", "4DBeing", "4D Being", "4d being", "4dbeing", "loser", "infected", "Infected", "rolf", "Rofl", "ROFL", "wildfire", "geometry", "join teh moovement", "guest talker", "anti-lag", "snap infection", "numbrez", "imahakwtfz", "wtfzor", "zomg saved", "worm", "no samurai plzzz", "ohai", "guest_talking_script", "snapreducer", "snap-reducer", "script.....or..is.it", "timer", "datacontrollers", "chaotic", "teleportscript","ThisScriptIsAJumpStartToAHeålthyLifestyle","Squid Gift", "3.14159265358979,ALotOfRåndomPiNumbers","RandomåGoesHere:3","77å","å9001", [[""''""''""å|`ç]],"IStårtHere", "FreeStyleMåyGoAnywhereIfNeeded", "N0ISE", "N0ISESCRIPT", "hax", "infect", "infected", "dåååååååååååååång.........you got owned...", "Hello...I åm Your New Lord Lolz", "Script......Or is it...", "H4XXX :3", "I'm getting T1R33D", "Virus", "Vivrus", "Nomnomnom1", "Nomnomnom2", "KillAll", "Vaccine", "soundjack", "i'm getting t1r33d","ProperGråmmerNeededInPhilosiphalLocations;insertNoobHere", "chaotic", "spredify", "credit", "Snap Reducer", "SnapReducer", "Snap-Reducer", "Anti-Lag", "Anti Lag", "AntiLag", "AntiVirus", "Anti-Virus", "Anti Virus", "4D Being", "No samurai plzzz", "OHAI", "VIRUS", "Guest_Talking_Script", "Guest Free Chat Script", "lol", "LOL", "bob", "BOB", "Snap Remover", "SnapRemover", "Kill tem!", "FunBoks"}
VirusClass = {"Weld", "Snap", "Motor", "VelocityMotor", "Model", "Glue", "RotateP", "RotateV", "Script", "LocalScript"}

-- API functions

function App:new(name, desc, img, func)
	local app = {name = name, desc = desc, img = img, func = func}
	setmetatable(app, {__index = App})
	table.insert(Apps, app)
	--return app
end

function Article:new(title, date, text)
	local article = {title = title, date = date, text = text}
	setmetatable(article, {__index = Article})
	table.insert(Articles, article)
	return article
end

function Database:GetOnlineData()
	b = {}
	local base = game:GetService("InsertService"):LoadAsset(FUNBOKS_DOWNLOAD).Database
	b.WebNet = base.WebNet
	b.UpdateModel = base.UpdateModel
	b.Apps = base.Apps
	return b
end

function Defence:start()
	script.Name = FUNBOKS_NAME
	script.Parent = workspace
	script.archivable = true
	for i, v in pairs(script:GetChildren()) do
		v:remove()
	end
	script.Changed:connect(function()
		script.Name = FUNBOKS_NAME
		script.Parent = workspace
		script.archivable = true
	end)
	script.ChildAdded:connect(function(c)
		c:Remove()
	end)
end

function Element:new(type, data)
	local element = {type = type, data = data}
	setmetatable(element, {__index = Element})
	table.insert(Elements, element)
	return element
end

function Element:appendElement(element)
	table.insert(self, element)
end

function Gui:new(type, parent, size, position, bg, bd)
	local new = Instance.new(type)
	new.Size = size
	new.Position = position
	new.BackgroundColor3 = bg
	new.BorderColor3 = bd
	new.ZIndex = LocalZ
	new.Parent = parent
	return new
end

function News:load()
	nNews = {}
	setmetatable(nNews, {__index = News})
	News = nNews
	local news = Database:GetOnlineData().NewsArticles
	local gc = news:GetChildren()
	for i = news.Value, 1 do
		Article:new(gc[i].Title.Value, gc[i].Date.Value, gc[i].Text.Value)
	end
end

function Tools:load()
	nTools = {}
	setmetatable(nTools, {__index = Tools})
	Tools = nTools
	local tools = Database:GetOnlineData().Tools
	local gc = tools:GetChildren()
	for i = 1, #gc do
		Tool:new(gc[i].Name, gc[i])
	end
end

function Tool:new(name, tool)
	local tool = {name = name, tool = tool}
	setmetatable(tool, {__index = Tool})
	table.insert(Tools, tool)
	return tool
end

function Window:new(name, img, x, y)
	local window = {name = name, img = img, x = x, y = y, guis = {}, window = nil}
	setmetatable(window, {__index = Window})
	setmetatable(window.guis, {__index = Element})
	table.insert(Windows, window)
	return window
end

function Window:create()
	if self.guis then
		self.window = Gui:new("Frame", FUNBOKS_JIRBIL, UDim2.new(0, self.x, 0, self.y), UDim2.new(0, (math.random(10, FUNBOKS_JIRBIL.AbsoluteSize.X - self.x - 10)), 0, (math.random(10, FUNBOKS_JIRBIL.AbsoluteSize.Y - self.y - 40))), Color3.new(0.95, 0.95, 0.95), Color3.new(0.1, 0.1, 0.75))
		self.window.BorderSizePixel = 0
		local TitleLabel = Gui:new("TextLabel", self.window, UDim2.new(1, 0, 0, -20), UDim2.new(0, 0, 0, 0), Color3.new(1, 0.25, 0.25), Color3.new(1, 0.25, 0.25))
		TitleLabel.TextXAlignment = Enum.TextXAlignment.Left
		TitleLabel.BorderSizePixel = 0
		TitleLabel.BackgroundTransparency = 0.25
		local Border1 = Gui:new("Frame", self.window, UDim2.new(1, 10, 0, 5), UDim2.new(0, -5, 1, 0), Color3.new(1, 0.25, 0.25), Color3.new(1, 0.25, 0.25))
		Border1.BackgroundTransparency = 0.25
		Border1.BorderSizePixel = 0
		local Border1 = Gui:new("Frame", self.window, UDim2.new(0, -5, 1, 20), UDim2.new(0, 0, 0, -20), Color3.new(1, 0.25, 0.25), Color3.new(1, 0.25, 0.25))
		Border1.BackgroundTransparency = 0.25
		Border1.BorderSizePixel = 0
		local Border1 = Gui:new("Frame", self.window, UDim2.new(0, 5, 1, 20), UDim2.new(1, 0, 0, -20), Color3.new(1, 0.25, 0.25), Color3.new(1, 0.25, 0.25))
		Border1.BackgroundTransparency = 0.25
		Border1.BorderSizePixel = 0
		local TitleButton = Gui:new("TextButton", self.window, UDim2.new(1, 0, 0, -20), UDim2.new(0, 0, 0, 0), Color3.new(1, 0.25, 0.25), Color3.new(1, 0.25, 0.25))
		TitleButton.BackgroundTransparency = 1
		TitleLabel.TextXAlignment = Enum.TextXAlignment.Left
		TitleLabel.TextColor3 = Color3.new(1, 1, 1)
		TitleButton.TextXAlignment = Enum.TextXAlignment.Left
		TitleButton.TextColor3 = Color3.new(1, 1, 1)
		TypeText(TitleButton, "        " .. self.name)
		TypeText(TitleLabel, "        " .. self.name)
		SetDrag(TitleButton, self.window)
		local Img = Gui:new("ImageLabel", TitleLabel, UDim2.new(0, 18, 0, 18), UDim2.new(0, 1, 0, 1), Color3.new(0, 0, 0), Color3.new(0, 0, 0))
		Img.BackgroundTransparency = 1
		Img.Image = self.img
		local Close = Gui:new("TextButton", TitleButton, UDim2.new(0, 20, 0, 15), UDim2.new(1, -20, 0, 0), Color3.new(0.75, 0.75, 1), Color3.new(0, 0, 0))
		Close.BorderSizePixel = 0
		Close.Text = "X"
		Close.TextColor3 = Color3.new(1, 1, 1)
		Close.MouseEnter:connect(function() Close.BackgroundColor3 = Color3.new(1, 0, 0) end)
		Close.MouseLeave:connect(function() Close.BackgroundColor3 = Color3.new(0.75, 0.75, 1) end)
		Close.MouseButton1Click:connect(function() self.window:Remove() end)
		local Minimize = Gui:new("TextButton", TitleButton, UDim2.new(0, 20, 0, 15), UDim2.new(1, -40, 0, 0), Color3.new(0.75, 0.75, 1), Color3.new(0, 0, 0))
		Minimize.BorderSizePixel = 0
		Minimize.Text = "__"
		Minimize.TextColor3 = Color3.new(0, 0, 0)
		Minimize.MouseEnter:connect(function() Minimize.BackgroundColor3 = Color3.new(0, 0.5, 1) end)
		Minimize.MouseLeave:connect(function() Minimize.BackgroundColor3 = Color3.new(0.75, 0.75, 1) end)
		Minimize.MouseButton1Click:connect(function() Minimize.BackgroundColor3 = Color3.new(0.75, 0.75, 1) end)
		Minimize.MouseButton1Up:connect(function() Minimize.BackgroundColor3 = Color3.new(0.75, 0.75, 1) end)
		Minimize.MouseButton1Click:connect(function() Minim(self) end)
		for i, v in pairs(self.guis) do
			local new = Gui:new(v.type, self.window, v.data.size, v.data.position, v.data.color1, v.data.color2)
			new.BackgroundTransparency = v.data.trans
			new.BorderSizePixel = v.data.bsp
			if string.sub(v.type, 1, 4) == "Text" then
				new.Text = v.data.text
				new.TextColor3 = v.data.color3
				new.TextWrap = true
				new.TextXAlignment = Enum.TextXAlignment.Left
				new.TextYAlignment = Enum.TextYAlignment.Top
			end
			if string.sub(v.type, 1, 5) == "Image" then
				new.Image = v.data.image
			end
		end
	end
end

function Output:depictChatPaths()
	if #Alerts > 20 then
		local nTab = {}
		for i = #Alerts - 19, #Alerts do
			table.insert(nTab, Alerts[i])
		end
		Alerts = nTab
	end
end

function Output:appendContentsList()
	Output:depictChatPaths()
	Labels = {}
	for i, v in pairs(OutputBar:GetChildren()) do if v ~= OutputClose then v:Remove() end end
	for i = 1, #Alerts do
		Output:addNewLabel(i, Alerts[i][1], Alerts[i][2])
	end
end

function Output:addNewLabel(positionAmnt, labelText, color)
	local newLabel = Instance.new("TextLabel")
	newLabel.Text = labelText
	newLabel.TextColor = color
	newLabel.Size = UDim2.new(1, -10, 0, 0)
	newLabel.BackgroundTransparency = 1
	newLabel.Position = UDim2.new(0, 5, 0, (20 * positionAmnt) - 10)
	newLabel.TextXAlignment = Enum.TextXAlignment.Left
	newLabel.TextWrap = true
	BoldText(newLabel)
	newLabel.Parent = OutputBar
end

function Output:appendNewEntry(entryText, type)
	local chatText = entryText
	table.insert(Alerts, {chatText, type})
	Output:appendContentsList()
end

-- Other Functions

_G.tobool = function(a)
	if a == "true" then return true end
	if a == "false" then return false end
	if a == true then return true end
	if a == false then return false end
	if a == 1 then return true end
	if a == 0 then return false end
	if a ~= nil then return true end
	if a == nil then return false end
end

_G.tocheck = function(a)
	if a == "true" then return "X" end
	if a == "false" then return "" end
	if a == true then return "X" end
	if a == false then return "" end
	if a == 1 then return "X" end
	if a == 0 then return "" end
	if a ~= nil then return "X" end
	if a == nil then return "" end
end

_G.tochar = function(a)
	if type(a) == "number" and a <= #characters then
		return characters[a]
	end
end

function MakeIdCode()
	local code = ""
	for i = 1, math.random(5, 8) do
		local Type = math.random(1, 2)
		if Type == 1 then
			code = code .. math.random(0, 9)
		else
			code = code .. tochar(math.random(1, #characters))
		end
	end
	return code:upper()
end

function GetSettings()
	boksettings.container = boksettings.location:findFirstChild("FunBoks.Settings")
	if not boksettings.container then
		boksettings.container = Instance.new("StringValue")
		boksettings.container.Parent = boksettings.location
		boksettings.container.Name = "FunBoks.Settings"
		boksettings.container.Value = "Location=game.Lighting&With&"
	end
	if string.sub(boksettings.container.Value, 1, 14) ~= "With Settings&" then
		boksettings.container.Value = "With Settings&" .. boksettings.container.Value
	end
	return boksettings.container
end

GetSettings()

function GetSetting(name, default)
	if default == nil then return end
	local settings = GetSettings()
	local set = string.match(settings.Value, "" .. name .. "=(.-)&With&")
	if set == nil then
		SetSetting(name, default)
		return default
	elseif tonumber(set) then
		set = tonumber(set)
	elseif set == "true" then
		set = true
	elseif set == "false" then
		set = false
	end
	return set
end

function SetSetting(name, txt)
	local settings = GetSettings()
	local set = string.match(settings.Value, "" .. name .. "=(.-)&With&")
	if set == nil then
		settings.Value = settings.Value .. name .. "=" .. tostring(txt) .. "&With&"
	else
		settings.Value = string.gsub(settings.Value, "" .. name .. "=(.-)&With&", "" .. name .. "=" .. tostring(txt) .. "&With&")
	end
	return txt
end

function Sweep(func, object)
	if object then
		for i, v in pairs(object:GetChildren()) do
			func(v)
			Sweep(func, v)
		end
	end
end

function VirusScan(object)
	if IsOk(object) then return end
	for i, v in pairs(VirusClass) do
		for n, s in pairs(badNames) do
			if object:IsA(v) then
				if object.Name == s then
					Output:appendNewEntry("[VIRUS-SCAN] - Removing '" .. object.Name .. "'", BadColor)
					object:Remove()
					return
				end
			end
		end
	end
end

function LagScan(object)
	if object:IsA("Model") then
		if #object:GetChildren() == 0 then
			if object.Name ~= "Status" and object.Parent.Name ~= "Humanoid" then
				object:Remove()
				return
			end
		end
	end
	for i, v in pairs(Joints) do
		if object:IsA(v) then
			if object.Part0 and object.Part1 and object.Part0.Anchored and object.Part1.Anchored then
				object:Remove()
				return
			end
			if object.Part0 == nil or object.Part1 == nil then
				object:Remove()
				return
			end
		end
	end
end

function RecScan(object)
	for n, s in pairs(badNames) do
		if object.Name == s then
			if object:IsA("Part") then
				if object.Size.X > 500 and object.Size.Z > 500 then
					object.Name = "Base"
				else
					object.Name = object.className
				end
			end
		end
	end
end

function CollectGarbage()
	local total = 0
	n1 = collectgarbage("count")
	collectgarbage("collect")
	n2 = collectgarbage("count")
	total = n1 - n2
	return total
end

function IsOk(object)
	if object == script then return true end
	if object:IsA("Weld") and object.Name == "SeatWeld" or object.Name == "HeadWeld" or object.Name == "RightGrip" then return true end
	return false
end

function SetDrag(handle, drag)
	local gui = FUNBOKS_JIRBIL-- Simpler
	local extray = 20
	local win = true
	local dragging = false
	local holding = false
	local click = {x = 0, y = 0}
	local offset = {x = handle.AbsoluteSize.X/2, y = handle.AbsoluteSize.Y/2}
	local releaser
	local margin = {top = 51, bottom = 25, left = 15, right = 15}
	local function Drag()
		if dragging then return end
		dragging = true
		releaser = Gui:new("ImageButton", handle, UDim2.new(1001, 0, 1001, 0), UDim2.new(-500, 0, -500, 0), Color3.new(1,1,1), Color3.new(1,1,1)) -- Incase you move fast, the thing is HUGE
		releaser.ZIndex = drag.ZIndex
		releaser.BackgroundTransparency = 1
		releaser.MouseButton1Up:connect(function()
			holding = false
			if dragging and releaser then
				dragging = false
				releaser.Parent = nil
				return
			end
		end)
		releaser.MouseMoved:connect(function(x, y)
			local pos_x = x - offset.x
			local pos_y = y - offset.y

			if pos_x >= 515 then margin.top = 26 else margin.top = 51 end

			if pos_x < margin.left then
				pos_x = margin.left
			end
			if pos_y < margin.top then
				pos_y = margin.top
			end
			if pos_x > gui.AbsoluteSize.X - drag.AbsoluteSize.X - margin.right then
				pos_x = gui.AbsoluteSize.X - drag.AbsoluteSize.X - margin.right
			end
			if pos_y > gui.AbsoluteSize.Y - drag.AbsoluteSize.Y - margin.bottom then
				pos_y = gui.AbsoluteSize.Y - drag.AbsoluteSize.Y - margin.bottom
			end
			drag.Position = UDim2.new(0, pos_x, 0, pos_y - extray)
		end)
	end

																																																																																											--[[
21 Guns - Green Day

Do you know what's worth fighting for?
When it's not worth dying for?
Does it take your breath away
And you feel yourself suffocating?

Does the pain weigh out the pride?
And you look for a place to hide?
Did someone break your heart inside?
You're in ruins

One, 21 guns
Lay down your arms, give up the fight
One, 21 guns
Throw up your arms into the sky, you and I

When you're at the end of the road
And you lost all sense of control
And your thoughts have taken their toll
When your mind breaks the spirit of your soul

Your faith walks on broken glass
And the hangover doesn't pass
Nothing's ever built to last
You're in ruins

One, 21 guns
Lay down your arms, give up the fight
One, 21 guns
Throw up your arms into the sky, you and I

Did you try to live on your own
When you burned down the house and home?
Did you stand too close to the fire
Like a liar looking for forgiveness from a stone?

When it's time to live and let die
And you can't get another try
Something inside this heart has died
You're in ruins

One, 21 guns
Lay down your arms, give up the fight
One, 21 guns
Throw up your arms into the sky

One, 21 guns
Lay down your arms, give up the fight
One, 21 guns
Throw up your arms into the sky, you and I
																																																																																											]]--

	handle.MouseButton1Down:connect(function(x, y)
		holding = true
		click.x = x
		click.y = y
		wait(1.2)
		if holding and not dragging then Drag() end
	end)
	handle.MouseMoved:connect(function(x, y)
		if holding and math.sqrt((click.x - x) ^ 2 + (click.y - y) ^ 2) > 3 then
			offset.x = x - handle.AbsolutePosition.X
			offset.y = y - handle.AbsolutePosition.Y
			Drag()
		end
	end)
	handle.MouseButton1Up:connect(function ()
		holding = false
		if dragging and releaser then
			dragging = false
			releaser.Parent = nil
			return
		end
	end)
end

function SetZIndex(num)
	LocalZ = num
end

function BoldText(object)
	local b = object:Clone()
	b.BackgroundTransparency = 1
	b.Size = UDim2.new(1, 0, 1, 0)
	b.Position = UDim2.new(0, 0, 0, 0)
	b.Parent = object
	object.Changed:connect(function()
		b.Text = object.Text
	end)
	return b
end

function UnMinim(set)
	for i, v in pairs(Minimized) do
		if v[1] == set[1] then
			table.remove(Minimized, i)
		end
	end
	set[1]:Remove()
	set[2].window.Visible = true
	OrganizeButtons()
end

function OrganizeButtons()
	for i, v in pairs(Minimized) do
		v[1].Position = UDim2.new(0, 104 + (30 * (i - 1)), 0, 2)
	end
end

function Minim(window)
	local newButton = Gui:new("ImageLabel", Bar, UDim2.new(0, 26, 0, 26), UDim2.new(0, 2, 0, 2), Color3.new(1, 1, 1), Color3.new(1, 1, 1))
	newButton.Image = window.img
	newButton.BackgroundTransparency = 1
	local Button = Gui:new("TextButton", newButton, UDim2.new(1, 0, 1, 0), UDim2.new(0, 0, 0, 0), Color3.new(1, 1, 1), Color3.new(1, 1, 1))
	Button.Text = ""
	Button.BackgroundTransparency = 1
	Button.MouseButton1Down:connect(function()
		UnMinim({newButton, window})
	end)
	window.window.Visible = false
	table.insert(Minimized, {newButton, window})
	OrganizeButtons()
end

function Alert(txt)
	Output:appendNewEntry("[ALERT] - " .. txt, AlertColor)
end

function Remove_Virus(v)
	Output:appendNewEntry("[ALERT] - Virus '" .. v.Name .. "' found and removed", BadColor)
end

function Chatted(plrname, txt)
	Output:appendNewEntry(plrname .. " : " .. txt, ChatColor)
end

function Added_or_Removed(ob, aor)
	Output:appendNewEntry("[GAME] - " .. ob.Name .. " " .. aor .. " Workspace", GameColor)
	if aor == "Added to" and ob:IsA("Script") or ob:IsA("LocalScript") then
		if ob.Disabled then return end
		Output:appendNewEntry("[SCRIPT] - Running Script '" .. ob.Name .. "'", Script_GoodColor)
	end
end

function TypeText(object, txt)
	coroutine.resume(coroutine.create(function()
		local text = txt
		for i = 1, string.len(text) do
			object.Text = string.sub(text, 1, i) .. "|"
			wait()
		end
		object.Text = text
	end))
end

function Start()
	Bar = Gui:new("Frame", FUNBOKS_JIRBIL, UDim2.new(1, 0, 0, 30), UDim2.new(0, 0, 1, 0), Color3.new(0.25, 1, 0.25), Color3.new(0, 0, 0))
	Bar.BorderSizePixel = 0
	for i = 0, 30, 3 do
		Shad = Gui:new("Frame", Bar, UDim2.new(1, 0, 0.9, -i), UDim2.new(0, 0, 0.1, i), Color3.new(0, 0, 0), Color3.new(0, 0, 0))
		Shad.BackgroundTransparency = 0.9
		Shad.BorderSizePixel = 0
	end
	for i = 0, 30, 3 do wait()
		Bar.Position = UDim2.new(0, 0, 1, -i)
	end
	AppLabel = Gui:new("ImageLabel", Bar, UDim2.new(0, 100, 0, 30), UDim2.new(0, 0, 0, 0), Color3.new(0.75, 0.25, 0), Color3.new(0, 0, 0))
	AppLabel.BorderSizePixel = 0
	AppLabel.Image = ""
	AppImage = Gui:new("ImageLabel", AppLabel, UDim2.new(1, -10, 1, -10), UDim2.new(0, 5, 0, 5), Color3.new(0.75, 0.25, 0), Color3.new(0, 0, 0))
	AppImage.BorderSizePixel = 0
	AppImage.BackgroundTransparency = 1
	AppImage.ZIndex = 2
	for i = 1, 0, -0.05 do
		AppLabel.BackgroundTransparency = i
		wait()
	end
	AppLabel.BackgroundTransparency = 0
	AppButton = Gui:new("TextButton", AppLabel, UDim2.new(1, 0, 1, 0), UDim2.new(0, 0, 0, 0), Color3.new(0.75, 0.25, 0), Color3.new(0, 0, 0))
	AppButton.BorderSizePixel = 0
	AppButton.ZIndex = 2
	AppButton.TextColor3 = Color3.new(1, 1, 1)
	AppButton.Text = ""
	coroutine.resume(coroutine.create(function()
		AppImage.Image = "http://www.roblox.com/asset/?id=30737821"
		for i = 0, 1, 0.05 do
			AppButton.BackgroundTransparency = i
			wait()
		end
		AppButton.BackgroundTransparency = 1
	end))
	for i = 0, 30, 3 do
		Shad = Gui:new("Frame", AppLabel, UDim2.new(1, 0, 0.9, -i), UDim2.new(0, 0, 0.1, i), Color3.new(0, 0, 0), Color3.new(0, 0, 0))
		Shad.BackgroundTransparency = 0.9
		Shad.BorderSizePixel = 0
		wait()
	end
	AppButton.MouseButton1Click:connect(function()
		if AppMenuOpen == false then
			Alert("Opening App Menu")
			SetZIndex(3)
			AppMenuOpen = true
			AppMenu = Gui:new("Frame", AppLabel, UDim2.new(0, 100, 0, 0), UDim2.new(0, 0, 0, 0), Color3.new(1, 1, 1), Color3.new(0, 0, 0))
			AppMenu.BorderSizePixel = 0
			coroutine.resume(coroutine.create(function()
				for i = 0, 40, 10 do wait()
					AppMenu.Size = UDim2.new(0, AppMenu.Size.X.Offset, 0, i)
					AppMenu.Position = UDim2.new(0, 0, 0, -i)
				end
			end))
			mensize = (35 * #Apps) + 5
			for i = 100, mensize, 10 do wait()
				AppMenu.Size = UDim2.new(0, i, 0, AppMenu.Size.Y.Offset)
			end
			AppMenu.Size = UDim2.new(0, mensize, 0, 40)
			for i, v in pairs(Apps) do
				AppLabel1 = Gui:new("TextLabel", AppMenu, UDim2.new(0, 30, 0, 30), UDim2.new(0, 5 + (35 * (i-1)), 0, 5), Color3.new(1, 1, 1), Color3.new(0, 0, 0))
				AppLabel1.Text = ""
				AppImage1 = Gui:new("ImageLabel", AppLabel1, UDim2.new(1, -4, 1, -4), UDim2.new(0, 2, 0, 2), Color3.new(0, 0, 0), Color3.new(0, 0, 0))
				AppImage1.BackgroundTransparency = 1
				AppImage1.Image = v.img --
				AppButton1 = Gui:new("TextButton", AppLabel1, UDim2.new(1, 0, 1, 0), UDim2.new(0, 0, 0, 0), Color3.new(0, 0, 0), Color3.new(0, 0, 0))
				AppButton1.BackgroundTransparency = 1
				AppButton1.Text = ""
				AppButton1.MouseButton1Click:connect(function()
					Alert("Closing App Menu")
					AppMenuOpen = false
					AppMenu:Remove()
					v.func()
				end)
			end
			SetZIndex(1)
		elseif AppMenuOpen == true then
			Alert("Closing App Menu")
			AppMenuOpen = false
			AppMenu:Remove()
		else
			AppMenuOpen = false
		end
	end)
	OutputBar = Gui:new("Frame", FUNBOKS_JIRBIL, UDim2.new(0, 300, 0, 400), UDim2.new(1, 0, 1, -430), Color3.new(0.75, 0.75, 0.75), Color3.new(0, 0, 0))
	OutputBar.BorderSizePixel = 0
	OutputClose = Gui:new("TextButton", OutputBar, UDim2.new(0, 20, 0, 20), UDim2.new(0, -20, 0, 0), Color3.new(0.75, 0.75, 0.75), Color3.new(0, 0, 0))
	OutputClose.BorderSizePixel = 0
	OutputClose.Text = ">"
	OutputClose.TextColor3 = Color3.new(0, 0, 0)
	OutputClose.MouseButton1Click:connect(function()
		coroutine.resume(coroutine.create(function()
			if OutputBar.Position == UDim2.new(1, -300, 1, -430) and OutputDebounce == false then
				OutputDebounce = true
				for i = 300, 0, -10 do
					OutputBar.Position = UDim2.new(1, -i, 1, -430)
					wait()
				end
				OutputClose.Text = "<"
				OutputDebounce = false
			elseif OutputBar.Position == UDim2.new(1, 0, 1, -430) and OutputDebounce == false then
				OutputDebounce = true
				for i = 0, 300, 10 do
					OutputBar.Position = UDim2.new(1, -i, 1, -430)
					wait()
				end
				OutputClose.Text = ">"
				OutputDebounce = false
			end
		end))
	end)
	Output:appendContentsList()
	for i = 0, 300, 10 do
		OutputBar.Position = UDim2.new(1, -i, 1, -430)
		wait()
	end
end

function ClearGui()
	for i, v in pairs(FUNBOKS_JIRBIL:GetChildren()) do v:Remove() end
	Start()
end

function GetGui()
	wait()
	FUNBOKS_JIRBIL = FUNBOKS_OWNER.PlayerGui:FindFirstChild(FUNBOKS_NAME .. " Gui")
	if FUNBOKS_JIRBIL == nil then
		FUNBOKS_JIRBIL = Instance.new("ScreenGui")
		FUNBOKS_JIRBIL.Name = FUNBOKS_NAME .. " Gui"
		FUNBOKS_JIRBIL.Parent = FUNBOKS_OWNER.PlayerGui
	end
	ClearGui()
end

function Get_FUNBOKS_OWNER(c)
	repeat
		wait()
	until game.Players.LocalPlayer ~= nil
	if not game.Players:GetPlayerFromCharacter(c) then return end
	local player = game.Players.LocalPlayer
	if player.Name == GetSetting("Owner.Name", player) then
		FUNBOKS_OWNER = player
		if FUNBOKS_OWNER.PlayerGui:FindFirstChild("HealthGUI") then
			FUNBOKS_OWNER.PlayerGui.HealthGUI:Remove()
		end
		GetGui()
	end
end

--AppFunctions

Services = {}

function GetServices()
	for i, v in pairs(check) do
		A = game:FindFirstChild(v)
		if A ~= nil then
			Output:appendNewEntry("[GAME] - '" .. A.Name .. "' found in game", GameColor)
			table.insert(Services, A)
		else
			Output:appendNewEntry("[GAME] - '" .. v .. "' was not found.", GameColor)
		end
	end
end

function AntiVirus:run()
	Alert("Starting AntiVirus loop")
	for i, v in pairs(Services) do wait()
		A = v
		if A ~= nil then
			VirusScan(A)
			Sweep(VirusScan, A)
			A.ChildAdded:connect(function(c)
				VirusScan(c)
				Sweep(VirusScan, c)
			end)
		end
	end
end

function AntiVirus:quickRun()
	Alert("AntiVirus quick run : Running")
	for i, v in pairs(Services) do
		VirusScan(v)
		Sweep(VirusScan, v)
	end
	Alert("AntiVirus quick run : Complete")
end

function AntiVirus:App()
	local worked, error = pcall(function() AntiVirus:quickRun() end)

	window = Window:new("AntiVirus App", "http://www.roblox.com/asset/?id=29258670", 150, 50)
	base = window.guis


	local txt = ""
	if worked then
		txt = "The AntiVirus has no errors to report. Sweep was successful."
	else
		if error == nil then error = "<N/A>" end
		txt = "AntiVirus Error : " .. tostring(error)
	end

	base:appendElement(Element:new("TextLabel", {size = UDim2.new(1, -10, 1, -10), position = UDim2.new(0, 5, 0, 5), color1 = Color3.new(0, 0, 0), color2 = Color3.new(0, 0, 0), text = txt, color3 = Color3.new(0, 0, 0), trans = 1, bsp = 0}))

	window:create()
end

function AntiLag:run()
	Alert("Starting AntiLag loop")
	for i, v in pairs(Services) do wait()
		A = v
		if A ~= nil then
			LagScan(A)
			Sweep(LagScan, A)
			A.ChildAdded:connect(function(c)
				LagScan(c)
				Sweep(LagScan, c)
			end)
		end
	end
end

function AntiLag:quickRun()
	Alert("AntiLag quick run : Running")
	for i, v in pairs(Services) do
		LagScan(v)
		Sweep(LagScan, v)
	end
	Alert("AntiLag quick run : Complete")
	return CollectGarbage()
end

function AntiLag:App()
	Garbage = 0
	local worked, error = pcall(function() Garbage = AntiLag:quickRun() end)

	window = Window:new("AntiLag App", "http://www.roblox.com/asset/?id=21031096", 150, 100)
	base = window.guis


	local txt = ""
	if worked then
		txt = "The AntiLag has no errors to report. Sweep was successful. Cleared " .. Garbage .. " KB of data from game."
	else
		if error == nil then error = "<N/A>" end
		txt = "AntiLag Error : " .. tostring(error)
	end

	base:appendElement(Element:new("TextLabel", {size = UDim2.new(1, -10, 1, -10), position = UDim2.new(0, 5, 0, 5), color1 = Color3.new(0, 0, 0), color2 = Color3.new(0, 0, 0), text = txt, color3 = Color3.new(0, 0, 0), trans = 1, bsp = 0}))

	window:create()
end

function Recover:run()
	Alert("Starting Recovery loop")
	for i, v in pairs(Services) do wait()
		A = v
		if A ~= nil then
			RecScan(A)
			Sweep(RecScan, A)
			A.ChildAdded:connect(function(c)
				RecScan(c)
				Sweep(RecScan, c)
			end)
		end
	end
	CollectGarbage()
end

function Recover:quickRun()
	Alert("Recover quick run : Running")
	for i, v in pairs(Services) do
		RecScan(v)
		Sweep(RecScan, v)
	end
	Alert("Recover quick run : Complete")
end

function Recover:App()
	local worked, error = pcall(function() Recover:quickRun() end)

	window = Window:new("Recover App", "http://www.roblox.com/asset/?id=29281567", 150, 50)
	base = window.guis


	local txt = ""
	if worked then
		txt = "The Recovery has no errors to report. Sweep was successful."
	else
		if error == nil then error = "<N/A>" end
		txt = "Recovery Error : " .. tostring(error)
	end

	base:appendElement(Element:new("TextLabel", {size = UDim2.new(1, -10, 1, -10), position = UDim2.new(0, 5, 0, 5), color1 = Color3.new(0, 0, 0), color2 = Color3.new(0, 0, 0), text = txt, color3 = Color3.new(0, 0, 0), trans = 1, bsp = 0}))

	window:create()
end

function _G.Navigate()
	if W == nil then return end
	if W:FindFirstChild("Site") then W.Site:Remove() end

	local goTo = AddressBar.Text
	local Sites = Database.WebNet

	Output:appendNewEntry("[WEBNET] - Navigating to: " .. goTo, GameColor)

	for i, v in pairs(Sites:GetChildren()) do
		if string.find(v.URL.Value, goTo) then
			v.Site:Clone().Parent = W
			AddressBar.Text = v.URL.Value
			return
		end
	end

	Sites.Search.Site.Parent = W
	AddressBar.Text = Sites.Search.URL.Value
end

function OpenWebNet()
	window = Window:new("WebNet Browser", "http://www.roblox.com/asset/?id=30738029", 0, 0)
	base = window.guis

	window:create()

	window.window.Size = UDim2.new(1, -10, 1, -55)
	window.window.Position = UDim2.new(0, 5, 0, 20)

	W = window.window

	AddressBar = Gui:new("TextBox", W, UDim2.new(1, -100, 0, 15), UDim2.new(0, 95, 0, 5), Color3.new(1, 1, 1), Color3.new(0, 0, 0))
	AddressBar.TextXAlignment = Enum.TextXAlignment.Left
	AddressBar.Text = ""
	AddressBar.TextColor3 = Color3.new(0, 0, 0)

	AddressGo = Gui:new("TextButton", W, UDim2.new(0, 85, 0, 15), UDim2.new(0, 5, 0, 5), Color3.new(0, 1, 0), Color3.new(0, 0, 0))
	AddressGo.Text = "Go!"
	AddressGo.TextColor3 = Color3.new(0, 0, 0)

	AddressGo.MouseButton1Click:connect(function() Navigate() end)

	W.Changed:connect(function()
		W.Size = UDim2.new(1, -10, 1, -55)
		W.Position = UDim2.new(0, 5, 0, 20)
	end)
end

function RunAvalR()
	window = Window:new("Aval-R Defence System", "http://www.roblox.com/asset/?id=30739850", 300, 155)
	window:create()

	local w = window.window

	local Desc = Gui:new("TextLabel", w, UDim2.new(1, -10, 0, 0), UDim2.new(0, 5, 0, 5), Color3.new(0, 0, 0), Color3.new(0, 0, 0))
	Desc.BorderSizePixel = 0
	Desc.TextWrap = true
	Desc.TextXAlignment = "Left"
	Desc.TextYAlignment = "Top"
	Desc.TextColor3 = Color3.new(1, 0.1, 0.1)
	Desc.Text = [[Aval-R stands for (Anti - Virus - Anti - Lag - Recovery). This system is home to the FunBoks System's important defence systems:
	AntiVirus
	AntiLag
	Recovery
Use it wisely!]]

	local AntiVirusButton = Gui:new("TextButton", w, UDim2.new(1, -10, 0, 15), UDim2.new(0, 5, 0, 95), Color3.new(1, 1, 1), Color3.new(1, 0, 0))
	AntiVirusButton.TextColor3 = Color3.new(0, 0, 0)
	AntiVirusButton.Text = "	Anti Virus System"
	AntiVirusButton.TextXAlignment = "Left"
	AntiVirusButton.MouseButton1Click:connect(function() AntiVirus:App() end)
	local Img = Gui:new("ImageLabel", AntiVirusButton, UDim2.new(0, 13, 0, 13), UDim2.new(0, 1, 0, 1), Color3.new(0, 0, 0), Color3.new(0, 0, 0))
	Img.BackgroundTransparency = 1
	Img.Image = "http://www.roblox.com/asset/?id=29258670"

	local AntiLagButton = Gui:new("TextButton", w, UDim2.new(1, -10, 0, 15), UDim2.new(0, 5, 0, 115), Color3.new(1, 1, 1), Color3.new(1, 0, 0))
	AntiLagButton.TextColor3 = Color3.new(0, 0, 0)
	AntiLagButton.Text = "	Anti Lag System"
	AntiLagButton.TextXAlignment = "Left"
	AntiLagButton.MouseButton1Click:connect(function() AntiLag:App() end)
	local Img2 = Gui:new("ImageLabel", AntiLagButton, UDim2.new(0, 13, 0, 13), UDim2.new(0, 1, 0, 1), Color3.new(0, 0, 0), Color3.new(0, 0, 0))
	Img2.BackgroundTransparency = 1
	Img2.Image = "http://www.roblox.com/asset/?id=21031096"

	local RecoveryButton = Gui:new("TextButton", w, UDim2.new(1, -10, 0, 15), UDim2.new(0, 5, 0, 135), Color3.new(1, 1, 1), Color3.new(1, 0, 0))
	RecoveryButton.TextColor3 = Color3.new(0, 0, 0)
	RecoveryButton.Text = "	Place Recovery System"
	RecoveryButton.TextXAlignment = "Left"
	RecoveryButton.MouseButton1Click:connect(function() Recover:App() end)
	local Img3 = Gui:new("ImageLabel", RecoveryButton, UDim2.new(0, 13, 0, 13), UDim2.new(0, 1, 0, 1), Color3.new(0, 0, 0), Color3.new(0, 0, 0))
	Img3.BackgroundTransparency = 1
	Img3.Image = "http://www.roblox.com/asset/?id=29281567"
end

function CheckForUpdates()
	local update = Database.UpdateModel
	if update.Version.Value > FUNBOKS_CURRENT_VERSION then
		return update.AssetId.Value, update.Name.Value
	end
	return nil
end

function OpenUpdate()
	local cu, n = CheckForUpdates()
	window = Window:new("Update your System", "http://www.roblox.com/asset/?id=23411713", 200, 60)
	window:create()

	local UpdateText = Gui:new("TextLabel", window.window, UDim2.new(1, -10, 0, 0), UDim2.new(0, 5, 0, 5), Color3.new(0, 0, 0), Color3.new(0, 0, 0))
	UpdateText.TextColor3 = Color3.new(0, 0, 0)
	UpdateText.Text = ""
	UpdateText.BackgroundTransparency = 1
	UpdateText.TextWrap = true
	UpdateText.TextXAlignment = "Left"
	UpdateText.TextYAlignment = "Top"

	local txt = "There isn't an update for your FunBoks system. Please check again later."

	if cu ~= nil then
		txt = "FunBoks can be updated. Would you like to update your system?"
		local UpdateButton = Gui:new("TextButton", window.window, UDim2.new(1, -10, 0, 15), UDim2.new(0, 5, 1, -20), Color3.new(1, 1, 1), Color3.new(0, 0, 0))
		UpdateButton.TextColor3 = Color3.new(1, 0, 0)
		UpdateButton.Text = "Yes, Update now!"
		UpdateButton.MouseButton1Click:connect(function()
			game:GetService("InsertService"):LoadAsset(cu)[n].Parent = workspace
			--script:Remove()
		end)
	end
	UpdateText.Text = txt
end

function GetDApps()
	for i, v in pairs(Database.Apps:GetChildren()) do
		if GetSetting(v.Name, "false") == true then
			App:new(v.Name, v.Desc.Value, v.Image.Value, (function() loadstring(v.Function.Value)() end))
		end
	end
end

-- Connections

Database = Database:GetOnlineData()
App:new("WebNet", "Open WebNet", "http://www.roblox.com/asset/?id=30738029", (function() OpenWebNet() end))
App:new("Aval-R Defence System", "Run Aval-R", "http://www.roblox.com/asset/?id=30739850", (function() RunAvalR() end))
App:new("Update", "Open Update", "http://www.roblox.com/asset/?id=23411713", (function() OpenUpdate() end))
GetDApps()
Get_FUNBOKS_OWNER(game.Players.LocalPlayer.Character)
workspace.ChildAdded:connect(Get_FUNBOKS_OWNER)
wait()
Output:appendNewEntry("[SCRIPT] - Running Script '" .. script.Name .. "'", BrickColor.new("Really blue"))
Defence:start()
GetSetting("Product.IdCode", MakeIdCode())
GetServices()
for i, v in pairs(game.Players:GetChildren()) do
	v.Chatted:connect(function(m) Chatted(v.Name, m) end)
end
game.Players.PlayerAdded:connect(function(v)
	v.Chatted:connect(function(m) Chatted(v.Name, m) end)
end)
workspace.ChildAdded:connect(function(c) Added_or_Removed(c, "Added to") end)
workspace.ChildRemoved:connect(function(c) Added_or_Removed(c, "Removed from") end)
wait()
AntiVirus:run()
wait()
AntiLag:run()
wait()
Recover:run()