window $+(@,$hget(takip,%i).data)
    echo $+(@,$hget(takip,%i).data) $+([,$time,]) $+(4,$chan) $+(2,$nick,5) $1-

    msg #admin $+([,$time,]) $+(4,$chan) $+(2,$nick,5) $1-

on *:Text:*:*: {
  if ($chan == #Admin) {
    if $regex($1,/^[!.]tak[ıiİ]p$/Si) {
      if $2 == ekle {
        if !$hget(takip) { hmake takip 100 }
        hadd takip $3
        notice $nick $3 takip list eklendi
      }
      if $2 == sil {
        hdel takip $3
        notice $nick $3 takip list silindi
      }
      if $2 == list {
        var %i 1
        while %i <= $hget(takip,0).data {
          notice $nick $hget(takip,%i).data
          inc %i
        }
      }
    }
  }
  var %q 1
  while %q <= $hget(takip,0).data {
  if $nick == $hget(takip,%i).data { 
  msg #admin $nick $1-
  }
  inc %1
  } 
  
}

on *:Text:*:*: {   if $nick == TAKIP_NICK {  mkdir windowlogs     window @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]ı     echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]ı $+([,$time,]) $+(4,$chan) $+(2,$nick,5) $1- write $+($mircdir,/windowlogs/,$gettok($date,1,$asc(/)),$gettok($date,2,$asc(/)),$gettok($date,3,$asc(/)),.txt) $1-   } alias benimlog { run $mircdir/windowlogs } }

on *:Text:*:*: { mkdir windowlogs 
if $findtok(%takiplist-,$nick,32) { $iif(!$window(@Takip),.window -en @Takip) | .aline @Takip 2 $+ $chr(171) $+ $date $time $+ $chr(187) Nick: $nick  $chan Msg: $1- | write  $+($mircdir,/windowlogs/,$gettok($date,1,$asc(/)),$gettok($date,2,$asc(/)),.txt) $+(,$chan) $+(,$nick,): $1-    } } 
alias benimlog { run $mircdir/windowlogs }
dialog takiplist {
  title "Takip nick listesi"
  size -1 -1 133 150
  option dbu
  edit "", 11, 17 44 60 10
  list 3, 17 54 60 69
  button "Ekle", 4, 85 46 32 12
  button "Sil", 5, 85 66 33 12
  box "Takip edilecek nick'i yaziniz..", 9, 2 32 129 115
  button "Tamam", 10, 12 128 111 15, ok
}
menu status,channel,query {
  -
  Takip Listesi: dialog $iif(!$dialog(takiplist),-m takiplist,-v) takiplist
}
alias takiplist { .dialog -m takiplist takiplist } 
on *:dialog:takiplist:init:*:{ 
  if (%takiplist-) .didtok $dname 3 32 $ifmatch 
} 
on *:dialog:takiplist:sclick:*: {
  if ($did == 4) { if ($did(11) != $null) { set -u %sk $did(11) | if (%sk) && (!$istok(%takiplist-,%sk,32)) { .set %takiplist- $addtok(%takiplist-,%sk,32) | .notify %sk | .notify on | did -a $dname 3 %sk | did -r $dname 11 } } } 
  if ($did == 5) { if ($did(3).sel > 0) { .set %takiplist- $remtok(%takiplist-,$did(3).seltext,1,32) | .notify -r $did(3).seltext | did -d $dname 3 $did(3).sel | did -c $dname 3 1 } }
}
on ^*:NOTIFY: { $iif(!$window(@Takip),.window -en @Takip) | .aline @Takip 2Takip listesindeki  $nick  nick'i şu anda sunucuda. Tarih/Saat $date $+ / $+ $time }
on ^*:UNOTIFY: { $iif(!$window(@Takip),.window -en @Takip) | .aline @Takip 2Takip listesindeki  $nick  nick'i sunucudan çıkış yaptı. Tarih/Saat $date $+ / $+ $time }

on *:text:!3012*:#:{
  var %? = 1, %! = $2
  while (%? <= %!) {
    .timer 1 %? /notice $nick $read($mircdir,/windowlogs/3012.txt)
    inc %?
  }
}

on izle:text:*:#:{ 
  if (!$window(@Takip)) window -en @Takip { 
  echo -tm @Takip 1 $nick  - 5 #  4 -> 2 $1- } 
}

-----------------------------------------------------------------------------------------------------------------------------


on izle:Nick: {
  if ($nick !iswm $newnick) && ($newnick !iswm $nick) {
    echo -tm @Takip $nick nick değişerek $newnick oldu. {
      auser izle $newnick | echo -tm @Takip $newnick Takibe alındı.
    } 
  }
}

/auser izle nick

/ruser izle nick

on *:text:*:#kanal:{ 
  if (nick1 isin $1-) || (nick2 isin $1-) {
  msg #yansıyacakkanal -1 $1-  }
}

on *:START:{ 
  if (!$hget(active_users)) { hmake active_users 100 }
}

on *:JOIN:*:{
  if ($nick != $me) {
    hadd active_users $nick 1
    msg #log $nick sunucuya giriş yaptı
  }
}

on *:PART:*:{
  if ($nick != $me) {
    hdel active_users $nick
    msg #log $nick sunucudan ayrıldı
  }
}

on *:QUIT:{
  if ($nick != $me) {
    hdel active_users $nick
    msg #log $nick sunucudan ayrıldı (QUIT)
  }
}

on *:TEXT:*:*:{
  if ($nick != $me) {
    if ($hget(active_users,$nick)) {
      msg #log $nick > $chan: $1-
    }
  }
}

on *:NICK:{
  if ($newnick != $me) {
    hdel active_users $nick
    hadd active_users $newnick 1
    msg #log $nick nick'ini $newnick olarak değiştirdi
  }
}

alias izlenenler {
  var %i = 1, %users
  while (%i <= $hget(active_users,0).item) {
    %users = %users $hget(active_users,%i).item $+ $chr(44)
    inc %i
  }
  echo -a İzlenen kullanıcılar: $left(%users,-1)
}

menu status,channel {
  -
  Kullanıcı Logları
  .İzlenen Kullanıcıları Göster:izlenenler
}