--- /dev/null
+#define atsea_width 5
+#define atsea_height 9
+static unsigned char atsea_bits[] = {
+ 0x02, 0x15, 0x08, 0x02, 0x15, 0x08, 0x02, 0x15, 0x08};
#define borrow_width 5
#define borrow_height 9
static unsigned char borrow_bits[] = {
- 0x00, 0x00, 0x00, 0x04, 0x0a, 0x04, 0x00, 0x00, 0x00};
+ 0x00, 0x00, 0x00, 0x00, 0x12, 0x12, 0x12, 0x0c, 0x00};
-#define unlocked_width 5
-#define unlocked_height 9
-static unsigned char unlocked_bits[] = {
- 0x00, 0x00, 0x00, 0x00, 0x04, 0x00, 0x00, 0x00, 0x00};
+#define dot_width 5
+#define dot_height 9
+static unsigned char dot_bits[] = {
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x04, 0x00};
#define ours_width 5
#define ours_height 9
static unsigned char ours_bits[] = {
- 0x00, 0x00, 0x0f, 0x09, 0x09, 0x09, 0x0f, 0x04, 0x00};
+ 0x00, 0x00, 0x00, 0x0a, 0x1f, 0x1f, 0x0e, 0x04, 0x00};
merchbrig fm mb {Merchant Brig}
warbrig gm wb {War Brig}
xebec hm xe Xebec
- warfrig im wf {War Frigate}
merchgal jm mg {Merchant Galleon}
+ warfrig im wf {War Frigate}
grandfrig km gf {Grand Frigate}
}
set vc_codes {}
load-icon unlocked
load-icon locked
load-icon battle
+ load-icon atsea
load-icon borrow
load-icon query
load-icon ours
proc code2abbrev-lock {lockown} {
manyset [split $lockown ""] lock notown
- append abbrev [lindex {* + -} $lock]
- append abbrev [lindex {= - ?} [regsub {\D} $notown 2]]
+ append abbrev [lindex {x u .} $lock]
+ append abbrev [lindex {m . ?} [regsub {\D} $notown 2]]
}
proc canvas-horiz-stack {xvar xoff y bind type args} {
incr stackx 2
set imy [expr {$y+2}]
- append qty [lindex {? {}} $inport]
+ if {!$inport} { incr qtylen -1 }
+ if {$qtylen<=0} { set qtylen {} }
set qty [format "%${qtylen}s" $qty]
set qtyid [canvas-horiz-stack stackx 0 $y $bind \
text -anchor nw -font fixed -text $qty]
+ if {!$inport} {
+ canvas-horiz-stack stackx 0 $imy $bind \
+ image -anchor nw -image icon/atsea
+ incr stackx
+ }
+
canvas-horiz-stack stackx -1 $imy $bind \
image -anchor nw -image icon/$vc_code2abbrev($class)
incr stackx
canvas-horiz-stack stackx 0 $imy $bind \
- image -anchor nw -image icon/[lindex {battle dot locked} $lock]
+ image -anchor nw -image icon/[lindex {battle borrow dot} $lock]
incr stackx
canvas-horiz-stack stackx 0 $imy $bind \
image -anchor nw -image icon/[lindex {ours dot query} \