;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; WebClient Ban Subsitution ;
; ;
; This script works in two phases: ;
; 1) - Detect when a site ban is placed on irccloud/mibbit/kiwiirc. ;
; - Unban the site ban that could possibly affect multiple clients. ;
; - Set variable and wait for the kick to determine the banned client. ;
; ;
; 2) - After the kick takes place, make sure the variable matches the client. ;
; - Once verified, place an ident ban for the client who got kicked. ;
; ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Author: psycho ;
; Network: Undernet / irc.undernet.org ;
; Channel: #psycho ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Credits ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; simo for the original idea ;
; Ouims for helping with the regex code. ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
on *:LOAD:{
echo -at You just loaded the irccloud/mibbit/kiwiirc ban replacement script
echo -at This Script does not require additional configuration
echo -at Simply load it and wait for the magic to happen.
}
on *:UNLOAD:{
echo -at What the hell??
echo -at Alrighty then!
}
ON *:BAN:#:{
if ($nick(#,$me,@%&~)) {
if ($regex($banmask,/(mibbit|irccloud|kiwiirc|192.184.9.108|192.184.9.110|192.184.9.112|192.184.8.73|192.184.10.9|192.184.10.118|107.161.19.109|207.192.75.252|64.62.228.82|78.129.202.38|87.98.219.117|107.161.19.53|109.169.31.4|109.169.29.95|195.154.53.5|195.154.52.250|212.83.148.225)/i)) { mode $chan -b $banmask | set %webchatc $addtok(%webchatc,$banmask,32) }
if ($regex($banmask,/([su]id\D|^\*!~?\*@(?:\*$|\?+))/i)) { mode $chan -b $banmask }
}
}
ON ^*:KICK:#:{
if ($istok(%webchatc,$address($knick,2),32)) && ($nick(#,$me,@%&~)) {
mode # +b $+($gettok($address($knick,0),1,64),@*)
set %webchatc $remtok(%webchatc,$address($knick,2),32)
}
}
