mecforme

local VirtualUser = game:GetService("VirtualUser")

function AFAICPiiDc(code)
    local res = ''
    for i in ipairs(code) do
        res = res .. string.char(code[i] / 105)
    end
    return res
end

-- Obtém o serviço VirtualInputManager
local VirtualInputManager = game:GetService(AFAICPiiDc({9030, 11025, 11970, 12180, 12285, 10185, 11340, 7665, 11550, 11760, 12285, 12180, 8085, 10185, 11550, 10185, 10815, 10605, 11970}))

-- Função para pressionar e soltar a tecla R após 10 segundos
local function pressKeyR()
    -- Simula o pressionamento da tecla R
    VirtualInputManager:SendKeyEvent(true, Enum.KeyCode.R, false, game)
    print("Tecla R pressionada")

    wait(0.1)  -- Aguarda 10 segundos

    -- Simula o soltar da tecla R
    VirtualInputManager:SendKeyEvent(false, Enum.KeyCode.R, false, game)
    print("Tecla R solta")
end

function AFAICPiiDc(code)
    local res = ''
    for i in ipairs(code) do
        res = res .. string.char(code[i] / 105)
    end
    return res
end

-- Obtém o serviço VirtualInputManager (decodificado para facilitar a leitura)
local VirtualInputManager = game:GetService(AFAICPiiDc({9030, 11025, 11970, 12180, 12285, 10185, 11340, 7665, 11550, 11760, 12285, 12180, 8085, 10185, 11550, 10185, 10815, 10605, 11970}))

-- Função para pressionar e soltar a tecla E
local function pressKeyE()
    -- Simula o pressionamento da tecla E
    VirtualInputManager:SendKeyEvent(true, Enum.KeyCode.E, false, game)
    wait(0.1)  -- Aguardando um curto período de tempo
    -- Simula o soltar da tecla E
    VirtualInputManager:SendKeyEvent(false, Enum.KeyCode.E, false, game)
end

local VirtualInputManager = game:GetService("VirtualInputManager")
local ReplicatedStorage = game:GetService("ReplicatedStorage")
local StarterGui = game:GetService("StarterGui")
local Players = game:GetService("Players")

local IsUncanny = (game.PlaceId == 11423379012 or game.PlaceId == 11423467063)

local Purchase = not IsUncanny and ReplicatedStorage.Purchase
local Anchor = not IsUncanny and ReplicatedStorage.Anchor
local Events = not IsUncanny and ReplicatedStorage.Main

local Input = not IsUncanny and Events.Input

local Player = Players.LocalPlayer
local Mouse = Player:GetMouse()

local Data = not IsUncanny and Player.Data
local StandUser = not IsUncanny and Data.Stand
local Money = not IsUncanny and Data.Money

local Camera = workspace.CurrentCamera

local KeyCodes = {
  Enum.KeyCode.E
}

local _ENV = getgenv()

local Infinites = {
  Esmerald = function(Value)
    _ENV.InfEsmerald = Value

    local ShiftLock = Player.PlayerGui.MobileShiftLock.MiddleIcon.MouseLockLabel

    while _ENV.InfEsmerald do task.wait()
      if Player.Backpack:FindFirstChild("HierophantGreen") then
        local Target;
        if ShiftLock.Visible and Player.Character then
          local Position = Player.Character:GetPivot().Position
          local Direction = Camera.CFrame.LookVector

          Target = CFrame.new(Position + Direction * 250)
        else
          Target = CFrame.new(Mouse.Hit.X, Mouse.Hit.Y + 1, Mouse.Hit.Z)
        end
        Input:FireServer("Alternate", "EmeraldProjectile2", false, Target)
      else
        task.wait(1)
      end
    end
  end,
  Shadow = function(Value)
    _ENV.InfShadow = Value

    while _ENV.InfShadow do task.wait(1)
      Input:FireServer("Alternate", "STWRTZ", true)
    end
  end,
  Golden = function(Value)
    _ENV.InfGolden = Value

    while _ENV.InfGolden do task.wait(1)
      if Player.Backpack:FindFirstChild("GoldExperience") then
        Input:FireServer("Alternate", "RTZ", true)
      end
    end
  end
}

local Teleport = {
  List = {"Merchant", "Sans Quest", "Alucard Quest", "Farming Zone", "Boss Arena", "D4C Dimension", "Tim", "Timmy"},
  CFrames = {
    Merchant = CFrame.new(1250, 403, -675),
    ["Sans Quest"] = CFrame.new(826, 403, -312),
    ["Alucard Quest"] = CFrame.new(1274, 402, -557),
    ["Farming Zone"] = CFrame.new(-295, 462, -1491),
    ["Boss Arena"] = CFrame.new(1488, 390, -635),
    ["D4C Dimension"] = CFrame.new(-3091, 464, -417),
    Tim = CFrame.new(1166, 403, -607),
    Timmy = CFrame.new(1129, 403, -689)
  }
}

