globals // чтобы использовать такую конструкцию нужно делать через JassNewGenPack
    constant timer SW_Timer = CreateTimer()
    real SW_Time
    real SW_R = 255
    real SW_G = 255
    real SW_B = 255
    real SW_A = 255
    real SW_RS
    real SW_GS
    real SW_BS
    real SW_AS
    constant real SW_period = 0.04
endglobals

function ws_SetWaterColor_Child takes nothing returns nothing
    set SW_Time = SW_Time - SW_period
    set SW_R = SW_R + SW_RS
    set SW_G = SW_G + SW_GS
    set SW_B = SW_B + SW_BS
    set SW_A = SW_A + SW_AS
    call SetWaterBaseColor(R2I(SW_R), R2I(SW_G), R2I(SW_B), R2I(SW_A))
    if SW_Time <= 0 then
        call PauseTimer(GetExpiredTimer())
    endif
endfunction

function ws_SetWaterColor takes integer r, integer g, integer b, integer a, real time returns nothing
    set SW_Time = time 
    set SW_RS = (r-SW_R)/time*SW_period
    set SW_GS = (g-SW_G)/time*SW_period
    set SW_BS = (b-SW_B)/time*SW_period
    set SW_AS = (a-SW_A)/time*SW_period
    call TimerStart(SW_Timer, SW_period, true, function ws_SetWaterColor_Child)
endfunction

function InitTrig_Water_System takes nothing returns nothing
endfunction

События
  Игрок - Игрок 1 (Красный) skips a cinematic sequence
Условия
Действия
  Custom script: set udg_b = not udg_b
  Custom script: if udg_b then
  Custom script:   call ws_SetWaterColor(255, 255, 255, 255, 2)
  Custom script: else
  Custom script:   call ws_SetWaterColor(0, 0, 0, 255, 2)
  Custom script: endif