showServerNotifications = true

--function made by rbxbanland
function newWaitForChild(newParent,name)
	local returnable = nil
	if newParent:findFirstChild(name) then
		returnable = newParent:findFirstChild(name)
	else 
		repeat wait() returnable = newParent:findFirstChild(name)  until returnable ~= nil
	end
	return returnable
end

function KickPlayer(Player,reason)
	pcall(function() _G.CSScript_OnPrePlayerKicked(Player,reason) end)

	if (game.Lighting:findFirstChild("SkipSecurity") ~= nil) then
		do return end
	end
	
	Server = game:service("NetworkServer")
	
	if (Player ~= nil) then
		pcall(function() _G.CSScript_OnPlayerKicked(Player,reason) end)
	
		for _,Child in pairs(Server:children()) do
			name = "ServerReplicator|"..Player.Name.."|"..Player.userId.."|"..Player.AnonymousIdentifier.Value
			if (Server:findFirstChild(name) ~= nil and Child.Name == name) then
				Child:CloseConnection()
				print("Player '" .. Player.Name .. "' Kicked. Reason: "..reason)
			end
		end
	end
end

function newWaitForChildSecurity(newParent,name)
	local returnable = nil
	local loadAttempts = 0
	local maxAttempts = 5
	while loadAttempts < maxAttempts do
		if newParent:findFirstChild(name) then
			returnable = newParent:findFirstChild(name)
			break
		end
		wait()
		loadAttempts = loadAttempts + 1
		print("Player '" .. newParent.Name .. "' trying to connect. Number of attempts: "..loadAttempts)
	end
		
	if (loadAttempts == maxAttempts) then
		KickPlayer(newParent, "Modified Client")
	end
		
	return returnable
end

function LoadCharacterNew(playerApp,newChar)
	if (game.Lighting:findFirstChild("DisableCustomization") ~= nil) then
		do return end
	end
	
	wait(0.65)
	
	PlayerService = game:service("Players")
	Player = PlayerService:playerFromCharacter(newChar)
	
	local function kick()
		KickPlayer(Player, "Modified Client")
	end
	
	if (playerApp == nil) then
		kick()
	end
	
	if (not Player:findFirstChild("Appearance")) then
		kick()
	end
	
	if ((playerApp:children() == 0) or (playerApp:children() == nil)) then
		kick()
	end
	
	local path = "rbxasset://../../../shareddata/charcustom/"
	
	local charparts = {[1] = newWaitForChild(newChar,"Head"),[2] = newWaitForChild(newChar,"Torso"),[3] = newWaitForChild(newChar,"Left Arm"),[4] = newWaitForChild(newChar,"Right Arm"),[5] = newWaitForChild(newChar,"Left Leg"),[6] = newWaitForChild(newChar,"Right Leg")}
	for _,newVal in pairs(playerApp:children()) do
		if (string.match(newVal.Name, "Color") == "Color") then 
			pcall(function() 
				charparts[newVal.ColorIndex.Value].BrickColor = newVal.Value 
			end)
		elseif (string.match(newVal.Name, "Shirt") == "Shirt")  then
			pcall(function()
				local newTShirt = "";
				if (string.match(newVal.Value, "http") == "http") then
					if (string.match(newVal.Value, "?id=") ~= "?id=")  then
						newWaitForChild(charparts[2],"roblox"):remove()
						newDecal = Instance.new("Decal")
						newDecal.Name = "novetus"
						newDecal.Texture = newVal.Value
						newDecal.Face = 5
						newDecal.Parent = charparts[2]
					end
				else
					newTShirt = game.Workspace:insertContent(path.."tshirts/"..newVal.Value)
					if newTShirt[1] then 
						if newTShirt[1].className == "ShirtGraphic" then
							newWaitForChild(charparts[2],"roblox"):remove()
							newDecal = Instance.new("Decal")
							newDecal.Name = "novetus"
							newDecal.Face = 5
							newDecal.Parent = charparts[2]
							newTShirt[1].Parent = newChar
						else
							newTShirt[1]:remove()
						end
					end
				end
			end)
		elseif (string.match(newVal.Name, "Extra") == "Extra")  then
			pcall(function()
				local newItem = game.Workspace:insertContent(path.."custom/"..newVal.Value)
				if newItem[1] then 
					if newItem[1].className == "Decal" then
						newWaitForChild(charparts[1],"face"):remove()
						newItem[1].Parent = charparts[1]
						newItem[1].Face = 5
					elseif newPart[1].className == "SpecialMesh" or newPart[1].className == "CylinderMesh" or newPart[1].className == "BlockMesh" then
						newWaitForChild(charparts[1],"Mesh"):remove()
						newItem[1].Parent = charparts[1]
					else
						newItem[1].Parent = newChar
					end
				end
			end)
		end
	end
	
	pcall(function() _G.CSScript_OnLoadCharacter(Player, playerApp) end)
