Çevrimiçi Takip Sistemi - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Lociz · 02 Mart 2014, 23:09

Geliştirilebilir bir online takip sistemi hazırladım.
Önerilerinizi, isteklerinizi yazarak bu sistemi geliştirebiliriz.

&top10, &sıfırla, &obilgi eklendi.
Süre çevirmelerinde yenilik yapıldı.
&bilgi komutunda yenilik yapıldı.
Bazı buglar çözüldü.

[00:25:06] <Lociz> &top10
[00:25:06] <LBot> 1. Lociz(47 dk 42 sn), 2. L10(27 dk 38 sn), 3. L2(27 dk 26 sn), 4. LBot(3 dk 18 sn), 5. L9(3 dk 16 sn), 6. L8(3 dk 11 sn), 7. L6(2 dk 57 sn), 8. L7(2 dk 55 sn)

&sıfırla kullanımı:

[00:25:42] <Lociz> &sıfırla
[00:25:42] <LBot> Lütfen kullanıcı adı giriniz.
[00:25:46] <Lociz> &bilgi Lociz
[00:25:46] <LBot> Kullanıcı Adı: Lociz
[00:25:46] <LBot> Ekleyen Operatör: Lociz
[00:25:46] <LBot> Eklenen Kanal: #admin
[00:25:46] <LBot> Eklenme Tarihi, Saati: 03/03/2014 - 23:41:33
[00:25:46] <LBot> Çevrimiçi Olduğu Süre: 48 dk 22 sn
[00:25:52] <Lociz> &sıfırla Lociz
[00:25:52] <LBot> Lociz kullanıcısının takip bilgileri sıfırlanmıştır.
[00:25:54] <Lociz> &bilgi Lociz
[00:25:54] <LBot> Kullanıcı Adı: Lociz
[00:25:54] <LBot> Ekleyen Operatör: Lociz
[00:25:54] <LBot> Eklenen Kanal: #admin
[00:25:54] <LBot> Eklenme Tarihi, Saati: 04/03/2014 - 00:25:52
[00:25:54] <LBot> Çevrimiçi Olduğu Süre: 0 sn

&obilgi (OPERATÖR LOGU) kullanımı:

[00:27:38] <Lociz> &sil Lociz
[00:27:38] <LBot> Lociz kullanıcısı takip listesinden çıkartılmıştır.
[00:27:42] <Lociz> &obilgi Lociz
[00:27:43] <LBot> 04/03/2014 - 00:27:38: Lociz adlı kullanıcıyı takip listesinden çıkardı.

&bilgi kullanımı:
&bilgi yazınca artık yazan kişinin bilgisi verilecek, başkasınınkini öğrenmek istiyorsa &bilgi KullanıcıAdı şeklinde kullanılmaya devam edilecek.

[00:29:48] <Lociz> &bilgi
[00:29:48] <LBot> Kullanıcı Adı: Lociz
[00:29:48] <LBot> Ekleyen Operatör: Lociz
[00:29:48] <LBot> Eklenen Kanal: #admin
[00:29:48] <LBot> Eklenme Tarihi, Saati: 04/03/2014 - 00:29:46
[00:29:48] <LBot> Çevrimiçi Olduğu Süre: 0 sn
[00:30:51] <Lociz> &bilgi Lociz
[00:30:51] <LBot> Kullanıcı Adı: Lociz
[00:30:51] <LBot> Ekleyen Operatör: Lociz
[00:30:51] <LBot> Eklenen Kanal: #admin
[00:30:51] <LBot> Eklenme Tarihi, Saati: 04/03/2014 - 00:29:46
[00:30:51] <LBot> Çevrimiçi Olduğu Süre: 1 dk 2 sn

Kod: Kodu kopyalamak için üzerine çift tıklayın!

on *:text:*:%opchan: {
  if ($1 == &ekle) {
    if (!$ini(operator.ini,$nick)) && ($nick != %master) { msg $chan 2Bu işlem için yetkiniz bulunmamaktadır. }
    if ($ini(operator.ini,$nick)) || ($nick == %master) {
      if (!$2) { msg $chan 2Lütfen kullanıcı adı giriniz. }
      if ($2) {
        if ($ini(follow.ini,$2)) { msg $chan 2 $2  kullanıcısı $readini(follow.ini,$2,addop) tarafından $readini(follow.ini,$2,adddate) tarihinde $readini(follow.ini,$2,addtime) saatinde takip listesine eklenmiş. }
        if (!$ini(follow.ini,$2)) { msg $chan 2 $2  kullanıcısı takip listesine eklendi. | followadd $2 $nick $date $time $chan }
      }
    }
  }
  if ($1 == &oekle) {
    if ($nick != %master) { msg $chan 2Bu işlem için yetkiniz bulunmamaktadır. }
    if ($nick == %master) {
      if (!$2) { msg $chan 2Lütfen kullanıcı adı giriniz. }
      if ($2) {
        if ($ini(operator.ini,$2)) { msg $chan 2 $2  zaten bir operatör.   }
        if (!$ini(operator.ini,$2)) { msg $chan 2 $2  kullanıcısı operatör olarak eklendi. | operatoradd $2 $nick $date $time $chan }
      }
    }
  }
  if ($1 == &osil) {
    if ($nick != %master) { msg $chan 2Bu işlem için yetkiniz bulunmamaktadır. }
    if ($nick == %master) {
      if (!$2) { msg $chan 2Lütfen kullanıcı adı giriniz. }
      if ($2) {
        if (!$ini(operator.ini,$2)) { msg $chan 2 $2  kullanıcısı operatör listesinde yok. }
        if ($ini(operator.ini,$2)) { msg $chan 2 $2  kullanıcısının operatör yetkisi kaldırıldı. | operatordel $2 $nick $date $time $chan }
      }
    }
  }
  if ($1 == &olist) {
    if ($nick != %master) { msg $chan 2Bu işlem için yetkiniz bulunmamaktadır. }
    if ($nick == %master) { operatorlist $chan $nick $date $time }
  }
  if ($1 == &top10) {
    if (!$ini(operator.ini,$nick)) && ($nick != %master) { msg $chan 2Bu işlem için yetkiniz bulunmamaktadır. }
    if ($ini(operator.ini,$nick)) || ($nick == %master) { topten $chan $nick $date $time }
  }
  if ($1 == &sil) {
    if (!$ini(operator.ini,$nick)) && ($nick != %master) { msg $chan 2Bu işlem için yetkiniz bulunmamaktadır. }
    if ($ini(operator.ini,$nick)) || ($nick == %master) {
      if (!$2) { msg $chan 2Lütfen kullanıcı adı giriniz. }
      if ($2) {
        if (!$ini(follow.ini,$2)) { msg $chan 2 $2  kullanıcısı takip listesinde zaten bulunmuyor. }
        if ($ini(follow.ini,$2)) { msg $chan 2 $2  kullanıcısı takip listesinden çıkartılmıştır. | followdel $2 $nick $date $time $chan }
      }
    }
  }
  if ($1 == &sıfırla) {
    if (!$ini(operator.ini,$nick)) && ($nick != %master) { msg $chan 2Bu işlem için yetkiniz bulunmamaktadır. }
    if ($ini(operator.ini,$nick)) || ($nick == %master) {
      if (!$2) { msg $chan 2Lütfen kullanıcı adı giriniz. }
      if ($2) {
        if (!$ini(follow.ini,$2)) { msg $chan 2 $2  kullanıcısı takip listesinde bulunmuyor. }
        if ($ini(follow.ini,$2)) { msg $chan 2 $2  kullanıcısının takip bilgileri sıfırlanmıştır. | followclean $2 $nick $date $time $chan }
      }
    }
  }
  if ($1 == &list) {
    if (!$ini(operator.ini,$nick)) && ($nick != %master) { msg $chan 2Bu işlem için yetkiniz bulunmamaktadır. }
    if ($ini(operator.ini,$nick)) || ($nick == %master) { followlist $chan $nick $date $time }
  }
  if ($1 == &obilgi) {
    if (!$ini(operator.ini,$nick)) && ($nick != %master) { msg $chan 2Bu işlem için yetkiniz bulunmamaktadır. }
    if ($ini(operator.ini,$nick)) || ($nick == %master) {
      if (!$2) { msg $chan 2Lütfen kullanıcı adı giriniz. }
      if ($2) {
        if ($ini(operator.ini,$2)) { loginfo $2 $chan $nick $date $time }
        if (!$ini(operator.ini,$2)) { msg $chan 2 $2  kullanıcısı operatör listesinde bulunmamaktadır. }
      }
    }
  }
  if ($1 == &bilgi) {
    if (!$ini(operator.ini,$nick)) && ($nick != %master) { msg $chan 2Bu işlem için yetkiniz bulunmamaktadır. }
    if ($ini(operator.ini,$nick)) || ($nick == %master) {
      if (!$2) { 
        if ($ini(follow.ini,$nick)) { followinfo $nick $chan $nick $date $time }
        if (!$ini(follow.ini,$nick)) { msg $chan 2 Siz takip listesinde bulunmuyorsunuz. }
      }
      if ($2) {
        if ($ini(follow.ini,$2)) { followinfo $2 $chan $nick $date $time }
        if (!$ini(follow.ini,$2)) { msg $chan 2 $2  kullanıcısı takip listesinde bulunmamaktadır. }
      }
    }
  }
}

alias checkstart {
  var %ini = $ini(follow.ini,0), %x = 1
  while (%x <= %ini) {
    if ($ini(follow.ini,%x) ison %chan) && (!$timer($ini(follow.ini,%x))) { $+(.timerfollow,$ini(follow.ini,%x)) 0 1 follow $ini(follow.ini,%x) }
    inc %x
  }
}

alias followlist {
  write $+($2,.txt) 2 $+($date, - ,$time,:) Takip listesini sorguladı.
  var %ini = $ini(follow.ini,0), %x = 1
  if (%ini == 0) { msg $1 2Takip listesinde kimse bulunmuyor. }
  while (%x <= %ini) {
    save $ini(follow.ini,%x)
    msg $1 2 $+(%x,.) Kullanıcı Adı: $ini(follow.ini,%x) Ekleyen: $readini(follow.ini,$ini(follow.ini,%x),addop) Eklenme Tarihi, Saati: $readini(follow.ini,$ini(follow.ini,%x),adddate) - $readini(follow.ini,$ini(follow.ini,%x),addtime) Eklenen Kanal: $readini(follow.ini,$ini(follow.ini,%x),addchan) Çevrimiçi Süresi: $convert($readini(follow.ini,$ini(follow.ini,%x),onlinetime))  
    inc %x
  }
}

