From: mdw <mdw>
Date: Tue, 4 Mar 2003 10:26:47 +0000 (+0000)
Subject: Make the fuel metric be lightyears, not decilightyears.  Make summary
X-Git-Tag: 1.0.3~1
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~mdw/git/rocl/commitdiff_plain/e93bc0bd3227e7274d5e16cb97b1df04d41acf40

Make the fuel metric be lightyears, not decilightyears.  Make summary
more compact (it was unnecessarily wide).
---

diff --git a/elite.tcl b/elite.tcl
index e652eff..fa81e4c 100644
--- a/elite.tcl
+++ b/elite.tcl
@@ -1,6 +1,6 @@
 #! /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"
 
@@ -306,7 +306,7 @@ proc weight-hops {from to} {
 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 ---
@@ -435,7 +435,7 @@ proc in-galaxy-p {g pp} {
 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)]
 }