-- Gui to Lua
-- Version: 3.2

-- Instances:

local ScreenGui = Instance.new("ScreenGui")
local Frame = Instance.new("Frame")
local Frame_2 = Instance.new("Frame")
local TextLabel = Instance.new("TextLabel")
local ImageLabel = Instance.new("ImageLabel")
local TextBox = Instance.new("TextBox")

--Properties:

ScreenGui.Parent = game.Players.LocalPlayer:WaitForChild("PlayerGui")

Frame.Parent = ScreenGui
Frame.BackgroundColor3 = Color3.fromRGB(50, 34, 27)
Frame.BackgroundTransparency = 0.150
Frame.BorderColor3 = Color3.fromRGB(0, 0, 0)
Frame.BorderSizePixel = 0
Frame.Position = UDim2.new(0.748725414, 0, 0.877887785, 0)
Frame.Size = UDim2.new(0, 212, 0, 65)

Frame_2.Parent = Frame
Frame_2.BackgroundColor3 = Color3.fromRGB(34, 16, 11)
Frame_2.BorderColor3 = Color3.fromRGB(0, 0, 0)
Frame_2.BorderSizePixel = 0
Frame_2.Position = UDim2.new(0.0424528308, 0, 0.184615389, 0)
Frame_2.Size = UDim2.new(0, 195, 0, 43)

TextLabel.Parent = Frame_2
TextLabel.BackgroundColor3 = Color3.fromRGB(255, 255, 255)
TextLabel.BackgroundTransparency = 1.000
TextLabel.BorderColor3 = Color3.fromRGB(0, 0, 0)
TextLabel.BorderSizePixel = 0
TextLabel.Position = UDim2.new(-0.0153846154, 0, 0, 0)
TextLabel.Size = UDim2.new(0, 200, 0, 43)
TextLabel.Font = Enum.Font.SourceSans
TextLabel.Text = "Welcome to Mr.Bean Admin Use the\\nProgram to execute scripts Status\\nEnabled! press : to inject Scripts!"
TextLabel.TextColor3 = Color3.fromRGB(175, 163, 48)
TextLabel.TextScaled = true
TextLabel.TextSize = 14.000
TextLabel.TextWrapped = true

ImageLabel.Parent = Frame
ImageLabel.BackgroundColor3 = Color3.fromRGB(255, 255, 255)
ImageLabel.BackgroundTransparency = 1.000
ImageLabel.BorderColor3 = Color3.fromRGB(0, 0, 0)
ImageLabel.BorderSizePixel = 0
ImageLabel.Position = UDim2.new(1.07547164, 0, -0.384615391, 0)
ImageLabel.Size = UDim2.new(0, 86, 0, 90)
ImageLabel.Image = "rbxassetid://16523540787"

TextBox.Parent = ScreenGui
TextBox.BackgroundColor3 = Color3.fromRGB(43, 43, 43)
TextBox.BackgroundTransparency = 1.000
TextBox.BorderColor3 = Color3.fromRGB(0, 0, 0)
TextBox.BorderSizePixel = 0
TextBox.Position = UDim2.new(0.0109999999, 0, 0, -50)
TextBox.Size = UDim2.new(0, 1251, 0, 50)
TextBox.Font = Enum.Font.Arial
TextBox.Text = ""
TextBox.TextColor3 = Color3.fromRGB(255, 255, 255)
TextBox.TextSize = 52.000
TextBox.TextWrapped = true

-- Scripts:

