Ответ: Растояние до дерева и т.д
'Как-то так:
For tree.MyTrees=Each MyTrees
if EntityDistance(camera,tree\entity)>max_dst
if tree\state=2
freeentity tree\entity
tree\entity=loadsprite ("tree_sprite_path")
tree\state=1
endif
else
if tree\state=1
freeentity tree\entity
tree\entity=loadmesh ("tree_mesh_path")
tree\state=2
endif
endif
Next
'max_dst - дистанция при которой происходит смена типа объекта
'tree\state - идентификатор состояния объекта
З.Ы. Мда... красиво
__________________
— Скажи мне, что это не бомба.
— Хорошо. Это котенок. Замечательный взрывной котенок.
|