Anti me o/ame tcl scripti
Kod:
# Anti me 0/ame IUC Ekim 2024
# iuc@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].com
set amekick "Kanal içerisinde /me o /ame atmak yasaktır.. $::actban min.Cezalısınız..."
# Banlama süresi 5 dakika
# Sürekli Ban için değeri 0 yapınız.....
set actban 5
bind ctcp - ACTION ban:act
proc ban:act { nick uhost hand dest key text } {
global amekick
if {![botisop $dest] || [isop $nick $dest] || [ishalfop $nick $dest] && [validuser $hand] && [matchattr [nick2hand $nick] ofm|ofm $dest]} { return }
newban *!$uhost $::botnick "Kanal içerisinde /me o /ame $::actban min.cezalsınız.." $::actban
foreach chan [channels] {
if [onchan $nick $chan] { putquick "KICK $chan $nick :$amekick" }
}
}
| 