Type problem.

cube.entity = new entity
sphere.entity = new entity

For banana.entity = each entity
  count = count + 1
Next
Print count

RESULT = 2

Const TCUBE = 1
Const TSPHERE = 2

cube.entity = new entity : cube\eType = TCUBE
sphere.entity = new entity : sphere\eType = TSPHERE

For banana.entity = each entity
  If banana\eType = TCUBE
    count = count + 1
  EndIf
Next
Print count

RESULT = 1