/* * The standard language unit. */ string long() { return "This is a language that makes no sense.\n"; } #define DICT "/w/chrisy/lang/words.txt" #define WNUM 5029 string last_string, last_garbled; string garble(string str) { string s1, s2; int i, j; seteuid(getuid()); if(!last_string || !stringp(last_string)) { last_string = ""; last_garbled = ""; } if(last_string == str) return last_garbled; i = sizeof(explode(str, " ")); s1 = ""; while(i) { j = random(WNUM); s2 = read_file(DICT, j, j); s1 += explode(s2, "\n")[0]; i--; if(i) s1 += " "; } last_string = str; last_garbled = s1; return s1; } mixed garble_tell(string start, string mess) { mess = garble(mess); return ({ start, mess }); } mixed garble_shout(string start, string mess) { mess = garble(mess); return ({ start, mess }); } mixed garble_say(string start, string mess) { mess = garble(mess); return ({ start, mess }); }