IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Sunucusu Olan Arkadaşlarımızın En Büyük Sıkıntılarından Birisidir Op Ver Oper Ver Sop Ver Kanal Ver vs vs vs Ver Allah Ver Şeklindeki İstekler.
Eminim ki; Hak Edenlere, İlgilenenlere Aop - Sop vs Verilirken Haz Duyuyoruz Ama Birde Sadece Kanalda Görüntüsü Olması Adı Altında Kankiiii Beni Op Yapsana vs vs Şeklinde Yapışan Tipler Vardır. Op İsterler; Ama Kanaldan Başka Hrşeyle İlgilenirler :)
Ya Okey'de Ya MSN'de Ya Telefondadırlar.
Bu TCL'nin Tek Özelliği Belirli Zaman Dilimleri Arasında Belirlemiş Olduğunuz Kanalda Aop ve Sop Yetkisindeki Kullanıcıların Konuşmadıkları, İşlem Yapmadıkları Zaman Aralıklarını Kontrol Ederek Deop ve Deprotect Etmesidir.
Bu Sayede PC Başında Olmadığı Halde, Yada Kanalla İlgilenmediği Halde @ ve & Olan Ama Hatır Gönül Kırmamak İçin Ses Çıkar(a)madığımız Kişilere Bir Nebzede Olsun Engel Teşkil Edeceği Şüphesiz.
Kaldı ki Size Kırılma Şansları da Yok. Git Bota Küs Hemşerim Deme Şansınız Var... ;oki

PHP- Kodu:

   ##### configuration #####
 
# set the interval between idlechecks in minutes
set idle_interval "5"
# set the idle-time an operator must have to get deopped by the bot in minutes
set idle_time "10"
# [0/1] do we want to exclude bots from being idle-deopped?
# generally a good idea
set idle_exclude_bots "1"
 
# set channels where idle-deopper should be active seperated by spaces
# set to " " for all 
set idle_channels "#Diyalog"
 
#########################################################################################
## Hepsi Bu Kadar ### Burdan Sonrasındaki Editler Sorun Yaratabilir #####################
#########################################################################################
 
 
bind raw - 317 idlecheck
proc idlecheck {nick int arg} {
global idle_time idle_channels
set nick [string tolower [lindex $arg 1]]
set idle [string tolower [lindex $arg 2]]
set minutesidle [expr $idle / 60]
if {$minutesidle > $idle_time} {
dccbroadcast "$nick has too much idle"
foreach channel $idle_channels {
putserv "MODE $channel -oa $nick $nick"
putlog "Uzun Sure Sessiz Kaldinigi Icin $nick Nicki $channel Kanalinda Deop Edildi..."
}
}
}
proc perform_whois { } {
global idle_channels botnick idle_exclude_bots idle_interval
if {$idle_channels == " "} {
set idle_temp [channels]
} else {
set idle_temp $idle_channels
}
foreach chan $idle_temp {
dccbroadcast "Now checking \002$chan\002 for idle"
foreach person [chanlist $chan] { 
if { [isop $person $chan]} { 
if {$idle_exclude_bots == 1} {
if {(![matchattr [nick2hand $person $chan] b]) && ($person != $botnick)} { putserv "WHOIS $person $person" }
}
if {$idle_exclude_bots == 0} {
if {$person != $botnick} { putserv "WHOIS $person $person" }
}
} 
} 
}
if {![string match "*time_idle*" [timers]]} {
timer $idle_interval perform_whois
}
}
if {![string match "*time_idle*" [timers]]} {
timer $idle_interval perform_whois
}
putlog "Idle-deop by -=(KATILSANA.Com Idle Check)=- \002LOADED\002!"

Kendi Sunucumda ScanX'e Eklenmiş Durumda ve Sorunsuz Olarak Çalışıyor.
Umarım Sizlerinde Beğenisini Alacaktır. TCL Yazılımı Bana Ait Değildir. Ve Fakat Kesinlikle Alıntı Değildir.
Şu Ana Dek Kullanıldığı Tek Sunucu irc.KATILSANA.Com Olmuştur.
Tcl Editi Çok Kıymetli İki Arkadaşımdan Birisine Ait.
Ama Hangisi Olduğunu Anımsayamadığım İçin Nick Yada İsim Belirtmekten Kaçındım. Yanlış Anlaşılmak İstemem.
Saygılar...