Opers Kanalına Uyumlu !Global TCL

[No_FeaR]

Komut ; !Global MESAJ



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!"

}

}