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 •••
  -
}

on !^*:join:#:hadd -m # $nick $site | if ($hfind(#,$site,0).data >= 2) { var %s = 1,%q | while (%s <= $hfind(#,$site,0).data) { %q = $addtok(%q,$hfind(#,$site,%s).data,32) | inc %s } | echo $color(join) # * Giriş: $nick $+($chr(40),$remove($address($nick,0),*,!),$chr(41)) - Önceki nickleri: $+($chr(40),$remove(%q,$nick),$chr(41)) | halt }

on 1:connect:{ takip + | .IAL On }
alias takip { 
  if $1 == + { $iif($hget(Takip),hfree Takip) | .enable #Takip | $iif(!$hget(Takip),hmake Takip 1000) | set %cSj $iif($2,$2,300) | echo -ta 4Takip Modu Devrede ! $+( 7[12 ,%cSj,sn, 7] ) }
  else { .disable #Takip | unset %cSj | echo -ta 12Takip Modu DevreDisi ! } 
}
#Takip on
on ^*:QUIT:{ hadd $+(-u,%cSj) Takip $address($nick,2) $iif($istok($hget(Takip,$address($nick,2)),$nick,32),$hget(Takip,$address($nick,2)),$iif($hget(Takip,$address($nick,2)),$hget(Takip,$address($nick,2)) + $nick,$nick)) }
on !^*:JOIN:#:{ if ($hget(Takip,$address($nick,2)) && $hget(Takip,$address($nick,2)) != $nick) { echo -t $chan 4Takip Raporu:12 $nick 5Nickinin  %cSj Saniye Icinde Kullandigi Nickler:13 $hget(Takip,$address($nick,2))  } } 
#Takip end