something like this?
For block1.block=Each block For block2.block=Each block If block1<>block2 Then ; make sure that we're not checking the collision of a block with itself ;CHECK COLLISION between block1\model and block2\model ;If collided then ; handle1=block1\model ; handle2=block2\model ;Endif EndIf Next Next