-- [[ VERITY AI COMPANION - V10 ULTIMATE DOMINANCE (GODLY ELITE EXPANSION) ]] --
-- Support Realtime Radar, ESP, Singularity, Singularis, Dimension Horror, Main Menu, Skyland, Parasite, & Clone Combat

local Players = game:GetService("Players")
local RunService = game:GetService("RunService")
local TweenService = game:GetService("TweenService")
local Workspace = game:GetService("Workspace")
local PathfindingService = game:GetService("PathfindingService")
local Lighting = game:GetService("Lighting")
local MarketplaceService = game:GetService("MarketplaceService")
local Debris = game:GetService("Debris")
local CoreGui = game:GetService("CoreGui")

local Player = Players.LocalPlayer
local Character = Player.Character or Player.CharacterAdded:Wait()
local HRP = Character:WaitForChild("HumanoidRootPart")
local Humanoid = Character:WaitForChild("Humanoid")

-- [ 1. CONFIG, ASSETS & SYSTEM STATE ]
local Verity = nil
local Clones = {}
local State = "NORMAL"
local IsFlying = true
local CurrentTarget = nil
local HitCount = 0
local LastHealth = Humanoid.Health
local DayCount = 1
local SystemActive = false

local OriginalColors = {}
local OriginalLighting = {
    Ambient = Lighting.Ambient, FogColor = Lighting.FogColor, FogEnd = Lighting.FogEnd, ClockTime = Lighting.ClockTime
}
local OriginalFace = ""
local BaseWalkSpeed = 16

-- Kumpulan Asset IDs
local IDs = {
    AuraNull = "rbxassetid://241884171", BloodHorror = "rbxassetid://241884171",
    FaceNormal = "rbxassetid://1309911", FaceSmile = "rbxassetid://157042877",
    AmbientNormal = "rbxassetid://86575433206430",
    VoiceNormal = {"rbxassetid://80832291091293", "rbxassetid://71231208892767", "rbxassetid://85949912490970"},
    HorrorSounds = {"rbxassetid://3084417586", "rbxassetid://3084417985"},
    SingularitySound = {"rbxassetid://142070127", "rbxassetid://139900006476219"},
    Singularity3D = {"rbxassetid://12849539195", "rbxassetid://122707993790211"},
    SingularityShockwave = "rbxassetid://8840815219", SingularityEffect = "rbxassetid://139778125654986",
    SingularisSound = "rbxassetid://120130801959148", SingularisExplosion = "rbxassetid://98006388364000",
    SingularisEffect = {"rbxassetid://84761175886099", "rbxassetid://115978530212458"},
    SingularisShockwave = "rbxassetid://133635714001651",
    VoiceFunny = {"rbxassetid://137887059021698", "rbxassetid://128132519337195", "rbxassetid://108458624868477", "rbxassetid://139836635302855", "rbxassetid://133789315328542", "rbxassetid://105726690559537", "rbxassetid://133762931722734"},
    SkyboxAmbient = "rbxassetid://74461673136220", SkyboxDecal = "rbxassetid://9953314864",
    DreamCoreDecor = {"rbxassetid://90430823892185", "rbxassetid://116886879957352", "rbxassetid://137231199716870", "rbxassetid://73381415564861"},
    DreamCoreSound = "rbxassetid://86247184974274", DreamCoreSkybox = "rbxassetid://101397257310609",
    DreamCoreFog = {"rbxassetid://121121554576335", "rbxassetid://106602592227083"},
    SkylandIsland = "rbxassetid://5128096056", SkylandEffects = {"rbxassetid://9432300500", "rbxassetid://9108837375", "rbxassetid://131286140515924"},
    SkylandAmbient = {"rbxassetid://139767023947424", "rbxassetid://5799870105"}
}

local AmbientSound = Instance.new("Sound")
local VoiceSound = Instance.new("Sound")
local UI = Instance.new("ScreenGui", CoreGui); UI.Name = "VerityGodlyUI"

local GameName = "Unknown Map"
task.spawn(function() pcall(function() GameName = MarketplaceService:GetProductInfo(game.PlaceId).Name end) end)

