Real Name Identifier

;$realname identifier by Ford_Lawnmower
;Usage $realname(nickname)
;Example /mode #mychan +b ~r:* $+ $realname(fred) $+ *
alias -l ialupdateCheck {
  inc -z $+(%,ialupdateCheck,$network) $iif($calc($nick($1,0) / 2),$v1,5)
  ;If your ial is already being updated on join, comment .who $1 out.
  ;If you are using /names to update ial you will still need this line.
  .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=,$replace($9-,$chr(32),_)),32)
}
raw 315:*: if ($($+(%,ialupdateCheck,$network),2)) haltdef
On me:join:#: .timer 1 1 ialupdateCheck #
on *:join:#: .timer 1 1 ialupdateCheck $nick
alias ialmark_ {
  var %item $2
  if ($isid) {
    if ($regex($ial($1).mark,/ $+ %item $+ =([^\x01]*)/i)) return $regml(1)
  }
  else {
    var %value $3-
    if (!$regex($ial($1).mark,/ $+ %item $+ =[^\x01]*/i)) {
      .ialmark $1 $addtok($ial($1).mark,$+(%item,=,%value),1)
    }
    else {
      .ialmark $1 $regsubex($ial($1).mark,/( $+ %item $+ =[^\x01]*)/i,$+(%item,=,%value))
    }
  }
}