- global pirate notes_used
- upvar 1 $vin vi
- switch -exact $vi(vesselClass) {
- smsloop { set sz 00sl }
- lgsloop { set sz 01ct }
- dhow { set sz 02dh }
- longship { set sz 03ls }
- baghlah { set sz 04bg }
- merchbrig { set sz 05mb }
- warbrig { set sz 06wb }
- xebec { set sz 07xe }
- warfrig { set sz 08wf }
- merchgal { set sz 09mg }
- grandfrig { set sz 10gf }
- default { error "$vi(vesselClass) ?" }
- }
- set abbrev $sz
- switch -exact $vi(vesselSubclass) {
- null { }
- icy { append abbrev F }
- default { error "$vi(vesselSubclass) ?" }
- }
- switch -exact $vi(isLocked)/$vi(isBattleReady) {
- true/false { append abbrev 2- }
- false/false { append abbrev 1+ }
- false/true { append abbrev 0* }
- default { error "$vi(isLocked)/$vi(isBattleReady) ?" }
- }
- switch -exact $vi(inPort) {
- true { }
- false { append abbrev ? }
- default { error "$vi(inPort) ?" }
- }
- set nk $vi(vesselId).$vi(vesselName)
- upvar #0 notes($nk) note
- if {[info exists note]} {
- manyset $note owner xabbrev
- if {![string compare $owner $pirate]} {
- append abbrev =
- } else {
- append abbrev -
- }
- append abbrev $xabbrev
- set notes_used($nk) 1
+ global pirate notes_used
+ upvar 1 $vin vi
+ switch -exact [errexpect-arrayget vi vesselClass] {
+ smsloop { set sz 00sl }
+ lgsloop { set sz 01ct }
+ dhow { set sz 02dh }
+ longship { set sz 03ls }
+ baghlah { set sz 04bg }
+ merchbrig { set sz 05mb }
+ warbrig { set sz 06wb }
+ xebec { set sz 07xe }
+ warfrig { set sz 08wf }
+ merchgal { set sz 09mg }
+ grandfrig { set sz 10gf }
+ default { errexpect-error "unknown class" }
+ }
+ set abbrev $sz
+ switch -exact [errexpect-arrayget vi vesselSubclass] {
+ null { }
+ icy { append abbrev F }
+ default { errexpect-error "unknown subclass ?" }
+ }
+ switch -exact [errexpect-arrayget vi isLocked]/[ \
+ errexpect-arrayget vi isBattleReady] {
+ true/false { append abbrev 2- }
+ false/false { append abbrev 1+ }
+ 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 nk [errexpect-arrayget vi vesselId].[errexpect-arrayget vi vesselName]
+ upvar #0 notes($nk) note
+ if {[info exists note]} {
+ manyset $note owner xabbrev
+ if {![string compare $owner $pirate]} {
+ append abbrev =