mIRC Scripting  


Geri dön   mIRC Scripting > mIRC Scripting > Showcase - Hazır kodlar

Showcase - Hazır kodlar mIRC Scripting hakkında hazır kodları bulup, paylaşabileceğiniz bölüm.

Cevapla
 
LinkBack Seçenekler
  #1  
Alt 12 Mayıs 2014, 23:33
Avatar Yok
 Uzaklaştırılmış 

mS Puan: 21
mS Derece: Lociz
 
Üyelik tarihi: 04 Mart 2014
Mesajlar: 2
Konular: 2
Eklentiler: 0
Alınan Teşekkür: 0
Yapılan Teşekkür: 0
Standart Online Takip Sistemi

Gelişmiş bir online takip sistemi hazırladım.
Botun çalışabilmesi için %chan ve %opchan verilerinin doldurulması gerekmekte. %chan verisine user kanalını, %opchan verisine op kanalı yazılacaktır.
Ayrıca %master verisi de doldurulacak. %master verisine botun sahibinin nicki yazılacaktır.

%opchan kanalında &yardım yazarsanız daha detaylı bir bilgi alabilirsiniz.

Kod:
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. }
}
Log:

PHP- Kodu:
[23:32:38] <@Lociz> &yardim
[23:32:40] <LBot2[!&.]gizle NICKNICK operatörün işlem kayıtlarıoperatör listesindeki adını göstermemek için kullanılan komutturSadece MASTER yetkisine sahip kullanıcı kullanabilirKullanım detayı için: &help 1 yazınız.
[
23:32:41] <LBot2[!&.]&goster NICKGizlenme modu aktif edilen NICK operatörünün gizlilik modunu açmak için kullanılan komutturSadece MASTER yetkisine sahip kullanıcı kullanabilirKullanım detayı için: &help 2 yazınız.
[
23:32:42] <LBot2[!&.]&ekle NICKNICK adlı kullanıcıyı takip listesine eklemek için kullanılan komutturSadece OPERATÖR ve MASTER yetkisine sahip kullanıcılar kullanabilirKullanım detayı için: &help 3 yazınız.
[
23:32:43] <LBot2[!&.]&sil NICKNICK adlı kullanıcıyı takip listesinden çıkarmak için kullanılan komutturSadece OPERATÖR ve MASTER yetkisine sahip kullanıcılar kullanabilirKullanım detayı için: &help 4 yazınız.
[
23:32:43] <LBot2[!&.]&list: Takip listesindeki kullanıcıları listelemek için kullanılan komutturSadece OPERATÖR ve MASTER yetkisine sahip kullanıcılar kullanabilirKullanım detayı için: &help 5 yazınız.
[
23:32:44] <LBot2[!&.]&bilgi NICKTakip listesinde bulunan NICK kullanıcısının takip bilgilerini görmek için kullanılan komutturSadece OPERATÖR ve MASTER yetkisine sahip kullanıcılar kullanabilirKullanım detayı için: &help 6 yazınız.
[
23:32:45] <LBot2[!&.]&top10Takip listesinde en çok kim çevrimiçi oluyorÖğrenmek için kullanılan komutturSadece OPERATÖR ve MASTER yetkisine sahip kullanıcılar kullanabilirKullanım detayı için: &help 7 yazınız.
[
23:32:46] <LBot2[!&.]&clistTakip listesindeki çevrimiçi kullanıcıları için listelemek için kullanılan komutturSadece OPERATÖR ve MASTER yetkisine sahip kullanıcılar kullanabilirKullanım detayı için: &help 8 yazınız.
[
23:32:47] <LBot2[!&.]&dlistTakip listesindeki çevrimdışı kullanıcıları için listelemek için kullanılan komutturSadece OPERATÖR ve MASTER yetkisine sahip kullanıcılar kullanabilirKullanım detayı için: &help 9 yazınız.
[
23:32:48] <LBot2[!&.]&sifirla NICKNICK adlı kullanıcının takip bilgilerini sıfırlamak için kullanılan komutturSadece OPERATÖR ve MASTER yetkisine sahip kullanıcılar kullanabilirKullanım detayı için: &help 10 yazınız.
[
23:32:49] <LBot2[!&.]&osifirla NICKNICK adlı operatörün işlem kaydını sıfırlamak için kullanılan komutturSadece MASTER yetkisine sahip kullanıcı kullanabilirKullanım detayı için: &help 11 yazınız.
[
23:32:50] <LBot2[!&.]&tsifirla Tüm kullanıcıların takip bilglierinitakip listesinioperatörlerin işlem kaydınıoperatör listesini sıfırlamak için kullanılan komutturSadece MASTER yetkisine sahip kullanıcı kullanabilirKullanım detayı için: &help 12 yazınız.
[
23:32:51] <LBot2[!&.]&oekle NICKNICK adlı kullanıcı operatör listesine eklemek için kullanılan komutturSadece MASTER yetkisine sahip kullanıcı kullanabilirKullanım detayı için: &help 13 yazınız.
[
23:32:52] <LBot2[!&.]&osil NICKNICK adlı operatörü operatör listesinden çıkarmak için kullanılan komutturSadece MASTER yetkisine sahip kullanıcı kullanabilirKullanım detayı için: &help 14 yazınız.
[
23:32:53] <LBot2[!&.]&olistOperatör yetkisine sahip kullanıcıları görmek için kullanılan komutturSadece OPERATÖR ve MASTER yetkisine sahip kullanıcılar kullanabilirKullanım detayı için: &help 15 yazınız.
[
23:32:54] <LBot2[!&.]&obilgi NICKOperatör listesinde bulunan NICK operatörünün işlem kaydını görmek için kullanılan komutturSadece OPERATÖR ve MASTER yetkisine sahip kullanıcılar kullanabilirKullanım detayı için: &help 16 yazınız.
[
23:32:55] <LBot2[!&.]&optop10Takip listesinde bulunan operatörlerin içinde en çok kim çevrimiçi oluyorÖğrenmek için kullanılan komutturSadece OPERATÖR ve MASTER yetkisine sahip kullanıcılar kullanabilirKullanım detayı için: &help 17 yazınız.
[
23:32:56] <LBot2[!&.]&rebootLBot botunun yeniden başlatılması için kullanılan komutturSadece MASTER yetkisine sahip kullanıcı kullanabilirKullanım detayı için: &help 18 yazınız
Alıntı ile Cevapla
Sponsored Links
Cevapla

