Here are some attempts:
val = Interpolation[Union[X] /. {x_, y_, z_, v_} :> {{x, y}, v}];
ListPlot3D[Map[Most, Union[X]], MeshFunctions -> (val[#1, #2] &),
Mesh -> {Range[0, 6]}, AxesLabel -> {x, y, z}]
ListDensityPlot[Map[Drop[#, {3}] &, Union[X]], AxesLabel -> {x, y}]
ListContourPlot[Map[Drop[#, {3}] &, Union[X]], AxesLabel -> {x, y}]