/* -*- LPC -*- */ /* * $Locker: $ * $Id: wommon.c,v 1.1 1998/01/06 04:27:40 ceres Exp $ * $Log: wommon.c,v $ * Revision 1.1 1998/01/06 04:27:40 ceres * Initial revision * */ /* * The standard language unit. */ string long() { return "International womens day language.\n"; } string filter_string(string str) { return replace(" "+str, ({ " he ", " they ", " He ", " They ", " HE ", " THEY ", " his ", " theirs ", " His ", " Theirs ", " HIs ", " THEIrs ", " HIS ", " THEIRS ", " him ", " them ", " Him ", " Them ", " HIm ", " THem ", " HIM ", " THEM ", "man", "person", "Man", "Person", "MAn", "PERson", "MAN", "PERSON", }))[1..10000]; } /* filter_string() */ mixed garble_tell(string start, string mess) { return ({ start, filter_string(mess) }); } /* garble_tell() */ mixed garble_shout(string start, string mess) { return ({ start, filter_string(mess) }); } /* garble_shout() */ mixed garble_say(string start, string mess) { return ({ start, filter_string(mess) }); } /* garble_say() */ mixed garble_text(string str, object ob) { return filter_string(str); } /* garble_text() */