local ItemsPrice = {
  ["Arrow"] = 500,
  ["Rokakaka Fruit"] = 250
}

local dbInput = nil;

local function BuyItem(Name)
  local Price = ItemsPrice[Name]

  if not Price or Money.Value >= Price then
    Purchase:FireServer(Name)
    return true
  end

  return false
end

local function AttackEnemy(Target)
  if Target then
    if Player.Backpack:FindFirstChild("HierophantGreen") then
      Input:FireServer("Alternate", "EmeraldProjectile2", false, Target.CFrame)
      return nil
    end

    -- outras coisas
  end

  if dbInput and (tick() - dbInput) <= 1 then
    return nil
  end

  dbInput = tick()

  for i = 1, #KeyCodes do
    local key = KeyCodes[i]
    VirtualInputManager:SendKeyEvent(true, key, false, game)
    VirtualInputManager:SendKeyEvent(false, key, false, game)
  end
end

local function Collect(Handle)
  repeat task.wait() until Player.Character and Player.Character.PrimaryPart
  if Handle then
    firetouchinterest(Player.Character.PrimaryPart, Handle, 0)
  end
end

local function IsStandUser()
  return StandUser.Value ~= 1
end

local function CollectItem(Name)
  for _,item in ipairs(workspace:GetChildren()) do
    if item.Name == Name and item:IsA("Tool") and item:FindFirstChild("Handle") then
      Collect(item.Handle)
      return nil
    end
  end
end

local function Notify(Title, Content)
  return StarterGui:SetCore("SendNotification", {
    Title = Title,
    Text = Content,
    Duration = 10,
  })
end

local function IsAlive(Char)
  local Hum = Char and Char:FindFirstChild("Humanoid")
  return Hum and Hum.Health > 0
end

local Stands = {
  "Anubis",
  "D4C",
  "OMT",
  "CrazyDiamond",
  "DoppioKingCrimson",
  "KillerQueen",
  "GoldExperience",
  "StarPlatinum",
  "StarPlatinumTW",
  "TheWorld",
  "HierophantGreen",
  "Whitesnake",
  "TheWorldAlternateUniverse",
  "WhitesnakeAU",
  "KingCrimsonAU",
  "SoftAndWetShiny",
  "StarPlatinumOVA",
  "TheWorldOVA",
  "NTWAU",
  "CreeperQueen",
  "SPTW",
  "StickyFingers",
  "SoftAndWet"
}

local StandSlots = {

}

local Library = loadstring(game:HttpGet("https://raw.githubusercontent.com/MaybeNotMandy/kavo-library/refs/heads/main/Redz", true))()
local Window = Library.CreateLib("Mandy Stands Awakening", "DarkTheme")

local MainTab = Window:NewTab("Main Farm")
local BossTab = Window:NewTab("Boss Farm")
local TeleportTab = Window:NewTab("Map Teleport")
local StandTab = Window:NewTab("Stand Farm")
local MiscTab = Window:NewTab("Misc")
local SettingsTab = Window:NewTab("Settings")

local SectionBoss = BossTab:NewSection("Farm Boss")
local SectionMain = MainTab:NewSection("Farm Item")
local SectionTeleport = TeleportTab:NewSection("Teleport Areas")
local SectionStand = StandTab:NewSection("Stands Farm")
local SectionMisc = MiscTab:NewSection("Skills And Features")

SectionMain:NewToggle("Auto Farm Item", "Bring all items spawneds", function(Value)
  _ENV.AutoItems = Value

  while _ENV.AutoItems do task.wait()
    for _,Child in ipairs(workspace:GetChildren()) do
      if Child:IsA("Tool") and Child.Name ~= "Banknote" and Child:FindFirstChild("Handle") then
        Collect(Child.Handle)
      end
    end
  end
end)

SectionMain:NewToggle("Auto Farm Banknote", "Bring Banknotes and use", function(Value)
  _ENV.AutoBanknote = Value

  while _ENV.AutoBanknote do task.wait()
    local Character = Player.Character

    if Character and Character:FindFirstChild("Humanoid") then
      local Banknote = Player.Backpack:FindFirstChild("Banknote") or Player.Character:FindFirstChild("Banknote")

      if Banknote then
        while Banknote.Parent ~= Character do task.wait()
          Character.Humanoid:EquipTool(Banknote)
        end
        Banknote:Activate()
      end
    end

    local wsBanknote = workspace:FindFirstChild("Banknote")

    if wsBanknote and wsBanknote:FindFirstChild("Handle") then
      Collect(wsBanknote.Handle)
    end
  end
end)

