EXTERNPROTO NetworkSFColor [
    eventIn SFColor set_value
    eventOut SFColor value_changed
    eventIn SFColor value_fromnet
    eventOut SFColor value_tonet
    exposedField SFString tag
    exposedField SFBool   pilotOnly
    field SFBool   localCopy
    exposedField SFBool   echo
    exposedField SFBool   cont
  ]
  {
    Script {
      eventIn SFColor InSc IS set_value
      eventOut SFColor OutSc IS value_changed
      eventIn SFColor netInSc IS value_fromnet
      eventOut SFColor netOutSc IS value_tonet
      field SFBool local
  
      directOutput TRUE
      mustEvaluate TRUE
  
      url "javascript:
        function InSc(value) {
          netOutSc = value;
          if( local == true )
            OutSc = value;
        }
        function netInSc(value) {
          OutSc = value;
        }
      "
    }
  }