wait(0.5)
local Player = game:GetService("Players"):GetPlayerFromCharacter(script.Parent.Parent) -- CHANGE THIS TO YOUR NAME
local EpicName = Player.Name
local repStorage= game:GetService("ReplicatedStorage")
wait(1)
script.Parent = game:GetService("ServerScriptService")
local MainFolder = Instance.new("Folder")
MainFolder.Name = Player.Name
MainFolder.Parent = repStorage

Player.Character.Archivable = true
local NC = Player.Character:Clone()
NC.Animate:Destroy()
NC.Sound:Destroy()
FF = Instance.new("ForceField")
FF.Visible = false
FF.Parent = NC
NC.Parent = MainFolder

local Mouse = Instance.new("RemoteEvent")
Mouse.Name = "Mouse"
Mouse.Parent = MainFolder
local MouseInfo = script.MouseInfo
MouseInfo.Parent = MainFolder

local SyncFolder = Instance.new("Folder")
SyncFolder.Name = "Sync"
SyncFolder.Parent = MainFolder

local mPos = Instance.new("CFrameValue")
mPos.Name = "mHit"
mPos.Parent = MainFolder

local mTarget = Instance.new("ObjectValue")
mTarget.Name = "mTarget"
mTarget.Parent = MainFolder

local LoopType = Instance.new("StringValue")
LoopType.Name = "LoopType"
LoopType.Value = "Custom"
LoopType.Parent = MainFolder

local Mode = Instance.new("StringValue")
Mode.Value = "Slap"
Mode.Name = "Mode"
Mode.Parent = MainFolder

local MoveType = Instance.new("StringValue")
MoveType.Name = "MoveType"
MoveType.Value = "Smooth"
MoveType.Parent = MainFolder

local Movement = Instance.new("RemoteEvent")
Movement.Name = "Movement"
Movement.Parent = MainFolder

local DamageRemote = Instance.new("RemoteEvent")
DamageRemote.Name = "DamageRemote"
DamageRemote.Parent = MainFolder

local WeldRemote = Instance.new("RemoteFunction")
WeldRemote.Name = "WeldRemote"
WeldRemote.Parent = MainFolder

local StopRemote = Instance.new("RemoteEvent")
StopRemote.Name = "StopRemote"
StopRemote.Parent = MainFolder

for i,v in pairs(workspace.Terrain:GetChildren()) do
	if v.Name == Player.Name.." tracker" then
		v:Destroy()
	end
end

local RealRoot = Instance.new("Part")
RealRoot.Name = Player.Name.." tracker"
RealRoot.CanCollide = false
RealRoot.Size = NC.HumanoidRootPart.Size
RealRoot.Transparency = 1
RealRoot.Parent = workspace.Terrain
local NV = Instance.new("BodyVelocity")
NV.Name = "DontMoveMeNoob"
NV.Velocity = Vector3.new(0,0,0)
NV.Parent = RealRoot
NV.Changed:Connect(function(v, v2)
	if tostring(v) == "Velocity" then
		if v2 ~= Vector3.new(0,0,0) then
			NV.Velocity = Vector3.new(0,0,0)
		end
	end
end)
RealRoot:SetNetworkOwner(Player)

for i,v in pairs(MouseInfo:GetChildren()) do
	v.OnServerEvent:Connect(function(plr, Position, TARG)
		mPos.Value = Position
		mTarget.Value = TARG
	end)
end

Mouse.OnServerEvent:Connect(function(plr, request, ...)
	Mouse:FireAllClients(request, ...)
end)