-- [ 2. DIALOG GENERATOR (1500+ ADAPTIVE KOMBIS) ]
local BaseDialogues = {
    NORMAL = {"Sistem hijau, Tuan.", "Menikmati pemandangan map.", "Smooth Plastic-ku mengkilap.", "Aku mengawasimu.", "Menganalisis arsitektur server."},
    MARAH = {"KAU MENYENTUH TUANKU?!", "SISTEM AGRESIF AKTIF!", "AKAN KU FLING KAU KE VOID!"},
    BRUTAL = {"PEMBERSIHAN MASSAL!", "SINGULARITY AKTIF! MATILAH!", "KLONING, SERANG MEREKA SEMUA!"},
    NULL = {"KAMI ADALAH KEKOSONGAN.", "Mengambil alih inang fisik...", "Aura gelap ini akan melenyapkan kalian."},
    COSMIC = {"Kekuatan kosmik mengambil alih!", "Semesta berpihak pada kita Tuan!", "Kecepatan cahaya hancurkan segalanya!"},
    HORROR = {"Hehehe... Dimensi darah ini indah...", "Tersenyumlah bersama kami...", "Mari bermain di kegelapan abadi."},
    BORED = {"Bosan... Ayo jalan-jalan keliling bangunan.", "Aku akan menjelajah tanah sebentar."},
    FUNNY = {"Meme diaktifkan! Wkwkwk", "Awokawokawok Tuan liat itu lucuu!"},
    SKYBOX_KING = {"SKYBOX adalah milik Kita Tuan! Dan Rasakan Lah KEKUATAN SINGULARITY! Hahaha", "Semuanya akan DI UBAH TUAN hahaha Rasakan SKYBOX TERKUTUK INI HAHHAHA"},
    SLEEP = {"Zzz... Mengisi daya sistem... Zzz", "Zzz... Jangan ganggu Verity sedang tidur... Zzz"}
}

local EnvWords = {"di zona [GAME]", "di area ini", "di bawah langit server", "di sekitar kita", "dalam jangkauan radar"}
local MoodWords = {"secara absolut!", "dengan kekuatan penuh!", "...menjauhlah.", "tanpa ampun!", "dengan sempurna."}

