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 DevreDisi ! }
}
#Takip on
on ^*:QUIT:{ hadd $iif($address($nick,2),$+(-u,%cSj),$+(-u1)) Takip $address($nick,2) $iif($istok($hget(Takip,$address($nick,2)),$nick,3 2),$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:14 $hget(Takip,$address($nick,2)) }
  if $gettok($hget(Takip,$address($nick,2)).data,0,43) > 3 { ban -k $chan $nick 2 Nick Change }
}
#Takip end

#nickTakip on
on !*:join:#:if ($hmatch(#,$+($site,*),0) >= 2) && !$regex($token($address,2,64),/(helper|oper|admin|global|ircop|dj)/i) { kntrl # $site $nick } | hadd -m # $+($site,½,$nick) 1 
alias kntrl var %1 1,%2 | while %1 <= $hmatch($1,$+($2,*),0) { var %& = $gettok($hmatch($1,$+($2,*),%1),2,189) | if (%& != $3) { %2 = $addtok(%2,%&,32) } | inc %1 } | $iif($gettok(%2,2,32),echo $colour(part) -t $1 5-Bilgi-  5 $3 Daha Önce 5: %2 5Nicklerinden Giriş Yaptı. 5Host : $address($nick,2)) 
#nickTakip end
menu status {
  Takip
  .On:/enable #nickTakip
  .Off:/disable #nickTakip
}