i do command:
!warn #chan Nick warn-msg
then in telent i get this:
[14H:08m:1692541163s] triggering bind chan:warn
nothing goes to chan
Code: Select all
# Commands:
# !warn $nick reasons-for-warn <=- send channel warn.
###################################################################
# Set channel command trigger (default: !)
set warntriga "!"
# Set channel access flags to use these commands (default: o)
# This channel access flag is only able to use: !warn
set warnchanflags o
proc getWarnTriga {} {
global warntriga
return $warntriga
}
bind pub - ${warntriga}warn chan:warn
proc chan:warn {nick uhost hand chan arg} {
global warnchanflags
if {[matchattr [nick2hand $nick] $warnchanflags $chan]} {
putquick "MSG $chan :\002WARN\002 for $chan sent to $nick"
putserv "MSG $nick :********* \002$chan Warn\002 **********"
foreach botwarn [warn $chan] {
putserv "MSG $nick :\002BOTWARN\002: $botwarn"
}
putserv "MSG $nick :********** \002$chan Warn \037END\037\002 **********"
}
}
bind msg - warn chan:warn
proc chan:warn {nick uhost hand chan arg} {
global warnchanflags
if {([lindex $arg 0] == "") && ([matchattr [nick2hand $nick] $warnchanflags])} {
putquick "MSG $nick :********** \002WARN\002 **********"
foreach botwarn [warn] {
putquick "MSG $nick :\002CHANWARN\002: $botwarn"
}
putquick "MSG $nick :********** \002Warn \037END\037\002 **********"
foreach chanwarn [warn $chan] {
putquick "MSG $nick :\002CHANWARN\002: $chanwarn"
}
putquick "MSG $nick :********** \002$chan Warn \037END\037\002 **********"
}
}
putlog "LOADED .:Warn.tcl:. - istok @ IRCSpeed"
Eggdrop community