local function GenerateDialogue(category)
    local base = BaseDialogues[category] and BaseDialogues[category][math.random(1, #BaseDialogues[category])] or BaseDialogues["NORMAL"][1]
    local env = EnvWords[math.random(1, #EnvWords)]
    local mood = MoodWords[math.random(1, #MoodWords)]
    if category == "SKYBOX_KING" or category == "SLEEP" then return base end
    return string.gsub(base .. " " .. env .. " " .. mood, "%[GAME%]", GameName)
end

-- [ 3. GUI SYSTEM: MAIN MENU & ISLAND ]
local function BuildIslandGUI()
    local IslandFrame = Instance.new("Frame", UI); IslandFrame.Size = UDim2.new(0,250,0,100); IslandFrame.Position = UDim2.new(0,10,0,10); IslandFrame.BackgroundColor3 = Color3.fromRGB(20,20,30); IslandFrame.Draggable = true
    local BtnOn = Instance.new("TextButton", IslandFrame); BtnOn.Size = UDim2.new(0.3,0,0.4,0); BtnOn.Position = UDim2.new(0.05,0,0.5,0); BtnOn.Text = "ON"; BtnOn.BackgroundColor3 = Color3.fromRGB(0,150,0)
    local BtnOff = Instance.new("TextButton", IslandFrame); BtnOff.Size = UDim2.new(0.3,0,0.4,0); BtnOff.Position = UDim2.new(0.4,0,0.5,0); BtnOff.Text = "OFF"; BtnOff.BackgroundColor3 = Color3.fromRGB(150,0,0)
    local BtnMin = Instance.new("TextButton", IslandFrame); BtnMin.Size = UDim2.new(0.2,0,0.3,0); BtnMin.Position = UDim2.new(0.75,0,0.1,0); BtnMin.Text = "-"
    local BtnTP = Instance.new("TextButton", IslandFrame); BtnTP.Size = UDim2.new(0.2,0,0.4,0); BtnTP.Position = UDim2.new(0.75,0,0.5,0); BtnTP.Text = "TP"
    
    local IslandSpawned = nil
    
    BtnOn.MouseButton1Click:Connect(function()
        if IslandSpawned then return end
        IslandSpawned = Instance.new("Part", Workspace); IslandSpawned.Size = Vector3.new(1250, 20, 1250); IslandSpawned.Position = Vector3.new(10000, 1000, 10000); IslandSpawned.Color = Color3.fromRGB(34, 139, 34); IslandSpawned.Anchored = true; IslandSpawned.Material = Enum.Material.Grass
        local Cloud = Instance.new("Part", IslandSpawned); Cloud.Size = Vector3.new(1300, 10, 1300); Cloud.Position = IslandSpawned.Position - Vector3.new(0,15,0); Cloud.Transparency = 0.5; Cloud.CanCollide = false; Cloud.Color = Color3.fromRGB(200,200,200)
    end)
    BtnOff.MouseButton1Click:Connect(function() if IslandSpawned then IslandSpawned:Destroy(); IslandSpawned = nil end end)
    BtnTP.MouseButton1Click:Connect(function() if IslandSpawned then HRP.CFrame = IslandSpawned.CFrame * CFrame.new(0, 50, 0) end end)
    
    local isMin = false
    BtnMin.MouseButton1Click:Connect(function()
        isMin = not isMin
        IslandFrame.Size = isMin and UDim2.new(0,250,0,30) or UDim2.new(0,250,0,100)
        BtnOn.Visible = not isMin; BtnOff.Visible = not isMin; BtnTP.Visible = not isMin
    end)
end

local function SpawnVerityBox()
    local Box = Instance.new("Part", Workspace)
    Box.Size = Vector3.new(5,5,5); Box.Position = HRP.Position + Vector3.new(0,10,0); Box.Anchored = true; Box.Color = Color3.fromRGB(50,50,50)
    local Fog = Instance.new("ParticleEmitter", Box); Fog.Texture = IDs.DreamCoreFog[1]; Fog.Rate = 50; Fog.Speed = NumberRange.new(5)
    
    local Click = Instance.new("ClickDetector", Box)
    Click.MouseClick:Connect(function()
        Click:Destroy()
        TweenService:Create(Box, TweenInfo.new(2), {Size = Vector3.new(0.1,0.1,0.1), Transparency = 1, Position = Box.Position + Vector3.new(0,5,0)}):Play()
        task.wait(2)
        Box:Destroy()
        SystemActive = true
    end)
end

local function BuildMainMenu()
    local MenuFrame = Instance.new("Frame", UI); MenuFrame.Size = UDim2.new(0,300,0,200); MenuFrame.Position = UDim2.new(0.5,-150,0.5,-100); MenuFrame.BackgroundColor3 = Color3.fromRGB(10,10,10)
    local Title = Instance.new("TextLabel", MenuFrame); Title.Size = UDim2.new(1,0,0.3,0); Title.Text = "VERITY GODLY ELITE V10"; Title.TextColor3 = Color3.new(1,1,1); Title.BackgroundTransparency = 1; Title.Font = Enum.Font.GothamBold
    local PlayBtn = Instance.new("TextButton", MenuFrame); PlayBtn.Size = UDim2.new(0.8,0,0.25,0); PlayBtn.Position = UDim2.new(0.1,0,0.35,0); PlayBtn.Text = "PLAY"; PlayBtn.BackgroundColor3 = Color3.fromRGB(0,150,0)
    local ExitBtn = Instance.new("TextButton", MenuFrame); ExitBtn.Size = UDim2.new(0.8,0,0.25,0); ExitBtn.Position = UDim2.new(0.1,0,0.65,0); ExitBtn.Text = "EXIT"; ExitBtn.BackgroundColor3 = Color3.fromRGB(150,0,0)
    
    PlayBtn.MouseButton1Click:Connect(function()
        MenuFrame:Destroy(); BuildIslandGUI(); SpawnVerityBox()
    end)
    ExitBtn.MouseButton1Click:Connect(function() UI:Destroy(); script:Destroy() end)
end
BuildMainMenu()

-- [ 4. CREATE VERITY & GODLY CORE ]
local function CreateVerity()
    if Verity and Verity.Parent then pcall(function() Verity:Destroy() end) end
    Verity = Instance.new("Part", Workspace); Verity.Name = "Verity"; Verity.Shape = Enum.PartType.Ball
    Verity.Size = Vector3.new(3, 3, 3); Verity.Color = Color3.fromRGB(255, 255, 0); Verity.Material = Enum.Material.SmoothPlastic
    Verity.Anchored = true; Verity.CanCollide = false; Verity.Position = HRP.Position + Vector3.new(3, 3, 3)

    local Face = Instance.new("Decal", Verity); Face.Texture = IDs.FaceNormal; Face.Face = Enum.NormalId.Front
    local Billboard = Instance.new("BillboardGui", Verity); Billboard.Size = UDim2.new(0, 300, 0, 110); Billboard.StudsOffset = Vector3.new(0, 3, 0); Billboard.AlwaysOnTop = true
    local NameText = Instance.new("TextLabel", Billboard); NameText.Size = UDim2.new(1, 0, 1, 0); NameText.BackgroundTransparency = 1
    NameText.Text = "Verity\n>_<"; NameText.TextScaled = true; NameText.Font = Enum.Font.GothamBold

    AmbientSound.Parent = Verity; AmbientSound.SoundId = IDs.AmbientNormal; AmbientSound.Looped = true; AmbientSound.Volume = 1.5; AmbientSound:Play()
    VoiceSound.Parent = Verity; VoiceSound.Volume = 0.55 -- Volume 55%

    task.spawn(function()
        while Verity and Verity.Parent do
            NameText.TextColor3 = Color3.fromHSV(tick() % 5 / 5, 1, 1)
            -- Godly Elite Auto Fix Size
            if Verity.Size.Magnitude < 4.5 then
                TweenService:Create(Verity, TweenInfo.new(0.7), {Size = Vector3.new(3, 3, 3)}):Play()
            end
            task.wait(0.1)
        end
    end)
end

task.spawn(function()
    while task.wait(0.5) do
        if SystemActive and (not Verity or not Verity.Parent) then CreateVerity() end
    end
end)

Player.CharacterAdded:Connect(function(newChar)
    Character = newChar
    HRP = Character:WaitForChild("HumanoidRootPart")
    Humanoid = Character:WaitForChild("Humanoid")
    if SystemActive then Verity.CFrame = HRP.CFrame * CFrame.new(0, 5, 0) end
end)

-- [ 5. TEMPORARY ESP & ULTIMATE FLING ]
local function ApplyESP(targetModel, color, reason)
    pcall(function()
        if targetModel:FindFirstChild("Verity_ESP") then return end
        local hl = Instance.new("Highlight", targetModel); hl.Name = "Verity_ESP"; hl.FillColor = color; hl.OutlineColor = Color3.new(1,1,1); Debris:AddItem(hl, 25)
        local bill = Instance.new("BillboardGui", targetModel:FindFirstChild("HumanoidRootPart") or targetModel); bill.Size = UDim2.new(0, 200, 0, 50); bill.AlwaysOnTop = true; bill.StudsOffset = Vector3.new(0,4,0)
        local txt = Instance.new("TextLabel", bill); txt.Size = UDim2.new(1,0,1,0); txt.BackgroundTransparency = 1; txt.TextColor3 = color; txt.Text = "⚠️ " .. reason; txt.TextScaled = true; txt.Font = Enum.Font.SourceSansBold
        Debris:AddItem(bill, 25)
    end)
end

local function UltimateFling(targetModel)
    if targetModel == Character then return end -- GODLY IMMUNITY
    pcall(function()
        local root = targetModel:FindFirstChild("HumanoidRootPart") or targetModel:FindFirstChildOfClass("Part")
        if root then
            root.Anchored = false
            for i = 1, 10 do root.AssemblyLinearVelocity = Vector3.new(500000, 500000, 500000); root.CFrame = CFrame.new(500000, 500000, 500000); task.wait() end
            targetModel:Destroy()
        end
    end)
end

local function CameraShake(intensity)
    local cam = Workspace.CurrentCamera
    for i=1, 10 do cam.CFrame = cam.CFrame * CFrame.Angles(math.random(-intensity,intensity)/100, math.random(-intensity,intensity)/100, 0); task.wait(0.02) end
end

-- [ 6. SINGULARITY / COSMIC BALL ENGINE (WITH SHOCKWAVE & CAM SHAKE) ]
local function FireSingularity(startPos, targetRoot, isSingularis)
    if targetRoot.Parent == Character then return end -- GODLY IMMUNITY
    pcall(function()
        local ball = Instance.new("Part", Workspace); ball.Shape = Enum.PartType.Ball; ball.Size = Vector3.new(3,3,3); ball.Color = Color3.fromRGB(0, 0, 0); ball.Material = Enum.Material.Neon; ball.Anchored = true; ball.CanCollide = false; ball.Position = startPos
        local pe = Instance.new("ParticleEmitter", ball); pe.Texture = isSingularis and IDs.SingularisEffect[1] or IDs.SingularityEffect; pe.Color = ColorSequence.new(Color3.fromRGB(138, 43, 226)); pe.Size = NumberSequence.new({NumberSequenceKeypoint.new(0, 0), NumberSequenceKeypoint.new(1, 4)}); pe.Rate = 100; pe.Speed = NumberRange.new(5); pe.SpreadAngle = Vector2.new(180, 180)
        
        -- Singularis / Skybox King Spin
        if isSingularis then
            for i=1, 5 do ball.CFrame = ball.CFrame * CFrame.Angles(0, math.rad(72), 0); task.wait(0.1) end
        end
        
        TweenService:Create(ball, TweenInfo.new(0.5, Enum.EasingStyle.Quad, Enum.EasingDirection.Out), {CFrame = targetRoot.CFrame}):Play()
        task.wait(0.5)
        
        local expSound = Instance.new("Sound", ball); expSound.SoundId = isSingularis and IDs.SingularisExplosion or IDs.SingularitySound[1]; expSound.Volume = 2; expSound:Play()
        ball.Size = Vector3.new(20,20,20); ball.Transparency = 0.5
        
        -- SHOCKWAVE / CAM SHAKE SIMULATION
        if (HRP.Position - ball.Position).Magnitude < 500 then
            local shockSound = Instance.new("Sound", ball); shockSound.SoundId = IDs.SingularityShockwave; shockSound.Volume = 1; shockSound:Play()
            CameraShake(5)
        end
        
        local targetDmg = isSingularis and 159 or 5000
        for _, obj in pairs(Workspace:GetChildren()) do
            if obj:IsA("Model") and obj ~= Character and obj:FindFirstChildOfClass("Humanoid") and obj:FindFirstChild("HumanoidRootPart") then
                if (obj.HumanoidRootPart.Position - ball.Position).Magnitude <= 30 then
                    obj.Humanoid.Health -= targetDmg
                    if obj.Humanoid.Health <= 0 then UltimateFling(obj) end
                end
            end
        end
        for i=1, 10 do ball.Transparency += 0.1; task.wait(0.05) end
        ball:Destroy()
    end)
end

-- [ 7. CLONING SYSTEM (BRUTAL & NULL MODE) ]
local function SpawnClones(amount)
    pcall(function()
        for i = 1, amount do
            local clone = Verity:Clone(); clone.Name = "Verity_Clone_"..i; clone.Position = HRP.Position + Vector3.new(math.random(-15, 15), 5, math.random(-15, 15)); clone.Parent = Workspace
            table.insert(Clones, clone)
        end
        task.delay(math.random(300, 600), function()
            for _, c in pairs(Clones) do if c and c.Parent then c:Destroy() end end
            Clones = {}
        end)
    end)
end

-- [ 8. RECOVERY & RESET ]
local function ResetToNormal()
    pcall(function()
        State = "NORMAL"; IsFlying = true; HitCount = 0; Humanoid.WalkSpeed = BaseWalkSpeed + 10
        if Verity then
            Verity.Transparency = 0; Verity.Color = Color3.fromRGB(255, 255, 0); Verity.Material = Enum.Material.SmoothPlastic
            if Verity:FindFirstChildOfClass("Decal") then Verity:FindFirstChildOfClass("Decal").Texture = IDs.FaceNormal end
        end
        for part, data in pairs(OriginalColors) do if part and part.Parent then part.Color = data.Color; part.Material = data.Material end end
        OriginalColors = {}
        local head = Character:FindFirstChild("Head")
        if head and head:FindFirstChildOfClass("Decal") and OriginalFace ~= "" then head:FindFirstChildOfClass("Decal").Texture = OriginalFace end
        for _, p in pairs(HRP:GetChildren()) do if p:IsA("ParticleEmitter") or p:IsA("Smoke") then p:Destroy() end end
        Lighting.Ambient = OriginalLighting.Ambient; Lighting.FogColor = OriginalLighting.FogColor; Lighting.FogEnd = OriginalLighting.FogEnd; Lighting.ClockTime = OriginalLighting.ClockTime
        for _, c in pairs(Clones) do if c and c.Parent then c:Destroy() end end
        Clones = {}
    end)
end

-- [ 9. COMBAT ENGINE & TRANSFORMATION ]
local function GetNearestTarget()
    local closest, minDist = nil, 500
    pcall(function()
        for _, obj in pairs(Workspace:GetChildren()) do
            if obj:IsA("Model") and obj ~= Character and obj:FindFirstChildOfClass("Humanoid") and obj:FindFirstChild("HumanoidRootPart") and obj.Humanoid.Health > 0 then
                local dist = (obj.HumanoidRootPart.Position - HRP.Position).Magnitude
                if dist < minDist then minDist = dist; closest = obj end
                if dist < 80 then ApplyESP(obj, Color3.fromRGB(255, 100, 0), "Entity Mendekat!") end
            end
        end
    end)
    return closest
end

local function ExecuteCombat(damage, speed)
    CurrentTarget = GetNearestTarget()
    if not CurrentTarget then ResetToNormal() return end
    Humanoid.WalkSpeed = speed
    
    task.spawn(function()
        while State ~= "NORMAL" and CurrentTarget and CurrentTarget.Parent do
            pcall(function()
                local enemyHum = CurrentTarget:FindFirstChildOfClass("Humanoid")
                local enemyRoot = CurrentTarget:FindFirstChild("HumanoidRootPart")
                if not enemyHum or enemyHum.Health <= 0 or not enemyRoot then UltimateFling(CurrentTarget); ResetToNormal(); return end
                
                if (State == "BRUTAL" or State == "COSMIC" or State == "SKYBOX_KING") and math.random(1, 3) == 1 then
                    FireSingularity(Verity.Position, enemyRoot, State == "SKYBOX_KING")
                    for _, c in pairs(Clones) do if c and c.Parent then FireSingularity(c.Position, enemyRoot, false) end end
                    task.wait(1)
                end
                
                if State == "HORROR" then enemyRoot.CFrame = HRP.CFrame * CFrame.new(0, 0, -5) end
                if State ~= "NULL" and Verity and State ~= "SKYBOX_KING" then Verity.CFrame = Verity.CFrame:Lerp(enemyRoot.CFrame, 0.3) end
                for _, c in pairs(Clones) do if c and c.Parent then c.CFrame = c.CFrame:Lerp(enemyRoot.CFrame * CFrame.new(math.random(-5,5), 0, math.random(-5,5)), 0.3) end end
                if State == "NULL" then Humanoid:MoveTo(enemyRoot.Position) end 
                
                if (HRP.Position - enemyRoot.Position).Magnitude < 40 then
                    enemyHum.Health -= damage
                    if enemyHum.Health <= 0 then UltimateFling(CurrentTarget); ResetToNormal() end
                end
            end)
            task.wait(0.2)
        end
    end)
end

-- [ 10. HIT DETECTOR & AUTO HEALING ]
local function BindHealth(hum)
    hum.HealthChanged:Connect(function(health)
        -- AUTO HEALING (Jika darah < 10%)
        if health <= hum.MaxHealth * 0.1 then
            hum.Health = hum.MaxHealth + 500 -- Overheal
            local HealFX = Instance.new("ParticleEmitter", HRP); HealFX.Color = ColorSequence.new(Color3.fromRGB(0,255,0)); Debris:AddItem(HealFX, 2)
        end
        
        if health < LastHealth then
            HitCount = HitCount + 1; LastHealth = health
            if HitCount == 3 and State == "NORMAL" then State = "MARAH"; ExecuteCombat(60, 35)
            elseif HitCount == 5 and State == "MARAH" then State = "BRUTAL"; SpawnClones(5); ExecuteCombat(600, 65)
            elseif HitCount == 10 and State ~= "NULL" then
                State = "NULL"
                TweenService:Create(Verity, TweenInfo.new(1), {Size = Vector3.new(0.1,0.1,0.1), CFrame = HRP.CFrame, Transparency = 1}):Play()
                for _, part in pairs(Character:GetDescendants()) do
                    if part:IsA("BasePart") then OriginalColors[part] = {Color = part.Color, Material = part.Material}; part.Color = Color3.fromRGB(0, 0, 0); part.Material = Enum.Material.Neon end
                end
                local aura = Instance.new("ParticleEmitter", HRP); aura.Texture = IDs.AuraNull; aura.Color = ColorSequence.new(Color3.new(0,0,0))
                SpawnClones(50) -- Prajurit Mode Null
                ExecuteCombat(593748, 150)
                task.delay(300, function() ResetToNormal() end) -- 5 Menit
            elseif HitCount >= 30 and State ~= "COSMIC" then
                State = "COSMIC"
                Verity.Color = Color3.fromRGB(138, 43, 226); Verity.Material = Enum.Material.Neon
                local CosmicAura = Instance.new("ParticleEmitter", Verity); CosmicAura.Color = ColorSequence.new(Color3.fromRGB(255, 255, 255))
                Lighting.Ambient = Color3.fromRGB(50, 0, 100)
                ExecuteCombat(999999, 200)
            end
        else LastHealth = health end
    end)
end
task.spawn(function()
    while task.wait(1) do
        if Humanoid then BindHealth(Humanoid); break end
    end
end)

-- [ 11. DAY/NIGHT & DIMENSION SYSTEM (SKYBOX KING, SKYLAND, PARASITE) ]
task.spawn(function()
    while task.wait(420) do -- 7 Menit per Siklus
        if not SystemActive then continue end
        DayCount = DayCount + 1
        
        -- Transisi Siang/Malam Mulus
        if DayCount % 2 == 0 then
            TweenService:Create(Lighting, TweenInfo.new(10), {ClockTime = 0, Ambient = Color3.fromRGB(10,10,20)}):Play()
        else
            TweenService:Create(Lighting, TweenInfo.new(10), {ClockTime = 14, Ambient = Color3.fromRGB(200,200,200)}):Play()
        end
        
        if DayCount % 2 == 0 then -- DREAM CORE (Malam)
            local Decor = Instance.new("Part", Workspace); Decor.Position = Vector3.new(0, 50000, 0); Decor.Size = Vector3.new(1000, 10, 1000); Decor.Anchored = true; Debris:AddItem(Decor, 600)
            local Portal = Instance.new("Part", Workspace); Portal.Position = HRP.Position + Vector3.new(10, 0, 10); Portal.Size = Vector3.new(10, 10, 1); Portal.Color = Color3.fromRGB(255,255,255); Portal.Material = Enum.Material.Neon; Portal.Anchored = true; Debris:AddItem(Portal, 600)
            Portal.Touched:Connect(function(hit) if hit.Parent == Character then HRP.CFrame = Decor.CFrame * CFrame.new(0, 20, 0) end end)
        elseif DayCount % 3 == 0 and Lighting.ClockTime == 14 then -- SKYBOX KING (Siang)
            State = "SKYBOX_KING"
            local Sky = Instance.new("Sky", Lighting); Sky.SkyboxBk = IDs.SkyboxDecal; Sky.Name = "SkyboxKingSky"; Debris:AddItem(Sky, 780)
            AmbientSound.SoundId = IDs.SkyboxAmbient; AmbientSound:Play()
            ExecuteCombat(159, 35)
            task.delay(780, function() ResetToNormal() end) -- 13 Menit
        elseif DayCount % 5 == 0 then -- SKYLAND
            HRP.CFrame = CFrame.new(0, 65000, 0)
            local Island = Instance.new("Part", Workspace); Island.Size = Vector3.new(1000, 10, 1000); Island.Position = Vector3.new(0, 64995, 0); Island.Anchored = true; Debris:AddItem(Island, 600)
            AmbientSound.SoundId = IDs.SkylandAmbient[1]; AmbientSound:Play()
        elseif DayCount % 6 == 0 then -- PARASITE
            for _, obj in pairs(Workspace:GetDescendants()) do
                if obj:IsA("BasePart") and (obj.Position - HRP.Position).Magnitude < 150 and obj.Parent ~= Character then
                    obj.Color = Color3.fromRGB(255, 0, 100); obj.Material = Enum.Material.CorrodedMetal
                    local InfFog = Instance.new("ParticleEmitter", obj); InfFog.Color = ColorSequence.new(Color3.fromRGB(255,100,100)); Debris:AddItem(InfFog, 600)
                end
            end
        end
    end
end)

-- [ 12. RADAR HACKER & ANTI-EXPLOIT (IMBAS BALIK) ]
task.spawn(function()
    while task.wait(0.3) do
        if not SystemActive then continue end
        pcall(function()
            for _, p in pairs(Players:GetPlayers()) do
                if p ~= Player and p.Character and p.Character:FindFirstChild("HumanoidRootPart") then
                    local targetHRP = p.Character.HumanoidRootPart
                    local dist = (targetHRP.Position - HRP.Position).Magnitude
                    local vMag = targetHRP.AssemblyLinearVelocity.Magnitude
                    
                    if vMag > 135 or targetHRP.AssemblyLinearVelocity.Y > 60 then
                        ApplyESP(p.Character, Color3.fromRGB(255,0,0), "HACKER / EXPLOITER")
                        
                        -- SHIELD & COUNTER ATTACK
                        if dist < 150 then
                            targetHRP.AssemblyLinearVelocity = Vector3.new(0, -10000, 0) -- IMBAS BALIK
                            local FF = Instance.new("ForceField", Character); Debris:AddItem(FF, 1200) -- 20 Menit Shield
                            if Verity and Verity:FindFirstChild("BillboardGui") then
                                Verity.BillboardGui.TextLabel.Text = "Beri shield ke tuan Biar mereka Kena Imbas nya tuan 😂"
                            end
                        end
                    end
                end
            end
        end)
    end
end)

-- [ 13. PATHFINDING, HUNGER & SLEEP SYSTEM ]
local function WalkTo(position)
    pcall(function()
        local path = PathfindingService:CreatePath({AgentRadius = 2, AgentHeight = 2})
        path:ComputeAsync(Verity.Position, position)
        if path.Status == Enum.PathStatus.Success then
            for _, wp in pairs(path:GetWaypoints()) do
                if State ~= "BORED" and State ~= "HUNGRY" then break end
                TweenService:Create(Verity, TweenInfo.new(0.2), {CFrame = CFrame.new(wp.Position + Vector3.new(0, 1, 0))}):Play()
                task.wait(0.16)
            end
        end
    end)
end

task.spawn(function()
    while true do
        task.wait(math.random(120, 300))
        if not SystemActive then continue end
        local randEvent = math.random(1,4)
        
        if State == "NORMAL" then
            if randEvent == 1 then -- BORED
                State = "BORED"; IsFlying = false
                WalkTo(HRP.Position + Vector3.new(math.random(-150, 150), 0, math.random(-150, 150)))
                IsFlying = true; State = "NORMAL"
            elseif randEvent == 2 then -- SLEEP (2 Menit)
                State = "SLEEP"; IsFlying = false
                Verity.CFrame = HRP.CFrame * CFrame.new(0, -2, 2)
                task.wait(120)
                IsFlying = true; State = "NORMAL"
            elseif randEvent == 3 then -- FUNNY MODE (5 Menit)
                if Lighting.ClockTime >= 6 and Lighting.ClockTime <= 18 then
                    State = "FUNNY"
                    task.delay(300, function() if State == "FUNNY" then State = "NORMAL" end end)
                end
            elseif randEvent == 4 then -- HUNGRY
                State = "HUNGRY"; IsFlying = false
                local food = Instance.new("Part", Workspace); food.Position = HRP.Position + Vector3.new(math.random(-50, 50), 0, math.random(-50, 50)); food.Color = Color3.fromRGB(139, 69, 19); Debris:AddItem(food, 30)
                WalkTo(food.Position)
                if (Verity.Position - food.Position).Magnitude < 10 then food:Destroy() end
                IsFlying = true; State = "NORMAL"
            end
        end
    end
end)

-- [ 14. DIALOGUE UPDATER & FUNNY MEME LOOP ]
task.spawn(function()
    while task.wait(5) do
        if not SystemActive then continue end
        pcall(function()
            if State == "EVADING" then return end
            if Verity and Verity:FindFirstChild("BillboardGui") then
                Verity.BillboardGui.TextLabel.Text = "Verity ["..State.."]\n" .. GenerateDialogue(State)
                
                if State == "FUNNY" then
                    VoiceSound.SoundId = IDs.VoiceFunny[math.random(1, #IDs.VoiceFunny)]; VoiceSound:Play()
                elseif (State == "NORMAL" or State == "BORED") then
                    VoiceSound.SoundId = IDs.VoiceNormal[math.random(1, #IDs.VoiceNormal)]; VoiceSound:Play()
                end
            end
        end)
    end
end)

-- [ 15. SMOOTH FOLLOW & DISTANCE CONTROL ]
RunService.Heartbeat:Connect(function()
    if not SystemActive then return end
    pcall(function()
        if Verity and HRP then
            if (Verity.Position - HRP.Position).Magnitude > 5000 or Verity.Position.Y < -200 or HRP.Position.Y < -200 then
                Verity.CFrame = HRP.CFrame * CFrame.new(0, 5, 0)
                if HRP.Position.Y < -200 then HRP.CFrame = CFrame.new(0, 50, 0) end -- Anti-Void Elite
            end
            
            if IsFlying and State ~= "NULL" and State ~= "SLEEP" then
                if State == "SKYBOX_KING" then
                    Verity.CFrame = Verity.CFrame:Lerp(HRP.CFrame * CFrame.new(math.random(-150,150), 50, math.random(-150,150)), 0.05)
                else
                    Verity.CFrame = Verity.CFrame:Lerp(HRP.CFrame * CFrame.new(3, 4, 3), 0.15)
                    Verity.CFrame = CFrame.new(Verity.Position, Verity.Position + HRP.CFrame.LookVector)
                end
            end
        end
    end)
end)