on 1:connect:{ .IAL On | takip + 300 } 
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!.. $+([,%cSj,sn.,]) 
  } 
  else { .disable #Takip | unset %cSj | echo -ta 14Takip Modu DevreDışı !  
  } 
} 

#takip on

on *:snotice:*: { 
  if (*Client*exiting* iswm $1-) { var %ip $gettok($8,2,64),%nick = $gettok($8,1,33) | hadd $iif(%ip,$+(-u,%cSj),$+(-u1)) Takip %ip $iif($istok($hget(Takip,%ip),%nick,32),$hget(Takip,%ip),$iif($hget(Takip ,%ip),$hget(Takip,%ip) /!\ %nick,%nick)) }  
  if (*Client*connecting* iswm $1-) { 
    var %ip $remove($gettok($9,2,64),$chr(41)) 
    if ($hget(Takip,%ip) && $hget(Takip,%ip) != $8) {
      echo -t $chan 14,1 Takip Raporu: 3 $8 14nickinin3 %cSj 14saniye içinde kullandığı nickler 4:3 $hget(Takip,%ip) 14 İp: $+(4[,%ip,4]) 
    } 
  }
}

menu channel,query {
  Nick Takip
  .Aç:$iif($group(#takip) == on,echo -a 4Takip Modu Zaten Devrede.,takip + 300)
  .Kapat:$iif($group(#takip) == off,echo -a 14Takip Modu Zaten Devre Dışı,takip)
}