X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~mdw/git/rocl/blobdiff_plain/1304202ad2001c85d3eae3a37c51e001794c24c8..f4ca329405ccda75878a3b3f72e6f1cba7da3cb8:/elite-describe diff --git a/elite-describe b/elite-describe index 1c0c774..38c9022 100755 --- a/elite-describe +++ b/elite-describe @@ -1,11 +1,14 @@ #! /usr/bin/tclsh +# +# $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))"