@verb #1924:"tell_www_body" this none this rxdo #9982 @program #1924:"tell_www_body" this none this player:sub_tell("

%T

") if (q = $www:parse_POST("q")) player:tell("You asked: ", $html_utils:literal_text(q), "") else player:tell(this.description) endif answer = iobj ? this.answers[random(length(this.answers))] | " " webpage = {} for x in ($file_utils:find_file_including_parents(this, "webpage")) "Substitute in the variables." x = strsub(x, "*MESSAGE*", answer) x = strsub(x, "*DELAY*", tostr(this.delay)) x = strsub(x, "*DOIT*", q ? "true" | "false") webpage = {@webpage, x} endfor player:tell(webpage) player:tell("
") player:tell("Type in a question which can be answered by 'Yes' or 'No':
") player:tell("
") "Last modified by Dax (#789) on Tue May 3 13:18:38 2005 MDT." .