auto shake auto pan auto sand open source

local Players = game:GetService("Players")
local player = Players.LocalPlayer
local args = {1}

while true do
    local character = player.Character or player.CharacterAdded:Wait()

    for _, tool in pairs(character:GetChildren()) do
        if tool:IsA("Tool") and tool:FindFirstChild("Scripts") then
            local scripts = tool.Scripts

            pcall(function()
                if scripts:FindFirstChild("Shake") then
                    scripts.Shake:FireServer()
                end
            end)

            pcall(function()
                if scripts:FindFirstChild("Collect") then
                    scripts.Collect:InvokeServer(unpack(args))
                end
            end)

            pcall(function()
                if scripts:FindFirstChild("Pan") then
                    scripts.Pan:InvokeServer()
                end
            end)
        end
    end

    wait(0.5)
end