Auto Arrow Till Desired Stand KEYLESS

local Players = game:GetService("Players")
local ReplicatedStorage = game:GetService("ReplicatedStorage")
local HttpService = game:GetService("HttpService")
local LP = Players.LocalPlayer

-- Desired  stands you want, remove the one you are not looking for 
local desiredBases = {
    "The World Over Heaven",
    "King Crimson",
    "Whitesnake",
    "The World, High Voltage",
    "Wonder of U",
    "C-Moon",
    "The World",
    "Made in Heaven",
    "The Hand",
}

local running = true

local function antiAfk()
    while running do
        task.wait(1200) 
        pcall(function()
            local char = LP.Character
            if char and char:FindFirstChildOfClass("Humanoid") and char.Humanoid.Health > 0 then
                if keypress and keyrelease then
                    keypress(0x57)
                    task.wait(0.5)
                    keyrelease(0x57)
                else
                    local hrp = char:FindFirstChild("HumanoidRootPart")
                    if hrp then
                        local current = hrp.Position
                        char.Humanoid:MoveTo(current + Vector3.new(1,0,0))
                        task.wait(0.5)
                        char.Humanoid:MoveTo(current)
                    end
                end
            end
        end)
    end
end


task.spawn(antiAfk)

local function getStandData()
    local slotData = LP:FindFirstChild("PlayerData") and LP.PlayerData:FindFirstChild("SlotData")
    if not slotData then return nil end
    local standVal = slotData:FindFirstChild("Stand")
    if not standVal then return nil end

    if standVal:IsA("StringValue") then
        local ok, data = pcall(HttpService.JSONDecode, HttpService, standVal.Value)
        if ok and data then return data end
    elseif standVal:IsA("ModuleScript") then
        local ok, data = pcall(require, standVal)
        if ok and data then return data end
    elseif standVal:IsA("Folder") or standVal:IsA("Configuration") then
        local nameVal = standVal:FindFirstChild("Name")
        if nameVal and nameVal:IsA("StringValue") then
            return { Name = nameVal.Value }
        end
    end
    return nil
end

local function isDesiredBase(name)
    for _, d in ipairs(desiredBases) do
        if name == d then return true end
    end
    return false
end

local remote = ReplicatedStorage:WaitForChild("requests"):WaitForChild("character"):WaitForChild("use_item")


while true do
    remote:FireServer("Stand Arrow")

    local start = tick()
    local data = nil
    while tick() - start < 10 do
        data = getStandData()
        if data then break end
        task.wait(0.5)
    end

    if data then
        local baseName = data.Name
        local skin = data.Skin

        if baseName then
            if skin then
                print("Stand obtained: " .. baseName .. " with skin: " .. skin)
            else
                print("Stand obtained: " .. baseName)
            end
        end


        if baseName and isDesiredBase(baseName) then
            print("SUCCESS! Desired base stand obtained: " .. baseName)
            running = false  
            break
        end
    end

    task.wait(3)
end

print("Script finished.")