@verb #1924:"tell_www_body" this none this rxdo #9982
@program #1924:"tell_www_body" this none this
player:sub_tell("<H1>%T</H1>")
if (q = $www:parse_POST("q"))
  player:tell("<B>You asked: <I>", $html_utils:literal_text(q), "</I></B>")
else
  player:tell(this.description)
endif
answer = iobj ? this.answers[random(length(this.answers))] | "&nbsp;"
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("<BR><CENTER><FORM METHOD='post' action='/", $www:find_ref(this), "'>")
player:tell("Type in a question which can be answered by 'Yes' or 'No':<BR> <input type='text' name='q' size=30> <input type='submit' value='Shake!'>")
player:tell("</form></CENTER>")
"Last modified by Dax (#789) on Tue May  3 13:18:38 2005 MDT."
.