# OBSOLETO - OUTDATED

# Segnale di Occupazione e Direzione blocco semplice, per blocchi normalmente non
# orientati. Usare 2 segnali per blocco, nelle due direzioni, collegati a un tratto di
# binario fittizio. Accendere i segnali con uno script come sotto, associato al binario
# posto al centro del blocco, e spegnerli con pedali posti alle uscite del blocco.
# Attivare l'opzione nessuna penalità per segnale richiuso.
# -1, 0 e +1 sono da sommare alle coordinate dell'elemento a cui è assegnato lo script,
# e da sostituire con il risultato; ad esempio se tale elemento è (3,4) la prima
# riga diventerà    if Track (2,4).color = black
#OnSetBusy:					# Quando l'elemento non è più nero...
# if Track(-1,0).color = black	# ...se l'elemento a sinistra è nero...
#  if Signal(-1,-1).aspect = red	# ...e il blocco non è già orientato
#   do click -1,-1				# ...attiva la freccia a sinistra
#  end
# else						# ... altrimenti attiva la freccia a destra
#  if Signal(+1,+1).aspect = red   # ... se non è già attivata
#   do click +1,+1
#  end
# end
#end
#
# Aspetti: Spento (red),  Acceso (on)

# Simple block occupancy and direction indicator, for blocks that are normally not
# oriented. Use two signals per block, one for each direction, both linked to a hidden
# track element. To activate the indicator, customize and assign the following script
# to a track element in the middle of the block; use pedals at the to ends of the block
# to switch off the lit indicator (mark the "No penalty for unnecessary clicks" option
# in the properties).
# -1, 0 and +1 are the deltas to be summed to the coordinates of the element to which
# the script is assigned, and to be replaced by the results. For example, if that
# element is (2,4) the first line would become     if Track (2,4).color = black
#OnSetBusy:					# When the element changes from black...
# if Track(-1,0).color = black	# ...if the element to the left is black...
#  if Signal(-1,-1).aspect = red	# ...and the block isn't already oriented
#   do click -1,-1				# ...activate the left-oriented signal
#  end
# else						#... otherwise activate the right-oriented one
#  if Signal(+1,+1).aspect = red   #... if it isn't already active
#   do click +1,+1
#  end
# end
#end
#
#
# Aspects: Unlit (red),   Lit (on)
# P.Rosati  1/12/2013

Aspect: red
	IconE: DB_off_E.xpm
	IconW: DB_off_W.xpm
	IconN: DB_off_N.xpm
	IconS: DB_off_S.xpm
	Action: stop

Aspect: on
	IconE: DB_on_E.xpm
	IconW: DB_on_W.xpm
	IconN: DB_on_N.xpm
	IconS: DB_on_S.xpm
	Action: proceed

# initial aspect

OnInit:
	.aspect = red
end

# the player or a script cleared the signal

OnCleared:
	if .aspect = red
		.aspect = on
	else
		.aspect = red
	end
end

# the player or a script cleared the signal for shunting

OnShunt:
	if .aspect = red
		.aspect = on
	else
		.aspect = red
	end
end

# this or another signal changed its aspect

OnUpdate:
	return
end
