alias kick {
  var %chan = $iif($1 ischan,$v1,$iif($active ischan,$active,$null)),%tok = 2
  if (%chan == $null) || ($me !ison %chan) return

  var %nick = $iif($1 ischan,$2,$1)
  if (%nick ison %chan) {
    var %reason = $iif($1 ischan,$3-,$2-)

    inc %Kicks
    !kick %chan %nick -=( $+ $iif(%reason,$v1,No reason specified.) $+ )=- -=( $+ %Kicks $+ )=-
  }
}