X-Git-Url: https://git.distorted.org.uk/~mdw/rocl/blobdiff_plain/1304202ad2001c85d3eae3a37c51e001794c24c8..44649ec5bc84753e3ae7714e698f23304b04e744:/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))"