Something

on *:JOIN:#:whois $nick $chan
alias whois {
  if ($1 == Anci3nt_pk3rs) halt
  set %checking.p %checking.p $1
  set %checking.c %checking.c $2
  !whois $1

}

raw 319:*:{

  var %a = $findtok(%checking.p,$2,32)

  if (%a >= 1) {

    msg $gettok(%checking.c,%a,32) $gettok(%checking.p,%a,32) is on $3-

    set %checking.c $deltok(%checking.c,%a,32)

    set %checking.p $deltok(%checking.p,%a,32)

  }

}