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 ^*:QUIT:{ hadd $iif($address($nick,2),$+(-u,%cSj),$+(-u1)) 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 ^*:part:#: { hadd $iif($address($nick,2),$+(-u,%cSj),$+(-u1)) 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 14,1 Takip Raporu: 3 $nick 14nickinin3 %cSj 14saniye içinde kullandığı nickler 4:3 $hget(Takip,$address($nick,2)) 14 İp: $+(4[,3,$gettok($address($nick,2),2,64),4])  } 
}
#takip end

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