Print seed -- it's useful.

diff --git a/elite-describe b/elite-describe
index 1d16e500b9c0d997dbbae052761618efc7e9dbbc..38c902278fba3290535ceb0b14731dd3c93d5210 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))"