@verb #53:"tell_www_body" this none this rxdo #60
@program #53:"tell_www_body" this none this
player:isa($webber) && caller == this || raise(E_PERM)
if ($www:parse_POST("child") && $www:parse_POST("parent"))
  "Do a recreate."
  this:www_recreate()
elseif ($www:parse_GET("recycle"))
  "Do a recycle."
  this:www_recycle()
  return
endif
"Print the description."
if ((d = this:www_description()) == {""})
  $msg:mtell("no_desc")
else
  player:tell(d)
endif
"Print the recycle and recreate form for builders."
if (player.user != $no_one && player.user:isa($builder))
  player:tell("<H3>Recycle an object.</H3><FORM ACTION=\"/recycler\" METHOD=\"get\">Recycle object number <INPUT TYPE=\"input\" NAME=\"recycle\" SIZE=6 VALUE=\"#\">. <INPUT TYPE=\"Submit\" VALUE=\"Recycle!\"></FORM><HR>")
  player:tell("<H3>Recreate an object.</H3><FORM ACTION=\"/recycler\" METHOD=\"post\">Recreate object number <INPUT TYPE=\"input\" NAME=\"child\" SIZE=6 VALUE=\"#\"> as a <INPUT TYPE=\"input\" NAME=\"parent\" VALUE=\"$thing\">. <INPUT TYPE=\"Submit\" VALUE=\"Create!\"></FORM><HR>")
endif
"Print the grid."
player:tell({"<PRE>", ". - object in use", "* - garbage object", "", @this:grid(), "</PRE>"})
"Last modified by Dax (#789) on Fri Jul 31 12:58:05 1998 EDT."
.