R47Gui By Riky47

-- R47Gui -- By Riky47 -- Enjoy in my first Gui!
print("-- R47Gui -- By Riky47 -- Enjoy! --")
-- Instances:
local R47Gui = Instance.new("ScreenGui")
local R47Frame = Instance.new("Frame")
local TextLabel = Instance.new("TextLabel")
local BTool = Instance.new("TextButton")
local GodMode = Instance.new("TextButton")
local GravityOn = Instance.new("TextButton")
local WalkSpeedOn = Instance.new("TextButton")
local Fly2ON = Instance.new("TextButton")
local WalkSpeedOff = Instance.new("TextButton")
local GravityOff = Instance.new("TextButton")
local Fly2Off = Instance.new("TextButton")
local OpenButton = Instance.new("TextButton")
--Properties:
R47Gui.Name = "R47Gui"
R47Gui.Parent = game.Players.LocalPlayer:WaitForChild("PlayerGui")

R47Frame.Name = "R47Frame"
R47Frame.Parent = R47Gui
R47Frame.BackgroundColor3 = Color3.new(0, 0, 0)
R47Frame.Position = UDim2.new(-0.904509246, 0, 0, 0)
R47Frame.Size = UDim2.new(0, 712, 0, 113)

TextLabel.Parent = R47Frame
TextLabel.BackgroundColor3 = Color3.new(0, 0, 0)
TextLabel.Position = UDim2.new(0.359550565, 0, 0, 0)
TextLabel.Size = UDim2.new(0, 200, 0, 50)
TextLabel.Font = Enum.Font.SourceSans
TextLabel.Text = "R47Gui - By Riky47"
TextLabel.TextColor3 = Color3.new(1, 1, 1)
TextLabel.TextSize = 30

BTool.Name = "BTool"
BTool.Parent = R47Frame
BTool.BackgroundColor3 = Color3.new(1, 0.333333, 0)
BTool.Position = UDim2.new(0.761235952, 0, 0, 0)
BTool.Size = UDim2.new(0, 98, 0, 50)
BTool.Font = Enum.Font.SourceSans
BTool.Text = "Alt+Click=Destroy"
BTool.TextColor3 = Color3.new(0, 0, 0)
BTool.TextSize = 14

GodMode.Name = "GodMode"
GodMode.Parent = R47Frame
GodMode.BackgroundColor3 = Color3.new(1, 0.333333, 0)
GodMode.Position = UDim2.new(0.641853929, 0, 0, 0)
GodMode.Size = UDim2.new(0, 85, 0, 50)
GodMode.Font = Enum.Font.SourceSans
GodMode.Text = "GodMode"
GodMode.TextColor3 = Color3.new(0, 0, 0)
GodMode.TextSize = 14

GravityOn.Name = "GravityOn"
GravityOn.Parent = R47Frame
GravityOn.BackgroundColor3 = Color3.new(0, 0.666667, 0)
GravityOn.Position = UDim2.new(0.230337083, 0, 0, 0)
GravityOn.Size = UDim2.new(0, 92, 0, 24)
GravityOn.Font = Enum.Font.SourceSans
GravityOn.Text = "Gravity: ON"
GravityOn.TextColor3 = Color3.new(0, 0, 0)
GravityOn.TextSize = 14

WalkSpeedOn.Name = "WalkSpeedOn"
WalkSpeedOn.Parent = R47Frame
WalkSpeedOn.BackgroundColor3 = Color3.new(0, 0.666667, 0)
WalkSpeedOn.Position = UDim2.new(0.11095506, 0, 0, 0)
WalkSpeedOn.Size = UDim2.new(0, 85, 0, 24)
WalkSpeedOn.Font = Enum.Font.SourceSans
WalkSpeedOn.Text = "WalkSpeed: ON"
WalkSpeedOn.TextColor3 = Color3.new(0, 0, 0)
WalkSpeedOn.TextSize = 14

Fly2ON.Name = "Fly2ON"
Fly2ON.Parent = R47Frame
Fly2ON.BackgroundColor3 = Color3.new(0, 0.666667, 0)
Fly2ON.Position = UDim2.new(0.11095506, 0, 0.442477882, 0)
Fly2ON.Size = UDim2.new(0, 278, 0, 63)
Fly2ON.Font = Enum.Font.SourceSans
Fly2ON.Text = "Fly: ON"
Fly2ON.TextColor3 = Color3.new(0, 0, 0)
Fly2ON.TextSize = 14

