From e93bc0bd3227e7274d5e16cb97b1df04d41acf40 Mon Sep 17 00:00:00 2001
From: mdw <mdw>
Date: Tue, 4 Mar 2003 10:26:47 +0000
Subject: [PATCH] Make the fuel metric be lightyears, not decilightyears.  Make
 summary more compact (it was unnecessarily wide).

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

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)]
 }
-- 
2.11.0