end

function InitalizeClientAppearance(Player,Hat1ID,Hat2ID,Hat3ID,HeadColorID,TorsoColorID,LeftArmColorID,RightArmColorID,LeftLegColorID,RightLegColorID,TShirtID,ShirtID,PantsID,FaceID,HeadID,ItemID)
	local newCharApp = Instance.new("IntValue",Player)
	newCharApp.Name = "Appearance"
	--BODY COLORS
	for i=1,6,1 do
		local BodyColor = Instance.new("BrickColorValue",newCharApp)
		if (i == 1) then
			if (HeadColorID ~= nil) then
				BodyColor.Value = BrickColor.new(HeadColorID)
			else
				BodyColor.Value = BrickColor.new(1)
			end
			BodyColor.Name = "Head Color"
		elseif (i == 2) then
			if (TorsoColorID ~= nil) then
				BodyColor.Value = BrickColor.new(TorsoColorID)
			else
				BodyColor.Value = BrickColor.new(1)
			end
			BodyColor.Name = "Torso Color"
		elseif (i == 3) then
			if (LeftArmColorID ~= nil) then
				BodyColor.Value = BrickColor.new(LeftArmColorID)
			else
				BodyColor.Value = BrickColor.new(1)
			end
			BodyColor.Name = "Left Arm Color"
		elseif (i == 4) then
			if (RightArmColorID ~= nil) then
				BodyColor.Value = BrickColor.new(RightArmColorID)
			else
				BodyColor.Value = BrickColor.new(1)
			end
			BodyColor.Name = "Right Arm Color"
		elseif (i == 5) then
			if (LeftLegColorID ~= nil) then
				BodyColor.Value = BrickColor.new(LeftLegColorID)
			else
				BodyColor.Value = BrickColor.new(1)
			end
			BodyColor.Name = "Left Leg Color"
		elseif (i == 6) then
			if (RightLegColorID ~= nil) then
				BodyColor.Value = BrickColor.new(RightLegColorID)
			else
				BodyColor.Value = BrickColor.new(1)
			end
			BodyColor.Name = "Right Leg Color"
		end
		local indexValue = Instance.new("NumberValue")
		indexValue.Name = "ColorIndex"
		indexValue.Parent = BodyColor
		indexValue.Value = i
	end
	--T-SHIRT
	local newTShirt = Instance.new("StringValue",newCharApp)
	if (TShirtID ~= nil) then
		newTShirt.Value = TShirtID
		newTShirt.Name = "T-Shirt - "..TShirtID
	else
		newTShirt.Value = "NoTShirt.rbxm"
		newTShirt.Name = "T-Shirt - NoTShirt.rbxm"
	end
	--EXTRA
	local newItem = Instance.new("StringValue",newCharApp)
	if (ItemID ~= nil) then
		newItem.Value = ItemID
		newItem.Name = "Extra - "..ItemID
	else
		newItem.Value = "NoExtra.rbxm"
		newItem.Name = "Extra - NoExtra.rbxm"
	end
end

function LoadSecurity(playerApp,Player,ServerSecurityLocation)
	local function kick()
		KickPlayer(Player, "Modified Client")
	end
	
	if (playerApp == nil) then
		kick()
	end
	
	if (not Player:findFirstChild("Security")) then
		kick()
	end
	
	if (not playerApp:findFirstChild("ClientEXEMD5") or not playerApp:findFirstChild("LauncherMD5") or not playerApp:findFirstChild("ClientScriptMD5")) then
		kick()
	end
	
	for _,newVal in pairs(playerApp:children()) do
		if (newVal.Name == "ClientEXEMD5") then
			if (newVal.Value ~= ServerSecurityLocation.Security.ClientEXEMD5.Value or newVal.Value == "") then
				kick()
				break
			end
		end
				
		if (newVal.Name == "LauncherMD5") then
			if (newVal.Value ~= ServerSecurityLocation.Security.LauncherMD5.Value or newVal.Value == "") then
				kick()
				break
			end
		end
				
		if (newVal.Name == "ClientScriptMD5") then
			if (newVal.Value ~= ServerSecurityLocation.Security.ClientScriptMD5.Value or newVal.Value == "") then
				kick()
				break
			end
		end
	end
