Tekil Mesaj gösterimi
Alt 05 Nisan 2008, 23:18   #4
Çevrimdışı
JoinT
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: tcl istek acil...




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
############################################################### ## Bot sunucu üzerinde aşağıda belirleyeceğiniz sayıdan daha ## ## daha fazla user olan kanala otomatik olarak girer ve ## ## kanalı korumaya alır. Default olarak 5 ayarlanmıştır. ## ############################################################### set usersayisi 2 bind raw - "322" kanal_listele set listzaman 30 if {![string match "*kanal_listesi*" [utimers]]} { utimer $listzaman kanal_listesi } proc kanal_listesi {} { global listzaman putserv "LIST" utimer $listzaman kanal_listesi return 1 } proc kanal_listele {from keyword arg} { global usersayisi botnick set listekanaladi [lindex $arg 1] set guncelsayi [lindex $arg 2] if {[lsearch -exact [string tolower $listekanaladi]] != -1} {return 0} if {$guncelsayi >= $usersayisi && ![validchan $listekanaladi]} { channel add $listekanaladi { +nodesynch flood-chan 10:2 } putserv "privmsg #Services :$listekanaladi kanalina giriş yapıldı" } if {$guncelsayi < $usersayisi && [validchan $listekanaladi]} { channel remove $listekanaladi putserv "privmsg #Services :$listekanaladi kanalindan çıkış yapıldı" } else { return 0 } }

Kırmızı ile belirttigim yerler giriş çıkışlarını belirtecegi kanal orayı kendine göre düzenle

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları eglen sohbet reklamver