ChrimOrb v2.4 [ NO LONGER UPDATED ]

--[[
    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
    "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 )
]]--