Собрал простенькую программулину (все не выкладываю только основные моменты).
Const BOT_C%=111
Dim Tank(10)
For i=0 To 9
Tank(i)=CreateCube()
PositionEntity Tank(i),Rand(-10,10),0,Rand(-10,10)
EntityType Tank(i),BOT_C
Next
Collisions TSHOT,BOT_C,3,1
в цикле
For i=0 To 9
If EntityCollided(Tank(i),TSHOT) Then FreeEntity Tank(i)
Next
проверено, удаляется только "подстреленый" элемент массива.