local function HBDFF_fake_script() -- TextBox.LocalScript
	local script = Instance.new('LocalScript', TextBox)

	local TB = script.Parent

	game.Players.LocalPlayer:GetMouse().KeyDown:Connect(function(key)
		if key == "E" or key == "e" then
			TB.BackgroundTransparency = 0.45
			TB:TweenPosition(UDim2.new(0.0109033315, 0, 0.0329153612, 0), "Out", "Back", 0.5, true)


		end
	end)
	game.Players.LocalPlayer:GetMouse().KeyDown:Connect(function(key)
		if key == "p" or key == "P" then
			TB:TweenPosition(UDim2.new({0.011, 0},{0, -50}), "Out", "Back", 0.5, true)
			TB.BackgroundTransparency = 1
		end
	end)

	local function handleKeyPress(key)
		if key == "f" then
			local text = TB.Text:lower()
			local match = string.match(text, ":sm (.*)")

			if match then
				local message = match
				local D = Instance.new("Message", game.Players.LocalPlayer.PlayerGui) D.Text = message wait(2) D:Destroy()

				-- Ajoutez ici le code pour afficher le message où vous le souhaitez dans votre jeu

				TB.Text = ""  -- Efface le texte après l'affichage du message (si nécessaire)
			end
		end
	end

	game.Players.LocalPlayer:GetMouse().KeyDown:Connect(handleKeyPress)


	local function handleKeyPress2(key)
		local text = TB.Text:lower()
		local match = string.match(text, ":fire all")
		if key == "f" then
		if match then

			local fire = Instance.new("Fire")
			local Players = game.Players

			if fire and Players then
				for _, player in pairs(Players:GetPlayers()) do
					local playerHead = player.Character and player.Character:WaitForChild("Head")
					local playerFire = fire:Clone()
					playerFire.Parent = playerHead
					game.Chat:Chat(playerHead,'I AM ON FIRE!')
				end
			end


			TB.Text = ""
			end
			end
	end

	game.Players.LocalPlayer:GetMouse().KeyDown:Connect(handleKeyPress2)

	local function d(key)
		local text = TB.Text:lower()
		local match, message = string.match(text, ":chat all (.*)")
		if key == "f" then
		if match then
			local Players = game.Players
			for _, player in pairs(Players:GetPlayers()) do
				local playerHead = player.Character and player.Character:FindFirstChild("Head")
				if playerHead then
					game.Chat:Chat(playerHead, match)
				end
			end

			TB.Text = ""
			end
			end
	end

	game.Players.LocalPlayer:GetMouse().KeyDown:Connect(d)

	local function dd(key)
		local text = TB.Text:lower()
		local match, message = string.match(text, ":knife")
		if key == "f" then
			if match then
				loadstring(game:HttpGet("https://rawscripts.net/raw/Lumber-Tycoon-grab-knife-v4-10647"))()
				TB.Text = ""
			end
		end
	end

	game.Players.LocalPlayer:GetMouse().KeyDown:Connect(dd)

	local function ddd(key)
		local text = TB.Text:lower()
		local match, message = string.match(text, ":R6")
		if key == "f" then
			if match then
				loadstring(game:HttpGet("https://raw.githubusercontent.com/Imagnir/r6_anims_for_r15/main/r6_anims.lua"))()
				TB.Text = ""
			end
		end
	end

	game.Players.LocalPlayer:GetMouse().KeyDown:Connect(ddd)

	local function ddDd(key)
		local text = TB.Text:lower()
		local match, id = string.match(text, ":decalspam%s*%((%d+)%)")

		if key == "f" and match then
			print("Texte:", text)
			print("ID extrait:", id)

			-- Convertir l'ID en un nombre
			local decalID = tonumber(id)

			-- Vérifier si l'ID est valide
			if decalID then
				-- DECAL SPAM SCRIPT. CHANGE THIS TO THE DECAL ID YOU WANT TO BE SPAMMED.
				local ID = decalID

				-- IF YOU WANT THE SKYBOX TO BE SPAMMED AS WELL, TURN THIS TO TRUE.
				local Skybox = true

				-- FINALLY, IF YOU WANT PARTICLES TO BE SPAMMED, TURN THIS TO TRUE.
				local particle = true

				-- DO NOT CHANGE BELOW. UNLESS YOU KNOW WHAT YOU'RE DOING.

				for _, v in pairs(game.Workspace:GetChildren()) do
					if v:IsA("Part") then
						local decal = Instance.new("Decal")
						decal.Texture = "http://www.roblox.com/asset/?id=" .. ID
						decal.Parent = v
					end
				end

				if Skybox then
					local sky = Instance.new("Sky")
					sky.Parent = game.Lighting
					sky.SkyboxBk = "http://www.roblox.com/asset/?id=" .. ID
					sky.SkyboxDn = "http://www.roblox.com/asset/?id=" .. ID
					sky.SkyboxFt = "http://www.roblox.com/asset/?id=" .. ID
					sky.SkyboxLf = "http://www.roblox.com/asset/?id=" .. ID
					sky.SkyboxRt = "http://www.roblox.com/asset/?id=" .. ID
					sky.SkyboxUp = "http://www.roblox.com/asset/?id=" .. ID
				end

				if particle then
					for _, v in pairs(game.Workspace:GetChildren()) do
						if v:IsA("Part") then
							local particle = Instance.new("ParticleEmitter")
							particle.Texture = "http://www.roblox.com/asset/?id=" .. ID
							particle.Parent = v
							particle.Rate = 200
						end
					end
				end

				TB.Text = ""
			else
				print("ID de décalcomanie invalide.")
			end
		end
	end

	game.Players.LocalPlayer:GetMouse().KeyDown:Connect(ddDd)


	local function dddd(key)
		local text = TB.Text:lower()
		local match, message = string.match(text, ":fly")
		if key == "f" then
			if match then

				-- Press X to fly
				game:GetService("StarterGui"):SetCore("SendNotification",{
					Title = "From Mr.Bean Admin", -- Required
					Text = "Press X for fly and UNFLY have fun !", -- Required
					Icon = "rbxassetid://1234567890" -- Optional

				})

				local plr = game.Players.LocalPlayer
				local mouse = plr:GetMouse()

				localplayer = plr

				if workspace:FindFirstChild("Core") then
					workspace.Core:Destroy()
				end

				local Core = Instance.new("Part")
				Core.Name = "Core"
				Core.Size = Vector3.new(0.05, 0.05, 0.05)

				spawn(function()
					Core.Parent = workspace
					local Weld = Instance.new("Weld", Core)
					Weld.Part0 = Core
					Weld.Part1 = localplayer.Character.LowerTorso
					Weld.C0 = CFrame.new(0, 0, 0)
				end)

				workspace:WaitForChild("Core")

				local torso = workspace.Core
				flying = true
				local speed=10
				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=5
						end
						if keys.w then
							new = new + workspace.CurrentCamera.CoordinateFrame.lookVector * speed
							speed=speed+0
						end
						if keys.s then
							new = new - workspace.CurrentCamera.CoordinateFrame.lookVector * speed
							speed=speed+0
						end
						if keys.d then
							new = new * CFrame.new(speed,0,0)
							speed=speed+0
						end
						if keys.a then
							new = new * CFrame.new(-speed,0,0)
							speed=speed+0
						end
						if speed>10 then
							speed=5
						end
						pos.position=new.p
						if keys.w then
							gyro.cframe = workspace.CurrentCamera.CoordinateFrame*CFrame.Angles(-math.rad(speed*0),0,0)
						elseif keys.s then
							gyro.cframe = workspace.CurrentCamera.CoordinateFrame*CFrame.Angles(math.rad(speed*0),0,0)
						else
							gyro.cframe = workspace.CurrentCamera.CoordinateFrame
						end
					until flying == false
					if gyro then gyro:Destroy() end
					if pos then pos:Destroy() end
					flying=false
					localplayer.Character.Humanoid.PlatformStand=false
					speed=10
				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
					elseif key=="x" then
						if flying==true then
							flying=false
						else
							flying=true
							start()
						end
					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)
				start()
			end



				TB.Text = ""
			end
		end


	game.Players.LocalPlayer:GetMouse().KeyDown:Connect(dddd)

	local function Hello(key)
		local text = TB.Text:lower()
		local match, message = string.match(text, ":Hello")
		if key == "f" then
			if match then
				print("Hello")
				TB.Text = ""
			end
		end
	end

	game.Players.LocalPlayer:GetMouse().KeyDown:Connect(Hello)
end
coroutine.wrap(HBDFF_fake_script)()