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
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\"" }
}
icy { lappend codel F }
rogue { lappend codel R }
verdant { lappend codel V }
+ inferno { lappend codel I }
default { lappend codel ($subclass) }
}