@verb #802:"tell_www_tail" this none this rxdo #789
@program #802:"tell_www_tail" this none this
"Supress the tail unless this is the opening screen."
"Kill the current task and let the browser hang if we are in a 'live' mode."
{?data = ""} = args
if (!data)
  "This must be the login screen"
  player:tell("<HR>Global T.H.I.N.K. also maintains conference rooms for <A HREF=\"/population\">Population</A> and <A HREF=\"/hunger\">Hunger</A>.")
  player:tell("<P>These conference rooms are hosted by <A HREF=\"/\"><I>MOO Canada, eh?</I></A>  Any technical problems should be refered to <A HREF=\"mailto:moo@moo.ca\">moo@moo.ca</A>")
elseif (data[3] in {"BH", "NH"})
  "This must be either 'No-frame Hang' mode, or 'Buffer Hang' mode."
  if (caller != this)
    "Are you trying to get a wizard to kill the task?"
    raise(E_PERM)
  endif
  this.users[data[4]][4] = setadd(this.users[data[4]][4], player)
  kill_task(task_id())
endif
"Last modified by Slacker (#55) on Mon Jun 21 05:47:14 1999 MDT."
.