🔔 Çevrimdışı bildirim almak ister misiniz?
Bir konuya etiketlendiğinizde, özel mesaj aldığınızda, bir mesajınız alıntılandığında forumda olmasanız bile anlık bildirim almak için lütfen izni verin.
PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!
# 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
}
}
__________________ Bir çok yeni lamer sunucuda IUC nicki kullanıyor lamerlar onlar ben değilim inanmayınız ve güvenmeyiniz. Kullanıcı imzalarındaki bağlantı ve resimleri görebilmek için en az 20 mesaja sahip olmanız gerekir ya da üye girişi yapmanız gerekir.
04 Aralık 2025, 04:57
Benzer Konular 
Normal
