# Script da assegnare a un'icona qualsiasi (poi lo script imposterà quella giusta), la
# quale andrà collegata alle luci per le auto o alle sbarre di un passaggio a livello.
# Un click su di essa "guasta" o "ripara" l'ente a cui è collegata, a seconda che esso
# sia funzionante (indicatore grigio) o no (indicatore azzurro).

# Script to be assigned to any icon (the script itself will set the correct one),
# which will be linked to the ligths for the cars or the gates of a level crossing.
# A click on it will "damage" or "repair" the linked object, depending on its being
# working (grey indication) or not (cyan indication).

# P.Rosati  21/01/2021 (Versione 5.1)

OnInit:
	.icon = "TD_off_X.xpm"
end

OnIconUpdate:
	if .linked.aspect = unlit
		.icon = "TD_fault_X.xpm"
	else
		.icon = "TD_off_X.xpm"
	end
end

OnClicked:
	if .linked.aspect = unlit
		if .linked.color = black
			.linked.aspect = open
		else
			.linked.aspect = closed
		end
	else
		.linked.aspect = unlit
	end
	do update
end