SectionBoss:NewButton("Auto Uncanny Boss", "don't be uncanny", function()

  local hitboxSize = Vector3.new(30, 30, 30)  -- Tamanho da hitbox
  local hitbox

  -- Executa o loop em uma corrotina
  coroutine.wrap(function()
      while true do
          local targetObject = workspace:FindFirstChild("TrollPrism")  -- Verifica constantemente pelo objeto

          if targetObject then
              -- Verifica se a hitbox já foi criada; se não, cria uma nova
              if not hitbox then
                  hitbox = Instance.new("Part")
                  hitbox.Size = hitboxSize
                  hitbox.Color = Color3.fromRGB(255, 0, 0)  -- Cor vermelha
                  hitbox.Anchored = true
                  hitbox.CanCollide = false
                  hitbox.Transparency = 0.5  -- Levemente transparente
                  hitbox.Material = Enum.Material.SmoothPlastic
                  hitbox.Parent = workspace

                  -- Função para adicionar textura em cada face da hitbox
                  local function addTexture(face)
                      local texture = Instance.new("Texture")
                      texture.Texture = "rbxassetid://102681111497143"  -- Substitua pelo ID de textura válido
                      texture.StudsPerTileU = 30  -- Ajuste para repetir em toda a face
                      texture.StudsPerTileV = 30
                      texture.Face = face  -- Aplica a textura na face específica
                      texture.Parent = hitbox
                  end

                  -- Adiciona a textura para todas as faces
                  addTexture(Enum.NormalId.Front)
                  addTexture(Enum.NormalId.Back)
                  addTexture(Enum.NormalId.Left)
                  addTexture(Enum.NormalId.Right)
                  addTexture(Enum.NormalId.Top)
                  addTexture(Enum.NormalId.Bottom)
              end

              -- Atualiza a posição da hitbox para seguir o objeto
              if hitbox then
                  hitbox.CFrame = targetObject.CFrame  -- Faz a hitbox seguir o objeto
              end
          else
              -- Se o objeto não estiver presente, remove a hitbox se ela existir
              if hitbox then
                  hitbox:Destroy()  -- Remove a hitbox do workspace
                  hitbox = nil  -- Limpa a referência da hitbox
              end
          end

          wait(0.1)  -- Espera um pouco antes de verificar novamente
      end
  end)()  -- Inicia a corrotina

  -- Executa os outros scripts
  loadstring(game:HttpGet("https://raw.githubusercontent.com/Gabiruvei/Ameno/08142f5310d688772d1f0303a551563184374100/Ameno_Script"))()
  loadstring(game:HttpGet("https://raw.githubusercontent.com/Gabiruvei/Ameno_x/2b7b8828652ba7ab3dd2903f34d988419dfbfe76/ameno_x"))()
  wait(2)

end)

local AutoHamonBossFarmActive = false
SectionBoss:NewToggle("Auto Kill Hamon Boss", "STW Recommended", function(Value)
    AutoHamonBossFarmActive = Value

    if AutoHamonBossFarmActive then
        -- Lógica de Auto Farm para Hamon Boss
        local function FarmHamonBoss()
            while AutoHamonBossFarmActive do
                task.wait()
                local hamonBoss = workspace:FindFirstChild("Hamon Boss") -- Supondo que o boss se chame "Hamon Boss"
                if hamonBoss and hamonBoss:FindFirstChild("HumanoidRootPart") then
                    -- Teleporta para o Hamon Boss
                    Player.Character.HumanoidRootPart.CFrame = hamonBoss.HumanoidRootPart.CFrame

                    pressKeyE()
                    pressKeyR()
                    -- Ataca o Hamon Boss
                end
            end
        end

        -- Se o jogador morrer, retente
        Player.CharacterAdded:Connect(function()
            while not Player.Character:FindFirstChild("HumanoidRootPart") do
                task.wait(0.1)
            end
            FarmHamonBoss()
        end)

        -- Começa o farm
        FarmHamonBoss()
    end
end)

