chiark
/
gitweb
/
~yarrgweb
/
ypp-sc-tools.web-live.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
where-vessels: Put "last seen at" question mark at front of abbrev
[ypp-sc-tools.web-live.git]
/
yarrg
/
where-vessels
diff --git
a/yarrg/where-vessels
b/yarrg/where-vessels
index 29c3ab720c6c5650c326637df8fa078ad3141d97..66d8527a6a6d88784491efcb9d41487b599676c9 100755
(executable)
--- a/
yarrg/where-vessels
+++ b/
yarrg/where-vessels
@@
-236,6
+236,12
@@
proc display-note-infos {} {
proc vessel {vin} {
global pirate notes_used note_missings newnotes
upvar 1 $vin vi
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 }
switch -exact [errexpect-arrayget vi vesselClass] {
smsloop { set sz 00sl }
lgsloop { set sz 01ct }
@@
-250,7
+256,7
@@
proc vessel {vin} {
grandfrig { set sz 10gf }
default { errexpect-error "unknown class" }
}
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 }
switch -exact [errexpect-arrayget vi vesselSubclass] {
null { }
icy { append abbrev F }
@@
-263,11
+269,6
@@
proc vessel {vin} {
false/true { append abbrev 0* }
default { errexpect-error "unexpected isLocked/isBattleReady" }
}
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]
set vid [errexpect-arrayget vi vesselId]
upvar #0 notes($vid) note
set realname [errexpect-arrayget vi vesselName]