/* get_text.c: coded by Truilkan This object is intended to be inherited by objects which wish to query for multi-line input. See get_text.README for an example of how to use it. */ private static string gtext; private static string gfunc; string query_text() { return gtext; } void set_gfunc(string t) { gfunc = t; } void more_text(string str) { if (str == "**") { call_other(this_object(),gfunc,gtext); return; } gtext += str; gtext += "\n"; write("]"); input_to("more_text"); } int get_text(string str) { if (str) { call_other(this_object(),gfunc,str + "\n"); return 1; } gtext = ""; write("Finish message with '**'\n"); write("]"); input_to("more_text"); return 1; }