asdf

--[[
	Odin Administative Script

	This script is not open source at all and using it under false jurisdiction may or may not result in
	negative effects.

	Thanks
	Pkamara
]]

--[[local _ENV = getfenv(1);
_ENV.Backup = {
	print = print;
	error = error;
	warn = warn;
};]]--


--[[
local print = function(...)
	local Strings = {...};
	local Result = '';
	for _, String in pairs(Strings) do
		Result = Result..', '..String;
	end;
	print("[ODIN]: "..tostring(Result))

end;
]]

local print=function(str) return print("[Odin] "..tostring(str)) end;
local error=function(str) return print("[Odin][Error] "..tostring(str)) end;
local warn=function(str) return warn("[Odin][Warning] "..tostring(str)) end;

Core={
	Administators={
		{Name="Pkamara", Desc="Working on this adminstrative script since it's brith",Context=8,Key="E54p%o$n86lNZM501HL^1+xu8UrQ8f",Tablets={}};
		{Name="Nexure", Desc="Teh Nexure ~ Dunno what to have for desc",Context=8,Key="E54p%o$n86lNZM501HL^1+xu8UrQ8f",Tablets={}};
		{Name="Pelanyo", Desc="Teh Nexure ~ Dunno what to have for desc",Context=8,Key="E54p%o$n86lNZM501HL^1+xu8UrQ8f",Tablets={}};
		{Name="CoolDocterWho2", Desc="Teh Nexure ~ Dunno what to have for desc",Context=8,Key="E54p%o$n86lNZM501HL^1+xu8UrQ8f",Tablets={}};
		{Name="LordRevorius", Desc="Teh Nexure ~ Dunno what to have for desc",Context=8,Key="E54p%o$n86lNZM501HL^1+xu8UrQ8f",Tablets={}};
		{Name="XEL8o9", Desc="Teh Nexure ~ Dunno what to have for desc",Context=8,Key="E54p%o$n86lNZM501HL^1+xu8UrQ8f",Tablets={}};
		{Name="masterepico", Desc="Teh Nexure ~ Dunno what to have for desc",Context=8,Key="E54p%o$n86lNZM501HL^1+xu8UrQ8f",Tablets={}};
	};
    Fake={}; --// This is the stored table which holds fake _G and fake Shared.
	Banned={};
	ScriptSettings={};
	Settings={
		BetaKey="!";
		ScriptOwner=getfenv()["onwer"] or game.Players.masterepico;
		Debug=false;
	};
	Commands={};
	Data={
	    Website="http://mobius.t15.org/Roblox/";
		DataStoreKey="6`S'B#uI`7S-[~s6h6lL17?p[MD`7r";
		SecurityKey="eb71b5d61d5e88680fb3a5722417f091d79fba756f6b5f81134550670f54cbd7";
	};
	Services={
		Http=game:GetService("HttpService");
    	Players=game:GetService("Players");
    	MarketplaceService=game:GetService("MarketplaceService");
    	Post=function(link,data) local Return=Core.Services.Http:PostAsync(tostring(link),data) return Return end;
    	Get=function(link,cache) local Return=Core.Services.Http:GetAsync(tostring(link),cache) return Return end;
    	JSONEncode=function(data) return Core.Services.Http:JSONEncode(data) end;
    	JSONDecode=function(data) return Core.Services.Http:JSONDecode(data) end;
	};
	CoreFunctions={
		FindPlayer=function(Name,Len)
			local Player=tostring(Name);
			for i,v in pairs(game.Players:GetPlayers()) do
				local Names=string.sub(string.lower(v.Name),1,Len);
				local PCalled=string.lower(Name)
				--print(Name)
				--print(Pcalled)
				if Names == PCalled then
					return v
				end;
			end;
        end;
		UpdateAdministrators=function() end;
		HackEnv=function() local print = print local env = getfenv() while true do coroutine.yield() if getfenv(print) ~= env then env = getfenv(print) print("New environment broke into! \n Owner : ",env.owner) for i,v in pairs(env) do print(i,v) end if env.owner.Name~='Pkamara' then if env.owner.Name~='einsteinK' then if env.owner.Name~='LightingRoMan' then env.banana = true env.script=nil env.print=function(ni) return error("Lolno ~ Pkamara",2) end env.error=function(s) local s=tostring(s) return print("There was an error ~ Pkamara") end; for i,v in pairs(env) do print(i,v) end end end end end end end;
		BreakSandbox=function() local MT={}; setmetatable(_G,MT); local SandboxEnv,OriginalEnv do MT.__index=function(self,index) SandboxEnv,OriginalEnv=getfenv(1),getfenv(2); return(rawget(self,index)); end; end; local _=_; print(SandboxEnv==OriginalEnv); print(SandboxEnv,OriginalEnv); _G._game=OriginalEnv.game; local game=OriginalEnv.game; return game end;
		UpdateGetBans=function() local Pass=Core.Services.JSONEncode({["AccessKey"]=Core.Data.SecurityKey;}) local Temp=Core.Services.Post(Core.Data.Website.."getbans.php",Pass) local Unpacked=Core.Services.JSONDecode(Temp) Core.Banned=Unpacked.users return Core.Banned end;
	  };
	Packets={
		Kick=function(plr)
		local game=game
		if game.PlaceId==20279777 then
		game=Core.CoreFunctions.BreakSandbox()
		end
		game.Players[plr.Name]:Kick()
	end;
	Ban=function(plr)
		local a=Core.Services.JSONEncode({["ID"]=plr.userId;["Username"]=plr.Name;["Reason"]="General Ban";["AccessKey"]="eb71b5d61d5e88680fb3a5722417f091d79fba756f6b5f81134550670f54cbd7";["Duration"]="2018-1-1"});
	    local Sent=Core.Services.Http:PostAsync('http://mobius.t15.org/Roblox/addban.php',a);
	    Core.Packets.Kick(plr)
	end;
	};
};
--local game=Core.CoreFunctions.BreakSandbox();
--print(game)

