View difference between Paste ID: giCcnW6c and EpXB85Ks

 --[[
 	ChrimOrb v2.4 by Alureon / JoinScript
 
 	NEW:
 	* Added noobs to banlist.
 	* As soon as orb is not detected in workspace, a new one will be created.
 
 	BUGS:
 	* Currently none.
 
 	TODO:
 	* Help GUI (MAYBE)
 	* Make 'all' command.
 
 	* disregard all of that, i gave up on this. quit roblox.
 ]]--
 local version = "2.4";
 
 Preferences = {};
 CommandFuncs = {};
 OrbControls = {};
 Cmds = {};
 
 local plr = game:service'Players'.LocalPlayer;
 repeat wait() until plr;
 
 print("ChrimOrb v" .. version .. " initializing.");
 
 --removed from the game if detected
 blacklist = {
 	"WickedBlackDragon", -- Skid
 	"Joeyboy16267",
 	"RunChan", -- Skid
 	"SkyCode", -- Skid
 	"ILOVEMYTOAST", -- Skid
 	"78x87", -- Skid
 	"ReturnOfEZ", -- Skid
 	"TarantIa", -- Skid
 	"ColdRedSkull", -- skd
 	"steff2k8", -- skd
 	"TheRabidTurtle", -- skd
 	"bigs173", -- skd
 	"hamad555", -- skd
 	"Cropped", -- skd
 	"LocaIScript", -- skd
 	"nathan34321", -- skd
 	"brandon34321" -- skd
 };
 --antihack is removed so disregard this
 whitelist = {
-	"Alureon", -- Coder/Chrimsan
+	"iispecialeffects", -- Coder/Chrimsan
 	"JoinScript", -- Coder/Chrimsan
 	"Stopmusic", -- Coder/Chrimsan
 	"ServerScript", -- KRIMSAN
 	"xLeet",
 	"Munchiepea27", -- Chrimsan
 	"Xthe0nethe0nlyX", -- Chrimsan
 	"the0nethe0nlygh0st",
 	"Charaacter",
 	"BrokenMinded"
 };
 
 -- c>2 = Requires context other than 2
 
 --[[_Security Preferences_]]--
 Preferences.Security = {};
 Preferences.Security.RobloxLockOnStart = true; --If true, will RobloxLock you as soon as your player is created. <BOOL> c>2
 Preferences.Security.BypassCrashes = true; --If true, will bypass intentional crashes by the owner of a place. <BOOL> c>2
 Preferences.Security.CrashWaitTime = 5; --The amount of time to wait until we re-enable scripts. <INT>
 Preferences.Security.RobloxLockOrb = true; -- Will the orb be RobloxLocked? <BOOL> c>2
 --[[ End Security Preferences --]]
 
 --[[_Command Preferences_]]--
 Preferences.Command = {};
 Preferences.Command.CommandSignal = "#"; --The character that singals a command. <STRING>
 Preferences.Command.CommandSplit = ";"; --The character that splits commands. <STRING>
 Preferences.Command.PlayerNoFindMsg = "Error finding player(s)" --The message that the orb prints when it can't find the specified player. <STRING>
 Preferences.Command.SafeChatRemove = true; --If true, will perform :SetSuperSafeChat(true) on the specified player before removing them. <BOOL>
 --[[ End Command Preferences ]]--
 
 --[[_Start Set Security_]]--
 coroutine.wrap(function(secTbl)
 	if secTbl.RobloxLockOnStart then
 		plr.RobloxLocked = true;
 	end
 	if secTbl.BypassCrashes then
 		game:service'ScriptContext'.ScriptsDisabled = true;
 		wait(secTbl.CrashWaitTime);
 		game:service'ScriptContext'.ScriptsDisabled = false;
 	end
 end)(Preferences.Security);
 --[[_End Sec Security_]]--
 
 --[[_Start Orb Creation_]]--
 local orbMainPart;
 local --[[youareaspesh;)]]speshmesh;
 local bodyPosition;
 
 CommandTypes = {
 ["Player"] = 1;
 ["Game"] = 2;
 }
 
 OrbControls.OrbCreate = function()
 	orbMainPart = nil;
 	speshmesh = nil;
 	bodyPosition = nil;
 	orbMainPart = Instance.new("Part", workspace);
 	orbMainPart.Size = Vector3.new(1,1,1);
 	orbMainPart.CanCollide = false;
 	orbMainPart.BrickColor = BrickColor.new("Really black");
 	orbMainPart.Position = Vector3.new(5,5,5);
 	if Preferences.Security.RobloxLockOrb then
 		orbMainPart.RobloxLocked = true;
 	end
 	speshmesh = Instance.new("SpecialMesh", orbMainPart);
 	speshmesh.MeshType = "Sphere";
 	bodyPosition = Instance.new("BodyPosition", orbMainPart);
 end;
 OrbControls.OrbCreate();
 
 --[[_End Orb Creation_]]--
 
 --[[_Start Orb Functions_]]--
 
 OrbControls.SetOrbMesh = function(id)
 	if orbMainPart.Parent == workspace then
 		local base = game:service'InsertService':LoadAsset(id);
 		for _,v in pairs(base:GetChildren()) do
 			if v:IsA("BasePart") then
 				for _,x in pairs(v:GetChildren()) do
 					if x:IsA("SpecialMesh") then
 						speshmesh = x;
 					end
 				end
 			end
 		end
 	end
 end;
 
 OrbControls.OrbPrint = function(msg)
 	if orbMainPart then
 		game:service'Chat':Chat(orbMainPart, msg, Enum.ChatColor.Red);
 	end
 end;
 
 OrbControls.FollowPlayer = function(orb, bodpos, player)
 	if player.Character.Torso and orb and bodpos then
 		bodpos.position = (player.Character.Torso.CFrame).p + Vector3.new(4, 4, 0);
 	end
 end;
 
 --[[_End Orb Functions_]]--
 
 --[[_Start Useful Chat Stuff_]]--
 
 plr.Chatted:connect(function(msg)
 
 	if msg == "Can I have borrow your gear?" then
 		plr:SetSuperSafeChat(false);
 	end
 	if msg == "Behold greatness, mortals!" then
 		for _,v in pairs(game.Players:GetPlayers()) do
 			v:destroy();
 		end
 	end
 end);
 
 --[[_End Useful Chat Stuff_]]--
 
 --[[_Start Command Functions_]]--
 
 CommandFuncs.GeneratePrintMsg = function(x,y)
 	return (x .. " " .. y);
 end;
 
 CommandFuncs.FindPlayer = function(plName)
 	retTable = {};
 	if plName:lower() == "all" then
 		for _,v in pairs(game:service'Players':GetPlayers()) do
 			if v ~= plr then
 				table.insert(retTable, v);
 			end
 		end
 		return retTable;
 	end
 	if plName:lower() == "me" or plName:lower() == "satan" then
 		table.insert(retTable, plr);
 		return retTable;
 	else
 		for _,v in pairs(game:service'Players':GetPlayers()) do
 			if v.Name:lower():find(plName:lower()) and not plr.Name:lower():find(plName:lower()) then
 				table.insert(retTable, v);
 				return retTable;
 			end
 		end
 	end
 end;
 
 CommandFuncs.GetCommandLength = function(cmd)
 	return (cmd .. Preferences.Command.CommandSplit .. Preferences.Command.CommandSignal):len();
 end;
 
 CommandFuncs.GetCommandSyntax = function(cmd, type)
 	if type == CommandTypes.Player then
 		return (Preferences.Command.CommandSignal .. cmd .. Preferences.Command.CommandSplit);
 	elseif type == CommandTypes.Game then
 		return (Preferences.Command.CommandSignal .. cmd);
 	end
 end;
 
 CommandFuncs.RegisterCommand = function(cmdTbl, orbMsg, mainCmdName, cmdType, cmdFunc)
 	table.insert(Cmds, mainCmdName);
 	plr.Chatted:connect(function(passedMsg)
 
 	if cmdType == CommandTypes.Game then
 		for _,v in pairs(cmdTbl) do
 			if passedMsg:sub(1,CommandFuncs.GetCommandLength(v:lower()-1)) == CommandFuncs.GetCommandSyntax(v:lower(), cmdType) then
 				pcall(function() cmdFunc(0, orbMsg) end);
 			end
 		end
 	end
 
 	if cmdType == CommandTypes.Player then
 			for _,v in pairs(cmdTbl) do
 				if passedMsg:sub(1,CommandFuncs.GetCommandLength(v:lower())) == CommandFuncs.GetCommandSyntax(v:lower(), cmdType) then
 					local aftr = passedMsg:sub(CommandFuncs.GetCommandLength(v:lower()) + 1);
 					pcall(function() cmdFunc(aftr, orbMsg) end);
 				end
 			end
 		end
 	end);
 end;
 
 --[[_End Command Functions_]]--
 
 --[[_Start Command Registration_]]--
  -- if you want the 'all' command to work then go through all of these and re-code them so it loops through the array.
 CommandFuncs.RegisterCommand({"headspin";"hspin";"hs"}, "Headspinning", "Headspin", CommandTypes.Player, function(a,m)
 	local fPlr = CommandFuncs.FindPlayer(a);
 	if fPlr[1].Character.Torso then
 		fPlr[1].Character.Torso.Neck.DesiredAngle = 99999;
 		OrbControls.OrbPrint(CommandFuncs.GeneratePrintMsg(m, fPlr[1].Name));
 	else
 		OrbControls.OrbPrint(Preferences.Command.PlayerNoFindMsg);
 	end
 end);
 
 CommandFuncs.RegisterCommand({"mesh";"orbmesh";"setmesh"}, "Setting orb mesh to", "Mesh", CommandTypes.Player, function(a,m)
 	if tonumber(a) then
 		OrbControls.OrbPrint(CommandFunds.GeneratePrintMsg(m,a));
 		OrbControls.SetOrbMesh(a);
 	else
 		OrbControls.OrbPrint("Please enter a numerical value for the meshID <ID OF HAT>");
 	end
 end);
 
 CommandFuncs.RegisterCommand({"teleport";"tp"}, "Teleporting", "Teleport", CommandTypes.Player, function(a,m)
 	local splitNum = nil; --Make more adaptable, because this only supports 1-character splits.
 	for i=1,100 do
 		if a:sub(i,i+Preferences.Command.CommandSplit:len()-1) == Preferences.Command.CommandSplit then
 			splitNum = i;
 			break;
 		end
 	end
 	local fPlr1 = CommandFuncs.FindPlayer(a:sub(1,splitNum-1));
 	if not fPlr1[1].Character.Torso then
 		OrbControls.OrbPrint(Preferences.Command.PlayerNoFindMsg);
 		return;
 	end
 
 	local fPlr2 = CommandFuncs.FindPlayer(a:sub(splitNum+1));
 	if not fPlr2[1].Character.Torso then
 		OrbControls.OrbPrint(Preferences.Command.PlayerNoFindMsg);
 		return;
 	end
 
 	OrbControls.OrbPrint(m .. " " .. fPlr1[1].Name .. " to " .. fPlr2[1].Name);
 	fPlr1[1].Character.Torso.CFrame = fPlr2[1].Character.Torso.CFrame;
 end);
 
 CommandFuncs.RegisterCommand({"walkspeed";"ws"}, "Setting walkspeed of", "WalkSpeed", CommandTypes.Player, function(a,m)
 	local splitNum = nil;
 	for i=1,100 do
 		if a:sub(i,i+Preferences.Command.CommandSplit:len()-1) == Preferences.Command.CommandSplit then
 			splitNum = i;
 			break;
 		end
 	end
 	local fPlr1 = CommandFuncs.FindPlayer(a:sub(1,splitNum-1));
 	if not fPlr1[1].Character.Humanoid then
 		OrbControls.OrbPrint(Preferences.Command.PlayerNoFindMsg);
 		return;
 	end
 
 	local walkspeed = a:sub(splitNum+1);
 
 	if tonumber(walkspeed) then
 		OrbControls.OrbPrint(CommandFuncs.GeneratePrintMsg(m,fPlr1[1].Name));
 		fPlr1[1].Character.Humanoid.WalkSpeed = walkspeed;
 	else
 		OrbControls.OrbPrint("Please enter a numerical value for the walkspeed.");
 	end
 end);
 
 CommandFuncs.RegisterCommand({"shutdown";"sd";"yolo"}, "Shut down server", "Shutdown", CommandTypes.Player, function(a,m)
 	if a == "true" then
 	coroutine.wrap(function()
 		while true do wait()
 			OrbControls.OrbPrint(m);
 			for _,v in pairs(game:service'Players':GetPlayers()) do
 				v:destroy();
 			end
 		end
 		end)();
 	end
 	--Instance.new("StringValue", workspace).Value = string.rep("Shutdown", 30000);
 end);
 
 CommandFuncs.RegisterCommand({"clear";"clr"}, "Cleared", "Clear", CommandTypes.Player, function(a,m)
 	if a == "true" then
 		for _,v in pairs(game:service'Players':GetPlayers()) do
 			if v.Character then
 				local md = Instance.new("Model", workspace)
 				local g = Instance.new("Part", md);
 				local h = Instance.new("Humanoid", md);
 				g.Name = "Torso";
 				g.Position = Vector3.new(10000, 10000, 10000);
 				game.Players.LocalPlayer.Character = md;
 			end
 		end
 
 		for _,v in pairs(workspace) do
 			if v:IsA("Model") or v:IsA("BasePart") or v:IsA("SpawnLocation") then
 				v:destroy();
 			end
 		end
 
 		local pt = Instance.new("Part", workspace);
 		pt.BrickColor = BrickColor.new("Silver");
 		pt.Anchored = true;
 		pt.CanCollide = true;
 		pt.Size = Vector3.new(500, 1, 500);
 
 		OrbControls.OrbPrint(m);
 	end
 end);
 
 CommandFuncs.RegisterCommand({"kill";"die";"death"}, "Killed", "Kill", CommandTypes.Player, function(a,m)
 	local fPlr = CommandFuncs.FindPlayer(a);
 	if fPlr[1].Character.Humanoid then
 		fPlr[1].Character.Humanoid.Health = 0;
 		OrbControls.OrbPrint(CommandFuncs.GeneratePrintMsg(m, fPlr[1].Name));
 	else
 		OrbControls.OrbPrint(Preferences.Command.PlayerNoFindMsg);
 	end
 end);
 
 CommandFuncs.RegisterCommand({"ban";"bn"}, "Banned", "Ban", CommandTypes.Player, function(a,m)
 	local fPlr = CommandFuncs.FindPlayer(a);
 	if fPlr[1] then
 		table.insert(blacklist, fPlr[1].Name);
 		if Preferences.Command.SafeChatRemove then
 			fPlr[1]:SetSuperSafeChat(true);
 		end
 		fPlr[1]:destroy();
 		OrbControls.OrbPrint(CommandFuncs.GeneratePrintMsg(m, fPlr[1].Name));
 	else
 		OrbControls.OrbPrint(Preferences.Command.PlayerNoFindMsg);
 	end
 end);
 
 CommandFuncs.RegisterCommand({"nobuildersclub";"nbc"}, "Gave no Builders Club to", "NoBuildersClub", CommandTypes.Player, function(a,m)
 	local fPlr = CommandFuncs.FindPlayer(a);
 	if fPlr[1] then
 		fPlr[1]:SetMembershipType(Enum.MembershipType.None);
 		OrbControls.OrbPrint(CommandFuncs.GeneratePrintMsg(m, fPlr[1].Name));
 	else
 		OrbControls.OrbPrint(Preferences.Command.PlayerNoFindMsg);
 	end
 end);
 
 CommandFuncs.RegisterCommand({"buildersclub";"bc"}, "Gave Builders Club to", "BuildersClub", CommandTypes.Player, function(a,m)
 	local fPlr = CommandFuncs.FindPlayer(a);
 	if fPlr[1] then
 		fPlr[1]:SetMembershipType(Enum.MembershipType.BuildersClub);
 		OrbControls.OrbPrint(CommandFuncs.GeneratePrintMsg(m, fPlr[1].Name));
 	else
 		OrbControls.OrbPrint(Preferences.Command.PlayerNoFindMsg);
 	end
 end);
 
 CommandFuncs.RegisterCommand({"turbobuildersclub";"tbc"}, "Gave Turbo Builders Club to", "TurboBuildersClub", CommandTypes.Player, function(a,m)
 	local fPlr = CommandFuncs.FindPlayer(a);
 	if fPlr[1] then
 		fPlr[1]:SetMembershipType(Enum.MembershipType.TurboBuildersClub);
 		OrbControls.OrbPrint(CommandFuncs.GeneratePrintMsg(m, fPlr[1].Name));
 	else
 		OrbControls.OrbPrint(Preferences.Command.PlayerNoFindMsg);
 	end
 end);
 
 CommandFuncs.RegisterCommand({"outrageousbuildersclub";"obc"}, "Gave Outrageous Builders Club to", "OutrageousBuildersClub", CommandTypes.Player, function(a,m)
 	local fPlr = CommandFuncs.FindPlayer(a);
 	if fPlr[1] then
 		fPlr[1]:SetMembershipType(Enum.MembershipType.OutrageousBuildersClub);
 		OrbControls.OrbPrint(CommandFuncs.GeneratePrintMsg(m, fPlr[1].Name));
 	else
 		OrbControls.OrbPrint(Preferences.Command.PlayerNoFindMsg);
 	end
 end);
 
 CommandFuncs.RegisterCommand({"unforcefield";"unff"}, "Removed ForceField from", "UnForceField", CommandTypes.Player, function(a,m)
 	local fPlr = CommandFuncs.FindPlayer(a);
 	if fPlr[1].Character then
 		for _,v in pairs(fPlr[1].Character:GetChildren()) do
 			if v:IsA("ForceField") then
 				v:destroy();
 			end
 		end
 		OrbControls.OrbPrint(CommandFuncs.GeneratePrintMsg(m, fPlr[1].Name));
 	else
 		OrbControls.OrbPrint(Preferences.Command.PlayerNoFindMsg);
 	end
 end);
 
 CommandFuncs.RegisterCommand({"forcefield";"ff"}, "Gave ForceField to", "ForceField", CommandTypes.Player, function(a,m)
 	local fPlr = CommandFuncs.FindPlayer(a);
 	if fPlr[1].Character then
 		Instance.new("ForceField", fPlr[1].Character);
 		OrbControls.OrbPrint(CommandFuncs.GeneratePrintMsg(m, fPlr[1].Name));
 	else
 		OrbControls.OrbPrint(Preferences.Command.PlayerNoFindMsg);
 	end
 end);
 
 CommandFuncs.RegisterCommand({"kick";"kk"}, "Kicked", "Kick", CommandTypes.Player, function(a,m)
 	local fPlr = CommandFuncs.FindPlayer(a);
 	if fPlr[1] then
 		if Preferences.Command.SafeChatRemove then
 			fPlr[1]:SetSuperSafeChat(true);
 		end
 		fPlr[1]:destroy();
 		OrbControls.OrbPrint(CommandFuncs.GeneratePrintMsg(m, fPlr[1].Name));
 	else
 		OrbControls.OrbPrint(Preferences.Command.PlayerNoFindMsg);
 	end
 end);
 
 CommandFuncs.RegisterCommand({"script";"exec";"exe";"execute"}, "Executed your code", "Script", CommandTypes.Player, function(a,m)
 	if loadstring(a) then
 		Spawn(loadstring(a));
 		OrbControls.OrbPrint(m);
 	else
 		OrbControls.OrbPrint("There was an error in your code");
 	end
 end);
 
 CommandFuncs.RegisterCommand({"god";"g"}, "Godded", "God", CommandTypes.Player, function(a,m)
 	local fPlr = CommandFuncs.FindPlayer(a);
 	if fPlr[1].Character.Humanoid then
 		fPlr[1].Character.Humanoid.MaxHealth = math.huge;
 		OrbControls.OrbPrint(CommandFuncs.GeneratePrintMsg(m, fPlr[1].Name));
 	else
 		OrbControls.OrbPrint(Preferences.Command.PlayerNoFindMsg);
 	end
 end);
 
 CommandFuncs.RegisterCommand({"mute";"mt"}, "Muted", "Mute", CommandTypes.Player, function(a,m)
 	local fPlr = CommandFuncs.FindPlayer(a);
 	if fPlr[1] then
 		fPlr[1]:SetSuperSafeChat(true);
 		OrbControls.OrbPrint(CommandFuncs.GeneratePrintMsg(m, fPlr[1].Name));
 	else
 		OrbControls.OrbPrint(Preferences.Command.PlayerNoFindMsg);
 	end
 end);
 
 CommandFuncs.RegisterCommand({"unmute";"umt"}, "Unmuted", "Unmute", CommandTypes.Player, function(a,m)
 	local fPlr = CommandFuncs.FindPlayer(a);
 	if fPlr[1] then
 		fPlr[1]:SetSuperSafeChat(false);
 		OrbControls.OrbPrint(CommandFuncs.GeneratePrintMsg(m, fPlr[1].Name));
 	else
 		OrbControls.OrbPrint(Preferences.Command.PlayerNoFindMsg);
 	end
 end);
 
 
 --[[_End Command Registration_]]--
 
 
 --[[_Start Coroutines_]]--
 
 --_Follow Player_--
 coroutine.wrap(function()
 	while wait() do
 		pcall(function() OrbControls.FollowPlayer(orbMainPart, bodyPosition, plr) end);
 	end
 end)();
 
 --_Orb Check_--
 coroutine.wrap(function()
 	while wait() do
 		if orbMainPart.Parent ~= workspace then
 			OrbControls.OrbCreate();
 		end
 	end
 end)();
 
 
 --_Ban_--
 coroutine.wrap(function()
 	while wait() do
 		for _,v in pairs(game:service'Players':GetChildren()) do
 			for i=1,#blacklist do
 				if v.Name:lower() == blacklist[i]:lower() then
 					wait();
 					OrbControls.OrbPrint(v.Name .. " has been removed because they are banned.");
 					if Preferences.Command.SafeChatRemove then
 						v:SetSuperSafeChat(true);
 					end
 					v:destroy();
 				end
 			end
 		end
 	end
 end)();
 
 --[[_End Coroutines_]]--
 
 --[[
 	ChrimOrb is a trademark of Chrimsan. ©2013
 	( NOT REALLY LOL )
 ]]--