search_girl iei a&a_01_a_core.tcl si il editezi.
cauti asta:
Code:
proc a:parse:anti {nick uhost hand chan text args} {
if {![validchan $chan] || ![botisop $chan] || [check:fo:ch $hand $chan $nick]} {return}
if { [channel get $chan antipub] && [string match "*#*" $text]} {set why "antipub" } elseif {
[channel get $chan anticolour] && [string match *\003* $text]} {set why "anticolour" } elseif {
[channel get $chan antirepeat] && [a:flood -repeat $chan $hand $uhost $text]} {set why "antirepeat" } elseif {
[channel get $chan antinotice] && [string equal [lindex $args 0] notice]} {set why "antinotice" } elseif {
[channel get $chan antiunderline] && [string match *\037* $text]} {set why "antiunderline"} elseif {
[channel get $chan antibold] && [string match *\002* $text]} {set why "antibold" } elseif {
[channel get $chan antireverse] && [string match *\026* $text]} {set why "antireverse" } elseif {
[channel get $chan antiurl] && ([string match *www.*.* $text] || [string match *http://*.* $text])} {set why "antiurl" } else {return}
si inlocuiesti cu asta:
Code:
proc a:parse:anti {nick uhost hand chan text args} {
if {![validchan $chan] || ![botisop $chan] || [check:fo:ch $hand $chan $nick]} {return}
if { [channel get $chan antipub] && [string match "*#*" $text]} {set why "antipub" } elseif {
[channel get $chan anticolour] && [string match *\003* $text]} {set why "anticolour" } elseif {
[channel get $chan antirepeat] && [a:flood -repeat $chan $hand $uhost $text]} {set why "antirepeat" } elseif {
[channel get $chan antinotice] && [string equal [lindex $args 0] notice]} {set why "antinotice" } elseif {
[channel get $chan antiunderline] && [string match *\037* $text]} {set why "antiunderline"} elseif {
[channel get $chan antiswear] && [string match "******" $text] || [string match "*******" $text] || [string match "*coaie*" $text] || [string match "*cur*" $text] || [string match "*dobitoc*" $text] || [string match "*cretin*" $text] || [string match "*dick*" $text] || [string match "*cock*" $text] || [string match "*pussy*" $text] || [string match "*ass*" $text] || [string match "*asshole*" $text] || [string match "*hai steaua*" $text] || [string match "*hai rapid*" $text] || [string match "***** dinamo*" $text] || [string match "*futut*" $text] || [string match "*muist*" $text] || [string match "*sloboz*" $text] || [string match "*sperma*" $text] || [string match "*labagiu*" $text] } {set why "antiswear" } elseif {
[channel get $chan antibold] && [string match *\002* $text]} {set why "antibold" } elseif {
[channel get $chan antireverse] && [string match *\026* $text]} {set why "antireverse" } elseif {
[channel get $chan antiurl] && ([string match *www.*.* $text] || [string match *http://*.* $text])} {set why "antiurl" } else {return}
si in a&a_22_a_local_n.tcl cauti
Code:
[regexp {^[+-](auto(op|voice)|bitch|cycle|revenge(bot|)|dontkickops|nodesynch|(dynamic|enforce|user)bans|inactive|protect(friends|ops)|secret|greet|seen|anti(pub|colour|bold|underline|notice|url|reverse|repeat|action)|limit|secure|voice|op|enforcetopic)$} $mode]} {channel set $chan $mode} elseif {
si inlocuiesti cu
Code:
[regexp {^[+-](auto(op|voice)|bitch|cycle|revenge(bot|)|dontkickops|nodesynch|(dynamic|enforce|user)bans|inactive|protect(friends|ops)|secret|greet|seen|anti(pub|colour|bold|underline|notice|url|reverse|repeat|action|swear)|limit|secure|voice|op|enforcetopic)$} $mode]} {channel set $chan $mode} elseif {
si in settings.conf adaugi:
Code:
setudef flag antiswear