Mine

on !*:join:#:{
  .hadd -m AKA $address $addtok($hget(AKA,$address),$nick,32)
  if $numtok($hget(AKA,$address),32) > 1 {
    echo 4 $chan $nick also known as $replace($remtok($hget(AKA,$address),$nick,1,32),$chr(32),$+($chr(44),$chr(32)))
    $iif($ulist($address),echo 12 $chan $v1)
  }
}
on !*:nick:{
  .hadd -m AKA $address $addtok($hget(AKA,$address),$newnick,32)
}
on *:exit:{
  .hsave -o AKA AKA.hsh
}
on *:disconnect:{
  .hsave -o AKA AKA.hsh
}
on *:start:{
  if !$hget(AKA) { .hmake AKA 100 }
  if $exists(AKA.hsh) { .hload AKA AKA.hsh }
}