2f5
@verb #51:"_exitfunc" this none this rxdo #60
@program #51:"_exitfunc" this none this
{who_obj, dest} = args
original = `this.original[who_obj in this.active] ! ANY => #-1'
if (!(who = who_obj in this.active))
elseif (this:changed(who))
  if (msg = this:msg_no_littering())
    who_obj:tell(msg)
  endif
else
  "No need to kill it, but also no need to save it."
  "Yes there is!  How can someone edit something just after someone else has editted it?  -- manta"
  this:kill_session(who)
endif
if (dest != original)
  "Added by Quadir (#9780)@moo.ca to allow for better tracking of users in editors"
  `original:(tostr("editor", verb))(who_obj) ! ANY'
endif
pass(@args)
"Last modified by whiz (#3135) on Tue Apr 17 22:38:24 2001 MDT."
.

0