#! /usr/bin/tclsh
#
-# $Id: elite-describe,v 1.2 2003/02/25 00:25:38 mdw Exp $
+# $Id: elite-describe,v 1.4 2003/03/10 23:38:18 mdw Exp $
-package require "elite" "1.0.0"
+package require "elite" "1.0.1"
proc describe n {
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))"