proc vessel {vin} {
global pirate notes_used note_missings newnotes
upvar 1 $vin vi
+ set abbrev {}
+ switch -exact [errexpect-arrayget vi inPort] {
+ true { }
+ false { append abbrev ? }
+ default { errexpect-error "unexpected inPort" }
+ }
switch -exact [errexpect-arrayget vi vesselClass] {
smsloop { set sz 00sl }
lgsloop { set sz 01ct }
grandfrig { set sz 10gf }
default { errexpect-error "unknown class" }
}
- set abbrev $sz
+ append abbrev $sz
switch -exact [errexpect-arrayget vi vesselSubclass] {
null { }
icy { append abbrev F }
false/true { append abbrev 0* }
default { errexpect-error "unexpected isLocked/isBattleReady" }
}
- switch -exact [errexpect-arrayget vi inPort] {
- true { }
- false { append abbrev ? }
- default { errexpect-error "unexpected inPort" }
- }
set vid [errexpect-arrayget vi vesselId]
upvar #0 notes($vid) note
set realname [errexpect-arrayget vi vesselName]