From dfef06e2465c8a1c9f00a8a9f4d3687310cc937d Mon Sep 17 00:00:00 2001 From: Ian Jackson Date: Sun, 23 May 2010 18:39:50 +0100 Subject: [PATCH] More ship classes --- yarrg/where-vessels | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/yarrg/where-vessels b/yarrg/where-vessels index 9ccb8d1..b93db19 100755 --- a/yarrg/where-vessels +++ b/yarrg/where-vessels @@ -379,7 +379,10 @@ proc show-report-decode {code} { 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} } default { report-set subclass "Subclass \"$subclass\"" } } @@ -582,8 +585,10 @@ proc vessel {vin} { set subclass [errexpect-arrayget vi vesselSubclass] switch -exact $subclass { null { lappend codel {} } - icy { lappend codel F } celtic { lappend codel E } + icy { lappend codel F } + rogue { lappend codel R } + verdant { lappend codel V } default { lappend codel ($subclass) } } -- 2.30.2