Stuff

alias checkn {
  if ($1 ison %chan) {
    var %i = $nick(%chan,$1)
    var %c = $remove($nick(%chan,$1).pnick,$1))
    return $1 is on $($+(7,%chan,)) $+ $chr(44) they are using modes $($+($chr(40),7,%c,,$chr(41))) and they are currently number7 %i on the nicklist.
  }
  return $1 is not on $($+($chan,.))
}
on *:text:!checkn *:#: {
  if (!$2) || ($len($2) > 30) {
    .timer 1 1 msg $chan 3Please provide a valid nick (eg. !checkn SynBin)
    halt
  }
  set %chan $chan
  msg $chan $checkn($2)
  unset %chan
}