/* * The grunting goblinoid language. */ string garbler(string mess); string long() { return "Consists of mostly grunting.\n"; } mixed garble_say(string start, string mess) { int i; string ret; mess = garbler(mess); ret = ""; for (i=0;i<strlen(mess);i++) if (mess[i] != ' ') ret += "*"; else ret += " "; return ({ start, mess }); } mixed garble_shout(string start, string mess) { int i; string ret; mess = garbler(mess); ret = ""; for (i=0;i<strlen(mess);i++) if (mess[i] != ' ') ret += "*"; else ret += " "; return ({ start, mess }); } string garbler(string mess) { mess = lower_case(mess); mess = implode(explode(mess, "k"), "kk"); mess = implode(explode(mess, "p"), "hr"); mess = implode(explode(mess, "g"), "ck"); mess = implode(explode(mess, "p"), ""); mess = implode(explode(mess, "t"), "fr"); mess = implode(explode(mess, "y"), "o"); mess = implode(explode(mess, "e"), "a"); mess = implode(explode(mess, "a"), "e"); mess = implode(explode(mess, "d"), "g"); mess = implode(explode(mess, "ick"), "aal"); mess = implode(explode(mess, "h"), "d"); mess = implode(explode(mess, "ave"), "ertt"); mess = implode(explode(mess, "I"), "Ick"); mess = implode(explode(mess, "s"), "tha"); mess = implode(explode(mess, "v"), "s"); mess = implode(explode(mess, "m"), ""); mess = implode(explode(mess, "v"), "f"); return capitalize(mess); }