}
proc set/world {a v} {
global cmdr
+ set ww [worldinfo $cmdr(gal-seed)]
set s [parse-planet-spec $cmdr(gal-seed) $v]
if {[string equal $s ""]} { error "bad planet spec `$v'" }
if {![in-galaxy-p $cmdr(gal-seed) $s]} {
error "planet `[worldname $s]' not in galaxy $cmdr(gal-seed)"
}
elite-worldinfo p $s
+ set ss [nearest-planet $ww $p(x) $p(y)]
+ if {![string equal $s $ss]} {
+ set n $p(name)
+ elite-worldinfo p $ss
+ puts stderr "can't dock at $n: $p(name) is coincident"
+ }
set cmdr(world-x) [expr {$p(x)/4}]
set cmdr(world-y) [expr {$p(y)/2}]
}