Etiketler
online, sistemi, takip

Seçenekler

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
nick takip (oper ) djmerlyn Help - Yardım 1 26 Ocak 2014 13:59
online takip biLecikLi Help - Yardım 2 30 Ağustos 2013 15:02
Nick - IP takip , Süre:1saat Mudin Showcase - Hazır kodlar 2 02 Ağustos 2012 18:53
ip takip fav Help - Yardım 3 26 Ocak 2012 16:35
Üyelik sistemi Dicaste Help - Yardım 1 15 Ağustos 2011 15:50


Yasal Uyarı

    5651 sayılı yasada belirtilen "Yer Sağlayıcı" olarak hizmet sunmaktadır. İlgili yasaya göre site yönetiminin tüm içerikleri kontrol etme yükümlülüğü yoktur. Bu sebep ile sitemiz, uyarıları dikkate alarak yasa dışı paylaşımlar hakkında gerekli işlemleri yapmaktadır. Oluşabilecek yasal sorumluluklar üyelerimize aittir. Gerekli şikayet bildirimleri yapabilmek için "burayı" tıklayarak gerekli alanları doldurup yapabilirsiniz.
mIRCScripting©
Powered by vBulletin®
Copyright © 2000-2015, Jelsoft Enterprises Ltd.
SEO by vBSEO 3.6.1

1 2 13 14 16 17 18 19 21 22 23 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 49 50 51 52 54 55 56 57 58 59 60 61 62 63 67 68 69 70 71 72 73 74 75 76