абе трябва ми 1 tcl който:
при слагане на бан *!*@*
da go maha ot CS ( ako ima )
да сетва noops
clear $chan all
п.с.
търсил съм къде ли не такъв тцл... мислех сам да си напиша ,но
незнам как се описва бан в tcl... ако някой знае... и това ще е от помощ
Благодаря предварително
RQ: TCL
RQ: TCL
Нито ден пропилян , секи ден пиян!!
-
Replace
Code: Select all
# created by Yxaaaaaaa ( http://www.egghelp-bg.com )
# antiglobban.tcl
# tozi tcl predpazva kanala ot slagane na globalen ban ot tipa *@*
namespace eval eantiglobban {
# informaciq za tcl-a
variable version "antiglobban.tcl"
# informaciq za avtora
variable author "Yxaaaaaaa ( http://www.egghelp-bg.com/ )"
# ako ne razbirash nedei pipa nadolu :)
bind mode - *+b* [namespace current]::e:lookban
proc e:lookban {n u h c m w} {
if {$n == "CS" && ([string match "\*@\*" $w] || [string match "??\*@\*" $w])} {
putserv "PRIVMSG CS :listbans $c"
putserv "PRIVMSG CS :delban $c $w"
}
}
bind notc - *\[mod:* [namespace current]::e:whoban
bind notc - *channel*ban*list:* [namespace current]::e:chan
proc e:chan {n u h t d} {
variable echanak
set echanak [lindex $t 1]
}
proc e:whoban {n u h t d} {
variable echanak
if {$n != "CS"} return
if {[lindex $t 0] == "\*!\*@\*"} {
set victim [string map [list "]" ""] [lindex $t 4]]
putserv "PRIVMSG CS :addban $echanak $victim 150 Zabraneni sa globalni banove!"
putserv "PRIVMSG CS :clearallops $echanak"
newban "*!*@[lindex [split [getchanhost $victim] "@"] 1]" $::botnick "Zabraneni sa globalni banove!" 10
}
}
putlog "$version by $author loaded"
}