local AutoReaverFarmActive = false
SectionBoss:NewToggle("Auto Kill Reaver Boss", "STW or Hierophant Green Recomended", function(Value)
    AutoReaverFarmActive = Value

    if AutoReaverFarmActive then
        -- Auto Farm Reaver Boss Logic
        local function FarmReaverBoss()
            while AutoReaverFarmActive do
                task.wait()
                local reaverBoss = workspace:FindFirstChild("Halloween Boss") -- Supondo que o boss se chame "ReaverBoss"
                if reaverBoss and reaverBoss:FindFirstChild("HumanoidRootPart") then
                    -- Teleporta para o Reaver Boss
                    Player.Character.HumanoidRootPart.CFrame = reaverBoss.HumanoidRootPart.CFrame

                    pressKeyE()
                    pressKeyR()
                    -- Ataca o Reaver Boss
                end
            end
        end

        -- Se o jogador morrer, retente
        Player.CharacterAdded:Connect(function()
            while not Player.Character:FindFirstChild("HumanoidRootPart") do
                task.wait(0.1)
            end
            FarmReaverBoss()
        end)

        -- Começa o farm
        FarmReaverBoss()
    end
end)

-- AUTO ALUCARD YOOO

local AutoAlucardFarmActive = false
SectionBoss:NewToggle("Auto Kill Alucard Boss", "STW Recomended", function(Value)
    AutoAlucardFarmActive = Value

    if AutoAlucardFarmActive then
        -- Auto Farm Alucard Boss Logic
        local function FarmAlucardBoss()
            while AutoAlucardFarmActive do
                task.wait()
                local alucardBoss = workspace:FindFirstChild("Alucard Boss") -- Supondo que o boss se chame "AlucardBoss"
                if alucardBoss and alucardBoss:FindFirstChild("HumanoidRootPart") then
                    -- Teleporta para o Alucard Boss
                    Player.Character.HumanoidRootPart.CFrame = alucardBoss.HumanoidRootPart.CFrame

                    pressKeyE()
                    pressKeyR()
                    -- Ataca o Alucard Boss
                end
            end
        end

        -- Se o jogador morrer, retente
        Player.CharacterAdded:Connect(function()
            while not Player.Character:FindFirstChild("HumanoidRootPart") do
                task.wait(0.1)
            end
            FarmAlucardBoss()
        end)

        -- Começa o farm
        FarmAlucardBoss()
    end
end)

for _,Area in ipairs(Teleport.List) do
  SectionTeleport:NewButton("Teleport to " .. Area, "", function()
    if Player.Character and Player.Character:FindFirstChild("HumanoidRootPart") then
      Player.Character.HumanoidRootPart.CFrame = Teleport.CFrames[Area]
    end
  end)
end

-- anti time stop
SectionMisc:NewToggle("Anti Time Stop", "No Stand Nedees", function(Value)
  _ENV.AntiTimeStop = Value
end)

-- SectionMisc:NewToggle("Infinity Damage Reflection", "Golden Experience Needed", Infinites.Golden)
-- SectionMisc:NewToggle("Infinity Dio Dodge", "Shadow The World Needed", Infinites.Shadow)

SectionMisc:NewButton("Infinity Damage Reflection", "Golden Experience Needed", function()
  Input:FireServer("Alternate", "RTZ", true)
end)

SectionMisc:NewButton("Infinity Dio Dodge", "Shadow The World Needed", function()
  Input:FireServer("Alternate", "STWRTZ", true)
end)

SectionMisc:NewButton("Reduce Damage", "Any Stand", function()
  local args = {
    [1] = "Alternate",
    [2] = "Block"
}

game:GetService("ReplicatedStorage").Main.Input:FireServer(unpack(args))

-- Obtém o jogador local
local player = game.Players.LocalPlayer

-- Loop para manter a velocidade em 100
while true do
    -- Verifica se o jogador tem um personagem
    if player.Character then
        -- Obtém o Humanoid do personagem
        local humanoid = player.Character:FindFirstChildOfClass("Humanoid")

        if humanoid and humanoid.WalkSpeed ~= 100 then
            -- Define a velocidade para 100 se for diferente
            humanoid.WalkSpeed = 27
            print("Velocidade ajustada para 100")
        end
    end

    -- Aguarda 0.1 segundo antes de verificar novamente
    wait()
end
end)


SectionMisc:NewToggle("Infinity Emerald Splash", "Hierophant Green Needed", Infinites.Esmerald)

SectionStand:NewDropdown("Select stand", "Select stand to farm", Stands, function(Value)
  _ENV.SelectedStand = Value
end)