alias loginfo {
  var %ini = $lines($+($1,.txt)), %x = 1
  if (%ini == 0) { msg $2 2 $1 adlı operatörün hiçbir işlem kaydı bulunmamaktadır. }
  while (%x <= %ini) {
    timer 1 %x msg $2 $read($+($1,.txt),%x)
    inc %x
  }
  write $+($3,.txt) 2 $+($date, - ,$time,:) $1 adlı kullanıcının log bilgilerini sorguladı.
}

alias operatoradd {
  write $+($2,.txt) 2 $+($date, - ,$time,:) $1 adlı kullanıcıyı operatör listesine ekledi.
  writeini -n operator.ini $1 addop $2
  writeini -n operator.ini $1 adddate $3
  writeini -n operator.ini $1 addtime $4
  writeini -n operator.ini $1 addchan $5
}

alias follow {
  if ($1 ison %chan) { inc -e $+(%,$1) }
  if ($1 !ison %chan) && $timer($+(follow,$1)) { save $1 | $+(.timerfollow,$1) off }
}

alias followdel {
  set $+(%,$1) 0
  write $+($2,.txt) 2 $+($date, - ,$time,:) $1 adlı kullanıcıyı takip listesinden çıkardı.
  remini -n follow.ini $1
  if $timer($+(follow,$1)) { $+(.timerfollow,$1) off }
}

alias followinfo {
  save $1
  msg $2 2 Kullanıcı Adı: $1 
  msg $2 2 Ekleyen Operatör: $readini(follow.ini,$1,addop) 
  msg $2 2 Eklenen Kanal: $readini(follow.ini,$1,addchan) 
  msg $2 2 Eklenme Tarihi, Saati: $readini(follow.ini,$1,adddate) - $readini(follow.ini,$1,addtime) 
  msg $2 2 Çevrimiçi Olduğu Süre: $+( ,$convert($readini(follow.ini,$1,onlinetime)))   
  write $+($3,.txt) 2 $+($date, - ,$time,:) $1 adlı kullanıcının takip bilgilerini sorguladı.
}

alias save { 
  writeini -n follow.ini $1 onlinetime $calc($readini(follow.ini,$1,onlinetime)+$eval($+(%,$1)))
  set $+(%,$1) 0
}

alias update {
  var %ini = $ini(follow.ini,0), %x = 1
  while (%x <= %ini) {
    save $ini(follow.ini,%x)
    inc %x
  }
}
alias operatorlist {
  update
  write $+($2,.txt) 2 $+($date, - ,$time,:) Operatör listesini sorguladı.
  var %ini = $ini(operator.ini,0), %x = 1
  if (%ini == 0) { msg $1 2Operatör listesinde kimse bulunmuyor. }
  while (%x <= %ini) {
    if ($readini(follow.ini,$ini(follow.ini,%x),onlinetime)) { save $ini(operator.ini,%x) | msg $1 2 $+(%x,.) Kullanıcı Adı: $ini(operator.ini,%x) Ekleyen: $readini(operator.ini,$ini(operator.ini,%x),addop) Eklenme Tarihi, Saati: $readini(operator.ini,$ini(operator.ini,%x),adddate) - $readini(operator.ini,$ini(operator.ini,%x),addtime) Eklenen Kanal: $readini(operator.ini,$ini(operator.ini,%x),addchan) Çevrimiçi Süresi: $convert($readini(follow.ini,$ini(operator.ini,%x),onlinetime)) } 
    if (!$readini(follow.ini,$ini(follow.ini,%x),onlinetime)) { msg $1 2 $+(%x,.) Kullanıcı Adı: $ini(operator.ini,%x) Ekleyen: $readini(operator.ini,$ini(operator.ini,%x),addop) Eklenme Tarihi, Saati: $readini(operator.ini,$ini(operator.ini,%x),adddate) - $readini(operator.ini,$ini(operator.ini,%x),addtime) Eklenen Kanal: $readini(operator.ini,$ini(operator.ini,%x),addchan)  }
    inc %x
  }
}

alias convert { return $replace($duration($1,0),wks,$chr(32) hft,wk,$chr(32) hft,mins,$chr(32) dk,hrs,$chr(32) saat,secs,$chr(32) sn,min,$chr(32) dk,hr,$chr(32) saat,sec,$chr(32) sn,days,$chr(32) gün,day,$chr(32) gün) }

alias operatordel {
  write $+($2,.txt) 2 $+($date, - ,$time,:) $1 adlı kullanıcıyı operatör listesinden çıkardı.
  remini -n operator.ini $1
}

alias followadd {
  write $+($2,.txt) 2 $+($date, - ,$time,:) $1 adlı kullanıcıyı takip listesine ekledi.
  writeini -n follow.ini $1 addop $2
  writeini -n follow.ini $1 adddate $3
  writeini -n follow.ini $1 addtime $4
  writeini -n follow.ini $1 addchan $5
  writeini -n follow.ini $1 onlinetime 0
  if ($1 ison %chan) { $+(.timerfollow,$1) 0 1 follow $1 }
}

alias followclean {
  write $+($2,.txt) 2 $+($date, - ,$time,:) $1 adlı kullanıcının takip bilgilerini sıfırladı.
  writeini -n follow.ini $1 addop $2
  writeini -n follow.ini $1 adddate $3
  writeini -n follow.ini $1 addtime $4
  writeini -n follow.ini $1 addchan $5
  writeini -n follow.ini $1 onlinetime 0
  set $+(%,$1) 0
  if ($timer($+(follow,$1))) { $+(.timerfollow,$1) off }
  if ($1 ison %chan) { $+(.timerfollow,$nick) 0 1 follow $nick }
}

on *:join:%chan: { 
  if ($nick == $me) { timerchck 1 3 checkstart }
  if ($ini(follow.ini,$nick)) { $+(.timerfollow,$nick) 0 1 follow $nick }
}

alias topten {
  update
  write $+($2,.txt) 2 $+($date, - ,$time,:) TOP 10 listesini sorguladı.
  var %ini = $ini(follow.ini,0), %x = 1
  if (%ini == 0) { msg $1 2TOP 10 listesinde kimse bulunmuyor. }
  if (%ini != 0) { 
    while (%x <= %ini) {
      %y = $ini(follow.ini,%x)
      if ($readini(follow.ini,%y,onlinetime)) { set $+(%,%y,.points) $readini(follow.ini,%y,onlinetime) }
      inc %x
    }
    var %n = 1
    while ($findval(%n) != $null) && (%n <= 10) {
      if (%n == 1) { %topten = 12 $+(%n,.) 2 $findval(%n) $+ ( $+ $convert($findval(%n).val) $+ ) }
      if (%n != 1) { %topten = %topten $+ ,12 $+(%n,.) 2 $findval(%n) $+ ( $+ $convert($findval(%n).val) $+ ) }
      inc %n
    }
    msg $1 %topten
    var %i = 1
    while ($var(%*.points,%i)) {
      unset $+(%,$remove($ifmatch,$chr(37),.points),.points)
      inc %i
    }
  }
}

alias findval {
  if ($1 == 0) return $var(%*.points,0)
  window -sh @sort 0 0 100 100
  var %i = 1
  while ($var(%*.points,%i)) {
    aline @sort $base( [ [ $ifmatch ] ] ,10,10,10) $remove($ifmatch,$chr(37),.points)
    inc %i
  }
  var %info = $line(@sort,$calc($line(@sort,0) - $iif($1 isnum,$1,$fline(@sort,$1,1)) + 1))
  window -c @sort
  if ($prop == val) {
    var %regex = $regex(sort,$gettok(%info,1,32),m~0*(\d*)~g)
    return $regml(sort,1)
  }
  else return $gettok(%info,2,32)
}

Yapmanız gerekenler;
%master verisine yetkili kişinin kullanıcı adını gireceksiniz,
%chan verisine çevrimiçi sistemin çalışacağı kanalı gireceksiniz
%opchan verisine çevrimiçi sistemi kontrol kanalı gireceksiniz.

Coder: Lociz

MesqeN · 04 Mart 2014, 17:30

Lociz Seni sahalarda görmek güzel

Lociz · 04 Mart 2014, 19:20

MesqeN Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Lociz Seni sahalarda görmek güzel

Eyvallah kardeşim ama şu anlık pek sunuculara girmiyorum, kod yazmakla uğraşıyorum.

