- array set cmdr {
- mission 0
- credits 1000
- fuel 70
- gal-number 1
- front-laser 0x0f
- rear-laser 0
- left-laser 0
- right-laser 0
- cargo 20
- missiles 3
- legal-status 0
- score 0
- market-fluc 0
- }
- set cmdr(gal-seed) $galaxy1
- foreach i {
- ecm fuel-scoop energy-bomb energy-unit docking-computer
- gal-hyperdrive escape-pod
- } { set cmdr($i) 0 }
- elite-worldinfo lave [find-world $galaxy1 "Lave"]
- set cmdr(world-x) [expr {$lave(x)/4}]
- set cmdr(world-y) [expr {$lave(y)/2}]
- elite-market mkt $lave(seed) 0
- foreach {t n} $products {
- destructure [list . cmdr(station-$t)] $mkt($t)
- set cmdr(hold-$t) 0
- }
- set cmdr(station-alien-items) 0