#! /usr/bin/tclsh
#
-# $Id: elite.tcl,v 1.4 2003/03/01 17:47:07 mdw Exp $
+# $Id: elite.tcl,v 1.5 2003/03/04 10:26:47 mdw Exp $
package require "elite-bits" "1.0.0"
proc weight-fuel {from to} {
elite-worldinfo f $from
elite-worldinfo t $to
- return [world-distance $f(x) $f(y) $t(x) $t(y)]
+ return [expr {[world-distance $f(x) $f(y) $t(x) $t(y)]/10.0}]
}
# --- weight-safety A B ---
proc world-summary {s} {
global eco gov
elite-worldinfo p $s
- return [format "%-12s %4d %4d %-11s %-10s %2d %s" \
+ return [format "%-8s %4d %4d %-11s %-10s %2d %s" \
$p(name) $p(x) $p(y) \
$eco($p(economy)) $gov($p(government)) $p(techlevel) $p(seed)]
}