function Trig_Lumber_Func005002001 takes nothing returns integer
        return(CountLivingPlayerUnitsOfTypeId('h005',GetEnumPlayer()))
endfunction

function Trig_Lumber_Func005002 takes nothing returns nothing
        if(Trig_Lumber_Func005002001()>0)then
                call AdjustPlayerStateBJ((25 * Trig_Lumber_Func005002001()),GetEnumPlayer(),PLAYER_STATE_RESOURCE_LUMBER)
        endif
endfunction