chiark / gitweb /
elite-path: Start counting hops at zero.
authormdw <mdw>
Mon, 6 Feb 2006 19:12:36 +0000 (19:12 +0000)
committermdw <mdw>
Mon, 6 Feb 2006 19:12:36 +0000 (19:12 +0000)
elite-path

index 3f117e0..81f7a8c 100755 (executable)
@@ -1,6 +1,6 @@
 #! /usr/bin/tclsh
 #
-# $Id: elite-path,v 1.4 2003/03/07 00:42:10 mdw Exp $
+# $Id$
 
 package require "elite" "1.0.1"
 
@@ -97,12 +97,12 @@ foreach w [lrange $r 1 end] {
   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 h 1
+set h 0
 set td 0
 set tw 0
 foreach s $rt {