Forb

-- 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 xXDarkZHunterXx 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!










wait(0.1)
pressedonce = false
local fire = true -- Set it to false if you don't want fire.
local player = game.Players.LocalPlayer
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
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
	if changeangle == true then
		angle = angle + 0.01
	end
	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