elite-path: Start counting hops at zero.

diff --git a/elite-path b/elite-path
index 3f117e002a0b035648c3de69c84aef826465957f..81f7a8c0e4bdcdb402f7b4d0fcbabefcbdb8762d 100755 (executable)
--- a/elite-path
+++ b/elite-path
@@ -1,6 +1,6 @@
 #! /usr/bin/tclsh
 #
 #! /usr/bin/tclsh
 #

-# $Id: elite-path,v 1.4 2003/03/07 00:42:10 mdw Exp $
+# $Id$

 
 package require "elite" "1.0.1"
 
 
 package require "elite" "1.0.1"
 


@@ -97,12 +97,12 @@ foreach w [lrange $r 1 end] {
   eval lappend rt $p
   set home $w
 }
   eval lappend rt $p
   set home $w
 }

-puts [format "  1 %s" [world-summary $start]]
+puts [format "  0 %s" [world-summary $start]]

 set last $start
 unset p
 elite-worldinfo p $start
 destructure {x y} [list $p(x) $p(y)]
 set last $start
 unset p
 elite-worldinfo p $start
 destructure {x y} [list $p(x) $p(y)]

-set h 1
+set h 0

 set td 0
 set tw 0
 foreach s $rt {
 set td 0
 set tw 0
 foreach s $rt {