miRC Nick Takip

menu channel,status,menubar,query {
  -
  $iif(O isin $usermode,• Oper)
  .Nick Takip
  ..Açık:.enable #ncktkp | .echo -at 0,7 1 Nick Takip Açıldi…  %logo
  ..Kapalı:.disable #ncktkp | .echo -at 0,7 1 Nick Takip Kapatildi.. %logo
  ..Durum < $replace($group(#ncktkp).status, disable, Kapali, enable, Açik) >:.echo -at 0,7 1 Nick Takip Durum 5 $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 $timestamp 0,4Nick Takip: 4Takip Edilen:  %_nick 4IP : %_ip 7ile giriş yaptı. $network
    }
  }
}
alias takipnick {
  if $regex($1,/^ekle$/Si) {
    if !$regex($2,/./i) { echo -at :Lütfen nick belirtiniz. ÖRN; 4/takipnick ekle 2<Nick> | return }
    elseif $hget(Takipnick,$strip($2)) { echo -at $+(,$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 -at $+(,$strip($2),) Nick takip listesine eklendi.
  }
  elseif $regex($1,/^s[ıiİ]l$/Si) {
    if !$regex($2,/./i) { echo -at Lütfen nick belirtiniz. ÖRN; 4/takipnick sil 2<Nick> | return }
    elseif !$hget(Takipnick,$strip($2)) { echo -at $+(,$strip($2),) Nick takip listesinde ekli değil. | return }
    .hdel -m Takipnick $strip($2)
    .hsave -o Takipnick takip.nick
    echo -at  $+(,$strip($2),) Nick takip listesinden silindi.
  }
  elseif $regex($1,/^l[ıiİ]st$/Si) {
    if ($hget(Takipnick,0).data == 0) { echo -at Nick Takip listesinde kayıt bulunmamaktadır. | return }
    echo -at 12___[2Nick Takip14 Listesi..12]___
    var %i = 1 | while (%i <= $hget(Takipnick,0).data) {
      echo -at $+(%i,-4,$chr(41),) $hget(Takipnick,%i).item
      inc %i
    }
    echo -at 12___[2Nick Takip14 Listesi Sonu..12]___
    ;echo -at Nick Takip Listesi Sonu
  }
}
#ncktkp End
on *:start: {
  hmake Takipnick
  $iif($isfile(takip.nick),hload Takipnick takip.nick)
  ;echo -at Takip Nick Listesi Yüklendi.
}
;on $^*:hotlink:/./S:@Nicktakip: return $true
;on *:hotlink:*:@Nicktakip: gline $1 :1,4Takip Listemdesin.