[FrankH]

пример, при создании обьекта

        unit\mesh=CopyMesh(prototype)
        EntityType unit\mesh,3
        EntityRadius unit\mesh,.1
        EntityPickMode unit\mesh,2,1

функция ЛОДа

Function LOD()

For all.Flora=Each Flora

    x=EntityDistance (all\mesh,cam)
    z=EntityInView (all\mesh,cam)
    
    If x>loddistant And z Then
        HideEntity all\mesh
        ShowEntity all\lod
    EndIf
    
    If z And x<loddistant Then
        HideEntity all\lod
        ShowEntity all\mesh
    EndIf
    
    If (Not z) Then
        HideEntity all\mesh
    EndIf
Next


End Function

террайну соответственно нужен свой пик мод и прочее

        gn=FindChild(ground,Str r+"_"+Str f)
        EntityType gn,1
        EntityTexture gn,leveltexture
        EntityPickMode gn,2,1
        EntityAutoFade gn,hrzn+hrzn*.5,hrzn+hrzn*.51