#! /usr/bin/tclsh
-package require "elite" "1.0.0"
+package require "elite" "1.0.1"
if {[llength $argv] < 1} {
puts stderr "usage: $argv0 \[-OPTION | ATTR | ATTR=VALUE\] ..."
proc get/world {a} {
global cmdr gov eco
- set ww [worldinfo $cmdr(gal-seed)]
+ set ww [elite-galaxylist $cmdr(gal-seed)]
set s [nearest-planet $ww \
[expr {$cmdr(world-x) * 4}] [expr {$cmdr(world-y) * 2}]]
elite-worldinfo p $s
}
proc set/world {a v} {
global cmdr
- set ww [worldinfo $cmdr(gal-seed)]
+ set ww [elite-galaxylist $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]} {