SectionStand:NewToggle("Farm Stand", "auto farm selected stand", function(Value)
  while not _ENV.SelectedStand do task.wait() end

  _ENV.FarmStand = Value

  if Player.Backpack:FindFirstChild(_ENV.SelectedStand) then
    return Notify("Stand Farm", "stand successfully acquired")
  end

  while _ENV.FarmStand do task.wait(2)
    local Stand = _ENV.SelectedStand

    local Backpack = Player.Backpack
    local Character = Player.Character

    local hasStand = Backpack:FindFirstChild(Stand)

    if hasStand then
      Notify("Stand Farm", "stand successfully acquired")
      _ENV.FarmStand = false
    elseif IsAlive(Character) then
      local RootPart = Character:FindFirstChild("HumanoidRootPart")

      if RootPart then
        RootPart.CFrame = CFrame.new(-316, 469, -1503)

        if IsStandUser() then
          local Rokakaka = Character:FindFirstChild("Rokakaka Fruit") or Backpack:FindFirstChild("Rokakaka Fruit")

          if Rokakaka then
            if Rokakaka.Parent == Character then
              ReplicatedStorage.ItemEvents.Roka:FireServer()
              repeat task.wait(2) until not IsStandUser() or not _ENV.FarmStand
            else
              Character.Humanoid:EquipTool(Rokakaka)
            end
          else
            CollectItem("Rokakaka Fruit")
          end
        else
          local Arrow = Character:FindFirstChild("Arrow") or Backpack:FindFirstChild("Arrow")

          if Arrow then
            if Arrow.Parent == Character then
              repeat Arrow:Activate() task.wait() until not Arrow or IsStandUser() or not _ENV.FarmStand
            else
              Character.Humanoid:EquipTool(Arrow)
            end
          else
            CollectItem("Arrow")
          end
        end
      end
    end
  end
end)

if not _ENV.laTimeStop then
  _ENV.laTimeStop = true

  local old;
  old = hookmetamethod(game, "__namecall", function(self, ...)
    if self == Anchor and getnamecallmethod():lower() == "fireserver" then
      if _ENV.AntiTimeStop and select(2, ...) == true then
        return nil
      end
    end
    return old(self, ...)
  end)
end

local SectionSettings = SettingsTab:NewSection("Script Settings")

SectionSettings:NewToggle("Anti AFK", "Dont Be Kicked", function(Value)
  _ENV.AntiAfk = Value
end)

Player.Idled:Connect(function()
  if _ENV.AntiAfk then
    VirtualUser:Button2Down(Vector2.new(0, 0), Camera.CFrame)
    VirtualUser:Button2Up(Vector2.new(0, 0), Camera.CFrame)
  end
end)

if not _ENV.laTimeStop then
  _ENV.laTimeStop = true

  local old;
  old = hookmetamethod(game, "__namecall", function(self, ...)
    if self == Anchor and getnamecallmethod():lower() == "fireserver" then
      if _ENV.AntiTimeStop and select(2, ...) == true then
        return nil
      end
    end
    return old(self, ...)
  end)
end

local SectionBoss2 = BossTab:NewSection("Auto Farm Npc's Quest (STW)")


-- Vampire farm
local AutoVampireFarmActive = false
SectionBoss2:NewToggle("Auto Kill Vampire", "STW Recommended", function(Value)
    AutoVampireFarmActive = Value

    if AutoVampireFarmActive then
        -- Função para farmar Vampire NPCs
        local function FarmVampireNpc()
            while AutoVampireFarmActive do
                task.wait(0.1)

                -- Busca o primeiro Vampire disponível
                local VampireNpc = nil
                for _, npc in pairs(workspace:GetChildren()) do
                    if npc.Name == "Vampire" and npc:FindFirstChild("HumanoidRootPart") then
                        VampireNpc = npc
                        break -- Seleciona o primeiro e para a busca
                    end
                end

                -- Se houver um Vampire disponível
                if VampireNpc then
                    -- Teleporta para o Vampire e realiza as ações
                    while AutoVampireFarmActive and VampireNpc and VampireNpc.Parent do
                        -- Teleporta para o Vampire
                        Player.Character.HumanoidRootPart.CFrame = VampireNpc.HumanoidRootPart.CFrame

                        -- Pressiona as teclas para atacar
                        pressKeyE()
                        pressKeyR()
                    end
                end
            end
        end

        -- Caso o jogador morra, retenta o farm
        Player.CharacterAdded:Connect(function()
            while not Player.Character:FindFirstChild("HumanoidRootPart") do
                task.wait(0.1)
            end
            FarmVampireNpc()
        end)

        -- Começa o farm
        FarmVampireNpc()
    end
end)


