--- /dev/null
+#define vcunk_width 12
+#define vcunk_height 10
+static unsigned char vcunk_bits[] = {
+ 0xf8, 0x01, 0x0c, 0x03, 0x0c, 0x03, 0x80, 0x01, 0xc0, 0x00, 0x60, 0x00,
+ 0x00, 0x00, 0x60, 0x00, 0x60, 0x00, 0x00, 0x00};
manyset $vessel_class_data classinfos subclassinfos
set vc_codes {}
+ set vc_code2abbrev(zz) vcunk
+ load-icon vcunk
foreach {game code abbrev full} $classinfos {
if {![regexp {^[a-z][a-z]$} $code code]} { error "bad code" }
if {![regexp {^[a-z][a-z]$} $abbrev abbrev]} { error "bad abbrev" }
set gameclass [errexpect-arrayget vi vesselClass]
upvar #0 vc_game2code($gameclass) class
- if {![info exists class]} { errexpect-error "unexpected vesselClass"}
- lappend codel $class
+ if {[info exists class]} {
+ lappend codel $class
+ } else {
+ lappend codel zz
+ }
set gamesubclass [errexpect-arrayget vi vesselSubclass]
upvar #0 vsc_game2code($gamesubclass) subclass