((код jass

function DestroyTimedVision takes nothing returns nothing
local timer t = GetExpiredTimer( )
local integer id = GetHandleId( t )
call DestroyTimer( t )
call DestroyFogModifier( LoadFogModifierHandle( gg_htb_GameData, id, 0 ) )
call FlushChildHashtable( gg_htb_GameData, id )
set t = null
endfunction

function TimedVision takes player fp_pl, location fp_locCenter, real fp_rRadius, real fp_rLast, boolean fp_bFlag returns nothing
local fogmodifier fm = CreateFogModifierRadiusLoc(fp_pl, FOG_OF_WAR_VISIBLE, fp_locCenter, fp_rRadius, true, false )
local timer t = CreateTimer( )
call SaveFogModifierHandle( gg_htb_GameData, GetHandleId( t ), 0, fm )
call TimerStart( t, fp_rLast, false, function DestroyTimedVision )

if udg_ItsForDebug then
call BJDebugMsg( "Модификатор - "+I2S( GetHandleId( fm ) )+" создан." )
endif

if fp_bFlag then
call RemoveLocation( fp_locCenter )
endif

set t = null
set fm = null
endfunction
))