[immortaL]

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. }

}

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

[23:32:38] <@Türkiye> &yardim [23:32:40] <UğuR> 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. 
[23:32:41] <UğuR> 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. 
[23:32:42] <UğuR> 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. 
[23:32:43] <UğuR> 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. 
[23:32:43] <UğuR> 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. 
[23:32:44] <UğuR> 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. 
[23:32:45] <UğuR> 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. 
[23:32:46] <UğuR> 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. 
[23:32:47] <UğuR> 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. 
[23:32:48] <UğuR> 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. 
[23:32:49] <UğuR> 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. 
[23:32:50] <UğuR> 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. 
[23:32:51] <UğuR> 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. 
[23:32:52] <UğuR> 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. 
[23:32:53] <UğuR> 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. 
[23:32:54] <UğuR> 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. 
[23:32:55] <UğuR> 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. 
[23:32:56] <UğuR> 2[!&.]&reboot: UğuR 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.