on 1!:PART:#: { writeini nicks.log entradas $site $nick | rnickbuf }
on 1!:QUIT: { writeini nicks.log entradas $site $nick | rnickbuf }
on 1:KICK:#: { writeini nicks.log entradas $remove($address($knick,2),*!*@) $knick | rnickbuf }
alias RNICKBUF if ($lof(nicks.log) > 40000) { write -c nicks.log | echo 12 -se < clearing register entries > }
on ^1!:JOIN:#: { 
  if (%avon == on) { r1nick $site $nick }
  echo $colour(join) $chan $timestamp  $nick ( $+ $strip($address) $+ ) has joined # $result | halt
}

alias r1nick {
  if $ipef2($$1) == falsa return
  set %anic $readini nicks.log entradas $$1 
  if ( %anic != $null ) && ( $$2 != %anic ) {
    if %anic !isin %tclon { 
      set %texto 10[12 has entered before as4 %anic 10] | unset %anic | return %texto     
    }
  }
  unset %anic
}

menu menubar,channel,nicklist {
  Aka Script on/off
  .On:/set %avon on | echo -a 13,15 ••• Aka Script now set to ON •••
  .Off:/set %avon off | echo -a 13,15 ••• Aka Script now set to OFF •••
  -
}