WalkSpeedOff.Name = "WalkSpeedOff"
WalkSpeedOff.Parent = R47Frame
WalkSpeedOff.BackgroundColor3 = Color3.new(1, 0, 0)
WalkSpeedOff.Position = UDim2.new(0.11095506, 0, 0.21238938, 0)
WalkSpeedOff.Size = UDim2.new(0, 85, 0, 26)
WalkSpeedOff.Font = Enum.Font.SourceSans
WalkSpeedOff.Text = "WalkSpeed: OFF"
WalkSpeedOff.TextColor3 = Color3.new(0, 0, 0)
WalkSpeedOff.TextSize = 14

GravityOff.Name = "GravityOff"
GravityOff.Parent = R47Frame
GravityOff.BackgroundColor3 = Color3.new(1, 0, 0)
GravityOff.Position = UDim2.new(0.230337083, 0, 0.21238938, 0)
GravityOff.Size = UDim2.new(0, 92, 0, 26)
GravityOff.Font = Enum.Font.SourceSans
GravityOff.Text = "Gravity: OFF"
GravityOff.TextColor3 = Color3.new(0, 0, 0)
GravityOff.TextSize = 14

Fly2Off.Name = "Fly2Off"
Fly2Off.Parent = R47Frame
Fly2Off.BackgroundColor3 = Color3.new(1, 0, 0)
Fly2Off.Position = UDim2.new(0.501404524, 0, 0.442477882, 0)
Fly2Off.Size = UDim2.new(0, 283, 0, 63)
Fly2Off.Font = Enum.Font.SourceSans
Fly2Off.Text = "Fly: OFF"
Fly2Off.TextColor3 = Color3.new(0, 0, 0)
Fly2Off.TextSize = 14

OpenButton.Name = "OpenButton"
OpenButton.Parent = R47Gui
OpenButton.BackgroundColor3 = Color3.new(1, 1, 1)
OpenButton.Size = UDim2.new(0, 30, 0, 113)
OpenButton.Font = Enum.Font.SourceSans
OpenButton.Text = ">"
OpenButton.TextColor3 = Color3.new(0, 0, 0)
OpenButton.TextSize = 30
-- Scripts:
function BToolScript() -- BTool.LocalScript
	getfenv().script = Instance.new('LocalScript', BTool)

	BTool.MouseButton1Click:connect(function()
	local plr = game:GetService("Players").LocalPlayer
	local BtoolActive = true
	local m = plr:GetMouse()
	local sb = Instance.new("SelectionBox", workspace.CurrentCamera)
	local sb = workspace.CurrentCamera:FindFirstChildOfClass("SelectionBox")

	_G.iEnabledOrNot = true;
	_G.iEnabledOrNot = true; local pPlayerMouse = game:GetService('Players').LocalPlayer:GetMouse(); local uUserService = game:GetService('UserInputService'); pPlayerMouse.Button1Down:connect(function() if (_G.iEnabledOrNot) then if (uUserService:IsKeyDown(Enum.KeyCode.LeftAlt)) then if (pPlayerMouse.Target) then pPlayerMouse.Target:Destroy() return true; else return false; end return true; else return false; end else return false; end end)

	while BtoolActive do
	wait()
	if m.Target then
	wait()
	sb.Adornee = m.Target
	end
	end
	end)



end
coroutine.resume(coroutine.create(BToolScript))
function GodModeScript() -- GodMode.LocalScript
	getfenv().script = Instance.new('LocalScript', GodMode)

	script.Parent.MouseButton1Click:connect(function()
	game:GetService("Players").LocalPlayer.Character.Humanoid.Name = 1
	local l = game:GetService("Players").LocalPlayer.Character["1"]:Clone()
	l.Parent = game:GetService("Players").LocalPlayer.Character
	l.Name = "Humanoid"
	game:GetService("Players").LocalPlayer.Character["1"]:Destroy()
	game:GetService("Workspace").CurrentCamera.CameraSubject = game:GetService("Players").LocalPlayer.Character
	game:GetService("Players").LocalPlayer.Character.Animate.Disabled = true
	game:GetService("Players").LocalPlayer.Character.Animate.Disabled = false
	game:GetService("Players").LocalPlayer.Character.Humanoid.DisplayDistanceType = "None"
	end)