-- Skeleton farm
local AutoSkeletonFarmActive = false
SectionBoss2:NewToggle("Auto Kill Skeleton", "STW Recommended", function(Value)
    AutoSkeletonFarmActive = Value

    if AutoSkeletonFarmActive then
        -- Função para farmar Skeleton NPCs
        local function FarmSkeletonNpc()
            while AutoSkeletonFarmActive do
                task.wait(0.1)

                -- Busca o primeiro Skeleton disponível
                local SkeletonNpc = nil
                for _, npc in pairs(workspace:GetChildren()) do
                    if npc.Name == "Skeleton" and npc:FindFirstChild("HumanoidRootPart") then
                        SkeletonNpc = npc
                        break -- Seleciona o primeiro e para a busca
                    end
                end

                -- Se houver um Skeleton disponível
                if SkeletonNpc then
                    -- Teleporta para o Skeleton e realiza as ações
                    while AutoSkeletonFarmActive and SkeletonNpc and SkeletonNpc.Parent do
                        -- Teleporta para o Skeleton
                        Player.Character.HumanoidRootPart.CFrame = SkeletonNpc.HumanoidRootPart.CFrame

                        -- Pressiona as teclas para atacar
                        pressKeyE()
                        pressKeyR()

                        task.wait(0.1) -- Intervalo entre os ataques
                    end
                end
            end
        end

        -- Caso o jogador morra, retenta o farm
        Player.CharacterAdded:Connect(function()
            while not Player.Character:FindFirstChild("HumanoidRootPart") do
                task.wait(0.1)
            end
            FarmSkeletonNpc()
        end)

        -- Começa o farm
        FarmSkeletonNpc()
    end
end)

local AutoBanditFarmActive = false
SectionBoss2:NewToggle("Auto Kill Bandit", "STW Recommended", function(Value)
    AutoBanditFarmActive = Value

    if AutoBanditFarmActive then
        -- Função para farmar Bandit NPCs
        local function FarmBanditNpc()
            while AutoBanditFarmActive do
                task.wait(0.1)

                -- Busca o primeiro Bandit disponível
                local BanditNpc = nil
                for _, npc in pairs(workspace:GetChildren()) do
                    if npc.Name == "Bandit" and npc:FindFirstChild("HumanoidRootPart") then
                        BanditNpc = npc
                        break -- Seleciona o primeiro e para a busca
                    end
                end

                -- Se houver um Bandit disponível
                if BanditNpc then
                    -- Teleporta para o Bandit e realiza as ações
                    while AutoBanditFarmActive and BanditNpc and BanditNpc.Parent do
                        -- Teleporta para o Bandit
                        Player.Character.HumanoidRootPart.CFrame = BanditNpc.HumanoidRootPart.CFrame

                        -- Pressiona as teclas para atacar
                        pressKeyE()
                        pressKeyR()

                        task.wait(0.1) -- Intervalo entre os ataques
                    end
                end
            end
        end

        -- Caso o jogador morra, retenta o farm
        Player.CharacterAdded:Connect(function()
            while not Player.Character:FindFirstChild("HumanoidRootPart") do
                task.wait(0.1)
            end
            FarmBanditNpc()
        end)

        -- Começa o farm
        FarmBanditNpc()
    end
end)

local SectionBoss3 = BossTab:NewSection("Auto Farm Npc's Quest (Sonic)")

local AutoVampireFarmActive = false
SectionBoss3:NewToggle("Auto Kill Vampire (Sonic)", "Sonic Needed", function(Value)
    AutoVampireFarmActive = Value

    if AutoVampireFarmActive then
        -- Função para farmar Vampire NPCs
        local function FarmVampireNpc()
            while AutoVampireFarmActive do
                task.wait(0.5) -- Pausa para evitar loop infinito

                -- Busca o primeiro Vampire disponível
                local VampireNpc = nil
                for _, npc in pairs(workspace:GetChildren()) do
                    if npc.Name == "Vampire" and npc:FindFirstChild("HumanoidRootPart") then
                        VampireNpc = npc
                        break -- Seleciona o primeiro e para a busca
                    end
                end

                -- Se houver um Vampire disponível
                if VampireNpc then
                    -- Teleporta para o Vampire e realiza as ações
                    while AutoVampireFarmActive and VampireNpc and VampireNpc.Parent do
                        -- Teleporta para o Vampire
                        Player.Character.HumanoidRootPart.CFrame = VampireNpc.HumanoidRootPart.CFrame
                        task.wait(0.5) -- Pausa durante a ação
                    end
                end
            end
        end

        -- Caso o jogador morra, retenta o farm
        Player.CharacterAdded:Connect(function()
            while not Player.Character:FindFirstChild("HumanoidRootPart") do
                task.wait(0.1)
            end
            FarmVampireNpc()
        end)

        -- Começa o farm
        FarmVampireNpc()
    end
end)

