a line (#2368)(an instance of generic room made by flat)     Everything as it appears first. Mechanical meaning in the confines of a cold, dark melodrama, where there is no implication in anything said, or seen. You see flat here. VERB SOURCE CODE: announce*_all_but: pass(@args); c = callers(); for caller in (c) if (caller[2] == "say") return this:pare(args[3]); elseif (caller[2] == "eval_cmd_string") return this:pare(args[1]); endif endfor . pare: line = $string_utils:strip_chars(tostr(@args), "\":;'?.+=)(*&^%$#@!"); words = $string_utils:words(line); for word in (words) if (!(word in this.words)) return ""; endif endfor return this:parse(words); . parse: words = args[1]; position = 1; output = {}; for word in (words) output = {@output, this:p_o_s(word)}; endfor return output; tree = this:s(output); . addword: args = $string_utils:words(argstr); word = args[1]; if (!(word in this.words)) this.words = {@this.words, word}; endif for speech in (args[2..length(args)]) if (speech in this.p_o_s) if (word in this.(tostr(speech, "_list"))) player:tell("'", word, "' is already listed as a ", speech, "."); else this.(tostr(speech, "_list")) = {@this.(tostr(speech, "_list")), word}; player:tell(speech, "_list updated with '", word, ".'"); endif endif endfor . noun verb prep art rp name to_be adj p_o_s ger: word = args[1]; if (verb == "p_o_s") output = {}; for part in (this.p_o_s) if (this:(part)(word)) output = {@output, part}; endif endfor return output; endif prop = tostr(verb, "_list"); if (word in this.(prop)) return 1; endif return 0; . s: . PROPERTY DATA:       words       art_list       name_list       noun_list       prep_list       adj_list       rp_list       to_be       word_output       symbol_output       p_o_s       verb_list       pp_search       to_be_list       ger_list |