#! /usr/bin/wish
#
-# $Id: elite-editor,v 1.3 2003/02/25 10:05:08 mdw Exp $
+# $Id: elite-editor,v 1.4 2003/02/26 00:02:15 mdw Exp $
package require "elite" "1.0.0"
proc map-set-fuel {seq qty} {
upvar \#0 map-$seq map
- set map(fuel) [expr {$qty + 0.0}]
+ set map(fuel) [expr {int($qty)}]
select-world $seq
show-connectivity $seq
}