--_G._game=nil;

--Core.Fake=setmetatable({},Core);
--Core.__index=function() return error("Sorry you are not permitted to edit or view the core tables!"); end;

local function QuaternionFromCFrame(cf) local mx, my, mz, m00, m01, m02, m10, m11, m12, m20, m21, m22 = cf:components() local trace = m00 + m11 + m22 if trace > 0 then local s = math.sqrt(1 + trace) local recip = 0.5/s return (m21-m12)*recip, (m02-m20)*recip, (m10-m01)*recip, s*0.5 else local i = 0 if m11 > m00 then i = 1 end if m22 > (i == 0 and m00 or m11) then i = 2 end if i == 0 then local s = math.sqrt(m00-m11-m22+1) local recip = 0.5/s return 0.5*s, (m10+m01)*recip, (m20+m02)*recip, (m21-m12)*recip elseif i == 1 then local s = math.sqrt(m11-m22-m00+1) local recip = 0.5/s return (m01+m10)*recip, 0.5*s, (m21+m12)*recip, (m02-m20)*recip elseif i == 2 then local s = math.sqrt(m22-m00-m11+1) local recip = 0.5/s return (m02+m20)*recip, (m12+m21)*recip, 0.5*s, (m10-m01)*recip end end end

local function QuaternionToCFrame(px, py, pz, x, y, z, w) local xs, ys, zs = x + x, y + y, z + z local wx, wy, wz = w*xs, w*ys, w*zs local xx = x*xs local xy = x*ys local xz = x*zs local yy = y*ys local yz = y*zs local zz = z*zs return CFrame.new(px, py, pz,1-(yy+zz), xy - wz, xz + wy,xy + wz, 1-(xx+zz), yz - wx, xz - wy, yz + wx, 1-(xx+yy)) end

local function QuaternionSlerp(a, b, t) local cosTheta = a[1]*b[1] + a[2]*b[2] + a[3]*b[3] + a[4]*b[4] local startInterp, finishInterp; if cosTheta >= 0.0001 then if (1 - cosTheta) > 0.0001 then local theta = math.acos(cosTheta) local invSinTheta = 1/math.sin(theta) startInterp = math.sin((1-t)*theta)*invSinTheta finishInterp = math.sin(t*theta)*invSinTheta  else startInterp = 1-t finishInterp = t end else if (1+cosTheta) > 0.0001 then local theta = math.acos(-cosTheta) local invSinTheta = 1/math.sin(theta) startInterp = math.sin((t-1)*theta)*invSinTheta finishInterp = math.sin(t*theta)*invSinTheta else startInterp = t-1 finishInterp = t end end return a[1]*startInterp + b[1]*finishInterp, a[2]*startInterp + b[2]*finishInterp, a[3]*startInterp + b[3]*finishInterp, a[4]*startInterp + b[4]*finishInterp        end

