3 # $Id: elite-reach,v 1.2 2003/02/25 00:25:38 mdw Exp $
5 package require "elite" "1.0.0"
7 proc reach {dist seed} {
8 set ww [worldinfo $seed]
9 puts -nonewline stderr "\[computing adjacency table..."
12 puts -nonewline stderr "\[painting..."
14 foreach {s x w} $ww { set p($s) 1 }
17 set ps [array startsearch p]
18 if {![array anymore p $ps]} { array donesearch p $ps; break }
19 set cc [array nextelement p $ps]
20 array donesearch p $ps
27 if {[info exists p($w)]} {
37 puts stderr " done\]\n"
43 if {$i(techlevel) >= 10} {
46 lappend l [world-summary $i(seed)]
49 if {$de} { append n " *" }
56 if {[llength $argv] == 0} {
57 set argv {1 2 3 4 5 6 7 8}
61 for {set i 0} {$i < [llength $argv]} {incr i} {
62 set a [lindex $argv $i]
66 set d [expr {[lindex $argv $i] * 10}]
69 puts stderr "usage: $argv0 \[-d DIST\] \[GALAXY ...\]"
73 set g [parse-galaxy-spec $a]
74 if {[string equal $g ""]} {
75 puts stderr "$argv0: bad galaxy spec `$a'"
83 foreach {d ng g} $gg {
84 puts "*** GALAXY $ng ***"