menu * {
  .-
  .• © Lamer Nick Takip !
  ..• Açık !:.enable #ncktkp | .echo -a 0,7 1 Lamer Nick Takip Açıldi…  %logo
  ..• Kapalı !:.disable #ncktkp | .echo -a 0,7 1 Lamer Nick Takip Kapatildi.. %logo
  ..•  ..Durum < $replace($group(#ncktkp).status, disable, Kapali, enable, Açik) >:.

  .-
}

#ncktkp on
on *:snotice:*:{
  if $regex($1-,/Client connecting (on port|at) (.+)\: (.+) \((.+)@(.+)\)/Si) {
    var  %_nick $regml(3), %_ip $regml(5)
    if $hget(Takipnick,%_nick) {
      window -e @NickTakip
      echo @NickTakip 0,4Nick Takip Uyarısı : 4Takip Edilen Nick :  %_nick 4IP : %_ip 7ile giriş yaptı.
    }
  }
}
alias takipnick {
  if $regex($1,/^ekle$/Si) {
    if !$regex($2,/./i) { echo -a :Lütfen nick belirtiniz. ÖRN; 4/takipnick ekle 2<Nick> | return }
    elseif $hget(Takipnick,$strip($2)) { echo -a $+(,$strip($2),) Nick takip listesinde ekli. | return }
    var %n = $left($md5($calc($ctime * $rand(1000,9999))),$r(10,25))
    .hadd -m Takipnick $strip($2) %n
    .hsave -o Takipnick takip.nick
    echo -a $+(,$strip($2),) Nick takip listesine eklendi.      
  }
  elseif $regex($1,/^s[ıiİ]l$/Si) {
    if !$regex($2,/./i) { echo -a Lütfen nick belirtiniz. ÖRN; 4/takipnick sil 2<Nick> | return }
    elseif !$hget(Takipnick,$strip($2)) { echo -a $+(,$strip($2),) Nick takip listesinde ekli değil. | return }
    .hdel -m Takipnick $strip($2)     
    .hsave -o Takipnick takip.nick
    echo -a  $+(,$strip($2),) Nick takip listesinden silindi.
  }
  elseif $regex($1,/^l[ıiİ]st$/Si) {
    if ($hget(Takipnick,0).data == 0) { echo -a Nick Takip listesinde kayıt bulunmamaktadır. | return }
    echo -a :Nick Takip Listesi
    echo -a :
    var %i = 1 | while (%i <= $hget(Takipnick,0).data) {
      echo -a $+(%i,-4,$chr(41),) $hget(Takipnick,%i).item
      inc %i
    }
    echo -a :
    echo -a :Nick Takip Listesi Sonu
  }
}
#ncktkp End
on *:start: {
  hmake Takipnick
  $iif($isfile(takip.nick),hload Takipnick takip.nick)
  echo -a Takip Nick Listesi Yüklendi.
}
on $^*:hotlink:/./S:@Nicktakip: return $true 
on *:hotlink:*:@Nicktakip: gline $1 :1,4Takip Listemdesin.

#ncktkp on
on *:snotice:*:{
  if $regex($1-,/has changed his/her nickname/Si) {
    if $hget(Takipnick,$11) {
      window -e @NickTakip
      echo @Nicktakip 4 $4 7nickini Takip Listesindeki Nick Olan 2 $11 7olarak değiştirdi..4 Ip Adresi : 2 $gettok($remove($5,$chr(41)),2,64)
    }
  }
}