on *:TEXT:.promote*:*: {
  if (!$2) { return }
  if ($chan) { var %target = $chan }
  else { var %target = $nick }
  var %u = $getid($2)
  var %ulvl = $userlvl2($nick)
  if ( %ulvl >= 50 ) {
    var %plvl = $userlvl(%u)
    var %orank = $level.str(%plvl)
    var %nrank = $level.str($nextlevel(%plvl))
    if ( $maxvouch(%ulvl,%nrank) > $voucher($nick,%nrank) ) {
      if ( $user(%u).promoteby == $getid($nick) || $user(%u).promoteby == x ) {
        if ( %orank != user ) {
          var %olist = $voucher($nick,$+(%orank,list))
          var %nlist = $voucher($nick,$+(%nrank,list))
          hadd vouchdata $+(%orank,.,$getid($nick)) $remtok(%olist,%u,1,46)
          hadd vouchdata $+(%nrank,.,$getid($nick)) $addtok(%nlist,%u,46)
          hadd vouchdata $+(info.,%u) $puttok($user(%u).vouchinfo,$getid($nick),2,46)
          hadd userdata $+(level.,%u) $nextlevel(%plvl)
        }
        else {
          var %nlist = $voucher($nick,$+(%nrank,list))
          echo -ag %nrank %nlist
          hadd vouchdata $+(%nrank,.,$getid($nick)) $addtok(%nlist,%u,46)
          hadd vouchdata $+(info.,%u) $puttok($user(%u).vouchinfo,$getid($nick),2,46)
          hadd userdata $+(level.,%u) $nextlevel(%plvl)
        }
        describe %target User $getname(%u) promoted from $enclose(%orank) to $enclose(%nrank)
      }
      else { notice $nick User was first promoted by another staff member! Only (s)he can promote the user further! }
    }
    else { notice $nick You can't promote (more) %orank $+ s to %nrank $+ s! }
  }
}