Напиши определенный тип для этих следов. Напр: Type shadow
Field sprite
Field x#,y#,z#
Field time
End Type
Врубаешь функцию в главной цепи
Function UpdateShadows()
For a.shadow = Each shadow
a\time=a\time+1
If a\time>300 ;или 3000, или 100000000000
FreeEntity a\sprite
Delete a
endif
next
End Function
Дело в шляпе!