end
coroutine.resume(coroutine.create(GodModeScript))
function GravityOnScript() -- GravityOn.LocalScript
	getfenv().script = Instance.new('LocalScript', GravityOn)

	GravityOn.MouseButton1Click:connect(function()
	workspace.Gravity = 50
	end)

end
coroutine.resume(coroutine.create(GravityOnScript))
function WalkSpeedOnScript() -- WalkSpeedOn.LocalScript
	getfenv().script = Instance.new('LocalScript', WalkSpeedOn)

	WalkSpeedOn.MouseButton1Click:connect(function()
		game.Players.LocalPlayer.Character.Humanoid.WalkSpeed = 200
	end)

end
coroutine.resume(coroutine.create(WalkSpeedOnScript))
function Fly2OnScript() -- Fly2ON.LocalScript
	getfenv().script = Instance.new('LocalScript', Fly2ON)

	Fly2ON.MouseButton1Click:connect(function()

	local mouse=game:GetService("Players").LocalPlayer:GetMouse''
	localplayer=game:GetService("Players").LocalPlayer
	game:GetService("Players").LocalPlayer.Character:WaitForChild("HumanoidRootPart")
	local torso = game:GetService("Players").LocalPlayer.Character.HumanoidRootPart
	local speed=0
	local keys={a=false,d=false,w=false,s=false}
	local e1
	local e2
	local function start()
	local pos = Instance.new("BodyPosition",torso)
	local gyro = Instance.new("BodyGyro",torso)
	pos.Name="EPIXPOS"
	pos.maxForce = Vector3.new(math.huge, math.huge, math.huge)
	pos.position = torso.Position
	gyro.maxTorque = Vector3.new(9e9, 9e9, 9e9)
	gyro.cframe = torso.CFrame
	repeat
	wait()
	localplayer.Character.Humanoid.PlatformStand=true
	local new=gyro.cframe - gyro.cframe.p + pos.position
	if not keys.w and not keys.s and not keys.a and not keys.d then
	speed=1
	end
	if keys.w then
	new = new + workspace.CurrentCamera.CoordinateFrame.lookVector * speed
	speed=speed+0.01
	end
	if keys.s then
	new = new - workspace.CurrentCamera.CoordinateFrame.lookVector * speed
	speed=speed+0.01
	end
	if keys.d then
	new = new * CFrame.new(speed,0,0)
	speed=speed+0.01
	end
	if keys.a then
	new = new * CFrame.new(-speed,0,0)
	speed=speed+0.01
	end
	if speed>5 then
	speed=5
	end
	pos.position=new.p
	if keys.w then
	gyro.cframe = workspace.CurrentCamera.CoordinateFrame*CFrame.Angles(-math.rad(speed*15),0,0)
	elseif keys.s then
	gyro.cframe = workspace.CurrentCamera.CoordinateFrame*CFrame.Angles(math.rad(speed*15),0,0)
	else
	gyro.cframe = workspace.CurrentCamera.CoordinateFrame
	end
	until not Fly
	if gyro then gyro:Destroy() end
	if pos then pos:Destroy() end
	flying=false
	localplayer.Character.Humanoid.PlatformStand=false
	speed=0
	end
	e1=mouse.KeyDown:connect(function(key)
	if not torso or not torso.Parent then flying=false e1:disconnect() e2:disconnect() return end
	if key=="w" then
	keys.w=true
	elseif key=="s" then
	keys.s=true
	elseif key=="a" then
	keys.a=true
	elseif key=="d" then
	keys.d=true
	end
	end)
	e2=mouse.KeyUp:connect(function(key)
	if key=="w" then
	keys.w=false
	elseif key=="s" then
	keys.s=false
	elseif key=="a" then
	keys.a=false
	elseif key=="d" then
	keys.d=false
	end
	end)

	flyy = true
	Fly = true
	start()
	end)

end
coroutine.resume(coroutine.create(Fly2OnScript))
function WalkSpeedOffScript() -- WalkSpeedOff.LocalScript
	getfenv().script = Instance.new('LocalScript', WalkSpeedOff)

	WalkSpeedOff.MouseButton1Click:connect(function()
		game.Players.LocalPlayer.Character.Humanoid.WalkSpeed = 16
	end)

