chiark / gitweb /
Initial import.
[rocl] / elite-describe
CommitLineData
1304202a 1#! /usr/bin/tclsh
2
3package require "elite" "1.0.0"
4
5proc describe n {
6 global economy government
7 elite-worldinfo p $n
8 puts "Name: $p(name)"
9 puts "Position: $p(x), $p(y) LY"
10 puts "Economy: $economy($p(economy))"
11 puts "Government: $government($p(government))"
12 puts "Tech. level: $p(techlevel)"
13 puts [format "Population: %s billion (%s)" \
14 [expr {$p(population)/10.0}] $p(inhabitants)]
15 puts "Gross productivity: $p(productivity) M Cr"
16 puts "Radius: $p(radius) km"
17 puts ""
18 set ll {}
19 set l 0
20 foreach w $p(description) {
21 incr l
22 incr l [string length $w]
23 if {$l > 72} { puts $ll; set ll {}; set l 0 }
24 lappend ll $w
25 }
26 puts $ll
27}
28
29if {[llength $argv] < 1} {
30 puts stderr "usage: $argv0 \[-g GALAXY\] PLANET ..."
31 exit 1
32}
33set g $galaxy1
34for {set i 0} {$i < [llength $argv]} {incr i} {
35 set a [lindex $argv $i]
36 switch -- $a {
37 "-g" {
38 incr i
39 set a [lindex $argv $i]
40 set g [parse-galaxy-spec $a]
41 if {[string equal $g ""]} {
42 puts stderr "$argv0: bad galaxy string `$a'"
43 exit 1
44 }
45 destructure {. g} $g
46 }
47 default {
48 set n [parse-planet-spec $g $a]
49 if {[string equal $n ""]} {
50 puts stderr "$argv0: unknown planet `$a'"
51 continue
52 }
53 describe $n
54 puts ""
55 }
56 }
57}