#! /usr/bin/tclsh
#
-# $Id: elite.tcl,v 1.6 2003/03/07 00:44:57 mdw Exp $
+# $Id$
package require "elite-bits" "1.0.1"
rich-ind avg-ind poor-ind mainly-ind \
mainly-agri rich-agri avg-agri poor-agri
+tab gv Ay Fl MG Dp Ct Cy Dy CS
+tab ec RI AI PI MI MA RA AA PA
+
set products {
food "Food"
textiles "Textiles"
$eco($p(economy)) $gov($p(government)) $p(techlevel) $p(seed)]
}
+# --- world-brief PLANET ---
+#
+# Return a very brief summary string for PLANET.
+
+proc world-brief {s} {
+ global gv ec
+ elite-worldinfo p $s
+ return [format "%-8s (%s, %s, %2d)" \
+ $p(name) $ec($p(economy)) $gv($p(government)) $p(techlevel)]
+}
+
# --- jameson ARR ---
#
# Fill ARR with the information about commander JAMESON.