end
coroutine.resume(coroutine.create(WalkSpeedOffScript))
function GravityOffScript() -- GravityOff.LocalScript
	getfenv().script = Instance.new('LocalScript', GravityOff)

	GravityOff.MouseButton1Click:connect(function()
	workspace.Gravity = 196.2
	end)

end
coroutine.resume(coroutine.create(GravityOffScript))
function Fly2OffScript() -- Fly2Off.LocalScript
	getfenv().script = Instance.new('LocalScript', Fly2Off)

	Fly2Off.MouseButton1Click:connect(function()

	local mouse=game:GetService("Players").LocalPlayer:GetMouse''
	localplayer=game:GetService("Players").LocalPlayer
	game:GetService("Players").LocalPlayer.Character:WaitForChild("HumanoidRootPart")
	local torso = game:GetService("Players").LocalPlayer.Character.HumanoidRootPart
	local speed=0
	local keys={a=false,d=false,w=false,s=false}
	local e1
	local e2
	local function start()
	local pos = Instance.new("BodyPosition",torso)
	local gyro = Instance.new("BodyGyro",torso)
	pos.Name="EPIXPOS"
	pos.maxForce = Vector3.new(math.huge, math.huge, math.huge)
	pos.position = torso.Position
	gyro.maxTorque = Vector3.new(9e9, 9e9, 9e9)
	gyro.cframe = torso.CFrame
	repeat
	wait()
	localplayer.Character.Humanoid.PlatformStand=true
	local new=gyro.cframe - gyro.cframe.p + pos.position
	if not keys.w and not keys.s and not keys.a and not keys.d then
	speed=1
	end
	if keys.w then
	new = new + workspace.CurrentCamera.CoordinateFrame.lookVector * speed
	speed=speed+0.01
	end
	if keys.s then
	new = new - workspace.CurrentCamera.CoordinateFrame.lookVector * speed
	speed=speed+0.01
	end
	if keys.d then
	new = new * CFrame.new(speed,0,0)
	speed=speed+0.01
	end
	if keys.a then
	new = new * CFrame.new(-speed,0,0)
	speed=speed+0.01
	end
	if speed>5 then
	speed=5
	end
	pos.position=new.p
	if keys.w then
	gyro.cframe = workspace.CurrentCamera.CoordinateFrame*CFrame.Angles(-math.rad(speed*15),0,0)
	elseif keys.s then
	gyro.cframe = workspace.CurrentCamera.CoordinateFrame*CFrame.Angles(math.rad(speed*15),0,0)
	else
	gyro.cframe = workspace.CurrentCamera.CoordinateFrame
	end
	until not Fly
	if gyro then gyro:Destroy() end
	if pos then pos:Destroy() end
	flying=false
	localplayer.Character.Humanoid.PlatformStand=false
	speed=0
	end
	e1=mouse.KeyDown:connect(function(key)
	if not torso or not torso.Parent then flying=false e1:disconnect() e2:disconnect() return end
	if key=="w" then
	keys.w=true
	elseif key=="s" then
	keys.s=true
	elseif key=="a" then
	keys.a=true
	elseif key=="d" then
	keys.d=true
	end
	end)
	e2=mouse.KeyUp:connect(function(key)
	if key=="w" then
	keys.w=false
	elseif key=="s" then
	keys.s=false
	elseif key=="a" then
	keys.a=false
	elseif key=="d" then
	keys.d=false
	end
	end)

	flyy = false
	Fly = false
	start()
	end)

end
coroutine.resume(coroutine.create(Fly2OffScript))
function FrameInOut() -- OpenButton.LocalScript
	getfenv().script = Instance.new('LocalScript', OpenButton)

	-- Frame In - Out
	OpenButton.MouseButton1Click:connect(function()
		local t = OpenButton.Text == ">" and true or false
		R47Gui.R47Frame = t and R47Frame:TweenPosition(UDim2.new(0,0,0,0), "Out", "Quad", 1)or R47Frame:TweenPosition(UDim2.new(-0.905,0,0,0), "Out", "Quad", 1)
		OpenButton.Text = t and "<" or ">"
	end)

end
coroutine.resume(coroutine.create(FrameInOut))