PROTO SharedEvent [ 
  exposedField 
  SFString        name        "event" 
  exposedField SFString        type         "SFTime"
  eventIn        SFBool        boolFromServer 
  eventIn        SFColor        colorFromServer 
  
  eventIn        SFFloat        floatFromServer 
  eventIn        SFInt32        int32FromServer 
  eventIn        SFRotation        rotationFromServer 
  eventIn        SFString        
  stringFromServer 
  eventIn        SFTime        timeFromServer 
  eventIn        SFVec2f        vec2fFromServer 
  eventIn        SFVec3f        vec3fFromServer 
  
  eventOut        SFBool        boolToServer 
  eventOut        SFColor        colorToServer 
  eventOut        SFFloat        floatToServer 
  eventOut        SFInt32        int32ToServer 
  
  eventOut        SFRotation        rotationToServer 
  eventOut        SFString        stringToServer 
  eventOut        SFTime        timeToServer 
  eventOut        SFVec2f        
  vec2fToServer 
  eventOut        SFVec3f        vec3fToServer 
  eventIn        SFBool        set_bool 
  eventIn        SFColor        set_color 
  eventIn        SFFloat        set_float 
  
  eventIn        SFInt32        set_int32 
  eventIn        SFRotation        set_rotation 
  eventIn        SFString        set_string 
  eventIn        SFTime        set_time 
  eventIn        
  SFVec2f        set_vec2f 
  eventIn        SFVec3f        set_vec3f 
  eventOut        SFBool        bool_changed 
  eventOut        SFColor        color_changed 
  eventOut        
  SFFloat        float_changed 
  eventOut        SFInt32        int32_changed 
  eventOut        SFRotation         rotation_changed 
  eventOut        SFString        string_changed 
  
  eventOut        SFTime        time_changed 
  eventOut        SFVec2f        vec2f_changed 
  eventOut        SFVec3f        vec3f_changed 
  ]
  {
  Script {
  exposedField        
  SFString        name IS name
  ##eventIn        SFString        set_type IS set_type
  ##eventOut        SFString        name_changed IS name_changed
  ##eventOut        SFString        type_changed IS type_changed
  eventIn        SFBool        boolFromServer        IS        boolFromServer
  eventIn        SFColor        colorFromServer         IS        colorFromServer
  eventIn        
  SFFloat        floatFromServer         IS        floatFromServer
  eventIn        SFInt32        int32FromServer         IS        int32FromServer
  eventIn        SFRotation        
  rotationFromServer         IS        rotationFromServer
  eventIn        SFString        stringFromServer         IS        stringFromServer
  eventIn        SFTime        timeFromServer 
          IS        timeFromServer
  eventIn        SFVec2f        vec2fFromServer         IS        vec2fFromServer
  eventIn        SFVec3f        vec3fFromServer         IS        vec3fFromServer
  eventOut        
  SFBool        boolToServer         IS        boolToServer
  eventOut        SFColor        colorToServer         IS        colorToServer
  eventOut        SFFloat        floatToServer 
          IS        floatToServer
  eventOut        SFInt32        int32ToServer         IS        int32ToServer
  eventOut        SFRotation        rotationToServer         IS        rotationToServer
  eventOut        
  SFString        stringToServer         IS        stringToServer
  eventOut        SFTime        timeToServer         IS        timeToServer
  eventOut        SFVec2f        vec2fToServer 
          IS        vec2fToServer
  eventOut        SFVec3f        vec3fToServer         IS        vec3fToServer
  eventIn        SFBool        set_bool        IS        set_bool
  eventIn        SFColor        
  set_color         IS        set_color
  eventIn        SFFloat        set_float         IS        set_float
  eventIn        SFInt32        set_int32         IS        set_int32
  eventIn        SFRotation        
  set_rotation         IS        set_rotation
  eventIn        SFString        set_string         IS        set_string
  eventIn        SFTime        set_time         IS        set_time
  eventIn        
  SFVec2f        set_vec2f         IS        set_vec2f
  eventIn        SFVec3f        set_vec3f         IS        set_vec3f
  eventOut        SFBool        bool_changed         IS        bool_changed
  eventOut        
  SFColor        color_changed         IS        color_changed
  eventOut        SFFloat        float_changed         IS        float_changed
  eventOut        SFInt32        int32_changed 
          IS        int32_changed
  eventOut        SFRotation        rotation_changed         IS        rotation_changed
  eventOut        SFString        string_changed         IS        string_changed
  eventOut        
  SFTime        time_changed         IS        time_changed
  eventOut        SFVec2f        vec2f_changed         IS        vec2f_changed
  eventOut        SFVec3f        vec3f_changed 
          IS        vec3f_changed
  url "vrmlscript:
  function set_name(value, time) { name_changed = value; }
  function set_type(value, 
  time) { type_changed = value; }
  function boolFromServer (value, time) {  bool_changed = value; }
  function colorFromServer 
  (value, time) { color_changed = value; }
  function floatFromServer (value, time) { float_changed = value; }
  function int32FromServer 
  (value, time) { int32_changed = value; }
  function rotationFromServer (value, time) { rotation_changed = value; }
  function 
  stringFromServer (value, time) { string_changed = value; }
  function timeFromServer (value, time) {  time_changed = value; 
  }
  function vec2fFromServer (value, time) { vec2f_changed = value; }
  function vec3fFromServer (value, time) { vec3f_changed 
  = value; }
  function set_bool (value, time) { boolToServer = value; }
  function set_color (value, time) { colorToServer = 
  value; }
  function set_float (value, time) { floatToServer = value; }
  function set_int32 (value, time) { int32ToServer 
  = value; }
  function set_rotation (value, time) { rotationToServer = value; }
  function set_string (value, time) { stringToServer 
  = value; }
  function set_time (value, time) {  timeToServer = value; }
  function set_vec2f (value, time) { vec2fToServer = 
  value; }
  function set_vec3f (value, time) { vec3fToServer = value; }
  "
  }
  }