/* * The Vikingish language of the Dwarves */ string garbler(string mess); string long() { return "The dwarven language.\n"; } mixed garble_say(string start, string mess) { mess = garbler(mess); return ({ start, mess }); } mixed garble_shout(string start, string mess) { mess = garbler(mess); return ({ start, mess }); } string garbler(string mess) { mess = lower_case(mess); mess = implode(explode(mess, "c"), "kr"); mess = implode(explode(mess, "l"), "d"); mess = implode(explode(mess, "b"), "kk"); mess = implode(explode(mess, "p"), ""); mess = implode(explode(mess, "t"), "it"); mess = implode(explode(mess, "i"), "y"); mess = implode(explode(mess, "e"), "a"); mess = implode(explode(mess, "a"), "e"); mess = implode(explode(mess, "d"), "r"); mess = implode(explode(mess, "ck"), "kk"); mess = implode(explode(mess, "h"), ""); mess = implode(explode(mess, "ave"), "ath"); mess = implode(explode(mess, "I"), "Jeg"); mess = implode(explode(mess, "s"), "kha"); mess = implode(explode(mess, "v"), "ou"); mess = implode(explode(mess, "n"), ""); mess = implode(explode(mess, "f"), "k"); return capitalize(mess); }