@verb #8562:"promote_cmd demote_cmd" this none this rxdo #3887
@program #8562:"promote_cmd demote_cmd" this none this
newlevel = this:parse_level(iobjstr)
if ((victim = this:identify_victim(dobjstr, 1)) <= $nothing)
  return
elseif (newlevel < 0)
  return this:say(this.msg_invalid_level_say)
elseif (!this:has_access(player, "promote", victim) || newlevel >= this:level(player))
  return this:say(this.msg_access_denied_say)
elseif (!iobjstr)
  return this:say(this.msg_invalid_command_say)
endif
this:say(tostr(victim.name, " has been ", newlevel > this:level(victim) ? "promoted" | "demoted", " to level ", newlevel, "."))
pos = listiassoc(victim, this.officers)
if (!newlevel)
  this.officers = listdelete(this.officers, pos)
elseif (pos)
  this.officers[pos] = {victim, newlevel}
else
  this.officers = {@this.officers, {victim, newlevel}}
endif
"Last modified by Daryl (#3887) on Thu Jul 29 14:43:45 1999 MDT."
.