end

function InitalizeSecurityValues(Location,ClientEXEMD5,LauncherMD5,ClientScriptMD5)
	Location = Instance.new("IntValue", Location)
	Location.Name = "Security"
	
	local clientValue = Instance.new("StringValue", Location)
	clientValue.Value = ClientEXEMD5 or ""
	clientValue.Name = "ClientEXEMD5"

	local launcherValue = Instance.new("StringValue", Location)
	launcherValue.Value = LauncherMD5 or ""
	launcherValue.Name = "LauncherMD5"

	local scriptValue = Instance.new("StringValue", Location)
	scriptValue.Value = ClientScriptMD5 or ""
	scriptValue.Name = "ClientScriptMD5"
end

function InitalizeTripcode(Location,Tripcode)
	local code = Instance.new("StringValue", Location)
	code.Value = Tripcode or ""
	code.Name = "Tripcode"
end

function LoadTripcode(Player)
	local function kick()
		KickPlayer(Player, "Modified Client")
	end
	
	if (not Player:findFirstChild("Tripcode")) then
		kick()
	end
	
	for _,newVal in pairs(Player:children()) do
		if (newVal.Name == "Tripcode") then
			if (newVal.Value == "") then
				kick()
				break
			end
		end
	end
end

print("ROBLOX Client version '0.3.368.0' loaded.")

function CSServer(Port,PlayerLimit,ClientEXEMD5,LauncherMD5,ClientScriptMD5,Notifications)
	pcall(function() dofile("rbxasset://..//..//..//addons//core//AddonLoader.lua") end)
	pcall(function() _G.CSScript_PreInit("Server", "2007E") end)
	Server = game:service("NetworkServer")
	RunService = game:service("RunService")
	PlayerService = game:service("Players")
	game:service("Visit"):setUploadUrl("")
	Server:start(Port, 20)
	RunService:run()
	showServerNotifications = Notifications
	game.Workspace:insertContent("rbxasset://Fonts//libraries.rbxm")
	if (showServerNotifications) then
		PlayerService.maxPlayers = PlayerLimit + 1
		--create a fake player to record connections and disconnections
		notifyPlayer = game:service("Players"):createLocalPlayer(-1)
		notifyPlayer.Name = "[SERVER]"
	else
		PlayerService.maxPlayers = PlayerLimit
	end
	
	local playerCount = 0
	PlayerService.ChildAdded:connect(function(Player)
		-- create anonymous player identifier. This is so we can track clients without tripcodes
		playerCount = playerCount + 1
		
		local code = Instance.new("StringValue", Player)
		code.Value = playerCount
		code.Name = "AnonymousIdentifier"
	
		-- rename all Server replicators in NetworkServer to "ServerReplicator"
		for _,Child in pairs(Server:children()) do
			name = "ServerReplicator|"..Player.Name.."|"..Player.userId.."|"..Player.AnonymousIdentifier.Value
			if (Server:findFirstChild(name) == nil) then
				if (string.match(Child.Name, "ServerReplicator") == nil) then
					Child.Name = name
				end
			end
		end
	
		Player.Chatted:connect(function(msg)
			print(Player.Name.."; "..msg)
		end)
		
		if (PlayerService.numPlayers > PlayerService.maxPlayers) then
			KickPlayer(Player, "Too many players on server.")
		else
			print("Player '" .. Player.Name .. "' with ID '" .. Player.userId .. "' added")
			if (showServerNotifications) then
				game.Players:Chat("Player '" .. Player.Name .. "' joined")
			end
			Player:LoadCharacter()
			LoadSecurity(newWaitForChildSecurity(Player,"Security"),Player,game.Lighting)
			newWaitForChildSecurity(Player,"Tripcode")
			LoadTripcode(Player)
			pcall(function() print("Player '" .. Player.Name .. "-" .. Player.userId .. "' security check success. Tripcode: '" .. Player.Tripcode.Value .. "'") end)
			if (Player.Character ~= nil) then
				LoadCharacterNew(newWaitForChildSecurity(Player,"Appearance"),Player.Character)
			end
		end
		
		pcall(function() _G.CSScript_OnPlayerAdded(Player) end)
		
		coroutine.resume(coroutine.create(function()
			while Player ~= nil do
				wait(0.1)
				if (game.Lighting:findFirstChild("DisableRespawns") == nil) then
					if (Player.Character ~= nil) then
						if (Player.Character:findFirstChild("Humanoid") and (Player.Character.Humanoid.Health == 0)) then
							wait(5)
							Player:LoadCharacter()
							LoadCharacterNew(newWaitForChildSecurity(Player,"Appearance"),Player.Character)
						elseif (Player.Character.Parent == nil) then 
							wait(5)
							Player:LoadCharacter()
							LoadCharacterNew(newWaitForChildSecurity(Player,"Appearance"),Player.Character)
						end
					end
				end
			end
		end))
	end)
	PlayerService.PlayerRemoving:connect(function(Player)
		print("Player '" .. Player.Name .. "' with ID '" .. Player.userId .. "' leaving")
		if (showServerNotifications) then
			game.Players:Chat("Player '" .. Player.Name .. "' left")
		end
		
		pcall(function() _G.CSScript_OnPlayerRemoved(Player) end)
	end)
	InitalizeSecurityValues(game.Lighting,ClientEXEMD5,LauncherMD5,ClientScriptMD5)
	Server.IncommingConnection:connect(IncommingConnection)
	pcall(function() game.Close:connect(function() Server:stop() end) end)
	pcall(function() _G.CSScript_PostInit() end)
	coroutine.resume(coroutine.create(function()
		while true do
			wait(0.1)
			pcall(function() _G.CSScript_Update() end)
		end
	end))
