@ who.kill.cnt = 0

alias whokill if ([$2]) {
  ^on ^who "*" {
    if ([$1]!=[$N]) {
      ^assign who.kill $1 $who.kill
    }
  }
  if ([$0]!=[*]) {
    if ([$1]!=[*]) {
      //who -name $0 -host $1
    }{
      //who -name $0
    }
  }{
    if ([$1]!=[*]) {
      //who -host $1
    }
  }
  @ who.kill.why = [$2-]
  //wait -cmd ^on ^who -"*"
  //wait -cmd if ([$who.kill]!=[]) {
    while ([$word($who.kill.cnt $who.kill)]!=[]) {
      //kill $word($who.kill.cnt $who.kill) $who.kill.why \($who.kill.cnt\)
      @ who.kill.cnt = who.kill.cnt + 1
    }
    @ who.kill.cnt = 0
    ^assign -who.kill
  }
}

echo *** Usage is /whokill userid host Reason