[Xadd1]

Sunucunuzdaki eggdrop düşmesini önlemek için kullanılabilir. Kırmızı ile çizdiğim yerleri scriptten renklendirmeyi unutmayınız...
!lagcheck komutu ile de yapabilirsiniz..

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

# Komutları kullanmak için kullanıcı flagını burada ayarlayın.
set lagflag "m"

# Botun gecikmenin çok yüksek olduğunu bildireceği kanalları buradan ayarlayın.Devre dışı bırakmak için "" olarak ayarlayın.
set lagchans "#Sohbet"

# Bu, gecikme sınırıdır, gecikme bu süreyi (saniye cinsinden) aşarsa, bot sunucuları atlar.
set antilagtime 5

# Bu, komut dosyası zamanlayıcısıdır, bu, botun gecikmeyi kontrol edeceği dakika sayısıdır.
set lagtimer 10

# Gecikmeyi kontrol ederken botun taraf hattını bilgilendirmesini istiyorsanız bunu 1 olarak ayarlayın. Devre dışı bırakmak için 0'a ayarlayın.
set lagnotify 1

### Bu satırın altında düzenleme yapmayın! ###
### ---------------------------- ###

set antilagv 1.03
bind raw - 391 raw:check:lag
bind pub ${lagflag} !lagcheck pub:antilag
bind dcc ${lagflag} lagcheck dcc:antilag

if {![info exists antilagloaded]} {
  timer $lagtimer proc:antilag
  set antilagloaded 1
}

proc proc:antilag {} {
  global lagtimer lagnotify
  set ::lag "[clock clicks]"
  set ::type 0
  if {$lagnotify == 1} { putlog "\02-Anti-Lag-\02 Sunucu gecikmesi kontrol ediliyor.." }
  putquick "TIME"
  timer $lagtimer proc:antilag
}

proc pub:antilag {nick uhost hand chan text} {
  global lagchans
  foreach msgchan $lagchans {
    if {$chan == $msgchan} {
      set ::lag "[clock clicks]"
      set ::type 1
      set ::chan $msgchan
      putquick "PRIVMSG $::chan :\02-Anti-Lag-\02 Sunucu gecikmesi kontrol ediliyor.."
      putquick "TIME"
    }
  }
}

proc dcc:antilag {hand idx text} {
  set ::lag "[clock clicks]"
  putlog "\02-Anti-Lag-\02 Now checking server lag."
  set ::type 2
  putquick "TIME"
}

proc raw:check:lag {from key text} {
  global antilagtime lagchans lagnotify
  set lag [expr ((([clock clicks] - $::lag)/2)/60)/1000.]
  if {$lagnotify == 1} { putlog "\02-Anti-Lag-\02 Geçerli gecikme \02$lag\02 Saniyedir." }
  if {$::type == 1} { putquick "PRIVMSG $::chan :\02-Anti-Lag-\02Geçerli gecikme \02$lag\02 Saniyedir." }
  if {($lagnotify == 0) && ($::type == 2)} { putlog "\02-Anti-Lag-\02 Geçerli gecikme \02$lag\02 Saniyedir." }
  if {$lag > $antilagtime} {
    if {($lagchans != "") && ($::type != 2)} {
      foreach msgchan $lagchans {
        putquick "PRIVMSG $msgchan :\02Attention\02: Gecikmem sınırı aştı $antilagtime seconds (currently at $lag seconds). Şimdi sunucuları atlıyorum."
       }
     }
    putlog "\02-Anti-Lag-\02 Lag exceeded $antilagtime seconds. Trying another server..."
    jump
   }
  unset -nocomplain ::lag
  unset -nocomplain ::chan
  if {[info exists ::type]} { unset -nocomplain ::type }
 }

putlog "Antilag.tcl by FrostByte.."