Percolation cluster algorithm and scaling behaviour in the 4-dimensional ising model