FOrb | Offical Build

-- FOrb is a open sourced, and regularly updated script.
-- It is commonly used in ScriptBuilder-type places, such as Voidacity's script builder.
-- I have no problem with you modifying and using it.
-- But, if you're gonna do so, at least give me a bit of credit, kay?
-- Like, keep this line:
-- FOrb was made by TheFlamingBlaster in 2016. The current version is: Alpha 1.0.1
-- Feel free to do whatever you want with it.
-- I'm just glad you're enjoying my script, and because it's gonna get leaked anyway, I actually promote you sharing it.
-- Have fun with it! The juicy part is just centimeters(or about an inch, Americans) away!










pressedonce = false
local fire = true -- Set it to false if you don't want fire.
local player = game.Players.LocalPlayer
local h = Instance.new("Hint",workspace)
h.Text = (player.Name.." would like to thank TheFlamingBlaster for using his FOrb for whatever this script is intended for.")
wait(0.1)
h:Destroy()
local sphere = true -- Set to false if you don't want a small little forcefield around your FOrb
local model = Instance.new("Model",workspace.Terrain)
model.Name = (player.Name)
game.Players.LocalPlayer.Character:ClearAllChildren()
nochar = Instance.new("Part",model)
nochar.Anchored = true
nochar.Name = ("FOrb |"..player.Name)
nochar.Size = Vector3.new(2,2,2)
nochar.Transparency = 0.25
nochar.CanCollide = false
nochar.BrickColor = BrickColor.Black()
nochar.Locked = true
nochar.Shape = "Ball"
nochar.TopSurface = Enum.SurfaceType.Smooth
nochar.BottomSurface = Enum.SurfaceType.Smooth
local bill = Instance.new("BillboardGui",nochar)
local text = Instance.new("TextLabel")
text.BackgroundTransparency = 1
text.Text = ("FOrb | "..game.Players.LocalPlayer.Name)
text.Size = UDim2.new(1,0,1,0)
text.FontSize = Enum.FontSize.Size24
text.TextColor = BrickColor.White()
text.Parent = bill
bill.Size = UDim2.new(0,100,0,100)
bill.StudsOffset = Vector3.new(0,2,0)
bill.Adornee = nochar
local target = nochar
local camera = workspace.CurrentCamera
camera.CameraType = Enum.CameraType.Follow
wait(0.01)
camera.CameraType = Enum.CameraType.Custom
camera.CameraSubject = target
currentselection = ""
local cycle = 0
local player = game.Players.LocalPlayer
function onKeyPress(actionName, userInputState, inputObject)
    if userInputState == Enum.UserInputState.Begin then
        print("Switching modes...")

    end
end

game.ContextActionService:BindAction("keyPress", onKeyPress, false, Enum.KeyCode.C)

