3 # $Id: elite-reach,v 1.3 2003/03/07 00:41:46 mdw Exp $
5 package require "elite" "1.0.1"
7 proc reach {dist seed} {
8 set ww [elite-galaxylist $seed]
9 elite-adjacency a $ww $dist
10 foreach {s x w} $ww { set p($s) 1 }
13 set ps [array startsearch p]
14 if {![array anymore p $ps]} { array donesearch p $ps; break }
15 set cc [array nextelement p $ps]
16 array donesearch p $ps
23 if {[info exists p($w)]} {
38 if {$i(techlevel) >= 10} {
41 lappend l [world-summary $i(seed)]
44 if {$de} { append n " *" }
51 if {[llength $argv] == 0} {
52 set argv {1 2 3 4 5 6 7 8}
56 for {set i 0} {$i < [llength $argv]} {incr i} {
57 set a [lindex $argv $i]
61 set d [expr {int([lindex $argv $i] * 10)}]
64 puts stderr "usage: $argv0 \[-d DIST\] \[GALAXY ...\]"
68 set g [parse-galaxy-spec $a]
69 if {[string equal $g ""]} {
70 puts stderr "$argv0: bad galaxy spec `$a'"
78 foreach {d ng g} $gg {
79 puts "*** GALAXY $ng ***"