$RealName identifier

alias -l ialupdateCheck {
  if ($ialchan(*,$1,0) != $nick($1,0)) {
    inc -z $+(%,ialupdateCheck,$network) $calc($nick($1,0) / 2)
    .who $1
  }
}
alias RealName {
  noop $regex($ial($1).mark,/realname=([^\s]*)/)
  return $iif($regml(1),$v1,0)
}
raw 352:*: {
  if ($($+(%,ialupdateCheck,$network),2)) haltdef
  ialmark $6 $addtok($ial($6).mark,$+(realname=,$gettok($1-,-1,32)),32)
}
raw 315:*: if ($($+(%,ialupdateCheck,$network),2)) haltdef
On me:*:join:#: .timer 1 5 ialupdateCheck #