~mdw
/
rocl
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Track Elite package interface change.
[rocl]
/
elite.tcl
diff --git
a/elite.tcl
b/elite.tcl
index
e652eff
..
fa81e4c
100644
(file)
--- a/
elite.tcl
+++ b/
elite.tcl
@@
-1,6
+1,6
@@
#! /usr/bin/tclsh
#
#! /usr/bin/tclsh
#
-# $Id: elite.tcl,v 1.
4 2003/03/01 17:47:0
7 mdw Exp $
+# $Id: elite.tcl,v 1.
5 2003/03/04 10:26:4
7 mdw Exp $
package require "elite-bits" "1.0.0"
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
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 ---
}
# --- 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
proc world-summary {s} {
global eco gov
elite-worldinfo p $s
- return [format "%-
12
s %4d %4d %-11s %-10s %2d %s" \
+ return [format "%-
8
s %4d %4d %-11s %-10s %2d %s" \
$p(name) $p(x) $p(y) \
$eco($p(economy)) $gov($p(government)) $p(techlevel) $p(seed)]
}
$p(name) $p(x) $p(y) \
$eco($p(economy)) $gov($p(government)) $p(techlevel) $p(seed)]
}