X-Git-Url: https://git.distorted.org.uk/~mdw/rocl/blobdiff_plain/b130b8f56dda8528a9cc18e86f825f1f4283cfbc..6b8df360bed7a9d2bc182f25fcd86235aa47735b:/elite-describe diff --git a/elite-describe b/elite-describe index 7b05c16..38c9022 100755 --- a/elite-describe +++ b/elite-describe @@ -1,13 +1,14 @@ #! /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))"