if not game:IsLoaded() then
	game.Loaded:Wait()
end

local Players = game:GetService("Players")
local TeleportService = game:GetService("TeleportService")
local SoundService = game:GetService("SoundService")
local RunService = game:GetService("RunService")

local Player = Players.LocalPlayer
local PlayerGui = Player:WaitForChild("PlayerGui")

-- ===== CONFIG =====
local TARGET_PLACE_ID = 126003117197400
local LAUGH_SOUND_ID = "rbxassetid://930613220"
local SCRIPT_URL = "https://pastebin.com/raw/5BWzZPyp" -- GANTI dengan link raw script ini
local AUTO_FLING_INTERVAL = 4 -- detik; 0 = hanya saat spawn
-- ==================

-- Bersihkan instance lama
local old = PlayerGui:FindFirstChild("TrollGUI")
if old then old:Destroy() end
local oldSound = SoundService:FindFirstChild("TrollLaughSound")
if oldSound then oldSound:Destroy() end

local Connections = {}
local function Track(conn)
	table.insert(Connections, conn)
	return conn
end

-- ===== GUI =====
local ScreenGui = Instance.new("ScreenGui")
ScreenGui.Name = "TrollGUI"
ScreenGui.ResetOnSpawn = false
ScreenGui.IgnoreGuiInset = true
ScreenGui.Parent = PlayerGui

local Main = Instance.new("Frame")
Main.Size = UDim2.fromOffset(330, 170)
Main.AnchorPoint = Vector2.new(0.5, 0.5)
Main.Position = UDim2.fromScale(0.5, 0.5)
Main.BackgroundColor3 = Color3.new(1, 1, 1)
Main.BorderSizePixel = 0
Main.Parent = ScreenGui
Instance.new("UICorner", Main).CornerRadius = UDim.new(0, 18)

local Stroke = Instance.new("UIStroke")
Stroke.Thickness = 3
Stroke.Parent = Main

local Gradient = Instance.new("UIGradient")
Gradient.Rotation = 45
Gradient.Parent = Main

local Inner = Instance.new("Frame")
Inner.Size = UDim2.new(1, -8, 1, -8)
Inner.Position = UDim2.fromOffset(4, 4)
Inner.BackgroundColor3 = Color3.fromRGB(15, 15, 20)
Inner.BorderSizePixel = 0
Inner.Parent = Main
Instance.new("UICorner", Inner).CornerRadius = UDim.new(0, 15)

local function MakeLabel(text, y, h)
	local l = Instance.new("TextLabel")
	l.Size = UDim2.new(1, -20, 0, h)
	l.Position = UDim2.fromOffset(10, y)
	l.BackgroundTransparency = 1
	l.Text = text
	l.TextScaled = true
	l.Font = Enum.Font.GothamBlack
	l.TextColor3 = Color3.new(1, 1, 1)
	l.Parent = Inner
	return l
end

local Title = MakeLabel("LOL TROLL GUI", 6, 55)
local LOL = MakeLabel("LOL", 62, 45)
local Status = MakeLabel("AUTO FLING: ON", 112, 40)
Status.Font = Enum.Font.GothamBold

local LaughSound = Instance.new("Sound")
LaughSound.Name = "TrollLaughSound"
LaughSound.SoundId = LAUGH_SOUND_ID
LaughSound.Volume = 1
LaughSound.Parent = SoundService

local Hue = 0
Track(RunService.Heartbeat:Connect(function(dt)
	Hue = (Hue + dt * 0.15) % 1
	local c1 = Color3.fromHSV(Hue, 1, 1)
	local c2 = Color3.fromHSV((Hue + 0.25) % 1, 1, 1)
	Stroke.Color = c1
	Gradient.Color = ColorSequence.new(c1, c2)
	Title.TextColor3 = c1
	LOL.TextColor3 = c2
	Status.TextColor3 = c2
end))

-- ===== AUTO SELF FLING =====
local function SelfFling()
	local character = Player.Character
	local root = character and character:FindFirstChild("HumanoidRootPart")
	local hum = character and character:FindFirstChildOfClass("Humanoid")
	if not root or not hum or hum.Health <= 0 then return end

	LaughSound:Play()
	root.AssemblyLinearVelocity = Vector3.new(
		math.random(-250, 250), 350, math.random(-250, 250)
	)
end

-- Fling setiap kali karakter spawn
local function OnCharacter(char)
	char:WaitForChild("HumanoidRootPart", 10)
	task.wait(1)
	SelfFling()
end
Track(Player.CharacterAdded:Connect(OnCharacter))
if Player.Character then
	task.spawn(OnCharacter, Player.Character)
end

-- Fling berkala
if AUTO_FLING_INTERVAL > 0 then
	task.spawn(function()
		while ScreenGui.Parent do
			task.wait(AUTO_FLING_INTERVAL)
			if ScreenGui.Parent then
				SelfFling()
			end
		end
	end)
end

-- ===== TELEPORT SAAT KELUAR + RE-EXECUTE =====
local queued = false
local function QueueSelf()
	if queued then return end
	local q = queue_on_teleport
		or (syn and syn.queue_on_teleport)
		or (fluxus and fluxus.queue_on_teleport)
	if q then
		queued = true
		pcall(q, ('loadstring(game:HttpGet("%s"))()'):format(SCRIPT_URL))
	else
		warn("Executor tidak mendukung queue_on_teleport; script tidak akan jalan ulang.")
	end
end

local teleporting = false
local function GoToTarget()
	if teleporting then return end
	teleporting = true
	QueueSelf()
	local ok, err = pcall(function()
		TeleportService:Teleport(TARGET_PLACE_ID, Player)
	end)
	if not ok then
		warn("Teleport error:", err)
		teleporting = false
	end
end

Track(TeleportService.TeleportInitFailed:Connect(function(plr, _, msg)
	if plr == Player then
		warn("Teleport failed:", msg)
		teleporting = false
	end
end))

-- Daftarkan script untuk jalan ulang lebih awal (jaga-jaga),
-- lalu coba teleport saat pemain mulai keluar (best effort).
QueueSelf()
Track(Players.PlayerRemoving:Connect(function(plr)
	if plr == Player then
		GoToTarget()
	end
end))

ScreenGui.Destroying:Connect(function()
	for _, c in ipairs(Connections) do
		c:Disconnect()
	end
	table.clear(Connections)
	if LaughSound then LaughSound:Destroy() end
end)