No services privmsg
# No services privmsg by JohnnyCage
set ChanServ_nick "CS"
set NickServ_nick "NS"
set MemoServ_nick "MS"
bind dcc -|- msg check_msg
proc check_msg { arg1 arg2 arg3 } {
global ChanServ_nick NickServ_nick MemoServ_nick
set saob [lrange $arg3 1 end]
set kamkogo [lindex $arg3 0]
set kamkogo [string toupper $kamkogo 0 end]
if {![matchattr $arg1 +n]} {
if {$kamkogo == $ChanServ_nick || $kamkogo == $NickServ_nick || $kamkogo == $MemoServ_nick} {
putlog "$arg1, only +n flag users can write private with $kamkogo!"
return 0
}
}
putserv "PRIVMSG $kamkogo :$saob"
}
putlog "No services privmsg loaded"
