[deftype at "Floyd0d" isa (&XProc &UDPsource &udpsink)
  redefault ((_Force,CanBuild () (([Primitives] ::allowed)
                                  ([Emit]       ::allowed)
				  ([Return]     ::allowed)
			          ([When]       ::allowed)
	                          ([UDPSend]    ::allowed)))
             (_Force,CanDo () (([Emit]    ::allowed)
			       ([Return]  ::allowed)
			       ([When]    ::allowed)
                               ([UDPSend] ::allowed)))
	     (_XProc,Senses () (([Emit] ::allowed) 
				([Enter Tense ::Past] ::allowed)
	                        ([UDPReceive at _verb,object] ::allowed))))]

[defmethod act &answer object &Floyd0d class ::witness ancestors ::after
 at [return]]
                                                             
[Floyd0d id :floyd]
[teleport at :floyd obj :floyd to :lobby]
[set at :floyd field _xproc,runcmd to "/home/nelson/ccr/robots/floyd.pl"]