~mdw
/
rocl
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
131334f
)
Print seed -- it's useful.
author
mdw
<mdw>
Mon, 10 Mar 2003 23:38:18 +0000
(23:38 +0000)
committer
mdw
<mdw>
Mon, 10 Mar 2003 23:38:18 +0000
(23:38 +0000)
elite-describe
patch
|
blob
|
blame
|
history
diff --git
a/elite-describe
b/elite-describe
index
1d16e50
..
38c9022
100755
(executable)
--- a/
elite-describe
+++ b/
elite-describe
@@
-1,6
+1,6
@@
#! /usr/bin/tclsh
#
#! /usr/bin/tclsh
#
-# $Id: elite-describe,v 1.
3 2003/03/07 00:41:46
mdw Exp $
+# $Id: elite-describe,v 1.
4 2003/03/10 23:38:18
mdw Exp $
package require "elite" "1.0.1"
package require "elite" "1.0.1"
@@
-8,6
+8,7
@@
proc describe n {
global economy government
elite-worldinfo p $n
puts "Name: $p(name)"
global economy government
elite-worldinfo p $n
puts "Name: $p(name)"
+ puts "Seed: $p(seed)"
puts "Position: $p(x), $p(y) LY"
puts "Economy: $economy($p(economy))"
puts "Government: $government($p(government))"
puts "Position: $p(x), $p(y) LY"
puts "Economy: $economy($p(economy))"
puts "Government: $government($p(government))"