cope with unknown vessels by turning them unto zz vcunk

[ypp-sc-tools.db-test.git] / yarrg / where-vessels

diff --git a/yarrg/where-vessels b/yarrg/where-vessels
index c6636d6a96ff20bcf6c45eddf370dc4396ca874a..5af2dfaf41129847defe886d547725d1b6677726 100755 (executable)
--- a/yarrg/where-vessels
+++ b/yarrg/where-vessels
@@ -275,6 +275,8 @@ proc vesselclasses-init {} {
     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" }
@@ -602,8 +604,11 @@ proc vessel {vin} {
 
     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