repeat wait() until game.Players.LocalPlayer
local p = game.Players.LocalPlayer
local m = p:GetMouse()
local down = false
math.randomseed(tick())
selecton = false
m.KeyDown:connect(function(key)
    if key:lower() == "s" then
        down = not down
        repeat
            nochar.Position = Vector3.new(nochar.Position.X,nochar.Position.Y,nochar.Position.Z + 1)
            wait()
        until
        not down
    else
        if key:lower() == "w" then
        down = not down
        repeat
            nochar.Position = Vector3.new(nochar.Position.X,nochar.Position.Y,nochar.Position.Z - 1)
            wait()
        until
        not down
    else
        if key:lower() == "a" then
        down = not down
        repeat
            nochar.Position = Vector3.new(nochar.Position.X - 1,nochar.Position.Y,nochar.Position.Z)
            wait()
        until
        not down
        else
            if key:lower() == "d" then
            down = not down
            repeat
            nochar.Position = Vector3.new(nochar.Position.X + 1,nochar.Position.Y,nochar.Position.Z)
            wait()
            until
            not down
            else
            if key:lower() == "q" then
            down = not down
            repeat
            nochar.Position = Vector3.new(nochar.Position.X,nochar.Position.Y - 1,nochar.Position.Z)
            wait()
            until
            not down
            else
            if key:lower() == "e" then
            down = not down
            repeat
            nochar.Position = Vector3.new(nochar.Position.X,nochar.Position.Y + 1,nochar.Position.Z)
            wait()
            until
            not down
            else
            if key:lower() == "n" and pressedonce == true then
            down = not down
            repeat
            local m = Instance.new("Message",workspace.Terrain)
            m.Text = "The server will now shut down due to a forced shutdown."
            game.Players:ClearAllChildren()
            wait()
            until
            not down
            else
            if key:lower() == "m" then
            down = not down
            repeat
            local m = Instance.new("Message",game.workspace.Terrain)
            m.Text = "AntiNoobKiker enabled, Hit N to shut down the server, and hit J cycle thru users, hit L to kick them."
            pressedonce = true
            wait(1.5)
            m:Destroy()
            wait()
            until
            not down
            else
            if key:lower() == "j" and pressedonce == true then
                selecton = true
                local gui = Instance.new("BillboardGui",nochar)
                gui.Size = UDim2.new(0,100,0,100)
                for index, child in pairs(game.Players:GetChildren()) do
                    local msgselect = Instance.new("Message",workspace.Terrain)
                    msgselect.Text = ("Selecting: "..child.Name)
                    currentselection = child
                    wait(5)
                    msgselect:Destroy()
                end end
            repeat
            wait()
            until
            not down
            if key:lower() == "l" and pressedonce == true and selecton == true then
                currentselection:Remove()
                repeat
                until
                not down
            else
                if key:lower() == "p" and pressedonce == true then
                local msg = Instance.new("Message",workspace)
                msg.Text = ("A simple :remove() can't get rid of me. Not easily, atleast.")
                wait(3)
                msg:Destroy()
                end
                repeat
                until
                not down
                end
            end
                end



    end end end end end end
end)
Camera = camera
local function getCFrame()
    return CFrame.new(Camera.CoordinateFrame.p,Camera.Focus.p)
end

local function getDirection()
    return getCFrame().lookVector
end
local rainbow = true

squid = nochar
m.KeyUp:connect(function(key)
    if key:lower() == "s" and down then
        down = not down
    end
    if key:lower() == "w" and down then
        down = not down
    end
    if key:lower() == "a" and down then
        down = not down
    end
    if key:lower() == "d" and down then
        down = not down
    end
    if key:lower() == "q" and down then
        down = not down
    end
    if key:lower() == "e" and down then
        down = not down
    end
    if key:lower() == "m" and down then
        down = not down
    end
    if key:lower() == "n" and down then
        down = not down
    end
    if key:lower() == "j" and down then
        down = not down
    end
    if key:lower() == "l" and down then
        down = not down
    end
    if key:lower() == "p" and down then
        down = not down
    end
end)
local handles = Instance.new("Handles",nochar)
handles.Adornee = nochar
handles.Style = Enum.HandlesStyle.Movement
handles.Faces = Faces.new(Enum.NormalId.Front)
player.Neutral = false
local stoprainbow = false
player.Chatted:connect(function(msg)
        if msg == "red!" then
            nochar.BrickColor = BrickColor.Red()
            player.TeamColor = BrickColor.Red()
        else
            if msg == "blue!" then
                nochar.BrickColor = BrickColor.Blue()
                player.TeamColor = BrickColor.Blue()
            else
                if msg == "green!" then
                    nochar.BrickColor = BrickColor.Green()
                    player.TeamColor = BrickColor.Green()
                else
                    if msg == "black!" then
                        nochar.BrickColor = BrickColor.Black()
                        player.TeamColor = BrickColor.Black()
                    else
                        if msg == "white!" then
                            nochar.BrickColor = BrickColor.White()
                            player.TeamColor = BrickColor.White()
                        else
                            if msg == "yellow!" then
                                nochar.BrickColor = BrickColor.Yellow()
                                player.TeamColor = BrickColor.Yellow()
                            else

                            local cbill = Instance.new("BillboardGui",nochar)
                            cbill.Size = UDim2.new(0,300,0,100)
                            cbill.StudsOffset = Vector3.new(0,4,0)
                            cbill.Adornee = nochar
                            local ctext = Instance.new("TextLabel",cbill)
                            ctext.BackgroundTransparency = 0.5
                            ctext.Text = (msg)
                            ctext.Size = UDim2.new(1,0,1,0)
                            ctext.FontSize = Enum.FontSize.Size24
                            ctext.TextColor = BrickColor.White()
                            ctext.BackgroundColor = BrickColor.Black()
                            ctext.Parent = cbill
                            wait(0.01)
                            if ctext.TextFits == false then
                                ctext.FontSize = Enum.FontSize.Size18

                            end
                            wait(0.01)
                            if ctext.TextFits == false then
                                ctext.FontSize = Enum.FontSize.Size14
                            end
                            wait(0.1)
                            if ctext.TextFits == false then
                                ctext.FontSize = Enum.FontSize.Size12
                            end
                            wait(0.01)
                            if ctext.TextFits == false then
                                ctext.FontSize = Enum.FontSize.Size8
                            end
                            wait(0.01)
                            wait(3)
                            cbill:Destroy()
                                end

                            end
                        end
                    end
                end
            end
    end)
