data.nodescript.lighteffects.Radarfalle.nodescript Maven / Gradle / Ivy

Go to download
### Dieses Script definiert ein Asseccory, 
### um das Blitzlich einer Radarfalle
### anzusteuern.
### Optionen: 1. Polizist mit beleuchteter Kelle, der nach dem Blitz das Fahrzeug herauswinkt
###           2. Bremslichter des Wagens der "geblitzt" wurde. Bremslichter gehen direkt nach dem Blitz an ;)
###
### Hardware: 1 Lightport (optional 2 o. 3)
### Software: 1 accessory
###           1 Macro
###
### history: 2017-05-02 A.Tillner, erste Version
###
###
### -------------- 1. Select Target
##application(text:de="Radarfalle", text:en="Speed trap")
##instruction(text:de="Radarfalle (optional mit Polizeikelle und Bremslicht eines 'geblitzten' Autos: 
Lightports = Blitzlicht LED
Macros = Blitz einmal ausl?sen", text:en="Speed trap (optional with police signalling disc and breaking light of a car): 
lightports = Flashing light LED
macros = Flashing once", link="http://wiki.fichtelbahn.de/doku.php?id=konfigvorlagen:lichteffekte" )
###
##input($AccessoryName:string, text:de="Name des Radarfallen-Accessories: ", text:en="Name of the speed trap accessory: ", default="Radarfalle")
##input($my_accessory:accessory, text:de="Nummer des zu erzeugenden Accessory: ", text:en="Nummber of the Accessory: ", default=0)
##input($my_macro:macro, text:de="Nummer des ersten Macros (Blitzlicht): ", text:en="Number of the first macro (Flashing light): ", default=0)
##input($led_flash:light, text:de="Nummer des Lightport (Blitzlicht): ", text:en="Number of the Lightport (flashing light): ", default=0)
##input($optional_kelle:boolean, text:de="Polizeikelle ?", text:en="police signalling disc ?", default=false)
##input($led_kelle:light, text:de="Nummer des Lightport (Kelle): ", text:en="Number of the Lightport (police signalling disc): ", default=0)
##input($optional_bremslicht:boolean, text:de="Bremslichter ?", text:en="Breaking lights ?", default=false)
##input($led_bremslicht:light, text:de="Nummer des Lightport (Bremslichter): ", text:en="Number of the Lightport (breaking lights): ", default=0)
##input($prevent_replace_labels:boolean, text:de="Keine Namen fuer Accessory, Makros, Ports ersetzen", text:en="Prevent replace labels for accessory, macro and ports", default=false)

#set($led_gap = 1)           ### die anderen LED sind an den folgenden Lightports angeschlossen
###
### -------------- 2. set Parameters for Ports
#set($RadarOff = 0)
#set($RadarOn = 200)


#set($flashdelay = 2)
#set($kelledelay = 15)
#set($bremsedelay = 7)
#set($endedelay = 75)
#set($OnTime = 0)

#if (${dimm_range} == 8)  ### Es handelt sich um einen Knoten mit 8 Bit Dimming
	#set($DimmzeitOff = 70)
	#set($DimmzeitOn = 70)
	#set($DimmzeitOff_Param = "DimmOff=${DimmzeitOff}")
	#set($DimmzeitOn_Param = "DimmOn=${DimmzeitOn}")
#else                     ### Es handelt sich um einen Knoten mit 16 Bit Dimming
	#set($DimmzeitOff = 17000)
	#set($DimmzeitOn = 17000)
	#set($DimmzeitOff_Param = "DimmOff88=${DimmzeitOff}")
	#set($DimmzeitOn_Param = "DimmOn88=${DimmzeitOn}")
#end

### -------------- 3. execute part of the script

#set($macro_radar = $my_macro)    ### need some additional macros

#########################################
#########################################
### Define Number of LED
### set LED-Label
### configure port

set light ${led_flash} name="${AccessoryName}_Blitz_${my_accessory}_${led_flash}"
config port ptype=light ValueOff=${RadarOff} ValueOn=${RadarOn} ${DimmzeitOff_Param} ${DimmzeitOn_Param} number=${led_flash}

#if ( ${optional_kelle} )
  #set($PolizeikelleOff = 0)
  #set($PolizeikelleOn = 100)
  set light ${led_kelle} name="${AccessoryName}_Polizeikelle_${my_accessory}_${led_kelle}"
  config port ptype=light ValueOff=${PolizeikelleOff} ValueOn=${PolizeikelleOn} ${DimmzeitOff_Param} ${DimmzeitOn_Param} number=${led_kelle}
  #set($led_gap = 2)
#end

#if ( ${optional_bremslicht} )
  #set($BremslichtOff = 0)
  #set($BremslichtOn = 200)
  set light ${led_bremslicht} name="${AccessoryName}_Bremslichter_${my_accessory}_${led_bremslicht}"
  config port ptype=light ValueOff=${BremslichtOff} ValueOn=${BremslichtOn} ${DimmzeitOff_Param} ${DimmzeitOn_Param} number=${led_bremslicht}
#end  

########################################
########################################

########################################
### Setzt label, wenn ${prevent_replace_labels} NICHT true
#if (!${prevent_replace_labels})

	### Set label of Macro
	set macro ${macro_radar} name="${AccessoryName}_${my_accessory}_Radar"

	### Set label of Accessories
	set accessory ${my_accessory} name="${AccessoryName}_${my_accessory}"

#end
########################################

################################################/
### Macro flashing light
###
select macro ${macro_radar}
config macro repeat=1 slowdown=1

add step ptype=light action=on number=${led_flash}
add step ptype=light delay=${flashdelay} action=off number=${led_flash}

#if ( ${optional_kelle} )
  add step ptype=light delay=${kelledelay} action=on number=${led_kelle}
#end

#if ( ${optional_bremslicht} )
  add step ptype=light  delay=${bremsedelay} action=on number=${led_bremslicht}
  add step ptype=light  delay=${endedelay} action=off number=${led_bremslicht}
#end

#if ( ${optional_kelle} )
  add step ptype=light delay=${kelledelay} action=off number=${led_kelle}
#end

###
### Ende flashing light
###
################################################/

### Define Accessory
select accessory ${my_accessory}
add aspect 0 macroname="${AccessoryName}_${my_accessory}_Radar"