#!/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"
set domains {*}
}
if {![info exist maxDistance]} {
- set maxDistance 3
+ set maxDistance 50
}
if {![info exist robotsMax]} {
set robotsMax 5