colorBlindModeHelper.sqf

colourBlindModes = [
	"Normal",
	"Protanopia",
	"Protanomaly",
	"Deuteranopia",
	"Deuteranomaly",
	"Tritanopia",
	"Tritanomaly",
	"Achromatopsia",
	"Achromatomaly"
];
currentMode = 0;
nextModeActionID = player addAction ["Next Mode", {
	currentMode = currentMode + 1;
	if (currentMode isEqualTo count colourBlindModes - 1) then {
		currentMode = 0;
	};
	STHud_ColourBlindMode = (colourBlindModes select currentMode);
	[STHud_ColourBlindMode] call STHud_Colour_Blind_Cache;
	hint str STHud_ColourBlindMode;
}];
previousModeID = player addAction  ["Previous Mode", {
	currentMode = currentMode - 1;
	if (currentMode isEqualTo -1) then {
		currentMode = count colourBlindModes - 1;
	};
	STHud_ColourBlindMode = (colourBlindModes select currentMode);
	[STHud_ColourBlindMode] call STHud_Colour_Blind_Cache;
	hint str STHud_ColourBlindMode;
}];
removeAddActionsID = player addAction ["Remove addActions", {
	player removeAction nextModeActionID;
	player removeAction previousModeID;
	player removeAction removeAddActionsID;
}];