Динамическая камера

function Trig_df_Actions takes nothing returns nothing
    local real x = GetCameraTargetPositionX( )
    local real y = GetCameraTargetPositionY( )
    local location LFZ = Location( x, y )
    local real r = 512.00
    local real d = 128.00
    local real d1
    local real fly = GetLocationZ( LFZ )
    local real step = 32.00
    
    loop
        set d1 = r
        
        loop
            call MoveLocation( LFZ, x + d, y + d1 )
            
            if GetLocationZ( LFZ ) > fly then
                set fly = GetLocationZ( LFZ )
            endif
        
            exitwhen d1 <= -r
            set d1 = d1 - step
        endloop
        
        exitwhen d <= -128.00
        set d = d - step
    endloop
    
    call DisplayTextToPlayer( GetLocalPlayer( ), 0.00, 0.00, R2S( fly ) )
    call SetCameraField( CAMERA_FIELD_TARGET_DISTANCE, 1350.00 + fly, 0.10 )
    
    call RemoveLocation( LFZ )
    set LFZ = null
endfunction

//===========================================================================
function InitTrig_df takes nothing returns nothing
    set gg_trg_df = CreateTrigger(  )
    call TriggerAddAction( gg_trg_df, function Trig_df_Actions )
    call TimerStart( CreateTimer( ), 0.10, true, function Trig_df_Actions )
endfunction