You can use the same system that AntiPush changing the ID.
Code:
200 {PushMax} VarSet(X) Self.X VarSet(Y) Self.Y VarSet(Z) Self.Z VarSub(Y, 1) Map.PickUp(3031, -1, 0, !X!, !Y!, !Z!)<>1 VarAdd(X, 1) Map.PickUp(3031, -1, 0, !X!, !Y!, !Z!)<>1 VarAdd(Y, 1) Map.PickUp(3031, -1, 0, !X!, !Y!, !Z!)<>1 VarAdd(Y, 1) Map.PickUp(3031, -1, 0, !X!, !Y!, !Z!)<>1 VarSub(X, 1) Map.PickUp(3031, -1, 0, !X!, !Y!, !Z!)<>1 VarSub(X, 1) Map.PickUp(3031, -1, 0, !X!, !Y!, !Z!)<>1 VarSub(Y, 1) Map.PickUp(3031, -1, 0, !X!, !Y!, !Z!)<>1 VarSub(Y, 1) Map.PickUp(3031, -1, 0, !X!, !Y!, !Z!)