YENİ KOMUT: &osıfırla: Operatörün log bilgilerini sıfırlayabilirsiniz.(SADECE MASTER VERİSİYLE BELİRLENEN KİŞİ SIFIRLAYABİLİR, OPERATÖRLER SIFIRLAYAMAZ.)
[20:00:55] <Lociz> &obilgi Lociz
[20:00:56] <LBot> 04/03/2014 - 19:53:03: Lociz adlı operatörün takip bilgilerini sıfırladı.
[20:01:27] <Lociz> &osıfırla Lociz
[20:01:27] <LBot> Lociz kullanıcısının operatör takip bilgileri sıfırlanmıştır.
[20:01:29] <Lociz> &obilgi Lociz
[20:01:30] <LBot> 04/03/2014 - 20:01:27: Lociz adlı operatörün takip bilgilerini sıfırladı.
YENİ KOMUT: &reboot: Botu yeniden başlatabilirsiniz.(SADECE MASTER VERİSİYLE BELİRLENEN KİŞİ YENİDEN BAŞLATABİLİR)
[20:01:53] <Lociz> &reboot
[20:01:53] <LBot> Yeniden başlatılıyor...(3-5 saniye içerisinde tekrar bağlanacaktır.)
[20:01:53] *** LBot IRC`den Çıktı (QUIT: )
[20:01:54] *** Giriş: LBot
[20:01:54] <LBot> LBot botu Lociz tarafından yeniden başlatılmıştır.
YENİ KOMUT: &optop10: Bir önceki versiyonda eklenen TOP10 listesinin operatörlerin için olan sürümüdür.
[20:02:17] <Lociz> &olist
[20:02:17] <LBot> 1. Kullanıcı Adı: Lociz Ekleyen: Lociz Eklenme Tarihi, Saati: 03/03/2014 - 23:34:23 Eklenen Kanal: #admin Çevrimiçi Süresi: 6 dk 45 sn
[20:02:17] <LBot> 2. Kullanıcı Adı: L1 Ekleyen: Lociz Eklenme Tarihi, Saati: 04/03/2014 - 19:59:41 Eklenen Kanal: #admin Çevrimiçi Süresi: 42 dk 11 sn
[20:02:20] <Lociz> &optop10
[20:02:21] <LBot> 1. L1(42 dk 15 sn), 2. Lociz(6 dk 49 sn)
BUG ÇÖZÜMÜ: Nick değiştirince süreye devam etmiyordu. Bu bug ortadan kaldırıldı.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

on *:text:*:%opchan: {
  if ($1 == &ekle) {
    if (!$ini(operator.ini,$nick)) && ($nick != %master) { msg $chan 2Bu işlem için yetkiniz bulunmamaktadır. }
    if ($ini(operator.ini,$nick)) || ($nick == %master) {
      if (!$2) { msg $chan 2Lütfen kullanıcı adı giriniz. }
      if ($2) {
        if ($ini(follow.ini,$2)) { msg $chan 2 $2  kullanıcısı $readini(follow.ini,$2,addop) tarafından $readini(follow.ini,$2,adddate) tarihinde $readini(follow.ini,$2,addtime) saatinde takip listesine eklenmiş. }
        if (!$ini(follow.ini,$2)) { msg $chan 2 $2  kullanıcısı takip listesine eklendi. | followadd $2 $nick $date $time $chan }
      }
    }
  }
  if ($1 == &sıfırla) {
    if (!$ini(operator.ini,$nick)) && ($nick != %master) { msg $chan 2Bu işlem için yetkiniz bulunmamaktadır. }
    if ($ini(operator.ini,$nick)) || ($nick == %master) {
      if (!$2) { msg $chan 2Lütfen kullanıcı adı giriniz. }
      if ($2) {
        if (!$ini(follow.ini,$2)) { msg $chan 2 $2  kullanıcısı takip listesinde bulunmuyor. }
        if ($ini(follow.ini,$2)) { msg $chan 2 $2  kullanıcısının takip bilgileri sıfırlanmıştır. | followclean $2 $nick $date $time $chan }
      }
    }
  }
  if ($1 == &osıfırla) {
    if ($nick != %master) { msg $chan 2Bu işlem için yetkiniz bulunmamaktadır. }
    if ($nick == %master) {
      if (!$2) { msg $chan 2Lütfen kullanıcı adı giriniz. }
      if ($2) {
        if (!$ini(operator.ini,$2)) { msg $chan 2 $2  kullanıcısı operatör listesinde bulunmadığı için sıfırlanamaz. }
        if ($ini(operator.ini,$2)) { msg $chan 2 $2  kullanıcısının operatör takip bilgileri sıfırlanmıştır. | operatorclean $2 $nick $date $time $chan }
      }
    }
  }
  if ($1 == &oekle) {
    if ($nick != %master) { msg $chan 2Bu işlem için yetkiniz bulunmamaktadır. }
    if ($nick == %master) {
      if (!$2) { msg $chan 2Lütfen kullanıcı adı giriniz. }
      if ($2) {
        if ($ini(operator.ini,$2)) { msg $chan 2 $2  zaten bir operatör.   }
        if (!$ini(operator.ini,$2)) { msg $chan 2 $2  kullanıcısı operatör olarak eklendi. | operatoradd $2 $nick $date $time $chan }
      }
    }
  }
  if ($1 == &osil) {
    if ($nick != %master) { msg $chan 2Bu işlem için yetkiniz bulunmamaktadır. }
    if ($nick == %master) {
      if (!$2) { msg $chan 2Lütfen kullanıcı adı giriniz. }
      if ($2) {
        if (!$ini(operator.ini,$2)) { msg $chan 2 $2  kullanıcısı operatör listesinde yok. }
        if ($ini(operator.ini,$2)) { msg $chan 2 $2  kullanıcısının operatör yetkisi kaldırıldı. | operatordel $2 $nick $date $time $chan }
      }
    }
  }
  if ($1 == &olist) {
    if ($nick != %master) { msg $chan 2Bu işlem için yetkiniz bulunmamaktadır. }
    if ($nick == %master) { operatorlist $chan $nick $date $time }
  }
  if ($1 == &reboot) {
    if ($nick != %master) { msg $chan 2Bu işlem için yetkiniz bulunmamaktadır. }
    if ($nick == %master) { msg $chan 2Yeniden başlatılıyor...(3-5 saniye içerisinde tekrar bağlanacaktır.) | reboot $nick $chan $date $time }
  }
  if ($1 == &top10) {
    if (!$ini(operator.ini,$nick)) && ($nick != %master) { msg $chan 2Bu işlem için yetkiniz bulunmamaktadır. }
    if ($ini(operator.ini,$nick)) || ($nick == %master) { topten $chan $nick $date $time }
  }
  if ($1 == &optop10) {
    if (!$ini(operator.ini,$nick)) && ($nick != %master) { msg $chan 2Bu işlem için yetkiniz bulunmamaktadır. }
    if ($ini(operator.ini,$nick)) || ($nick == %master) { optopten $chan $nick $date $time }
  }
  if ($1 == &sil) {
    if (!$ini(operator.ini,$nick)) && ($nick != %master) { msg $chan 2Bu işlem için yetkiniz bulunmamaktadır. }
    if ($ini(operator.ini,$nick)) || ($nick == %master) {
      if (!$2) { msg $chan 2Lütfen kullanıcı adı giriniz. }
      if ($2) {
        if (!$ini(follow.ini,$2)) { msg $chan 2 $2  kullanıcısı takip listesinde zaten bulunmuyor. }
        if ($ini(follow.ini,$2)) { msg $chan 2 $2  kullanıcısı takip listesinden çıkartılmıştır. | followdel $2 $nick $date $time $chan }
      }
    }
  }
  if ($1 == &list) {
    if (!$ini(operator.ini,$nick)) && ($nick != %master) { msg $chan 2Bu işlem için yetkiniz bulunmamaktadır. }
    if ($ini(operator.ini,$nick)) || ($nick == %master) { followlist $chan $nick $date $time }
  }
  if ($1 == &obilgi) {
    if (!$ini(operator.ini,$nick)) && ($nick != %master) { msg $chan 2Bu işlem için yetkiniz bulunmamaktadır. }
    if ($ini(operator.ini,$nick)) || ($nick == %master) {
      if (!$2) { msg $chan 2Lütfen kullanıcı adı giriniz. }
      if ($2) {
        if ($ini(operator.ini,$2)) { loginfo $2 $chan $nick $date $time }
        if (!$ini(operator.ini,$2)) { msg $chan 2 $2  kullanıcısı operatör listesinde bulunmamaktadır. }
      }
    }
  }
  if ($1 == &bilgi) {
    if (!$ini(operator.ini,$nick)) && ($nick != %master) { msg $chan 2Bu işlem için yetkiniz bulunmamaktadır. }
    if ($ini(operator.ini,$nick)) || ($nick == %master) {
      if (!$2) { 
        if ($ini(follow.ini,$nick)) { followinfo $nick $chan $nick $date $time }
        if (!$ini(follow.ini,$nick)) { msg $chan 2 Siz takip listesinde bulunmuyorsunuz. }
      }
      if ($2) {
        if ($ini(follow.ini,$2)) { followinfo $2 $chan $nick $date $time }
        if (!$ini(follow.ini,$2)) { msg $chan 2 $2  kullanıcısı takip listesinde bulunmamaktadır. }
      }
    }
  }
}

alias checkstart {
  var %ini = $ini(follow.ini,0), %x = 1
  while (%x <= %ini) {
    if ($ini(follow.ini,%x) ison %chan) && (!$timer($ini(follow.ini,%x))) { $+(.timerfollow,$ini(follow.ini,%x)) 0 1 follow $ini(follow.ini,%x) }
    inc %x
  }
}

alias reboot {
  write $+($1,.txt) 2 $+($date, - ,$time,:) $me botunu yeniden başlattı.
  set %restart 1
  set %restartuser $1
  exit -nr
}

alias followlist {
  write $+($2,.txt) 2 $+($date, - ,$time,:) Takip listesini sorguladı.
  var %ini = $ini(follow.ini,0), %x = 1
  if (%ini == 0) { msg $1 2Takip listesinde kimse bulunmuyor. }
  while (%x <= %ini) {
    save $ini(follow.ini,%x)
    msg $1 2 $+(%x,.) Kullanıcı Adı: $ini(follow.ini,%x) Ekleyen: $readini(follow.ini,$ini(follow.ini,%x),addop) Eklenme Tarihi, Saati: $readini(follow.ini,$ini(follow.ini,%x),adddate) - $readini(follow.ini,$ini(follow.ini,%x),addtime) Eklenen Kanal: $readini(follow.ini,$ini(follow.ini,%x),addchan) Çevrimiçi Süresi: $convert($readini(follow.ini,$ini(follow.ini,%x),onlinetime))  
    inc %x
  }
}

alias loginfo {
  var %ini = $lines($+($1,.txt)), %x = 1
  if (%ini == 0) { msg $2 2 $1 adlı operatörün hiçbir işlem kaydı bulunmamaktadır. }
  while (%x <= %ini) {
    timer 1 %x msg $2 $read($+($1,.txt),%x)
    inc %x
  }
  write $+($3,.txt) 2 $+($date, - ,$time,:) $1 adlı kullanıcının log bilgilerini sorguladı.
}

alias operatoradd {
  write $+($2,.txt) 2 $+($date, - ,$time,:) $1 adlı kullanıcıyı operatör listesine ekledi.
  writeini -n operator.ini $1 addop $2
  writeini -n operator.ini $1 adddate $3
  writeini -n operator.ini $1 addtime $4
  writeini -n operator.ini $1 addchan $5
}

alias follow {
  if ($1 ison %chan) { inc -e $+(%,$1) }
  if ($1 !ison %chan) && $timer($+(follow,$1)) { save $1 | $+(.timerfollow,$1) off }
}

alias followdel {
  set $+(%,$1) 0
  write $+($2,.txt) 2 $+($date, - ,$time,:) $1 adlı kullanıcıyı takip listesinden çıkardı.
  remini -n follow.ini $1
  if $timer($+(follow,$1)) { $+(.timerfollow,$1) off }
}

alias followinfo {
  save $1
  msg $2 2 Kullanıcı Adı: $1 
  msg $2 2 Ekleyen Operatör: $readini(follow.ini,$1,addop) 
  msg $2 2 Eklenen Kanal: $readini(follow.ini,$1,addchan) 
  msg $2 2 Eklenme Tarihi, Saati: $readini(follow.ini,$1,adddate) - $readini(follow.ini,$1,addtime) 
  msg $2 2 Çevrimiçi Olduğu Süre: $+( ,$convert($readini(follow.ini,$1,onlinetime)))   
  write $+($3,.txt) 2 $+($date, - ,$time,:) $1 adlı kullanıcının takip bilgilerini sorguladı.
}

alias save { 
  writeini -n follow.ini $1 onlinetime $calc($readini(follow.ini,$1,onlinetime)+$eval($+(%,$1)))
  set $+(%,$1) 0
}

alias update {
  var %ini = $ini(follow.ini,0), %x = 1
  while (%x <= %ini) {
    save $ini(follow.ini,%x)
    inc %x
  }
}
alias operatorlist {
  update
  write $+($2,.txt) 2 $+($date, - ,$time,:) Operatör listesini sorguladı.
  var %ini = $ini(operator.ini,0), %x = 1
  if (%ini == 0) { msg $1 2Operatör listesinde kimse bulunmuyor. }
  while (%x <= %ini) {
    if ($readini(follow.ini,$ini(follow.ini,%x),onlinetime)) { save $ini(operator.ini,%x) | msg $1 2 $+(%x,.) Kullanıcı Adı: $ini(operator.ini,%x) Ekleyen: $readini(operator.ini,$ini(operator.ini,%x),addop) Eklenme Tarihi, Saati: $readini(operator.ini,$ini(operator.ini,%x),adddate) - $readini(operator.ini,$ini(operator.ini,%x),addtime) Eklenen Kanal: $readini(operator.ini,$ini(operator.ini,%x),addchan) Çevrimiçi Süresi: $convert($readini(follow.ini,$ini(operator.ini,%x),onlinetime)) } 
    if (!$readini(follow.ini,$ini(follow.ini,%x),onlinetime)) { msg $1 2 $+(%x,.) Kullanıcı Adı: $ini(operator.ini,%x) Ekleyen: $readini(operator.ini,$ini(operator.ini,%x),addop) Eklenme Tarihi, Saati: $readini(operator.ini,$ini(operator.ini,%x),adddate) - $readini(operator.ini,$ini(operator.ini,%x),addtime) Eklenen Kanal: $readini(operator.ini,$ini(operator.ini,%x),addchan)  }
    inc %x
  }
}

alias convert { return $replace($duration($1,0),wks,$chr(32) hft,wk,$chr(32) hft,mins,$chr(32) dk,hrs,$chr(32) saat,secs,$chr(32) sn,min,$chr(32) dk,hr,$chr(32) saat,sec,$chr(32) sn,days,$chr(32) gün,day,$chr(32) gün) }

alias operatordel {
  write $+($2,.txt) 2 $+($date, - ,$time,:) $1 adlı kullanıcıyı operatör listesinden çıkardı.
  remini -n operator.ini $1
}

alias followadd {
  write $+($2,.txt) 2 $+($date, - ,$time,:) $1 adlı kullanıcıyı takip listesine ekledi.
  writeini -n follow.ini $1 addop $2
  writeini -n follow.ini $1 adddate $3
  writeini -n follow.ini $1 addtime $4
  writeini -n follow.ini $1 addchan $5
  writeini -n follow.ini $1 onlinetime 0
  if ($1 ison %chan) { $+(.timerfollow,$1) 0 1 follow $1 }
}

alias followclean {
  write $+($2,.txt) 2 $+($date, - ,$time,:) $1 adlı kullanıcının takip bilgilerini sıfırladı.
  writeini -n follow.ini $1 addop $2
  writeini -n follow.ini $1 adddate $3
  writeini -n follow.ini $1 addtime $4
  writeini -n follow.ini $1 addchan $5
  writeini -n follow.ini $1 onlinetime 0
  set $+(%,$1) 0
  if ($timer($+(follow,$1))) { $+(.timerfollow,$1) off }
  if ($1 ison %chan) { $+(.timerfollow,$nick) 0 1 follow $nick }
}

alias operatorclean {
  remove $+($1,.txt)
  write $+($2,.txt) 2 $+($date, - ,$time,:) $1 adlı operatörün takip bilgilerini sıfırladı.
}

on *:join:%chan: { 
  if ($nick == $me) { timerchck 1 3 checkstart }
  if ($ini(follow.ini,$nick)) { $+(.timerfollow,$nick) 0 1 follow $nick }
}

on *:join:%opchan: { 
  if ($nick == $me) && (%restart == 1) { msg $chan 2 $me botu %restartuser tarafından yeniden başlatılmıştır. | unset %restart | unset %restartuser }
}

on *:nick: { 
  if ($ini(follow.ini,$newnick)) { $+(.timerfollow,$newnick) 0 1 follow $newnick }
}

alias topten {
  update
  write $+($2,.txt) 2 $+($date, - ,$time,:) TOP10 listesini sorguladı.
  var %ini = $ini(follow.ini,0), %x = 1
  if (%ini == 0) { msg $1 2TOP10 listesinde kimse bulunmuyor. }
  if (%ini != 0) { 
    while (%x <= %ini) {
      %y = $ini(follow.ini,%x)
      if ($readini(follow.ini,%y,onlinetime)) { set $+(%,%y,.points) $readini(follow.ini,%y,onlinetime) }
      inc %x
    }
    var %n = 1
    while ($findval(%n) != $null) && (%n <= 10) {
      if (%n == 1) { %topten = 12 $+(%n,.) 2 $findval(%n) $+ ( $+ $convert($findval(%n).val) $+ ) }
      if (%n != 1) { %topten = %topten $+ ,12 $+(%n,.) 2 $findval(%n) $+ ( $+ $convert($findval(%n).val) $+ ) }
      inc %n
    }
    msg $1 %topten
    var %i = 1
    while ($var(%*.points,%i)) {
      unset $+(%,$remove($ifmatch,$chr(37),.points),.points)
      inc %i
    }
  }
}

alias optopten {
  update
  write $+($2,.txt) 2 $+($date, - ,$time,:) OPTOP10 listesini sorguladı.
  var %ini = $ini(operator.ini,0), %x = 1
  if (%ini == 0) { msg $1 2OPTOP10 listesinde kimse bulunmuyor. }
  if (%ini != 0) { 
    while (%x <= %ini) {
      %y = $ini(operator.ini,%x)
      if ($readini(follow.ini,%y,onlinetime)) { set $+(%,%y,.points) $readini(follow.ini,%y,onlinetime) }
      inc %x
    }
    var %n = 1
    while ($findval(%n) != $null) && (%n <= 10) {
      if (%n == 1) { %topten = 12 $+(%n,.) 2 $findval(%n) $+ ( $+ $convert($findval(%n).val) $+ ) }
      if (%n != 1) { %topten = %topten $+ ,12 $+(%n,.) 2 $findval(%n) $+ ( $+ $convert($findval(%n).val) $+ ) }
      inc %n
    }
    msg $1 %topten
    var %i = 1
    while ($var(%*.points,%i)) {
      unset $+(%,$remove($ifmatch,$chr(37),.points),.points)
      inc %i
    }
  }
}

alias findval {
  if ($1 == 0) return $var(%*.points,0)
  window -sh @sort 0 0 100 100
  var %i = 1
  while ($var(%*.points,%i)) {
    aline @sort $base( [ [ $ifmatch ] ] ,10,10,10) $remove($ifmatch,$chr(37),.points)
    inc %i
  }
  var %info = $line(@sort,$calc($line(@sort,0) - $iif($1 isnum,$1,$fline(@sort,$1,1)) + 1))
  window -c @sort
  if ($prop == val) {
    var %regex = $regex(sort,$gettok(%info,1,32),m~0*(\d*)~g)
    return $regml(sort,1)
  }
  else return $gettok(%info,2,32)
}

Lost · 05 Mart 2014, 16:47

gerçi sen de haklısın, düzenle seçeneği benim de çok eski mesajlardan kaldırılmış.
en azından moderatörlere söyleyip mesajı düzelttirebiliriz kodu kullanmak isteyenler hataya düşebilir

Lociz · 05 Mart 2014, 16:52

Ebmarteu Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

gerçi sen de haklısın, düzenle seçeneği benim de çok eski mesajlardan kaldırılmış.
en azından moderatörlere söyleyip mesajı düzelttirebiliriz kodu kullanmak isteyenler hataya düşebilir

Haklısın, ilk zamanlar acele etmiştim hemen kod çıksın diye bazı hatalar oluşmuş, lag oluşmuş vs. yeni güncellemeler falan derken baya gelişti.

kheldor · 08 Mart 2014, 21:17

Sanırım kodun güncellenmesi şart. &list cekildiğinde 11 kişi yansıtıyor. Kanalda olmayanlar listede süresi ilerliyor. Nick değiştiğinde takip etmeyi bırakıyor vs vs vs. Ancak sistem güzel.

Lociz · 09 Mart 2014, 11:47

kheldor Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Sanırım kodun güncellenmesi şart. &list cekildiğinde 11 kişi yansıtıyor. Kanalda olmayanlar listede süresi ilerliyor. Nick değiştiğinde takip etmeyi bırakıyor vs vs vs. Ancak sistem güzel.

&list çektiğinde ne gibi 11 kişi listeliyor? Eklemediğiniz kişiler mi? Log verebilir misiniz?

Nick değiştiğinde takip etmeyi bırakması gayet mantıklı. Onun için bir opsiyon ekleyebilirim.

Lociz · 10 Mart 2014, 09:48

[&!.]yardim komutu eklendi.
[&!.]gizle NICK komutu eklendi. (kullanım detayı için &help 1)
[09:45:55] <Lociz> &gizle
[09:45:55] <LBot> Lociz gizli duruma geçtiniz. Bundan sonra takip bilgileriniz, operatör bilgileriniz, operatör listesinde adınız görülmeyecek.

[09:46:13] <L2> &obilgi Lociz
[09:46:13] <LBot> Lociz bir gizli operatördür, bilgilerine bakamazsınız.
[&!.]göster NICKkomutu eklendi.
[09:46:31] <Lociz> &göster
[09:46:31] <LBot> Lociz gizli durumundan çıktınız. Bundan sonra takip bilgileriniz, operatör bilgileriniz, operatör listesinde adınız görülecek.

[09:47:05] <L2> &obilgi Lociz
[09:47:07] <LBot> 09/03/2014 - 10:55:07: Lociz adlı kullanıcının log bilgilerini sorguladı.
[09:47:07] <LBot> 09/03/2014 - 10:55:15: Gizlilik moduna geçti.
[&!.]help KONU komutu eklendi.
[09:44:42] <Lociz> &help 1
[09:44:42] <LBot> &gizle NICK Komutu ve Kullanımı
[09:44:42] <LBot> Bu komutu sadece MASTER kullanabilir.
[09:44:42] <LBot> MASTER
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
u kullanıcılar kendilerini &gizle komutu ile gizleme moduna geçebilirler.
[09:44:42] <LBot> ÖRNEK: Lociz kişisi MASTER'dir.
[09:44:42] <LBot> <Lociz> &gizle
[09:44:42] <LBot> <LBot> Lociz gizli duruma geçtiniz, bundan sonra operatör bilgileriniz, operatör listesinde adınız görülmeyecek.
[09:44:42] <LBot> BAŞKA BİRİ İÇİN:&gizle OperatörNicki şeklinde kullanılır.
[09:44:42] <LBot> ÖRNEK:Lociz kişisi MASTER, Owner kişisi OPERATÖR'dür.
[09:44:42] <LBot> <Lociz> &gizle Owner
[09:44:42] <LBot> <LBot> Owner gizli duruma geçti, bundan sonra operatör bilgileri, operatör listesinde adı görülmeyecek.
NOT: Şu anda 1 numaralı yardım konusu dışında diğerleri eklenmemiştir.
[&!.]clist komutu eklendi.(ÇEVRİMİÇİ LİSTESİ)
[09:43:23] <Lociz> &clist
[09:43:23] <LBot> 1. Kullanıcı Adı: Lociz[Çevrimiçi] Aktif Süre: 27 dk 20 sn
[09:43:23] <LBot> 1. Kullanıcı Adı: Owner[Çevrimiçi] Aktif Süre: 12 dk 43 sn
[&!.]dlist komutu eklendi.(ÇEVRİMDIŞI LİSTESİ)
[09:44:23] <Lociz> &dlist
[09:44:23] <LBot> 1. Kullanıcı Adı: BL[Çevrimdışı]
[09:44:23] <LBot> 2. Kullanıcı Adı: AL[Çevrimdışı]
Komutlar sadece & ile kullanılmayacak, &, ! veya . ile kullanılabilecek.
ÖRNEK: &bilgi Lociz, .bilgi Lociz, !bilgi Lociz
TOP 10 listelerindeki hata giderildi.
Kanaldan çıkmasına rağmen sürenin devam etmesi sorunu giderildi.
Takip süresi başladığında, durdulduğunda NOTICE ile bilgi verme eklendi.
[09:42:02] *** Kanala Tekrar Giriliyor #lociz
[09:42:02] -LBot- Hoşgeldiniz, Lociz. Süreniz başlamıştır.

[09:42:16] <Lociz> &sil Lociz
[09:42:16] <LBot> Lociz kullanıcısı takip listesinden çıkartılmıştır.
[09:42:16] -LBot- Süreniz durdurulmuştur.
[&!.]bilgi komutu ile artık çevrimiçi durumu, son aktif olduğu süre görülebilecek.
[09:41:40] <Lociz> &bilgi Lociz
[09:41:40] <LBot> Kullanıcı Adı: Lociz Durumu: Çevrimiçi
[09:41:40] <LBot> Ekleyen Operatör, Kanal: Lociz, #admin
[09:41:40] <LBot> Eklenme Tarihi, Saati: 09/03/2014 - 17:02:05
[09:41:40] <LBot> Son Çevrimiçi Olduğu Süre: 7 dk 59 sn
[09:41:40] <LBot> Toplam Çevrimiçi Olduğu Süre: 4 saat 18 dk 38 sn
[&!.]tsıfılra komutu eklendi
Bu komut tüm operatör bilgilerini ve kullanıcıların bilgilerini sıfırlar.

PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!


on *:text:*:%opchan: {
  if ($regex($1,/^[&!.]gizle/Si)) {
    if ($nick != %master) { msg $chan 2Bu işlem için yetkiniz bulunmamaktadır. }
    if ($nick == %master) {
      if (!$2) {
        if (%MasterHidding == 1) { msg $chan 2 $nick siz zaten gizli durumdasınız. }
        if (%MasterHidding == 0) || (%MasterHidding == $null) { msg $chan 2 $nick gizli duruma geçtiniz. Bundan sonra takip bilgileriniz, operatör bilgileriniz, operatör listesinde adınız görülmeyecek. | hidden $nick $nick $date $time $chan }
      }
      if ($2) {
        if (!$ini(operator.ini,$2)) { msg $chan 2 $2  kullanıcısı operatör listesinde bulunmadığı için işlem yapılamaz. }
        if ($ini(operator.ini,$2)) { 
          if ($readini(operator.ini,$2,hidden) == 1) { msg $chan 2 $2 kullanıcısı zaten gizli durumda bulunuyor. }
          if ($readini(operator.ini,$2,hidden) == 0) || ($readini(operator.ini,$2,hidden) == $null) { msg $chan 2 $2 gizli duruma geçti. Bundan sonra takip bilgileri, operatör bilgileri, operatör listesinde adı görülmeyecek. | hidden $2 $nick $date $time $chan }
        }
      }
    }
  }
  if ($regex($1,/^[&!.]goster/Si)) {
    if ($nick != %master) { msg $chan 2Bu işlem için yetkiniz bulunmamaktadır. }
    if ($nick == %master) {
      if (!$2) {
        if (%MasterHidding == 0) || (%MasterHidding == $null) { msg $chan 2 $nick siz zaten gizli durumda değilsiniz. }
        if (%MasterHidding == 1) { msg $chan 2 $nick gizli durumundan çıktınız. Bundan sonra takip bilgileriniz, operatör bilgileriniz, operatör listesinde adınız görülecek. | show $nick $nick $date $time $chan }
      }
      if ($2) {
        if (!$ini(operator.ini,$2)) { msg $chan 2 $2  kullanıcısı operatör listesinde bulunmadığı için işlem yapılamaz. }
        if ($ini(operator.ini,$2)) { 
          if ($readini(operator.ini,$2,hidden) == 0) || ($readini(operator.ini,$2,hidden) == $null) { msg $chan 2 $2 kullanıcısı zaten gizli durumda bulunmuyor. }
          if ($readini(operator.ini,$2,hidden) == 1) { msg $chan 2 $2 gizli durumdan çıkartıldı. Bundan sonra takip bilgileri, operatör bilgileri, operatör listesinde adı görülecek. | show $2 $nick $date $time $chan }
        }
      }
    }
  }
  if ($regex($1,/^[&!.]ekle/Si)) {
    if (!$ini(operator.ini,$nick)) && ($nick != %master) { msg $chan 2Bu işlem için yetkiniz bulunmamaktadır. }
    if ($ini(operator.ini,$nick)) || ($nick == %master) {
      if (!$2) { msg $chan 2Lütfen kullanıcı adı giriniz. }
      if ($2) {
        if ($ini(follow.ini,$2)) { msg $chan 2 $2  kullanıcısı $readini(follow.ini,$2,addop) tarafından $readini(follow.ini,$2,adddate) tarihinde $readini(follow.ini,$2,addtime) saatinde takip listesine eklenmiş. }
        if (!$ini(follow.ini,$2)) { msg $chan 2 $2  kullanıcısı takip listesine eklendi. | followadd $2 $nick $date $time $chan }
      }
    }
  }
  if ($regex($1,/^[&!.]sifirla/Si)) {
    if (!$ini(operator.ini,$nick)) && ($nick != %master) { msg $chan 2Bu işlem için yetkiniz bulunmamaktadır. }
    if ($ini(operator.ini,$nick)) || ($nick == %master) {
      if (!$2) { msg $chan 2Lütfen kullanıcı adı giriniz. }
      if ($2) {
        if (!$ini(follow.ini,$2)) { msg $chan 2 $2  kullanıcısı takip listesinde bulunmuyor. }
        if ($ini(follow.ini,$2)) { msg $chan 2 $2  kullanıcısının takip bilgileri sıfırlanmıştır. | followclean $2 $nick $date $time $chan }
      }
    }
  }
  if ($regex($1,/^[&!.]osifirla/Si)) {
    if ($nick != %master) { msg $chan 2Bu işlem için yetkiniz bulunmamaktadır. }
    if ($nick == %master) {
      if (!$2) { msg $chan 2Lütfen kullanıcı adı giriniz. }
      if ($2) {
        if (!$ini(operator.ini,$2)) { msg $chan 2 $2  kullanıcısı operatör listesinde bulunmadığı için sıfırlanamaz. }
        if ($ini(operator.ini,$2)) { msg $chan 2 $2  kullanıcısının operatör takip bilgileri sıfırlanmıştır. | operatorclean $2 $nick $date $time $chan }
      }
    }
  }
  if ($regex($1,/^[&!.]tsifirla/Si)) {
    if ($nick != %master) { msg $chan 2Bu işlem için yetkiniz bulunmamaktadır. }
    if ($nick == %master) { msg $chan 2Tüm kayıtlar sıfırlanmıştır. | cleanall $2 $nick $chan }
  }
  if ($regex($1,/^[&!.]oekle/Si)) {
    if ($nick != %master) { msg $chan 2Bu işlem için yetkiniz bulunmamaktadır. }
    if ($nick == %master) {
      if (!$2) { msg $chan 2Lütfen kullanıcı adı giriniz. }
      if ($2) {
        if ($2 == %master) { msg $chan 2Belirttiğiniz kişi $me botunun sahibidir, operatör listesine eklenemez. }
        if ($2 != %master) {
          if ($ini(operator.ini,$2)) { msg $chan 2 $2  zaten bir operatör.   }
          if (!$ini(operator.ini,$2)) { msg $chan 2 $2  kullanıcısı operatör olarak eklendi. | operatoradd $2 $nick $date $time $chan }
        }
      }
    }
  }
  if ($regex($1,/^[&!.]osil/Si)) {
    if ($nick != %master) { msg $chan 2Bu işlem için yetkiniz bulunmamaktadır. }
    if ($nick == %master) {
      if (!$2) { msg $chan 2Lütfen kullanıcı adı giriniz. }
      if ($2) {
        if ($2 == %master) { msg $chan 2Belirttiğiniz kişi $me botunun sahibidir, operatör listesinden silinemez. }
        if ($2 != %master) {
          if (!$ini(operator.ini,$2)) { msg $chan 2 $2  kullanıcısı operatör listesinde yok. }
          if ($ini(operator.ini,$2)) { msg $chan 2 $2  kullanıcısının operatör yetkisi kaldırıldı. | operatordel $2 $nick $date $time $chan }
        }
      }
    }
  }
  if ($regex($1,/^[&!.]help/Si)) {
    if (!$ini(operator.ini,$nick)) && ($nick != %master) { msg $chan 2Bu işlem için yetkiniz bulunmamaktadır. }
    if ($ini(operator.ini,$nick)) || ($nick == %master) { 
      helptopic $2 $chan
    }
  }
  if ($regex($1,/^[&!.]olist/Si)) {
    if (!$ini(operator.ini,$nick)) && ($nick != %master) { msg $chan 2Bu işlem için yetkiniz bulunmamaktadır. }
    if ($ini(operator.ini,$nick)) || ($nick == %master) { operatorlist $chan $nick $date $time }
  }
  if ($regex($1,/^[&!.]reboot/Si)) {
    if ($nick != %master) { msg $chan 2Bu işlem için yetkiniz bulunmamaktadır. }
    if ($nick == %master) { msg $chan 2Yeniden başlatılıyor...(3-5 saniye içerisinde tekrar bağlanacaktır.) | reboot $nick $chan $date $time }
  }
  if ($regex($1,/^[&!.]top10/Si)) {
    if (!$ini(operator.ini,$nick)) && ($nick != %master) { msg $chan 2Bu işlem için yetkiniz bulunmamaktadır. }
    if ($ini(operator.ini,$nick)) || ($nick == %master) { topten $chan $nick $date $time }
  }
  if ($regex($1,/^[&!.]optop10/Si)) {
    if (!$ini(operator.ini,$nick)) && ($nick != %master) { msg $chan 2Bu işlem için yetkiniz bulunmamaktadır. }
    if ($ini(operator.ini,$nick)) || ($nick == %master) { optopten $chan $nick $date $time }
  }
  if ($regex($1,/^[&!.]yardim/Si)) {
    if (!$ini(operator.ini,$nick)) && ($nick != %master) { msg $chan 2Bu işlem için yetkiniz bulunmamaktadır. }
    if ($ini(operator.ini,$nick)) || ($nick == %master) { help $nick $chan $date $time }
  }
  if ($regex($1,/^[&!.]sil/Si)) {
    if (!$ini(operator.ini,$nick)) && ($nick != %master) { msg $chan 2Bu işlem için yetkiniz bulunmamaktadır. }
    if ($ini(operator.ini,$nick)) || ($nick == %master) {
      if (!$2) { msg $chan 2Lütfen kullanıcı adı giriniz. }
      if ($2) {
        if (!$ini(follow.ini,$2)) { msg $chan 2 $2  kullanıcısı takip listesinde zaten bulunmuyor. }
        if ($ini(follow.ini,$2)) { msg $chan 2 $2  kullanıcısı takip listesinden çıkartılmıştır. | followdel $2 $nick $date $time $chan }
      }
    }
  }
  if ($regex($1,/^[&!.]list/Si)) {
    if (!$ini(operator.ini,$nick)) && ($nick != %master) { msg $chan 2Bu işlem için yetkiniz bulunmamaktadır. }
    if ($ini(operator.ini,$nick)) || ($nick == %master) { followlist $chan $nick $date $time }
  }
  if ($regex($1,/^[&!.]clist/Si)) {
    if (!$ini(operator.ini,$nick)) && ($nick != %master) { msg $chan 2Bu işlem için yetkiniz bulunmamaktadır. }
    if ($ini(operator.ini,$nick)) || ($nick == %master) { onlinelist $chan $nick $date $time }
  }
  if ($regex($1,/^[&!.]dlist/Si)) {
    if (!$ini(operator.ini,$nick)) && ($nick != %master) { msg $chan 2Bu işlem için yetkiniz bulunmamaktadır. }
    if ($ini(operator.ini,$nick)) || ($nick == %master) { offlinelist $chan $nick $date $time }
  }
  if ($regex($1,/^[&!.]obilgi/Si)) {
    if (!$ini(operator.ini,$nick)) && ($nick != %master) && ($2) { msg $chan 2Bu işlem için yetkiniz bulunmamaktadır. }
    if (!$2) { 
      if ($ini(operator.ini,$nick)) || ($nick == %master) { loginfo $nick $chan $nick $date $time }
      if (!$ini(operator.ini,$nick)) && ($nick != %master) { msg $chan 2 $nick siz operatör listesinde bulunmuyorsunuz. }
    }
    if ($ini(operator.ini,$nick)) || ($nick == %master) {
      if ($2) {
        if ($ini(operator.ini,$2)) || ($2 == %master) { loginfo $2 $chan $nick $date $time }
        if (!$ini(operator.ini,$2)) && ($2 != %master) { msg $chan 2 $2  kullanıcısı operatör listesinde bulunmamaktadır. }
      }
    }
  }
  if ($regex($1,/^[&!.]bilgi/Si)) {
    if (!$ini(operator.ini,$nick)) && ($nick != %master) && ($2) { msg $chan 2Bu işlem için yetkiniz bulunmamaktadır. }
    if (!$2) { 
      if ($ini(follow.ini,$nick)) { followinfo $nick $chan $nick $date $time }
      if (!$ini(follow.ini,$nick)) { msg $chan 2 $nick siz takip listesinde bulunmuyorsunuz. }
    }
    if ($2) {
      if ($ini(follow.ini,$2)) { followinfo $2 $chan $nick $date $time }
      if (!$ini(follow.ini,$2)) { msg $chan 2 $2  kullanıcısı takip listesinde bulunmamaktadır. }
    }
  }
}

alias hidden {
  write $+($2,.txt) 2 $+($date, - ,$time,:) $iif($1 == $2,Gizlilik moduna geçti.,$+(,$1) kullanıcısını gizlilik moduna geçirdi.)
  if ($1 == %master) { set %MasterHidding 1 }
  if ($1 != %master) { writeini -n operator.ini $1 hidden 1 }
}

alias show {
  write $+($2,.txt) 2 $+($date, - ,$time,:) $iif($1 == $2,Gizlilik modundan çıktı.,$+(,$1) kullanıcısını gizlilik modundan çıkardı.)
  if ($1 == %master) { set %MasterHidding 0 }
  if ($1 != %master) { writeini -n operator.ini $1 hidden 0 }
}

alias cleanall {
  var %ini = $ini(follow.ini,0), %x = 1
  while (%x <= %ini) {
    unset $+(%,$ini(follow.ini,%x))
    inc %x
  }

  if ($file(follow.ini)) { remove follow.ini }
  if ($file(operator.ini)) { remove operator.ini }

  var %ini = $ini(operator.ini,0), %x = 1
  while (%x <= %ini) {
    if ($file($+($ini(operator.ini,%x),.txt))) { remove $+($ini(operator.ini,%x),.txt) }
    inc %x
  }

  write $+($2,.txt) 2 $+($date, - ,$time,:) tüm bilgileri sıfırladı.
}

alias loginfo {
  if ($1 == %master) && (%MasterHidding == 1) && ($3 != %master) { msg $2 2 $1 bir gizli operatördür, bilgilerine bakamazsınız. | return }
  if ($1 != %master) && ($readini(operator.ini,$1,hidden) == 1) && ($1 != $3) { msg $2 2 $1 bir gizli operatördür, bilgilerine bakamazsınız. | return }
  var %ini = $lines($+($1,.txt)), %x = 1
  if (%ini == 0) { msg $2 2 $1 adlı operatörün hiçbir işlem kaydı bulunmamaktadır. }
  while (%x <= %ini) {
    timer 1 %x msg $2 $read($+($1,.txt),%x)
    inc %x
  }
  write $+($3,.txt) 2 $+($date, - ,$time,:) $1 adlı kullanıcının log bilgilerini sorguladı.
}

alias operatoradd {
  write $+($2,.txt) 2 $+($date, - ,$time,:) $1 adlı kullanıcıyı operatör listesine ekledi.
  writeini -n operator.ini $1 addop $2
  writeini -n operator.ini $1 adddate $3
  writeini -n operator.ini $1 addtime $4
  writeini -n operator.ini $1 addchan $5
  writeini -n operator.ini $1 hidden 0
}

alias followdel {
  set $+(%,$1) 0
  write $+($2,.txt) 2 $+($date, - ,$time,:) $1 adlı kullanıcıyı takip listesinden çıkardı.
  remini -n follow.ini $1
  if ($timer($+(follow,$1))) { $+(.timerfollow,$1) off }
  noti $1 2
}

alias followinfo {
  if ($1 == %master) && (%MasterHidding == 1) && ($3 != %master) { msg $2 2 $1 bir gizli operatördür, bilgilerine bakamazsınız. | return }
  if ($1 != %master) && ($readini(operator.ini,$1,hidden) == 1) && ($1 != $3) { msg $2 2 $1 bir gizli operatördür, bilgilerine bakamazsınız. | return }
  %x = $calc($eval($+(%,$1)))
  save $1
  msg $2 2 Kullanıcı Adı: $1 Durumu: $iif($timer($+(follow,$1)),Çevrimiçi,Çevrimdışı) 
  msg $2 2 Ekleyen Operatör, Kanal: $readini(follow.ini,$1,addop) $+ , $readini(follow.ini,$1,addchan) 
  msg $2 2 Eklenme Tarihi, Saati: $readini(follow.ini,$1,adddate) - $readini(follow.ini,$1,addtime) 
  msg $2 2 Son Çevrimiçi Olduğu Süre: $convert(%x)   
  msg $2 2 Toplam Çevrimiçi Olduğu Süre: $+( ,$convert($readini(follow.ini,$1,onlinetime)))   
  write $+($3,.txt) 2 $+($date, - ,$time,:) $1 adlı kullanıcının takip bilgilerini sorguladı.
}

alias save { 
  writeini -n follow.ini $1 onlinetime $calc($readini(follow.ini,$1,onlinetime)+$eval($+(%,$1)))
  set $+(%,$1) 0
}

alias update {
  var %ini = $ini(follow.ini,0), %x = 1
  while (%x <= %ini) {
    save $ini(follow.ini,%x)
    inc %x
  }
}
alias operatorlist {
  update
  write $+($2,.txt) 2 $+($date, - ,$time,:) Operatör listesini sorguladı.
  if ($2 != %master) { 
    var %ini = $ini(operator.ini,0), %x = 1, %y = 0, %z = 1, %command = $ini(operator.ini,0)

    while (%z <= %ini) {
      if ($readini(operator.ini,$ini(operator.ini,%z),hidden) == 1) { dec %command }
      inc %z
    }

    if (%command == 0) && (%master != $null) && (%MasterHidding == 1) { msg $1 2Operatör listesinde kimse bulunmuyor. | return }

    while (%x <= %ini) {
      if ($readini(follow.ini,$ini(operator.ini,%x),onlinetime)) && ($readini(operator.ini,$ini(operator.ini,%x),hidden) == 0) { inc %y | save $ini(operator.ini,%x) | msg $1 2 $+(%y,.) Kullanıcı Adı: $ini(operator.ini,%x) Ekleyen: $readini(operator.ini,$ini(operator.ini,%x),addop) Eklenme Tarihi, Saati: $readini(operator.ini,$ini(operator.ini,%x),adddate) - $readini(operator.ini,$ini(operator.ini,%x),addtime) Eklenen Kanal: $readini(operator.ini,$ini(operator.ini,%x),addchan) Çevrimiçi Süresi: $convert($readini(follow.ini,$ini(operator.ini,%x),onlinetime)) } 
      if (!$readini(follow.ini,$ini(operator.ini,%x),onlinetime)) && ($readini(operator.ini,$ini(operator.ini,%x),hidden) == 0) { inc %y | msg $1 2 $+(%x,.) Kullanıcı Adı: $ini(operator.ini,%x) Ekleyen: $readini(operator.ini,$ini(operator.ini,%x),addop) Eklenme Tarihi, Saati: $readini(operator.ini,$ini(operator.ini,%x),adddate) - $readini(operator.ini,$ini(operator.ini,%x),addtime) Eklenen Kanal: $readini(operator.ini,$ini(operator.ini,%x),addchan)  }
      inc %x
    }

    if (%master != $null) && (%MasterHidding == 0) { 
      inc %y
      if ($readini(follow.ini,%master,onlinetime)) { save %master | msg $1 2 $+(%y,.) Kullanıcı Adı: %master Ekleyen Operatör: $me Eklenme Tarihi, Saati: %firstrunD - %firstrunT Eklenen Kanal: %opchan Çevrimiçi Süresi: $convert($readini(follow.ini,%master,onlinetime)) } 
      if (!$readini(follow.ini,%master,onlinetime)) { msg $1 2 $+(%y,.) Kullanıcı Adı: %master Ekleyen Operatör: $me Eklenme Tarihi, Saati: %firstrunD - %firstrunT Eklenen Kanal: %opchan  }
    }
  }
  if ($2 == %master) { 
    var %ini = $ini(operator.ini,0), %x = 1, %y = 0, %z = $calc(%ini + 1)

    if (%z == 0) { msg $1 2Operatör listesinde kimse bulunmuyor. | return }

    while (%x <= %ini) {
      if ($readini(follow.ini,$ini(operator.ini,%x),onlinetime)) { inc %y | save $ini(operator.ini,%x) | msg $1 2 $+(%y,.) Kullanıcı Adı: $ini(operator.ini,%x) Ekleyen: $readini(operator.ini,$ini(operator.ini,%x),addop) Eklenme Tarihi, Saati: $readini(operator.ini,$ini(operator.ini,%x),adddate) - $readini(operator.ini,$ini(operator.ini,%x),addtime) Eklenen Kanal: $readini(operator.ini,$ini(operator.ini,%x),addchan) Çevrimiçi Süresi: $convert($readini(follow.ini,$ini(operator.ini,%x),onlinetime)) } 
      if (!$readini(follow.ini,$ini(operator.ini,%x),onlinetime)) { inc %y | msg $1 2 $+(%x,.) Kullanıcı Adı: $ini(operator.ini,%x) Ekleyen: $readini(operator.ini,$ini(operator.ini,%x),addop) Eklenme Tarihi, Saati: $readini(operator.ini,$ini(operator.ini,%x),adddate) - $readini(operator.ini,$ini(operator.ini,%x),addtime) Eklenen Kanal: $readini(operator.ini,$ini(operator.ini,%x),addchan)  }
      inc %x
    }

    if (%master != $null) { 
      inc %y
      if ($readini(follow.ini,%master,onlinetime)) { save %master | msg $1 2 $+(%y,.) Kullanıcı Adı: %master Ekleyen Operatör: $me Eklenme Tarihi, Saati: %firstrunD - %firstrunT Eklenen Kanal: %opchan Çevrimiçi Süresi: $convert($readini(follow.ini,%master,onlinetime)) } 
      if (!$readini(follow.ini,%master,onlinetime)) { msg $1 2 $+(%y,.) Kullanıcı Adı: %master Ekleyen Operatör: $me Eklenme Tarihi, Saati: %firstrunD - %firstrunT Eklenen Kanal: %opchan  }
    }
  }
}

alias operatordel {
  write $+($2,.txt) 2 $+($date, - ,$time,:) $1 adlı kullanıcıyı operatör listesinden çıkardı.
  remini -n operator.ini $1
  operatorclean $1 $2
}

alias followadd {
  write $+($2,.txt) 2 $+($date, - ,$time,:) $1 adlı kullanıcıyı takip listesine ekledi.
  writeini -n follow.ini $1 addop $2
  writeini -n follow.ini $1 adddate $3
  writeini -n follow.ini $1 addtime $4
  writeini -n follow.ini $1 addchan $5
  writeini -n follow.ini $1 onlinetime 0
  if ($1 ison %chan) { $+(.timerfollow,$1) 0 1 follow $1 }
  noti $1 1 0
}

alias followclean {
  write $+($2,.txt) 2 $+($date, - ,$time,:) $1 adlı kullanıcının takip bilgilerini sıfırladı.
  writeini -n follow.ini $1 addop $2
  writeini -n follow.ini $1 adddate $3
  writeini -n follow.ini $1 addtime $4
  writeini -n follow.ini $1 addchan $5
  writeini -n follow.ini $1 onlinetime 0
  set $+(%,$1) 0
  if ($timer($+(follow,$1))) { $+(.timerfollow,$1) off }
  if ($1 ison %chan) { $+(.timerfollow,$nick) 0 1 follow $1 }
}

alias operatorclean {
  remove $+($1,.txt)
  write $+($2,.txt) 2 $+($date, - ,$time,:) $1 adlı operatörün takip bilgilerini sıfırladı.
}

alias topten {
  update
  write $+($2,.txt) 2 $+($date, - ,$time,:) TOP10 listesini sorguladı.
  var %ini = $ini(follow.ini,0), %x = 1
  if (%ini == 0) { msg $1 2TOP10 listesinde kimse bulunmuyor. }
  if (%ini != 0) { 
    while (%x <= %ini) {
      %y = $ini(follow.ini,%x)
      if ($readini(follow.ini,%y,onlinetime)) { set $+(%,%y,.points) $readini(follow.ini,%y,onlinetime) }
      inc %x
    }
    var %n = 1
    while ($findval(%n) != $null) && (%n <= 10) {
      if (%n == 1) { %topten = 12 $+(%n,.) 2 $findval(%n) $+ ( $+ $convert($findval(%n).val) $+ ) }
      if (%n != 1) { %topten = %topten $+ ,12 $+(%n,.) 2 $findval(%n) $+ ( $+ $convert($findval(%n).val) $+ ) }
      inc %n
    }
    cleanpoints
    msg $1 %topten
  }
}

alias optopten {
  update
  write $+($2,.txt) 2 $+($date, - ,$time,:) OPTOP10 listesini sorguladı.
  var %ini = $ini(operator.ini,0), %x = 1
  if (%ini == 0) { msg $1 2OPTOP10 listesinde kimse bulunmuyor. }
  if (%ini != 0) { 
    while (%x <= %ini) {
      %y = $ini(operator.ini,%x)
      if ($readini(follow.ini,%y,onlinetime)) { set $+(%,%y,.points) $readini(follow.ini,%y,onlinetime) }
      inc %x
    }
    if ($readini(follow.ini,%master,onlinetime)) { set $+(%,%master,.points) $readini(follow.ini,%master,onlinetime) }
    var %n = 1
    while ($findval(%n) != $null) && (%n <= 10) {
      if (%n == 1) { %topten = 12 $+(%n,.) 2 $findval(%n) $+ ( $+ $convert($findval(%n).val) $+ ) }
      if (%n != 1) { %topten = %topten $+ ,12 $+(%n,.) 2 $findval(%n) $+ ( $+ $convert($findval(%n).val) $+ ) }
      inc %n
    }
    cleanpoints
    msg $1 %topten
  }
}

alias cleanpoints {
  var %i = 1
  while $var(%*.points, %i) {
    unset $+(%,$remove($ifmatch,$chr(37),.points),.points)
  }
}

alias findval {
  if ($1 == 0) return $var(%*.points,0)
  window -sh @sort 0 0 100 100
  var %i = 1
  while ($var(%*.points,%i)) {
    aline @sort $base( [ [ $ifmatch ] ] ,10,10,10) $remove($ifmatch,$chr(37),.points)
    inc %i
  }
  var %info = $line(@sort,$calc($line(@sort,0) - $iif($1 isnum,$1,$fline(@sort,$1,1)) + 1))
  window -c @sort
  if ($prop == val) {
    var %regex = $regex(sort,$gettok(%info,1,32),m~0*(\d*)~g)
    return $regml(sort,1)
  }
  else return $gettok(%info,2,32)
}

alias help {
  timer 1 1 msg $2 2[!&.]gizle NICK: NICK operatörün işlem kayıtları, operatör listesindeki adını göstermemek için kullanılan komuttur. Sadece MASTER yetkisine sahip kullanıcı kullanabilir. Kullanım detayı için: &help 1 yazınız.
  timer 1 2 msg $2 2[!&.]&goster NICK: Gizlenme modu aktif edilen NICK operatörünün gizlilik modunu açmak için kullanılan komuttur. Sadece MASTER yetkisine sahip kullanıcı kullanabilir. Kullanım detayı için: &help 2 yazınız.
  timer 1 3 msg $2 2[!&.]&ekle NICK: NICK adlı kullanıcıyı takip listesine eklemek için kullanılan komuttur. Sadece OPERATÖR ve MASTER yetkisine sahip kullanıcılar kullanabilir. Kullanım detayı için: &help 3 yazınız.
  timer 1 4 msg $2 2[!&.]&sil NICK: NICK adlı kullanıcıyı takip listesinden çıkarmak için kullanılan komuttur. Sadece OPERATÖR ve MASTER yetkisine sahip kullanıcılar kullanabilir. Kullanım detayı için: &help 4 yazınız.
  timer 1 5 msg $2 2[!&.]&list: Takip listesindeki kullanıcıları listelemek için kullanılan komuttur. Sadece OPERATÖR ve MASTER yetkisine sahip kullanıcılar kullanabilir. Kullanım detayı için: &help 5 yazınız.
  timer 1 6 msg $2 2[!&.]&bilgi NICK: Takip listesinde bulunan NICK kullanıcısının takip bilgilerini görmek için kullanılan komuttur. Sadece OPERATÖR ve MASTER yetkisine sahip kullanıcılar kullanabilir. Kullanım detayı için: &help 6 yazınız.
  timer 1 7 msg $2 2[!&.]&top10: Takip listesinde en çok kim çevrimiçi oluyor? Öğrenmek için kullanılan komuttur. Sadece OPERATÖR ve MASTER yetkisine sahip kullanıcılar kullanabilir. Kullanım detayı için: &help 7 yazınız.
  timer 1 8 msg $2 2[!&.]&clist: Takip listesindeki çevrimiçi kullanıcıları için listelemek için kullanılan komuttur. Sadece OPERATÖR ve MASTER yetkisine sahip kullanıcılar kullanabilir. Kullanım detayı için: &help 8 yazınız.
  timer 1 9 msg $2 2[!&.]&dlist: Takip listesindeki çevrimdışı kullanıcıları için listelemek için kullanılan komuttur. Sadece OPERATÖR ve MASTER yetkisine sahip kullanıcılar kullanabilir. Kullanım detayı için: &help 9 yazınız.
  timer 1 10 msg $2 2[!&.]&sifirla NICK: NICK adlı kullanıcının takip bilgilerini sıfırlamak için kullanılan komuttur. Sadece OPERATÖR ve MASTER yetkisine sahip kullanıcılar kullanabilir. Kullanım detayı için: &help 10 yazınız.
  timer 1 11 msg $2 2[!&.]&osifirla NICK: NICK adlı operatörün işlem kaydını sıfırlamak için kullanılan komuttur. Sadece MASTER yetkisine sahip kullanıcı kullanabilir. Kullanım detayı için: &help 11 yazınız.
  timer 1 12 msg $2 2[!&.]&tsifirla : Tüm kullanıcıların takip bilglierini, takip listesini; operatörlerin işlem kaydını, operatör listesini sıfırlamak için kullanılan komuttur. Sadece MASTER yetkisine sahip kullanıcı kullanabilir. Kullanım detayı için: &help 12 yazınız.
  timer 1 13 msg $2 2[!&.]&oekle NICK: NICK adlı kullanıcı operatör listesine eklemek için kullanılan komuttur. Sadece MASTER yetkisine sahip kullanıcı kullanabilir. Kullanım detayı için: &help 13 yazınız.
  timer 1 14 msg $2 2[!&.]&osil NICK: NICK adlı operatörü operatör listesinden çıkarmak için kullanılan komuttur. Sadece MASTER yetkisine sahip kullanıcı kullanabilir. Kullanım detayı için: &help 14 yazınız.
  timer 1 15 msg $2 2[!&.]&olist: Operatör yetkisine sahip kullanıcıları görmek için kullanılan komuttur. Sadece OPERATÖR ve MASTER yetkisine sahip kullanıcılar kullanabilir. Kullanım detayı için: &help 15 yazınız.
  timer 1 16 msg $2 2[!&.]&obilgi NICK: Operatör listesinde bulunan NICK operatörünün işlem kaydını görmek için kullanılan komuttur. Sadece OPERATÖR ve MASTER yetkisine sahip kullanıcılar kullanabilir. Kullanım detayı için: &help 16 yazınız.
  timer 1 17 msg $2 2[!&.]&optop10: Takip listesinde bulunan operatörlerin içinde en çok kim çevrimiçi oluyor? Öğrenmek için kullanılan komuttur. Sadece OPERATÖR ve MASTER yetkisine sahip kullanıcılar kullanabilir. Kullanım detayı için: &help 17 yazınız.
  timer 1 18 msg $2 2[!&.]&reboot: $me botunun yeniden başlatılması için kullanılan komuttur. Sadece MASTER yetkisine sahip kullanıcı kullanabilir. Kullanım detayı için: &help 18 yazınız.
}

alias helptopic {
  if ($1 == 1) { 
    msg $2 2[!&.]&gizle NICK Komutu ve Kullanımı
    msg $2 2Bu komutu sadece MASTER kullanabilir. 
    msg $2 2MASTER:Bu kullanıcılar kendilerini &gizle komutu ile gizleme moduna geçebilirler.
    msg $2 2ÖRNEK: Lociz kişisi MASTER'dir.
    msg $2 2<Lociz> &gizle
    msg $2 2<LBot> Lociz gizli duruma geçtiniz, bundan sonra operatör bilgileriniz, operatör listesinde adınız görülmeyecek.
    msg $2 2BAŞKA BİRİ İÇİN:&gizle OperatörNicki şeklinde kullanılır.
    msg $2 2ÖRNEK:Lociz kişisi MASTER, Owner kişisi OPERATÖR'dür.
    msg $2 2<Lociz> &gizle Owner
    msg $2 2<LBot> Owner gizli duruma geçti, bundan sonra operatör bilgileri, operatör listesinde adı görülmeyecek.
  }
  else { msg $2 2 $1 konulu yardım dosyası henüz aktif değil. }
}

alias followlist {
  update
  write $+($2,.txt) 2 $+($date, - ,$time,:) Takip listesini sorguladı.
  var %ini = $ini(follow.ini,0), %x = 1
  if (%ini == 0) { msg $1 2Takip listesinde kimse bulunmuyor. }
  while (%x <= %ini) {
    save $ini(follow.ini,%x)
    msg $1 2 $+(%x,.) Kullanıcı Adı: $iif($ini(follow.ini,%x),$ini(follow.ini,%x),HATA![KOD:1]) Ekleyen: $iif($readini(follow.ini,$ini(follow.ini,%x),addop),$readini(follow.ini,$ini(follow.ini,%x),addop),HATA![KOD:1]) Eklenme Tarihi, Saati: $iif($readini(follow.ini,$ini(follow.ini,%x),adddate),$readini(follow.ini,$ini(follow.ini,%x),adddate),HATA![KOD:1]) - $iif($readini(follow.ini,$ini(follow.ini,%x),addtime),$readini(follow.ini,$ini(follow.ini,%x),addtime),HATA![KOD:1]) Eklenen Kanal: $iif($readini(follow.ini,$ini(follow.ini,%x),addchan),$readini(follow.ini,$ini(follow.ini,%x),addchan),HATA![KOD:1]) Çevrimiçi Süresi: $convert($iif($readini(follow.ini,$ini(follow.ini,%x),onlinetime),$readini(follow.ini,$ini(follow.ini,%x),onlinetime),0))      
    inc %x
  }
}

alias convert { return $replace($duration($1,0),wks,$chr(32) hft,wk,$chr(32) hft,mins,$chr(32) dk,hrs,$chr(32) saat,secs,$chr(32) sn,min,$chr(32) dk,hr,$chr(32) saat,sec,$chr(32) sn,days,$chr(32) gün,day,$chr(32) gün) }

alias reboot {
  write $+($1,.txt) 2 $+($date, - ,$time,:) $me botunu yeniden başlattı.
  set %restart 1
  set %restartuser $1
  exit -nr
}

alias follow {
  if ($1 ison %chan) && ($ini(follow.ini,$1)) { inc -e $+(%,$1) }
  if ($1 !ison %chan) || (!$ini(follow.ini,$1)) { noti $1 2 | save $1 | $+(.timerfollow,$1) off }
}

on *:nick: { 
  if ($ini(follow.ini,$newnick)) { noti $newnick 3 | $+(.timerfollow,$newnick) 0 1 follow $newnick }
}

on *:join:#: { 
  if ($chan == %chan) { 
    if ($nick == $me) { timerchck 1 1 checkstart }
    if ($ini(follow.ini,$nick)) { noti $nick 1 1 | $+(.timerfollow,$nick) 0 1 follow $nick }
  }
  if ($chan == %opchan) {
    if ($nick == $me) {
      inc %run 1
      if (%run == 1) { set %firstrunD $date | set %firstrunT $time }
      msg $chan 2 $me botunun $chan kanalına $+(%run,.) girişidir.
      if ($nick == $me) && (%restart == 1) { .msg $chan 2 $me botu %restartuser tarafından yeniden başlatılmıştır. | unset %restart | unset %restartuser }
    }
  }
}

alias checkstart {
  var %ini = $ini(follow.ini,0), %x = 1
  while (%x <= %ini) {
    if ($ini(follow.ini,%x) ison %chan) && (!$timer($ini(follow.ini,%x))) { .noti $ini(follow.ini,%x) 1 0 | $+(.timerfollow,$ini(follow.ini,%x)) 0 1 follow $ini(follow.ini,%x) }
    inc %x
  }
}

alias noti {
  if ($2 == 1) && ($3 == 1) { .notice $1 2Hoşgeldiniz, $+($1,.) Süreniz başlamıştır. }
  if ($2 == 1) && ($3 == 0) { .notice $1 2Süreniz başlamıştır. }
  if ($2 == 2) && ($1 ison %chan) { .notice $1 2Süreniz durdurulmuştur. }
  if ($2 == 3) { .notice $1 2Süreniz tekrar başlamıştır. }
}

alias onlinelist {
  write $+($2,.txt) 2 $+($date, - ,$time,:) Çevrimiçi listesini sorguladı.
  var %ini = $ini(follow.ini,0), %x = 1, %y = 0
  while (%x <= %ini) {
    if ($timer($+(follow,$ini(follow.ini,%x)))) { inc %y | msg $1 2 $+(%y,.) Kullanıcı Adı: $+($ini(follow.ini,%x),[Çevrimiçi]) Aktif Süre: $convert($calc($eval($+(%,$ini(follow.ini,%x)))))  }
    inc %x
  }
  if (%y == 0) { msg $1 2Çevrimiçi kimse bulunmuyor. }
}

alias offlinelist {
  write $+($2,.txt) 2 $+($date, - ,$time,:) Çevrimdışı listesini sorguladı.
  var %ini = $ini(follow.ini,0), %x = 1, %y = 0
  while (%x <= %ini) {
    if (!$timer($+(follow,$ini(follow.ini,%x)))) { inc %y | msg $1 2 $+(%y,.) Kullanıcı Adı: $+($ini(follow.ini,%x),[Çevrimdışı]) }
    inc %x
  }
  if (%y == 0) { msg $1 2Çevrimdışı kimse bulunmuyor. }
}

WingmaN · 15 Mart 2014, 20:49

Müthiş emek/zaman harcanmış bize de eline sağlık demek düşer.

kheldor · 22 Mart 2014, 19:04

.bilgi yazıldığında kullanıcı kanalda olduğu halde durumu: çevrimdışı gösteriyor.

[19:03:31] <&kheldor> .ekle kheldor
[19:03:31] <&test> kheldor takip listesine eklendi.
[19:03:32] -test- Süreniz başlamıştır.

[19:00:19] <&kheldor> .bilgi
[19:00:20] <&test> Kullanıcı Adı: kheldor Durumu: Çevrimdışı
[19:00:20] <&test> Ekleyen Operatör, Kanal: kheldor, #opers
[19:00:20] <&test> Eklenme Tarihi, Saati: 22/03/2014 - 19:00:23
[19:00:20] <&test> Son Çevrimiçi Olduğu Süre: 0 sn
[19:00:20] <&test> Toplam Çevrimiçi Olduğu Süre: 0 sn

ve süre sayımı kanalda olduğu halde başlamadı. Kodu tekrar kontrol edermisiniz.

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder
Stil
Normal Hybrid-Şeklinde gösterime geç Ağaç şeklinde gösterime geç

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Tuvalet takip sistemi!	Kralice	Bilim Dünyasından Son Haberler	0	18 Mart 2009 20:38

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.