#! /usr/bin/tclsh
#
-# $Id: elite-path,v 1.4 2003/03/07 00:42:10 mdw Exp $
+# $Id$
package require "elite" "1.0.1"
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 {