end

function CSConnect(UserID,ServerIP,ServerPort,PlayerName,Hat1ID,Hat2ID,Hat3ID,HeadColorID,TorsoColorID,LeftArmColorID,RightArmColorID,LeftLegColorID,RightLegColorID,TShirtID,ShirtID,PantsID,FaceID,HeadID,IconType,ItemID,ClientEXEMD5,LauncherMD5,ClientScriptMD5,Tripcode,VerifiedScripts,Ticket)
	local suc, err = pcall(function()
		client = game:service("NetworkClient")
		player = game:service("Players"):createLocalPlayer(UserID)
		InitalizeSecurityValues(player,ClientEXEMD5,LauncherMD5,ClientScriptMD5)
		InitalizeTripcode(player,Tripcode)
		player:SetSuperSafeChat(false)
		pcall(function() player:SetUnder13(false) end)
		pcall(function() player:SetAccountAge(365) end)
		player:SetAdminMode(true)
		pcall(function() player.Name=PlayerName or "" end)
		game:service("Visit"):setUploadUrl("")
		InitalizeClientAppearance(player,Hat1ID,Hat2ID,Hat3ID,HeadColorID,TorsoColorID,LeftArmColorID,RightArmColorID,LeftLegColorID,RightLegColorID,TShirtID,ShirtID,PantsID,FaceID,HeadID,ItemID)		
	end)

	local function dieerror(errmsg)
		game:SetMessage(errmsg)
		wait(math.huge)
	end

	if not suc then
		dieerror(err)
	end

	local function disconnect(peer,lostconnection)
		game:SetMessage("You have lost connection to the game")
	end

	local function connected(url, replicator)
		replicator.Disconnection:connect(disconnect)
		local marker = nil
		local suc, err = pcall(function()
			game:SetMessageBrickCount()
			marker = replicator:SendMarker()
		end)
		if not suc then
			dieerror(err)
		end
		marker.Received:connect(function()
			local suc, err = pcall(function()
				game:ClearMessage()
			end)
			if not suc then
				dieerror(err)
			end
		end)
	end

	local function rejected()
		dieerror("Failed to connect to the Game. (Connection rejected)")
	end

	local function failed(peer, errcode, why)
		dieerror("Failed to connect to the Game. (ID="..errcode..")")
	end

	local suc, err = pcall(function()
		game:SetMessage("Connecting to server...")
		client.ConnectionAccepted:connect(connected)
		client.ConnectionRejected:connect(rejected)
		client.ConnectionFailed:connect(failed)
		client:connect(ServerIP,ServerPort, 0, 20)
	end)

	if not suc then
		local x = Instance.new("Message")
		x.Text = err
		x.Parent = workspace
		wait(math.huge)
	end
