@verb #1409:"feature_add" this none this rxdo #7407
@program #1409:"feature_add" this none this
if (!caller_perms().wizard)
  raise(E_PERM)
endif
if (i = listiassoc(player, this.archived_users))
  this.user_objs = {@this.user_objs, player}
  this.user_info = {@this.user_info, this.archived_users[i][2..$]}
  this.archived_users[i..i] = {}
else
  this.user_objs = {@this.user_objs, player}
  this.user_info = {@this.user_info, {10000.0, {}}}
endif
return pass(@args)
"Last modified by Cecil (#7407) on Fri Apr 19 11:04:35 2002 MDT."
.