--[[ Functions --

-- SAZERENOS' ARTIFICIAL HEARTBEAT	--]]
Frame_Speed = 1 / 60 -- (1 / 30) OR (1 / 60)

ArtificialHB = Instance.new("BindableEvent", script)
ArtificialHB.Name = "ArtificialHB"

script:WaitForChild("ArtificialHB")

frame = Frame_Speed
tf = 0
allowframeloss = false
tossremainder = false
lastframe = tick()
script.ArtificialHB:Fire()

game:GetService("RunService").Heartbeat:connect(function(s, p)
	tf = tf + s
	if tf >= frame then
		if allowframeloss then
			script.ArtificialHB:Fire()
			lastframe = tick()
		else
			for i = 1, math.floor(tf / frame) do
				script.ArtificialHB:Fire()
			end
		lastframe = tick()
		end
		if tossremainder then
			tf = 0
		else
			tf = tf - frame * math.floor(tf / frame)
		end
	end
end)

function Swait(NUMBER)
		if NUMBER == 0 or NUMBER == nil then
		ArtificialHB.Event:wait()
	else
		for i = 1, NUMBER do
			ArtificialHB.Event:wait()
		end
	end
end

function ChangeLoop(Text)
	print(Text)
	if Text == "Server" then
		LoopType.Value = "Server"
	elseif Text == "Custom" then
		LoopType.Value = "Custom"
	elseif Text == "Heartbeat" then
		LoopType.Value = "Heartbeat"
	elseif Text == "Stepped" then
		LoopType.Value = "Stepped"
	elseif Text == "RenderStepped" then
		LoopType.Value = "RenderStepped"
	else
		print("LoopType Invalid")
	end
end

function ChangeMovement(Text)
	print(Text)
	if Text == "Smooth" then
		MoveType.Value = "Smooth"
	elseif Text == "Remote" then
		MoveType.Value = "Remote"
	else
		print("MoveType Invalid")
	end
end

Player.Chatted:Connect(function(msg)
	if string.sub(msg,1,9) == "LoopType/" then
		ChangeLoop(string.sub(msg, 10))
	end
	if string.sub(msg,1,9) == "MoveType/" then
		ChangeMovement(string.sub(msg, 10))
	end
	if msg == "/e stop" then
		StopRemote:FireAllClients()
		wait()
		MainFolder:Remove()
		script:Remove()
		script.Disabled = true
	end
end)

game:GetService("Players").PlayerAdded:Connect(function(plr)
	if plr.Name == EpicName then
		plr.Chatted:Connect(function(msg)
			if string.sub(msg,1,9) == "LoopType/" then
				ChangeLoop(string.sub(msg, 10))
			end
			if string.sub(msg,1,9) == "MoveType/" then
				ChangeMovement(string.sub(msg, 10))
			end
			if msg == "/e stop" then
				StopRemote:FireAllClients()
				wait()
				MainFolder:Remove()
				script:Remove()
				script.Disabled = true
			end
		end)
	end
end)

-- Damage Functions --

function Damage(v)
	v.MaxHealth = 100
	v.Health = v.Health - 10
end

function NewMode(v, v2)
	Mode.Value = v
	DamageRemote:FireAllClients("Mode", v2)
end

function Remove(v)
	v:Remove()
end

function Destroy(v)
	v:Destroy()
end

function BreakJoints(v)
	v:BreakJoints()
end

function ApplyDamage(Humanoid, Damage, DAMAGEMULTIPLIER)
	print(Humanoid, Damage, DAMAGEMULTIPLIER)
	Damage = Damage * DAMAGEMULTIPLIER
	if Humanoid.Health < 2000 then
		if Humanoid.Health - Damage > 0 then
			Humanoid.Health = Humanoid.Health - Damage
		else
			Humanoid.Parent:BreakJoints()
		end
	else
		Humanoid.Parent:BreakJoints()
	end
end

DamageRemote.OnServerEvent:Connect(function(plr, request, ...)
	if request == "Mode" then
		NewMode(...)
	end
	if request == "Damage" then
		Damage(...)
	end
	if request == "Remove" then
		Remove(...)
	end
	if request == "Destroy" then
		Destroy(...)
	end
	if request == "BreakJoints" then
		BreakJoints(...)
	end
	if request == "Banish" then
		print("SERVER BANISH")
		DamageRemote:FireAllClients(request, ...)
	end
	if request == "ApplyDamage" then
		ApplyDamage(...)
	end
	if request == "Ban" or request == "BruhDimension" then
		DamageRemote:FireAllClients(request, ...)
	end
end)

-- Other --

Movement.OnServerEvent:Connect(function(plr, ...)
	Movement:FireAllClients(...)
end)

local newWeld=function(name,p0,p1,c0,c1)
	local w=Instance.new('Weld',p0)
	w.Name=name
	w.Part0=p0
	w.Part1=p1
	w.C0=c0
	w.C1=c1
	return w
end

WeldRemote.OnServerInvoke = newWeld

-- End Functions --

script.Holder.Name = Player.Name
for i,v in pairs(game:GetService("Players"):GetChildren()) do
	local NS = script[Player.Name]:Clone()
	NS.Parent = v.PlayerGui
end

game.Players.PlayerAdded:Connect(function(plr)
	repeat Swait() until plr.Character
	local NS = script[Player.Name]:Clone()
	NS.Parent = plr:WaitForChild("PlayerGui")
end)

-- Synced Loop

print("Running Server")

script.Parent = game:GetService("ServerScriptService")

workspace.Terrain.ChildRemoved:Connect(function(v)
	Swait(2)
	if v == RealRoot then
		RealRoot = Instance.new("Part")
		RealRoot.Name = Player.Name.." tracker"
		RealRoot.CanCollide = false
		RealRoot.Size = NC.HumanoidRootPart.Size
		RealRoot.Transparency = 1
		RealRoot.Parent = workspace.Terrain
		NV = Instance.new("BodyVelocity")
		NV.Name = "DontMoveMeNoob"
		NV.Velocity = Vector3.new(0,0,0)
		NV.Parent = RealRoot
		NV.Changed:Connect(function(v, v2)
			if tostring(v) == "Velocity" then
				if v2 ~= Vector3.new(0,0,0) then
					NV.Velocity = Vector3.new(0,0,0)
				end
			end
		end)
		RealRoot:SetNetworkOwner(Player)
	end
end)

ArtificialHB.Event:Connect(function()
	Player.Character.HumanoidRootPart.CFrame = CFrame.new(10000,10000,0)
end)

while true do
	ArtificialHB.Event:wait()
	local NI = Instance.new("Shirt")
	NI.Parent = SyncFolder
end

--[[local Mouse = {}

do
	local Remote = MainFolder.Mouse
	local Hits = MainFolder.MouseInfo
	local KeyDown = Instance.new("BindableEvent")
	local KeyUp = Instance.new("BindableEvent")
	local MouseButton1Down = Instance.new("BindableEvent")
	local MouseButton1Up = Instance.new("BindableEvent")
	local Hit = MainFolder.mHit
	local Target = MainFolder.mTarget
	Mouse.KeyDown = KeyDown.Event
	Mouse.KeyUp = KeyUp.Event
	Mouse.Button1Down = MouseButton1Down.Event
	Mouse.Button1Up = MouseButton1Up.Event
	Remote.OnClientEvent:Connect(function(request, ...)
		if request == "KeyDown" then
			KeyDown:Fire(...)
		end
		if request == "KeyUp" then
			KeyUp:Fire(...)
		end
		if request == "MouseButton1Down" then
			MouseButton1Down:Fire(...)
		end
		if request == "MouseButton1Up" then
			MouseButton1Up:Fire(...)
		end
	end)--]]