maxDistance set to 50 default.

diff --git a/robot.tcl b/robot.tcl
index 74582c1..5bd9f82 100755 (executable)
--- a/robot.tcl
+++ b/robot.tcl
@@ -1,5 +1,5 @@
 #!/usr/bin/tclsh 
-# $Id: robot.tcl,v 1.14 2001/06/05 07:46:00 adam Exp $
+# $Id: robot.tcl,v 1.15 2001/06/05 08:44:50 adam Exp $
 #
 proc RobotFileNext1 {area lead} {
     puts "RobotFileNext1 area=$area lead=$lead"
@@ -811,7 +811,7 @@ if {![info exist domains]} {
     set domains {*}
 }
 if {![info exist maxDistance]} {
-    set maxDistance 3
+    set maxDistance 50
 }
 if {![info exist robotsMax]} {
     set robotsMax 5