@verb #8500:"been tell_www_body" none none none rxdo #6397
@program #8500:"been tell_www_body" none none none
while (#-1 in this.been)
  suspend(0)
  this.been = listdelete(this.been, #-1 in this.been)
endwhile
if (verb == "tell_www_body")
  player:tell("<h2>", this.name, " Usage</h2><br>")
endif
been = tofloat(length(this.been))
been = been * 100.0
been = been / tofloat(length(players()))
if (verb == "tell_www_body")
  player:tell("<h3>The Following People have visited ", this.name, ":</h3> ", $su:name_list(this.been), ".")
else
  player:tell("The Following People Have Been Here:")
  isuck = $su:name_list(this.been)
  suspend(0)
  player:tell(isuck)
endif
suspend(0)
if (verb == "been")
  player:tell(been, "% of the MOO has been here.")
  player:tell(length(this.been), " out of ", length(players()), " have been here.")
  $command_utils:suspend_if_needed()
  player:tell("A total of ", $time_utils:english_time(this.totaltime), " has been spent here.")
else
  player:tell("<h2>", been, "% of the MOO has visited.<br>")
  player:tell(length(this.been), " out of ", length(players()), " have been here.<br>")
  suspend(0)
  player:tell("A total of ", $time_utils:english_time(this.totaltime), " has been spent here.<br></h2>")
endif
"Last modified by James (#6397) on Tue Jun 23 20:42:55 1998 EDT."
.