[Nex]

Как то так. Писал в блокноте поэтому может быть не правильно.

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