X-Git-Url: https://git.distorted.org.uk/~mdw/rocl/blobdiff_plain/2b1a591173a73540cd2aa717038a92e3065b053f..4041fdd8af852bf6fb4db0aa6ddd2c8c2f640574:/elite-path

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 {