Infinite Power Infinite Cash and Unlock all Items

local infinite_power do
  local env = getgenv()
  
  local old; old = hookmetamethod(game, "__namecall", function(self, ...)
    if self.Name == "Change_Power" and string.lower(getnamecallmethod()) == "fireserver" then
      local v1 = ...
      if type(v1) == "number" and v1 > 0 then
        return old(self, math.clamp(env.digging_power or 5, 0, 5555))
      end
    end
    return old(self, ...)
  end) 
  
  getgenv().digging_power = 9999
end

local infinite_cash do
  game:GetService('ReplicatedStorage').Purchase_Crate:FireServer(-math.huge)
  task.wait(1)
end

local unlock_all_tools do
  local RemoteEvent = game:GetService("Players").LocalPlayer.PlayerGui:FindFirstChild("RemoteEvent", true)
  
  if RemoteEvent then
    for _, Tool in ipairs(game:GetService("ReplicatedStorage").Shovels:GetChildren()) do -- Unlock all shovels
      RemoteEvent:FireServer(Tool.Name)
    end
    
    for _, Tool in ipairs(game:GetService("ReplicatedStorage").Metal_Detectors:GetChildren()) do -- Unlock all Detectors
      RemoteEvent:FireServer(Tool.Name)
    end
  end
end