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

Bunu .durum veya .dinleyci yazarak nsil calsitira biliriz..

şöyle bir durum var her kanala giridignde bot dinleycileri veriyor odaya 1 dakada 10 kisi girse 10 defa veriyor

Alıntı:

Kablosuz NET Nickli Üyeden Alıntı (Mesaj 851344)

Kod:

# Radyo dinleyici eklentisi

# site: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Alinti: SaW

# Duzenleyen: aCoustiC
 

#radyo kanali

set sc(kanal) "#radyo"

#radyo portu

set sc(port) "7979"

#radyo ip

set sc(ip) "174.36.194.119"

#radyo sifre

set sc(sifre) "adminsifremiz"
 
 

#Ayar kisimlari bitti, gerisini ellemenize gerek yoktur.
 
 

bind raw - 315 who_son

bind time - "* * * * *" sc:dinleyici

proc sc:dinleyici {min hour day month year} {

        global nicks SayIp

        http::config -useragent "Mozilla 5.0"

        set baglan [http::geturl http://$::sc(ip):$::sc(port)/admin.cgi?pass=$::sc(sifre)&mode=viewxml&page=0 -timeout 10000]

        set httpraw [http::data $baglan]

        set nicks ""

        set ips ""

        set SayIp "0"

        http::cleanup $baglan
 

        if { [regexp "<LISTENERS>(.*?)</LISTENERS>" $httpraw data veri] } {

                set listeraw $veri

                bind raw - 352 raw_oku

                regsub -all "</LISTENER>" $listeraw "</LISTENER>\n" listeraw

                foreach strListe $listeraw {

                        if { [regexp "<HOSTNAME>(.*?)</HOSTNAME>" $strListe data ipVeri] } { 

                                if {[regexp $ipVeri $ips] == "0"} { 

                                        lappend ips $ipVeri

                                        incr SayIp

                                        

                                }

                        }

                }

        }

        foreach x $ips {

                 putserv "who +i $x"

        }

}

proc raw_oku {from keyword arg} {

        global nicks

        set nick [lindex $arg 5]

        if {[regexp {$nick} $nicks] == "0"} { 

                

                lappend nicks $nick 

        }

}

proc who_son {from keyword arg} {

        global nicks SayIp

        set SayIp [expr $SayIp - 1]

        ;#putlog $SayIp

        if {$SayIp == "0"} {

                foreach xy [chanlist $::sc(kanal)] {

                        if {[regexp $xy $nicks] == "1"} {

                                if {[isvoice $xy $::sc(kanal)] == "0"} {

                                        putserv "sajoin $xy #radyo"

                                        putserv "mmmode $::sc(kanal) +v $xy"

                                }

                        }

                        if {[regexp $xy $nicks] == "0"} {

                                if {[isvoice $xy $::sc(kanal)] == "1"} {

                                        putserv "mmmode $::sc(kanal) -v $xy"

                                }

                        }

                }

                putserv "os raw :operserv PRIVMSG $::sc(kanal) :\02 0,4.::. Radyomuzu Dinleyenler .::.\02 0,1 $nicks"

                unbind raw - 352 raw_oku

        }

}

Ben bota raw yetkisi vermiştim Operserv yazıyor yazıları.. Kendinize göre düzenleyin..