Getting a wierd syntax error.

scope GwypaasUnit
//! runtextmacro HSAS_Static("Gwypaas, private)
private struct GwypaasData
    real red   = 0
    real green = 0
    real blue  = 0

    unit whichUnit
    integer currentcolor = 0 // If 0 red, 1 green, 2 blue
    boolean increase = true
endstruct
private function GwypaasTimerCallback takes nothing returns nothing
    local timer t = GetExpiredTimer()
    local GwypaasData GD = GetAttachedStructGwypaas(t)


        if increase == true then
            if GD.currentcolor == 0 then
                set GD.red = GD.red + 0.01
                if GD.red >= 1 then
                    set GD.currentcolor = 1
                endif
            elseif GD.currentcolor == 1 then
                set GD.green = GD.green + 0.01
                if GD.green >= 1 then
                    set GD.currentcolor = 2
                endif
            elseif GD.currentcolor == 2 then
                set GD.blue = GD.blue + 0.01
                if GD.blue >= 1 then
                    set GD.currentcolor = 3
                endif
            else
                set increase == false
                set GD.currentcolr = 0
            endif
        else
            if GD.currentcolor == 0 then
                set GD.red = GD.red - 0.01
                if GD.red >= 1 then
                    set GD.currentcolor = 1
                endif
            elseif GD.currentcolor == 1 then
                set GD.green = GD.green - 0.01
                if GD.green >= 1 then
                    set GD.currentcolor = 2
                endif
            elseif GD.currentcolor == 2 then
                set GD.blue = GD.blue - 0.01
                if GD.blue >= 1 then
                    set GD.currentcolor = 3
                endif
            else
                set increase == true
            endif
        endif
        call SetUnitVertexColor(GD.whichUnit, GD.red, GD.green, GD.blue , 0)
endfunction

function InitGwypaasUnit takes unit u returns nothing
    local timer t = CreateTimer()
    local GwypaasData GD = GwypaasData.create()
    set GD.whichUnit = u
    call AttachStructGwypaas(t, GD)
    call TimerStart(t, 0.02, true, function GwypaasTimerCallback)
endfunction

endscope

//! runtextmacro HSAS_Static("Gwypaas", "private")