if {[info exists ocean]} { lappend cmd --ocean $ocean }
if {[info exists pirate]} { lappend cmd --pirate $pirate }
manyset [split [eval exec $cmd] " "] ocean pirate
+ if {![llength $ocean] || ![llength $pirate]} {
+ error "$ocean $pirate ?"
+ }
}
lappend scraper $ocean
}
dhow cm dh Dhow
longship dm ls Longship
baghlah em bg Baghlah
+ junk eo jk Junk
merchbrig fm mb {Merchant Brig}
warbrig gm wb {War Brig}
xebec hm xe Xebec
switch -exact $subclass {
{} { report-set subclass {Ordinary} }
- F { report-set subclass {"Frost class"} }
+ E { report-set subclass {Emerald class} }
+ F { report-set subclass {Frost class} }
+ R { report-set subclass {Rogue class} }
+ V { report-set subclass {Verdant class} }
+ I { report-set subclass {Inferno class} }
default { report-set subclass "Subclass \"$subclass\"" }
}
set subclass [errexpect-arrayget vi vesselSubclass]
switch -exact $subclass {
null { lappend codel {} }
+ celtic { lappend codel E }
icy { lappend codel F }
+ rogue { lappend codel R }
+ verdant { lappend codel V }
+ inferno { lappend codel I }
default { lappend codel ($subclass) }
}