end

function CSStudio()
	pcall(function() dofile("rbxasset://..//..//..//addons//core//AddonLoader.lua") end)
	pcall(function() _G.CSScript_PreInit("Studio", "2007E") end)
	pcall(function() _G.CSScript_PostInit() end)
	coroutine.resume(coroutine.create(function()
		while true do
			wait(0.1)
			pcall(function() _G.CSScript_Update() end)
		end
	end))
end

function CS3DView(UserID,PlayerName,Hat1ID,Hat2ID,Hat3ID,HeadColorID,TorsoColorID,LeftArmColorID,RightArmColorID,LeftLegColorID,RightLegColorID,TShirtID,ShirtID,PantsID,FaceID,HeadID,IconType,ItemID)
	print("3DView loaded. Nerd.")
    game:service("RunService"):run()
	game:SetMessage("Loading Player...")
    
    local target = game.Workspace.Base
    
    for i,v in pairs(target:children()) do
        if v.className == "Part" then
            if v.Name == "Part" then
                v:remove()
            end
        elseif v.className == "SpawnLocation" then
            v:remove()
        end
    end
	
	local plr = game.Players:createLocalPlayer(UserID)
	plr.Name = PlayerName
	plr:LoadCharacter()
	InitalizeClientAppearance(plr,Hat1ID,Hat2ID,Hat3ID,HeadColorID,TorsoColorID,LeftArmColorID,RightArmColorID,LeftLegColorID,RightLegColorID,TShirtID,ShirtID,PantsID,FaceID,HeadID,ItemID,IconType)
	LoadCharacterNew(newWaitForChild(plr,"Appearance"),plr.Character,false)
    
	local camera = game.Workspace.CurrentCamera
	camera.CameraType = 2
	local cf = CFrame.new(0, 10, 18)
	camera.CoordinateFrame = cf;
	camera.CameraSubject = target
	
	i = true

	local function fixJump(prop)
		plr.Character.Torso.Velocity = plr.Character.Torso.Velocity * Vector3.new (1, 0, 1)
		if i == true then
			plr.Character.Torso.CFrame = plr.Character.Torso.CFrame - Vector3.new(0, 1.8, 0)
			i = false
		else
			i = true
		end
	end
    
    wait(0.5)
    for i,v in pairs(plr.Character:children()) do
        if v.className == "Part" then
            v.Anchored = true
        end
    end
    
    plr.Character.Animate:remove()
    plr.Character.Health:remove()
    plr.Character.Sound:remove()
    game.GuiRoot:remove()
	
	local human = plr.Character.Humanoid
	human.Jumping:connect(fixJump)
	game:ClearMessage()
    game:service("NetworkClient")
end

_G.CSServer=CSServer
_G.CSConnect=CSConnect
_G.CSStudio=CSStudio
_G.CS3DView=CS3DView

-- credit to KeyboardCombination
local succ = pcall(function() --check if the metatables are already read only lol
    local canChange = getmetatable(game.Close);
    canChange.__metatable = canChange.__metatable
end)

if not succ then
    return;
end

function readonlytable(table)
    return setmetatable({}, {
        __index = table,
        __newindex = function(table, key, value)
        error("Attempt to modify read-only table")
    end,
        __metatable = false
    });
end

function readonlytablechildren(table)
    for i,v in pairs(table) do
        if type(v)=="table" and table[i]~=_G._G then
            readonlytablechildren(table[i])
            table[i] = readonlytable(table[i])
        end
        if type(v)=="userdata" then
            local mt = getmetatable(table[i])
            if mt~=nil and mt~=false then
                mt.__metatable=false
            end
        end
    end
end
_G.rawset=nil
readonlytablechildren(_G)
_G._G = readonlytable(_G)
mt = getmetatable(game.Changed)
mt.__metatable=false
mt = getmetatable("curse you roblox")
mt.__metatable=false