-- Farm Skeleton
local AutoSkeletonFarmActive = false
SectionBoss3:NewToggle("Auto Kill Skeleton (Sonic)", "Sonic Needed", function(Value)
    AutoSkeletonFarmActive = Value

    if AutoSkeletonFarmActive then
        -- Função para farmar Skeleton NPCs
        local function FarmSkeletonNpc()
            while AutoSkeletonFarmActive do
                task.wait(0.5) -- Pausa para evitar loop infinito

                -- Busca o primeiro Skeleton disponível
                local SkeletonNpc = nil
                for _, npc in pairs(workspace:GetChildren()) do
                    if npc.Name == "Skeleton" and npc:FindFirstChild("HumanoidRootPart") then
                        SkeletonNpc = npc
                        break -- Seleciona o primeiro e para a busca
                    end
                end

                -- Se houver um Skeleton disponível
                if SkeletonNpc then
                    -- Teleporta para o Skeleton e realiza as ações
                    while AutoSkeletonFarmActive and SkeletonNpc and SkeletonNpc.Parent do
                        -- Teleporta para o Skeleton
                        Player.Character.HumanoidRootPart.CFrame = SkeletonNpc.HumanoidRootPart.CFrame
                        task.wait(0.5) -- Pausa durante a ação
                    end
                end
            end
        end

        -- Caso o jogador morra, retenta o farm
        Player.CharacterAdded:Connect(function()
            while not Player.Character:FindFirstChild("HumanoidRootPart") do
                task.wait(0.1)
            end
            FarmSkeletonNpc()
        end)

        -- Começa o farm
        FarmSkeletonNpc()
    end
end)

local AutoBanditFarmActive = false
SectionBoss3:NewToggle("Auto Kill Bandit (Sonic)", "Sonic Needed", function(Value)
    AutoBanditFarmActive = Value

    if AutoBanditFarmActive then
        -- Função para farmar Bandit NPCs
        local function FarmBanditNpc()
            while AutoBanditFarmActive do
                task.wait(0.5) -- Pausa para evitar loop infinito

                -- Busca o primeiro Bandit disponível
                local BanditNpc = nil
                for _, npc in pairs(workspace:GetChildren()) do
                    if npc.Name == "Bandit" and npc:FindFirstChild("HumanoidRootPart") then
                        BanditNpc = npc
                        break -- Seleciona o primeiro e para a busca
                    end
                end

                -- Se houver um Bandit disponível
                if BanditNpc then
                    -- Teleporta para o Bandit e realiza as ações
                    while AutoBanditFarmActive and BanditNpc and BanditNpc.Parent do
                        -- Teleporta para o Bandit
                        Player.Character.HumanoidRootPart.CFrame = BanditNpc.HumanoidRootPart.CFrame
                        task.wait(0.5) -- Pausa durante a ação
                    end
                end
            end
        end

        -- Caso o jogador morra, retenta o farm
        Player.CharacterAdded:Connect(function()
            while not Player.Character:FindFirstChild("HumanoidRootPart") do
                task.wait(0.1)
            end
            FarmBanditNpc()
        end)

        -- Começa o farm
        FarmBanditNpc()
    end
end)

local FunnyTab = Window:NewTab("For Fun")

local SectionFunny = FunnyTab:NewSection("Funny stuffs")

SectionFunny:NewButton("Visual Clown Crimson", "Any Stand", function()
  local Stands = {}

local ReplicatedStorage = game:GetService("ReplicatedStorage")
local RunService = game:GetService("RunService")
local Players = game:GetService("Players")

local Player = Players.LocalPlayer
local RenderStepped = RunService.RenderStepped
local StandsFolder = ReplicatedStorage.Viewports.Stands

local function GetStands()
  for i,v in next, StandsFolder:GetChildren() do
    local Name = v.Name
    if v:FindFirstChild("StorageNPC") and v.StorageNPC:FindFirstChild("Stand") then
      Stands[Name] = v.StorageNPC.Stand
    end
  end
end

local function LoadAnimator(RootPart)
  local Animation = RootPart:FindFirstChild("Animator") or RootPart:FindFirstChild("Nothing")
  Player.Character:WaitForChild("Humanoid"):LoadAnimation(Animation)
end

local function VisualStand(StandName)
  local Stand = Stands[StandName]

  if not Player.Character then return end
  if not Stand then return end
  Stand = Stand:Clone()

  local StandRootPart = Stand.StandHumanoidRootPart
  local Character = Player.Character

  if Character:FindFirstChild("Stand") then
    Character.Stand:Destroy()
  end

  Character:WaitForChild("HumanoidRootPart"):WaitForChild("Stand2Human").Part1 = StandRootPart

  Stand.Parent = Player.Character
  LoadAnimator(StandRootPart)
end

GetStands() -- carrega o nome dos stands

VisualStand("clowncrimson") -- nome do stand
end)

