From a0f0b8941c3fbe8231194b09b3f1626f6bdf87f1 Mon Sep 17 00:00:00 2001
From: mdw <mdw>
Date: Mon, 6 Feb 2006 19:12:36 +0000
Subject: [PATCH] elite-path: Start counting hops at zero.

---
 elite-path | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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 {
-- 
2.11.0