Hrakeri gui v1

local player = game.Players.LocalPlayer
local gui = Instance.new("ScreenGui")
gui.Parent = player:WaitForChild("PlayerGui")
gui.ResetOnSpawn = false

local UIS = game:GetService("UserInputService")

local IMAGE_ID = "rbxassetid://117048032974196"
local JUMP2_IMAGE = "rbxassetid://91706224122695"

--------------------------------------------------
-- DRAG SYSTEM
--------------------------------------------------
local function makeDraggable(obj)
	local dragging = false
	local dragStart, startPos

	obj.InputBegan:Connect(function(input)
		if input.UserInputType == Enum.UserInputType.MouseButton1
		or input.UserInputType == Enum.UserInputType.Touch then

			dragging = true
			dragStart = input.Position
			startPos = obj.Position

			input.Changed:Connect(function()
				if input.UserInputState == Enum.UserInputState.End then
					dragging = false
				end
			end)
		end
	end)

	UIS.InputChanged:Connect(function(input)
		if dragging and (input.UserInputType == Enum.UserInputType.MouseMovement
		or input.UserInputType == Enum.UserInputType.Touch) then

			local delta = input.Position - dragStart
			obj.Position = UDim2.new(
				startPos.X.Scale,
				startPos.X.Offset + delta.X,
				startPos.Y.Scale,
				startPos.Y.Offset + delta.Y
			)
		end
	end)
end

--------------------------------------------------
-- ICÔNE
--------------------------------------------------
local icon = Instance.new("ImageButton")
icon.Parent = gui
icon.Size = UDim2.new(0,60,0,60)
icon.Position = UDim2.new(1,-70,0.5,-30)
icon.Image = IMAGE_ID
icon.BackgroundTransparency = 1

makeDraggable(icon)

--------------------------------------------------
-- MENU
--------------------------------------------------
local frame = Instance.new("Frame")
frame.Parent = gui
frame.Size = UDim2.new(0,300,0,500)
frame.Position = UDim2.new(1,-320,0.5,-250)
frame.Visible = false
frame.BackgroundColor3 = Color3.fromRGB(0,0,0)

makeDraggable(frame)

local bg = Instance.new("ImageLabel")
bg.Parent = frame
bg.Size = UDim2.new(1,0,1,0)
bg.Image = IMAGE_ID
bg.BackgroundTransparency = 1

icon.MouseButton1Click:Connect(function()
	frame.Visible = not frame.Visible
end)

--------------------------------------------------
-- BOUTONS
--------------------------------------------------
local function createButton(text, y)
	local btn = Instance.new("TextButton")
	btn.Parent = frame
	btn.Size = UDim2.new(0,250,0,40)
	btn.Position = UDim2.new(0.5,-125,0,y)
	btn.BackgroundColor3 = Color3.fromRGB(0,0,0)
	btn.BorderSizePixel = 1
	btn.TextColor3 = Color3.new(1,1,1)
	btn.Text = text
	return btn
end

local skyboxBtn = createButton("Skybox", 10)
local jumpBtn = createButton("Jumpscare", 60)
local jump2Btn = createButton("Jumpscare 2", 110)
local partBtn = createButton("Particles Spam", 160)
local decalBtn = createButton("Decal Spam", 210)
local themeBtn = createButton("Theme", 260)
local hintBtn = createButton("Hint", 310)
local messageBtn = createButton("Message", 360)

--------------------------------------------------
-- SKYBOX
--------------------------------------------------
skyboxBtn.MouseButton1Click:Connect(function()
	local sky = Instance.new("Sky")
	for _,v in pairs({"Bk","Dn","Ft","Lf","Rt","Up"}) do
		sky["Skybox"..v] = IMAGE_ID
	end
	sky.Parent = game.Lighting
end)

--------------------------------------------------
-- JUMPSCARE 1
--------------------------------------------------
jumpBtn.MouseButton1Click:Connect(function()
	local s = Instance.new("Sound")
	s.SoundId = "rbxassetid://6129291390"
	s.Volume = 10
	s.Parent = workspace
	s:Play()

	local jumpGui = Instance.new("ScreenGui")
	jumpGui.Parent = player:WaitForChild("PlayerGui")

	local img = Instance.new("ImageLabel")
	img.Parent = jumpGui
	img.Size = UDim2.new(1,0,1,0)
	img.BackgroundTransparency = 1
	img.Image = IMAGE_ID
	img.ZIndex = 999

	s.Ended:Wait()
	jumpGui:Destroy()
end)

--------------------------------------------------
-- JUMPSCARE 2
--------------------------------------------------
jump2Btn.MouseButton1Click:Connect(function()
	local s = Instance.new("Sound")
	s.SoundId = "rbxassetid://6129291390"
	s.Volume = 10
	s.Parent = workspace
	s:Play()

	local jumpGui = Instance.new("ScreenGui")
	jumpGui.Parent = player:WaitForChild("PlayerGui")

	local img = Instance.new("ImageLabel")
	img.Parent = jumpGui
	img.Size = UDim2.new(1,0,1,0)
	img.BackgroundTransparency = 1
	img.Image = JUMP2_IMAGE
	img.ZIndex = 999

	s.Ended:Wait()
	jumpGui:Destroy()
end)

--------------------------------------------------
-- PARTICLES
--------------------------------------------------
partBtn.MouseButton1Click:Connect(function()
	for i = 1,20 do
		local p = Instance.new("ParticleEmitter")
		p.Texture = IMAGE_ID
		p.Rate = 200
		p.Parent = workspace.Terrain
	end
end)

--------------------------------------------------
-- DECAL
--------------------------------------------------
decalBtn.MouseButton1Click:Connect(function()
	for _,v in pairs(workspace:GetDescendants()) do
		if v:IsA("Part") then
			local d = Instance.new("Decal")
			d.Texture = IMAGE_ID
			d.Parent = v
		end
	end
end)

--------------------------------------------------
-- HINT
--------------------------------------------------
hintBtn.MouseButton1Click:Connect(function()
	local HINT = Instance.new("Hint", workspace)
	HINT.Text = "Top on Hrakeri"
end)

--------------------------------------------------
-- MESSAGE (TRANSPARENCE 0.3)
--------------------------------------------------
messageBtn.MouseButton1Click:Connect(function()
	local msgGui = Instance.new("ScreenGui")
	msgGui.Parent = player:WaitForChild("PlayerGui")

	local bgFrame = Instance.new("Frame")
	bgFrame.Parent = msgGui
	bgFrame.Size = UDim2.new(1,0,1,0)
	bgFrame.BackgroundColor3 = Color3.new(0,0,0)
	bgFrame.BackgroundTransparency = 0.3

	local text = Instance.new("TextLabel")
	text.Parent = bgFrame
	text.Size = UDim2.new(1,0,1,0)
	text.BackgroundTransparency = 1
	text.Text = "Get hacked by Hrakeri"
	text.TextColor3 = Color3.new(1,1,1)
	text.TextScaled = true

	task.wait(4)
	msgGui:Destroy()
end)

--------------------------------------------------
-- MUSIQUE ON/OFF
--------------------------------------------------
local music
local playing = false

themeBtn.MouseButton1Click:Connect(function()
	if not playing then
		music = Instance.new("Sound")
		music.SoundId = "rbxassetid://117316510378906"
		music.Volume = 5
		music.Looped = true
		music.Parent = workspace
		music:Play()
		playing = true
	else
		if music then
			music:Stop()
			music:Destroy()
		end
		playing = false
	end
end)