Гост
Jun 25 2008, 04:08 AM
Здравейте, бихте ли ми направили ето този ТЦЛ, да слага на усера НЕ само игноре за мсг, а и за
СТЦП.
CODE
bind msgm - "*" msg:bot
proc msg:bot {nick uhost hand text} {
if {![matchattr $hand o]} {
foreach chan [channels] {
if {[botisop $chan] && [onchan $nick $chan]} {
if {$hand == "*"} {set hand $nick}
if {$hand != "*" && ([matchattr $hand fn|nf $chan] == 1 || [matchattr $hand b] == 1)} {
return 0
}
newignore "*!*@[lindex [split $uhost @] 1]" $nick "Ми писа на привейт, за това беше ИГНОРИРАН" 6060
}
}
}
}
Благодаря предварително.
Гост
Jun 25 2008, 02:23 PM
Това го имам, просто ми преработете този тцл да работи не само за МСГ ами и за СТЦП : )
Polizei
Jun 25 2008, 03:29 PM
CODE
bind ctcp - * handle:ctcp
proc handle:ctcp {nick uhost hand dest key {text ""}} {
if {([matchattr $hand o]) || ([matchattr $hand b])} {
return 0
}
foreach chan [channels] {
if {[matchattr $hand o $chan]} {
return 0
}
}
newignore "*!*@[lindex [split $uhost @] 1]" "ctcp-ignore.tcl" "CTCP!?" 6000
return 1
}
Гост
Jun 25 2008, 03:55 PM
Супер, работи страхотно благодаря ти много Polizei .
Гост
Jun 25 2008, 04:13 PM
Обаче само да те помоля, ще ме извиняваш, погледни ми само горния ТЦЛ където съм дал, защото сега забелязах че просто не ми работи, не дава грешка, а просто не слага игноре, ако обичаш погледни го само, и ако има нещо пастни го да го сложа верен, благодаря ти предварително .
Polizei
Jun 26 2008, 01:10 PM
CODE
bind msgm - * handle:msgm
proc handle:msgm {nick uhost hand text} {
if {([matchattr $hand o]) || ([matchattr $hand b])} {
return 0
}
foreach chan [channels] {
if {[matchattr $hand o $chan]} {
return 0
}
}
newignore "*!*@[lindex [split $uhost @] 1]" "pmsg-ignore.tcl" "PMSG!?" 6000
return 1
}
Толкова е лесно, че просто нямам думи, ама... нямам думи :0