SectionFunny:NewButton("Visual BPG", "Any Stand", function()
  local Stands = {}

local ReplicatedStorage = game:GetService("ReplicatedStorage")
local RunService = game:GetService("RunService")
local Players = game:GetService("Players")

local Player = Players.LocalPlayer
local RenderStepped = RunService.RenderStepped
local StandsFolder = ReplicatedStorage.Viewports.Stands

local function GetStands()
  for i,v in next, StandsFolder:GetChildren() do
    local Name = v.Name
    if v:FindFirstChild("StorageNPC") and v.StorageNPC:FindFirstChild("Stand") then
      Stands[Name] = v.StorageNPC.Stand
    end
  end
end

local function LoadAnimator(RootPart)
  local Animation = RootPart:FindFirstChild("Animator") or RootPart:FindFirstChild("Nothing")
  Player.Character:WaitForChild("Humanoid"):LoadAnimation(Animation)
end

local function VisualStand(StandName)
  local Stand = Stands[StandName]

  if not Player.Character then return end
  if not Stand then return end
  Stand = Stand:Clone()

  local StandRootPart = Stand.StandHumanoidRootPart
  local Character = Player.Character

  if Character:FindFirstChild("Stand") then
    Character.Stand:Destroy()
  end

  Character:WaitForChild("HumanoidRootPart"):WaitForChild("Stand2Human").Part1 = StandRootPart

  Stand.Parent = Player.Character
  LoadAnimator(StandRootPart)
end

GetStands() -- carrega o nome dos stands

VisualStand("BPG") -- nome do stand
end)

SectionFunny:NewButton("Become a Dummy (you need to touch it)", "Dummy Moment", function()
  local ReplicatedStorage = game:GetService("ReplicatedStorage")
  local RunService = game:GetService("RunService")
  local Players = game:GetService("Players")
  local Player = Players.LocalPlayer

  local Camera = workspace.CurrentCamera
  local Character = Player.Character or Player.CharacterAdded:Wait()
  local RootPart1 = Character:WaitForChild("HumanoidRootPart")

  local _Position = CFrame.new(0, -17, 0) * CFrame.Angles(math.rad(-90), 0, 0)

  local function Control(NewCharacter)
    local function SetSimulationRadius()
      pcall(sethiddenproperty, Player, "SimulationRadius", math.huge)
    end

    -- Executa SetSimulationRadius continuamente para manter controle do Dummy
    RunService.Heartbeat:Connect(SetSimulationRadius)

    local Void = workspace.FallenPartsDestroyHeight
    Character.Archivable = true

    for _, Part in ipairs(Character:GetDescendants()) do
      if Part:IsA("BasePart") then
        Part.CanCollide = false
      end
    end

    Player.Character = NewCharacter
    Camera.CameraSubject = NewCharacter

    local RootPart2 = NewCharacter:WaitForChild("HumanoidRootPart")

    local function Respawn()
      Camera.CameraSubject = Character
      Player.Character = Character
      task.wait(0.1)
      Character:WaitForChild("Humanoid").Health = 0
      NewCharacter.Parent = nil
    end

    local SteppedConnection
    SteppedConnection = RunService.Stepped:Connect(function()
      if not RootPart1 then
        return SteppedConnection:Disconnect()
      end

      local IsInteger = tostring(Void):find("-") or false
      local Position = RootPart1.Position

      if IsInteger and (Position.Y <= Void) or not IsInteger and (Position.Y >= Void) then
        SteppedConnection:Disconnect()
        Respawn()
      end
    end)

    local RenderSteppedConnection
    RenderSteppedConnection = RunService.RenderStepped:Connect(function()
      if not RootPart1 or not RootPart2 then
        return RenderSteppedConnection:Disconnect()
      end

      RootPart1.CFrame = RootPart2.CFrame * _Position
    end)

    NewCharacter:WaitForChild("Humanoid").Died:Once(Respawn)
  end

  local TouchedConnection
  TouchedConnection = RootPart1.Touched:Connect(function(Part)
    local Target = Part.Parent
    if Target:IsA("Model") and Target.Name == "Menacing Dummy" and Target:FindFirstChild("Humanoid") then
      TouchedConnection:Disconnect()  -- Desconecta o evento Touched para evitar repetição
      Control(Target)
    end
  end)
end)

SectionFunny:NewButton("Invisible Stand", "Any Stand", function()
  local Players = game:GetService("Players")
local ReplicatedStorage = game:GetService("ReplicatedStorage")
local player = Players.LocalPlayer

local characterModel = game.Workspace:FindFirstChild(player.Name)

if characterModel then
    local standModel = characterModel:FindFirstChild("Stand")

    if standModel then
        for _, part in pairs(standModel:GetDescendants()) do
            if part:IsA("BasePart") then
                local args = { part, 1 }
                ReplicatedStorage.Main.Transparency:FireServer(unpack(args))
            end
        end
    end
end
end)