From: mdw <mdw>
Date: Mon, 6 Feb 2006 19:12:36 +0000 (+0000)
Subject: elite-path: Start counting hops at zero.
X-Git-Tag: 1.1.6~11
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~mdw/git/rocl/commitdiff_plain/a0f0b8941c3fbe8231194b09b3f1626f6bdf87f1

elite-path: Start counting hops at zero.
---

diff --git a/elite-path b/elite-path
index 3f117e0..81f7a8c 100755
--- a/elite-path
+++ b/elite-path
@@ -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 {