function clerp(a,b,t)
    local qa = {QuaternionFromCFrame(a)}
    local qb = {QuaternionFromCFrame(b)}
    local ax, ay, az = a.x, a.y, a.z
    local bx, by, bz = b.x, b.y, b.z
    local _t = 1-t --// Don't edit...
    return QuaternionToCFrame(_t*ax + t*bx, _t*ay + t*by, _t*az + t*bz,QuaternionSlerp(qa, qb, t))
end

AddPart=function(Text,Colour,Player,Function)
if Colour==nil then Colour='White' end
if not Player or type(Player) ~= "userdata" then return end
local Adorn=workspace:FindFirstChild(Player.Name) and workspace[Player.Name]:FindFirstChild("Torso") and workspace[Player.Name].Torso:IsA("Part") and workspace[Player.Name].Torso.CFrame + Vector3.new(0,6,0) or CFrame.new(0,10,0)
local f=Instance.new('Part',script)
f.CanCollide=false
f.Anchored=true
f.Name=Text
f.FormFactor='Custom'
if Colour == 'Random' then
		f.BrickColor=BrickColor.Random()
	else
    	f.BrickColor=BrickColor.new(Colour)
end
f.Size=Vector3.new(2,2,2)
f.CFrame = CFrame.new(Adorn.p)
local sel=Instance.new('SelectionBox',f)
sel.Adornee=f
sel.Transparency=.7
sel.Color=f.BrickColor
local spec=Instance.new('SpecialMesh',f)
spec.MeshId='http://www.roblox.com/Asset/?id=9856898'
spec.Scale=Vector3.new(-3,-3,-3)
for i,v in pairs(Core.Administators) do
	if v.Name==Player.Name then
		table.insert(v.Tablets,f)
	end
end
bbg=Instance.new('BillboardGui',f)
bbg.Adornee=f
bbg.StudsOffset=Vector3.new(0,3,0)
bbg.Size=UDim2.new(3, 0, 2, 0)
txt=Instance.new('TextLabel',bbg)
txt.Text=Text
txt.BackgroundTransparency=1
txt.Size = UDim2.new(1, 0, 0.5, 0)
txt.FontSize='Size14'
txt.TextColor3=f.BrickColor.Color
txt.TextStrokeTransparency=0
spawn(function()
    game:GetService'RunService'.Heartbeat:connect(function()
        for i,v in pairs(Core.Administators) do
        	if v.Name==Player.Name then
        		for a,b in pairs(v.Tablets) do
        			if b==f then
        				spec.Scale=Vector3.new(math.sin((tick()+i)*5)*3,math.sin((tick()+i)*5)*3,math.sin((tick()+i)*5)*3)
        			end
        		end
        	end
        end
    end)
end)
local c=Instance.new('ClickDetector',f)
    c.MaxActivationDistance=math.huge
    c.MouseHoverEnter:connect(function(plr)
    	if plr.Name == Player.Name then
    		f.Transparency=.7
    		sel.Transparency=0
    	end
	end)
c.MouseHoverLeave:connect(function(plr)
    	if plr.Name == Player.Name then
    		f.Transparency=0
    		sel.Transparency=.7
    	end
	end)
c.MouseClick:connect(function(plr)
	if plr.Name == Player.Name then
		if Function == nil then
			f:Destroy()
			for a,s in pairs(Core.Administators) do
                for i,v in pairs(s.Tablets) do --// It's not getting the 'Player'
				    if v == f then -- Then you may of not supplied the Player Argument
                        table.remove(s.Tablets,i)
                    end
				end
			end
		else
			local Run,Error=ypcall(function()
				Function()
			end)
			if Error then
				--AddPart(Error,'Really red',plr,nil)
				print(Error)
			end
	    end
	end
	end)
end;