local gui = Instance.new("ScreenGui",game.Players.LocalPlayer.PlayerGui)
gui.Name = "FOrb | Gui"
local box = Instance.new("TextBox",gui)
box.Size = UDim2.new(00,300,0,50)
box.Position = UDim2.new(0,300,0,0)
local button1 = Instance.new("TextButton",gui)
button1.Size = UDim2.new(0,50,0,50)
button1.Position = UDim2.new(0,600,0,0)
button1.Text = "Go"
button1.MouseButton1Down:connect(function()
    text.Text = ("FOrb | "..box.Text)
end)
local plr = gui.Parent
local button = Instance.new("ImageButton",gui)
button.Image = "rbxassetid://7405549"
button.BackgroundTransparency = 1
button.Size = UDim2.new(0.1,0,0.15,0)
button.Position = UDim2.new(0.9,0,0.85,0)
button.Visible = false
local l = Instance.new("ImageButton",gui)
l.Image = "rbxassetid://381710061"
l.Size = UDim2.new(0,50,0,50)
l.Position = UDim2.new(0.85,0,0.8,0)
l.BackgroundTransparency = 1
l.Visible = false
local tx = Instance.new("ImageButton",gui)
tx.Image = "rbxassetid://381710061"
tx.Size = UDim2.new(0,50,0,50)
tx.Position = UDim2.new(0.95,0,0.7,0)
tx.BackgroundTransparency = 1
tx.Visible = false
clicked = false
local lasor = true
button.MouseButton1Down:connect(function()
    if clicked == false then
    l.Visible = false
    clicked = true
    else
        l.Visible = false
        clicked = false
        end
end)
l.MouseButton1Down:connect(function()
    if lasor == true then
        lasor = false
    else
        lasor = true
    end
end)
local hoomanarea = Instance.new("Model",model)
local Player = Game.Players.LocalPlayer
local Mouse = Player:GetMouse()
local connection = true
if connection == true then
    local human1 = Instance.new("Humanoid",hoomanarea)
    local lasso1 = Instance.new("SelectionPartLasso",hoomanarea)
    lasso1.Color3 = Color3.new(0,1,1)
    lasso1.Humanoid = human1
    lasso1.Part = nochar
    end

Mouse.Button1Down:connect(function()
    if lasor == true then
    local v3 = Mouse.hit
    local lasor = Instance.new("Part",workspace)
    lasor.Size = Vector3.new(1,1,1)
    lasor.Transparency = 1
    lasor.CanCollide = false
    lasor.Anchored = true
    lasor.CFrame = v3
    lasor.CFrame = CFrame.new(lasor.Position.X, lasor.Position.Y,lasor.Position.Z)
    local human = Instance.new("Humanoid",hoomanarea)
    local lasso = Instance.new("SelectionPartLasso",hoomanarea)
    lasso.Color3 = Color3.new(1,0,0)
    lasso.Humanoid = human
    lasso.Part = lasor
    print("Worked!")
    function onTouched(hit)
        if hit.Parent:FindFirstChild("Humanoid") then
            hit.Parent.Humanoid.Health = 0
        else
            hit.Parent = nil
            print("nilling")
        end
    end
    lasor.Touched:connect(onTouched)
    wait(1)
    lasor:Destroy()
    human:Destroy()
end
end)

