diff options
| -rw-r--r-- | accountscript.tcl | 35 |
1 files changed, 35 insertions, 0 deletions
diff --git a/accountscript.tcl b/accountscript.tcl index 4a7abdd..ecf2eb1 100644 --- a/accountscript.tcl +++ b/accountscript.tcl @@ -139,3 +139,38 @@ proc acct_chflags {nick user hand chan text} { putserv "PRIVMSG $chan :$nick, you do not have access to ,chflags" } } + +bind PUB * ,part acct_part + +proc acct_part {nick user hand chan text} { + set accthand [finduser -account [getaccount $nick]] + if [string match $accthand "*"] { + putserv "PRIVMSG $chan :$nick, you are not authenticated to NickServ and/or I don't know you!" + return 1 + } + if {[matchattr $accthand +o]} { + channel remove [string trim $text] + putquick "PRIVMSG $chan :\[part\] removed [string trim $text]" + savechannels + } else { + putserv "PRIVMSG $chan :$nick, you do not have access to ,part" + } +} + +bind MSG * part acct_part_pm + +proc acct_part_pm {nick user hand text} { + set accthand [finduser -account [getaccount $nick]] + if [string match $accthand "*"] { + putserv "NOTICE $nick :you are not authenticated to NickServ and/or I don't know you!" + return 1 + } + if {[matchattr $accthand +o]} { + channel remove [string trim $text] + putquick "NOTICE $nick :\[part\] removed [string trim $text]" + putquick "PRIVMSG #fire-trail :\[part\] $nick ($accthand) removed [string trim $text]" + savechannels + } else { + putserv "NOTICE $nick :you do not have access to part" + } +} |