X-Git-Url: https://git.distorted.org.uk/~mdw/rocl/blobdiff_plain/a0f0b8941c3fbe8231194b09b3f1626f6bdf87f1..6b8df360bed7a9d2bc182f25fcd86235aa47735b:/elite.tcl

diff --git a/elite.tcl b/elite.tcl
index 127d72c..d72250f 100644
--- a/elite.tcl
+++ b/elite.tcl
@@ -1,6 +1,6 @@
 #! /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"
 
@@ -38,6 +38,9 @@ tab eco \
     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"
@@ -398,6 +401,17 @@ proc world-summary {s {ind 0} {spc 0}} {
       $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.