lookjapan.COM - IRC ve mIRC dünyasının forumu! - Opers Kanalına Uyumlu !Global TCL

Komut ; !Global MESAJ

Kod:

  

   

set admin_chan "#Opers"

bind pub - !global global:msg

proc global:msg {n u h c a} {



    global botnick admin_chan

    if {($c != $admin_chan)} { return }

    set glob_msg [lindex $a ]

    if {$glob_msg == ""} { putquick "privmsg $c :Global mesaji yazmadiniz."; return 0 }

    if {[onchan $n $admin_chan]==1} {



        putquick "PRIVMSG operserv : global $glob_msg"

        putquick "PRIVMSG #Opers : Belirttiginiz mesaj tum sunucuya global olarak gonderildi."



    }



    if {[onchan $n $admin_chan]==0} {



    putquick "MODE $c +b $n"



    putquick "KICK $c $n Bu komutu kullanmaya yetkiniz yok!"



    }



}