local p = Instance.new("Part",hoomanarea)
p.Size = Vector3.new(1,1,1)
p.Shape = "Ball"
p.Transparency = nochar.Transparency
p.TopSurface = nochar.TopSurface
p.BottomSurface = nochar.BottomSurface
p.CanCollide = false
p.Name = "Torso"
i = 0
dist = 3
spd = .05
angle = 0
p.Anchored = true
a = 0
if fire == true then
local particle = Instance.new("Fire",p)
particle.Size = "2"
particle.Heat = "1"
end
local changeangle = true
local orbit = coroutine.create(function()
    while true do
    a = a + 1
    if changeangle == true then
        angle = angle + 0.01
    end
    nochar.Anchored = true
    nochar.Locked = true
    p.Anchored = true
    p.Locked = true
    i=i+1
    wait()
    p.CFrame = nochar.CFrame*CFrame.fromEulerAnglesXYZ(angle,i*spd,0)*CFrame.new(0,0,dist)
    camera.CameraSubject = target
    local children = player.Character:GetChildren()
    for i = 1, #children do
    if children[i]:IsA("Part") or children[i]:IsA("Humanoid") then
        children[i]:Destroy()
    end
    end
    end
end)

coroutine.resume(orbit)

colorname = true -- Do you want your name to change random colors? If not, set to false, if so, keep on true
local colorname = coroutine.create(function()
    if colorname == true then
    while true do
        local randbrick = BrickColor.Random()
        text.TextColor3 = randbrick.Color
        p.BrickColor = nochar.BrickColor
    wait(1)
    end end
end)

coroutine.resume(colorname)

randomteam = true -- Do you want your team & name in chat to change random colors? If not, set to false, if so, keep on true
local randomteam = coroutine.create(function()
    if randomteam == true then
    while true do
        local randbrick = BrickColor.Random()
        player.TeamColor = randbrick
    wait(1)
    end end
end)

coroutine.resume(randomteam)

local nsphere = Instance.new("SelectionSphere",nochar)
nsphere.Transparency = 0.85
nsphere.SurfaceTransparency = 0.85
nsphere.Adornee = nochar

local maingui = Instance.new("ScreenGui",Player.PlayerGui)
maingui.Name = "FOrb | Administrative Panel"
local holder = Instance.new("Frame",maingui)
holder.Visible = false
holder.BackgroundColor3 = Color3.new(1,1,1)
holder.Size = UDim2.new(0.175,0,0.7)
holder.Position = UDim2.new(0,0,0.2,0)
holder.BorderSizePixel = 0
local txtlbl = Instance.new("TextLabel",holder)
txtlbl.Transparency = 0
txtlbl.BackgroundColor3 = Color3.new(1,1,1)
txtlbl.Size = UDim2.new(0.95,0,0.1,0)
txtlbl.Text = "FOrb | Administrative Panel"
txtlbl.BorderSizePixel = 0
local closebutton = Instance.new("TextButton",holder)
closebutton.Size = UDim2.new(0.1,0,1,0)
closebutton.Position = UDim2.new(0.95,0,0,0)
closebutton.Text = "<<"
closebutton.BackgroundColor3 = Color3.new(1,1,1)
closebutton.Transparency = 0
closebutton.BorderSizePixel = 0
closebutton.MouseButton1Down:connect(function()
    if holder.Position == UDim2.new(0,0,0.2,0) then
        holder.Position = UDim2.new(-0.165,0,0.2,0)
        closebutton.Text = ">>"
    else
        holder.Position = UDim2.new(0,0,0.2,0)
        closebutton.Text = "<<"
    end
end)


local settingsbutton = Instance.new("ImageButton",holder)
settingsbutton.Position = UDim2.new(0.025,0,0.125,0)
settingsbutton.Size = UDim2.new(0.9,0,0.25,0)