Integrate[If[a^2 + b^2 + c^2 + d^2
 + Sqrt[((b+c)^2 + (a-d)^2) ((b-c)^2 + (a+d)^2)] <= 2, 1, 0],
{a, -1, 1}, {b, -1, 1}, {c, -1, 1}, {d, -1, 1}]