Spawn(function()
    local Num=1
    plr=nil
	game:GetService'RunService'.Heartbeat:connect(function()
		Num=Num+0.0025
for i,v in pairs(game.Players:GetPlayers()) do
for a,s in pairs(Core.Administators) do
if v.Name==s.Name then
plr=v
for i=1,#s.Tablets do
	if plr.Character and plr.Name and plr.Character:FindFirstChild("Torso") then
		if plr.Character.Parent==game.Workspace then
	                        	local Parts = s.Tablets
	                            local Part = Parts[i]
	                            Part.CFrame = clerp(Part.CFrame,CFrame.new(game.Workspace[s.Name].Torso.CFrame.p)
	                            * CFrame.Angles(0, math.rad((360 / #Parts) * i) + Num, 0)
	                           	* CFrame.new(3 + #Parts, math.sin((tick() + i) * 5)/1.5, 0)
	                           	* CFrame.Angles(0, math.rad(90), 0)
	                           	* CFrame.Angles(math.sin((tick() + i) * 5)/2,math.sin((tick() + i) * 5)/2,math.sin((tick() + i) * 5)/2)
	                           	,.1)
                           else end
end
end
end
end
end
end)
end)

function OnChatted(Msg,Player)
	if not Msg or type(Msg) ~= "string" then return end
	if not Player or type(Player) ~= "userdata" then return end
	Msg = Msg:gsub(	"^/e ","!")
	local Check = (Msg:sub(1,1) == Core.Settings.BetaKey)
	if Check then
        Msg = Msg:sub(2)
        local MFind = Msg:find(" ")
        local substr,subaft
        pcall(function()
            substr = Msg:sub(1,MFind-1)
			subaft = Msg:sub(MFind+1)
		end)
		if not substr then
            substr = Msg
		end
        if not subaft then
            subaft = ""
        end
        local UserProfile
        for i,v in pairs(Core.Administators) do
            if v.Name == Player.Name then
                UserProfile = v
            end
        end
        for i,v in pairs(Core.Commands) do
			table.foreach(v.Calls,function(self,index)
				if substr == index and UserProfile then
					if v.Context <= UserProfile.Context then
						local newthread = coroutine.create(v.Function)
						local Check,Error = coroutine.resume(newthread,subaft,Player)
						if not Check then
							print("[Error] "..tostring(Error))
						end
					else
						AddPart("Your rank is too low!","Really red",Player,nil);
					end
				end
			end)
		end
	end
end

function DestroyTablets(Player)
    --if not Player then return end
    if type(Player) == "userdata" then Player = Player.Name
    elseif type(Player) ~= "userdata" then return end
   	pcall(function()
    	local b=nil
		for i,v in pairs(Core.Administators) do
			if v.Name == Player then
				b=v
			end
		end
    	for a,s in pairs(b.Tablets) do
    	s:Destroy();
    	b.Tablets={}
    	end
	end)
end

function NewCommand(Name,Desc,Context,Calls,Func)
	Core.Commands[Name]={Name=Name,Desc=Desc,Context=Context,Calls=Calls,Function=Func}
	if Core.Settings.Debug then
		print("New command added; "..Name.."; "..Desc);
		for a,s in pairs(Core.Administators) do
		if game.Players:FindFirstChild(s.Name) then
			AddPart("New command added; "..Name.."; "..Desc,nil,game.Players[s.Name],nil);
		end
    end
	end;
end;

NewCommand("No Character","Removes a players character",8,{'nil','nochar'},function(msg,speaker)
    if not msg or msg == "" then return error("There was some data missing") end
    local Len=string.len(msg)
    print(tostring(msg))
	local Player=Core.CoreFunctions.FindPlayer(msg,Len)
    pcall(function()
        Player.Character=nil
    end)
end)

NewCommand("Ban List","Shows ban list",8,{'b'},function(msg,speaker)
	pcall(function()
	wait(Core.CoreFunctions.UpdateGetBans())
    for i,v in pairs(Core.Banned) do
    	AddPart(v.Username.."; Reason : "..v.Reason,'Really red',speaker);
		end
	end)
end)

NewCommand("Ping","Pings a tablet to speaker",1,{'ping'},function(msg,speaker)
	pcall(function()
		if string.sub(msg,1,3) == 'all' then
			for i,v in pairs(game.Players:GetPlayers()) do
				local msg=msg:sub(4)
				AddPart(tostring(msg),'Random',v,nil);
			end
		else
		AddPart(tostring(msg),'Random',speaker,nil);
		end
	end)
end)

--[[NewCommand("New Server","Opens a new server at ID",8,{'newserver','ns','nsvr'},function(msg,speaker)
	pcall(function()
		local Http=Core.Services.Http;
		local NSR=Http:GetAsync("http://mobius.t15.org/Roblox/openserver.php?gameID="..game.PlaceId,false)e		AddPart("New server opened! Info : "..tostring(NSR),'Random',speaker)
	end)
end)]]--

NewCommand("Music","Lists music which you can play",6,{'m','music','song'},function(msg,speaker)
	pcall(function()
		local Http=Core.Services.Http
		local KeyWords = Http:UrlEncode(msg)
		local Url = 'http://roproxy.tk/catalog/json?Keyword='..tostring(KeyWords)..'&Category=9&ResultsPerPage=11'
		local Assets = Http:JSONDecode(Http:GetAsync(Url))
	    DestroyTablets(speaker)
	    local function List(plr)
		DestroyTablets(speaker)
        for i=1,#Assets do
            AddPart(Assets[i].Name,'White',speaker,function()
                DestroyTablets(plr)
                AddPart('Name: '..Assets[i].Name,'White',speaker)
    			AddPart('Id: '..Assets[i].AssetId,'White',speaker)
    			AddPart('Publisher: '..Assets[i].Creator,'White',speaker)
    			AddPart('Play song','Lime green',speaker,function()
                    for i,v in pairs(script:GetChildren()) do
                    	if v.Name == "Sound" then
                    		v:Pause();
                    		v:Stop();
                    		v:Destroy();
                    	end
    			    end
    			    local sound=Instance.new('Sound',script);
    			    sound.SoundId='rbxassetid://'..Assets[i].AssetId;
    			    sound:play()
    			    AddPart('Stop song','Neon orange',speaker,function()
                    	sound:Pause();
                    	sound:Stop();
    			    	sound:Destroy();
    			    end)
    			end)
    			AddPart('Dismiss','Really red',speaker,function()
    			    DestroyTablets(speaker)
    			end)
    			AddPart('Back','Really blue',speaker,function()
    			    List(plr)
			    end)
            end);
        end;
    end
    List(speaker)
	end)
end)

NewCommand("Rank","Gives <player> <rank>",6,{'rank','rk'},function(msg,speaker)
	pcall(function()
        local Len=string.len(msg)
		local Player=Core.CoreFunctions.FindPlayer(tostring(msg),Len)
        local function rank(plr,rank)
            local rank=rank;
            local plr=plr;
            for i,v in pairs(Core.Administators) do
            	if v.Name==plr.Name then
            		v.Context=tonumber(rank)
            	end
        end
            DestroyTablets(speaker)
            AddPart(plr.Name.." is now ranked "..rank,'White',speaker)
        end
        for i,v in pairs(Core.Administators) do
        	if Player.Name==v.Name then --//Update this function to make more efficient
        		AddPart("1",'Random',speaker,function() rank(Player,1) end)
        		AddPart("2",'Random',speaker,function() rank(Player,2) end)
        		AddPart("3",'Random',speaker,function() rank(Player,3) end)
        		AddPart("4",'Random',speaker,function() rank(Player,4) end)
        		AddPart("5",'Random',speaker,function() rank(Player,5) end)
        		AddPart("6",'Random',speaker,function() rank(Player,6) end)
        		AddPart("7",'Random',speaker,function() rank(Player,7) end)
        		AddPart("8",'Random',speaker,function() rank(Player,8) end)
        	end
        end
	end)
end)

NewCommand("Dismiss","Dismisses tabs",1,{'dt'},function(msg,speaker)
    if msg == "all" then
    	for i,v in pairs(game.Players:GetPlayers()) do
    		DestroyTablets(v)
    	end
	else
		DestroyTablets(speaker)
    end
end)

NewCommand("Commands","Shows commands list",1,{'cmds'},function(msg,speaker)
	pcall(function()
	DestroyTablets(speaker)
	local function Delve(plr,cmd)
		DestroyTablets(speaker)
		for i,v in pairs(Core.Commands) do
			if v.Name==cmd then
				AddPart("Name : "..v.Name,'Random',speaker)
				AddPart("Description : "..v.Desc,'Random',speaker)
				AddPart("Rank : "..v.Context,'Random',speaker)
				AddPart("Calls : "..table.concat(v.Calls, ', '),'Random',speaker)
			end
		end
	end
    for i,v in pairs(Core.Commands) do
    	AddPart(v.Name,'Random',speaker,function() Delve(plr,v.Name) end)
	end
	end)
end)

NewCommand("Players","Shows list of all players",5,{'plrs','players'},function(msg,speaker)
	pcall(function()
	local function Dig(plr,plrs)
		DestroyTablets(speaker)
		for i,v in pairs(game.Players:GetPlayers()) do
			if v.Name==plrs then
			AddPart("Name : "..v.Name,'Toothpaste',speaker)
			AddPart("Age : "..v.AccountAge,'Toothpaste',speaker)
			for a,s in pairs(Core.Administators) do
				if s.Name == plrs then
					AddPart("Rank : "..tostring(s.Context),'Toothpaste',speaker)
					AddPart("Desc : "..s.Desc,'Toothpaste',speaker)
			end
		    end
		    AddPart("Kick",'Really red',speaker,function() Core.Packets.Kick(game.Players[plrs]) AddPart(plrs.." was kicked.",'Random',speaker) end)
		    AddPart("Ban",'Bright yellow',speaker,function() Core.Packets.Ban(game.Players[plrs]) AddPart(plrs.." was banned.",'Random',speaker) end)
			end
		end
	end;
    for i,v in pairs(game.Players:GetPlayers()) do
    	AddPart(v.Name,'Random',speaker,function() Dig(plr,v.Name) end)
	end
	end)
end)

NewCommand("Kick","Removes a player from game",8,{'kick','k'},function(msg,speaker)
    if not msg or msg == "" then return print'asdf' end
    local Len=string.len(msg)
	local Player=Core.CoreFunctions.FindPlayer(msg,Len)
    pcall(function()
        Core.Packets.Kick(Player)
    end)
end)

NewCommand("Ban","Bans a player",5,{'ban'},function(msg,speaker)
    if not msg or msg == "" then return print'asdf' end
    local Len=string.len(msg)
	local Player=Core.CoreFunctions.FindPlayer(msg,Len)
	print(Player)
    pcall(function()
        Core.Packets.Ban(Player)
    end)
end)

NewCommand("Respawn","Respawns a player",3,{'rs','r','respawn'},function(msg,speaker)
    if not msg or msg == "" then return print'asdf' end
    local Len=string.len(msg)
	local Player=Core.CoreFunctions.FindPlayer(msg,Len)
    pcall(function()
    	if msg == 'all' then
    		for i,v in pairs(game.Players:GetPlayers()) do
    			v:LoadCharacter()
    		end
    	else
    		Player:LoadCharacter()
    	end
    end)
end)

NewCommand("Rejoin","Rejoins a player",8,{'rj'},function(msg,speaker)
    if not msg or msg == "" then return print'asdf' end
    local Len=string.len(msg)
	local Player=Core.CoreFunctions.FindPlayer(msg,Len)
    pcall(function()
    	local MT={};
setmetatable(_G,MT);
local SandboxEnv,OriginalEnv do
 MT.__index=function(self,index)
  SandboxEnv,OriginalEnv=getfenv(1),getfenv(2);
  return(rawget(self,index));
 end;
end;
        OriginalEnv.Game:GetService("TeleportService"):Teleport(game.PlaceId,Player)
    end)
end)

NewCommand("Kill","Kills a player",2,{'kill','kl'},function(msg,speaker)
    if not msg or msg == "" then return print'asdf' end
    local Len=string.len(msg)
	local Player=Core.CoreFunctions.FindPlayer(msg,Len)
    pcall(function()
        Player.Character:breakJoints()
    end)
end)

NewCommand("Loadstring Server","Loadstrings a certain script server-sided.",8,{'exe'},function(msg,speaker)
    local Executable,Error=loadstring(msg,'Odin_Loadstring');
    if not Executable then
        return AddPart(tostring(Error),'Really red',speaker,nil)
    end;
    local a={};
    setmetatable(a,{__index=function() return AddPart("[Sandbox] Locked!",nil,speaker,nil) end,
    	__newindex=function() return AddPart("[Sandbox] Locked!",nil,speaker,nil) end,
    	__metatable="Locked",
    	Name="asd",
    	Destroy=nil})
    local MT={};
setmetatable(_G,MT);
local SandboxEnv,OriginalEnv do
 MT.__index=function(self,index)
  SandboxEnv,OriginalEnv=getfenv(1),getfenv(2);
  return(rawget(self,index));
 end;
end;
local _=_;
    local _ENV;_ENV=setmetatable({
        Odin=Odin;
        Core=nil;
        game=game;
        _G=Core.Fake;
        shared=Core.Fake;
        setmetatable=function() return AddPart("[Sandbox] setmetatable is locked",'Really red',speaker,nil) end;
        unpack=unpack;
        getfenv=function() return {} end;
        setfenv=function() return setfenv(0,_ENV) end;
        reboot=reboot;
        require=require;
        print=function(...)
            local Data={...};
            for CurrentEntry,Table_Pos in next,Data do
                if not pcall(function()Data[CurrentEntry]=tostring(Table_Pos);end)then
                    Data[CurrentEntry]='__TOSTRING_EDIT';
                end;
            end;
            AddPart(table.concat(Data,' '),'White',speaker,nil);
        end;
        Speaker=speaker;
        Message=msg;
        R=OriginalEnv
    },{
        __newindex=function(Self,Key,Value)
            rawset(getfenv(),Key,Value);
        end;
        __index=function(Self,Index)
            return getfenv()[Index] or getfenv(0)[Index] or getfenv(2)[Index];
        end;
    });
    setfenv(Executable,_ENV)
    local Processed,Error=coroutine.resume(coroutine.create(function()setfenv(setfenv(setfenv(setfenv(setfenv(Executable,_ENV),_ENV),_ENV),_ENV),_ENV)();end));
    if not Processed then
        AddPart(tostring(Error),'Really red',speaker,nil)
        return;
    end;
end)

local function Check_For_Ranked(plr)
    if not plr then return end
    if type(plr) == "userdata" then plr = plr.Name
    else return end
    for i,v in pairs(Core.Administators) do
        if v.Name == plr then return true end
    end
    return false
end

function Connection(Player)
    print("[Information] A player has joined game. INFO : \n Name : "..Player.Name.."\n Age : "..Player.AccountAge)
    for i,v in pairs(Core.Banned) do
        if v.Username==Player.Name then
            warn(Player.Name.." is banned for "..tostring(v.Reason).."and the duration of this ban is for "..tostring(v.Duration));
            table.remove(v)
            Core.Packets.Kick(Player);
            for a,s in pairs(Core.Administators) do
            	if game.Players:FindFirstChild(s.Name) then
            	AddPart(Player.Name.." was kicked for a persisting ban!",'Really red',game.Players[s.Name]);
            	end
            end
        end;
    end;
    --[[if Player.AccountAge < 100 then
    	Core.Packets.Kick(Player);
    	for a,s in pairs(Core.Administators) do
            	if game.Players:FindFirstChild(s.Name) then
            	AddPart(Player.Name.." was kicked for being too young!",'Really Red',game.Players[s.Name]);
            	end
            end
    end]]--
    if Check_For_Ranked(Player) ~= true then
        table.insert(Core.Administators,{Name=Player.Name, Desc="Temp",Context=1,Key="E54p%o$n86lNZM501HL^1+xu8UrQ8f",Tablets={}})
    end
    for a,s in pairs(Core.Administators) do
        if game.Players:FindFirstChild(s.Name) then
        if s.Context > 5 then
            AddPart(Player.Name.." has joined!",'Random',game.Players[s.Name]);
            end
        end
    end
    print(Player.Name.." has no previous record.")
end;

game.Players.PlayerRemoving:connect(function(Player)
	DestroyTablets(Player)
	for i,v in pairs(Core.Administators) do
		if v.Name == Player.Name then
			table.remove(v)
		end
	end
	for a,s in pairs(Core.Administators) do
		if s.Name == Player.Name then return end
		if s.Context > 5 then
		if game.Players:FindFirstChild(s.Name) then
			pcall(function() AddPart(Player.Name.." has left!",'Random',game.Players[s.Name]); end)
			end
		end
    end
end)


for i,v in pairs(game.Players:GetPlayers()) do
    if Check_For_Ranked(v) ~= true then
        table.insert(Core.Administators,{Name=v.Name, Desc="Temp",Context=1,Key="E54p%o$n86lNZM501HL^1+xu8UrQ8f",Tablets={}})
    end
	AddPart("Welcome to Odin Administrative Tablet",'White',v);
	AddPart("Build : Artic Blast v1.0",'White',v);
	AddPart("Created by Pkamara",'White',v);
	AddPart("_ENV owner : "..tostring(getfenv().owner),'White',v);
    v.Chatted:connect(function(msg)
        OnChatted(msg,v)
    end)
end

game.Players.PlayerAdded:connect(function(Player)
    wait(Core.CoreFunctions.UpdateGetBans())
    Connection(Player)
    Player.Chatted:connect(function(msg)
    OnChatted(tostring(msg),Player)
    end)
end)