Как то так. Писал в блокноте поэтому может быть не правильно.
For stone.stone = Each stone
For stone2.stone = Each stone
If MouseHit (1) Then
If stone2 <> stone Then
If Not ImagesCollide (stone\image,stone\x,stone\y,1,stone2\image,stone2\x,stone2\y,1) Then CreateStone (x#,y#)
End If
End If
Next
Next