@verb #2348:"removeplayer rp" any on top of/on/onto/upon this rdo #9452
@program #2348:"removeplayer rp" any on top of/on/onto/upon this
if (!(player in this.admins))
  raise(E_PERM)
else
  objdude = this:match_player_obj(args[1])
  if (objdude != 0)
    sure = $command_utils:yes_or_no("Are you sure you wish to delete " + objdude:title() + "?")
    if (sure)
      dudedata = this:get_player(objdude)
      this.player_index = setremove(this.player_index, objdude)
      this.player_database = setremove(this.player_database, dudedata)
      player:tell(objdude:title() + " has been removed from the database.")
    else
      player:tell("Aborted.")
    endif
  endif
endif
"Last modified by Crono (#9452) on Sat Apr 13 01:11:05 2002 MDT."
.