Mesaj atıcı tcl (dcc'den)
PHP- Kodu:
# mesaj atıcı tcl mesaj.tcl
# IUC 2025 aralık
#
# .wallop <mesaj> or /msg bot wallop <mesaj>
# mesaj atacakların +o olması gerekir, Bütün kullanıcılara ve diğer oplara mesaj atar
bind dcc o wallop wall_ops_dcc
proc wall_ops_dcc {hand idx arg} {
if {$arg == ""} {
putdcc $idx "Kullanım: .wallop <mesaj>"
return 0
}
global botnick channel
if {$channel == ""} {
putdcc $idx "Kanalda değilim!"
return 0
}
set wallnicks ""
set members [chanlist]
foreach who $members {
if {[isop $who] && ![onchansplit $who] && $who != $botnick} {
append wallnicks ",$who"
}
}
if {$wallnicks != ""} {
putserv "PRIVMSG [string trimleft $wallnicks ,] :\002\< [string toupper $hand]\>\002 $arg'dan/den Mesaj var."
putdcc $idx "Mesaj: $arg"
putdcc $idx "Kime: [string trimleft $wallnicks ,]"
if ![botisop] {
putdcc $idx "Bu arada kanalda op değilimki!! Op statümle neler yapacağımı gör..."
}
return 1
} else {
putdcc $idx "Mesaj atacak kimse yokki bulamadım..."
return 0
}
}
bind msg o wallop wall_ops_msg
proc wall_ops_msg {nick uhost hand arg} {
if {$arg == ""} {
putserv "NOTICE $nick :Kullanım: wallop <mesaj>"
return 0
}
global botnick channel
if {$channel == ""} {
putserv "NOTICE $nick :Kanalda değilim!"
return 0
}
set wallnicks ""
set members [chanlist]
foreach who $members {
if {[isop $who] && ![onchansplit $who] && $who != $botnick} {
append wallnicks ",$who"
}
}
if {$wallnicks != ""} {
putserv "PRIVMSG [string trimleft $wallnicks ,] :\002\<WALLOPS FROM [string toupper $nick]\>\002 $arg"
putserv "NOTICE $nick :Mesaj: $arg"
putserv "NOTICE $nick :Gönderilen: [string trimleft $wallnicks ,]"
if ![botisop] {
putserv "NOTICE $nick :Bu arada,Op değilim!! Op oluncas statümü gör..."
}
return 1
} else {
putserv "NOTICE $nick :Mesaj atacak kimse yok bulamadım..."
return 0
}
}
| 