#VRML V2.0 utf8

EXTERNPROTO BlaxxunZone [
eventIn         MFNode   addEvents
eventIn         MFNode   removeEvents 
exposedField    MFNode   events 
exposedField    MFNode   avatars
exposedField    MFString sendToChat 
exposedField    MFString groupChatName 
exposedField    MFString groupChat 
eventIn         SFInt32  set_myAvatarGesture 
eventIn         SFInt32  myAvatarGestureFromServer 
eventOut        SFInt32  myAvatarGesture_changed 
eventOut        SFInt32  myAvatarGestureToServer 
exposedField    SFFloat  beamToDistance 
exposedField	SFNode   beamToViewpoint 
] [ "shared.wrl#BlaxxunZone" ]
  
EXTERNPROTO SharedEvent [ 
exposedField 	SFString	name	

eventIn	 SFString	stringFromServer 
eventIn	 SFTime		timeFromServer 
eventOut SFString	stringToServer 
eventOut SFTime		timeToServer 
eventIn	 SFString	set_string 
eventIn	 SFTime		set_time 
eventOut SFString	string_changed 
eventOut SFTime		time_changed 
] [ "shared.wrl#SharedEvent" ]


DEF SharedZone BlaxxunZone {
} 

Transform {
    children [
        Transform {
	translation -5 5 0
	scale 1.2 1.2 1.2
	  children [
	    DEF ticker Text {
	      string ["..."]
	      fontStyle FontStyle {family "SERIF"}
	    }
	  ]
	}
	DEF tickerscript Script {
	  field SFNode theticker USE ticker
	  field MFString newtext ["..."]
          field MFString newurl [ "OnEvent( par1, par2 )" ]
          field MFString param [ "" "" ]
	  eventIn MFString addString
	  eventIn MFString outString
	  eventOut MFString string_changed
	  url "vrmlscript: function addString(value, time) {
		len = newtext.length;
		if (len > 5) len = 5;
              for (i=len; i > 0; i--) {
                     newtext[i]=newtext[i-1];
              }
	    newtext[0]=value[0];
	    newurl[0] = 'OnEvent( ' + value[0] + ', par2 )';
	    Browser.loadURL(newurl, param);
            string_changed=newtext;
          }"
	}
        DEF BigThing Collision {
            children [
                DEF CenterPiece Transform {
                    translation 0 5 0
                    children [
                        Shape {
                            appearance Appearance {
                                material Material { diffuseColor 1 0 1 }
                            }
                            geometry Cone {
                                bottomRadius  1
                                height        1
                            }
                        }
                    ]
                }
            ]
        },

        Viewpoint {
            position 0 2 20
            orientation 0 0 1 0
            description "First view - From Front"
        },

        DEF Floor Shape {
            appearance Appearance {
                material Material {
                    diffuseColor .8 .8 .8
                    ambientIntensity .5
                }
                texture ImageTexture {
                    url "stone.jpg"
                }
            }
            geometry IndexedFaceSet {
                coord Coordinate { point [ -50. 0  50.,  50. 0 50.,
                                            50. 0 -50., -50. 0 -50. ] }
                coordIndex [ 0, 1, 2, 3, -1 ]
                solid FALSE
            }
        },
        DEF LeftFrontColumn Transform {
            translation -49 5 49
            children [
                Shape {
                    geometry Box { size 2 10 2 }
                    appearance Appearance {
                        material Material {diffuseColor 1 0 0}
                    }
                }
            ]
        },
        DEF RightFrontColumn Transform {
            translation 49 5 49
            children [
                Shape {
                    geometry Box { size 2 10 2 }
                    appearance Appearance {
                        material Material {diffuseColor 0 1 0}
                    }
                }
            ]
        },
        DEF RightBackColumn Transform {
            translation 49 5 -49
            children [
                Shape {
                    geometry Box { size 2 10 2 }
                    appearance Appearance {
                        material Material {diffuseColor 0 0 1}
                    }
                }
            ]
        },
        DEF LeftBackColumn Transform {
            translation -49 5 -49
            children [
                Shape {
                    geometry Box { size 2 10 2 }
                    appearance Appearance {
                        material Material {diffuseColor 1 1 0}
                    }
                }
            ]
        }
    ]
}
ROUTE SharedZone.groupChat_changed TO tickerscript.addString
ROUTE tickerscript.string_changed TO ticker.set_string