2 Collision Problems

Use this. It's a recursive function that adds the entity type to the entity
and all of it's children. Applying it only to the scene root may cause
problems.

Function EntityType_(entity, collisiontype)
	EntityType entity, collisiontype
	For c = 1 To CountChildren(entity)
		EntityType_(GetChild(entity, c), collisiontype)
	Next
End Function