Snippets Project Page
Author: entropy
Added: 5y
Updated: 5y
mIRC: 7.52+
Hits: 1,178
Downloads: 17
Review: entropy
Size: 1.96KB
1 0
Login to vote.
Bad Channel Kicker
v1.7
This neat snippet bans anyone joining who are on a bad channel (specified by wildcards).
Download
JSON
▲ Review
▼ Source
; Bad Channel Kicker v1.7 - by entropy 2018 ; global variable: %bad ; value: *chan1* *chan2* *chan3* #badchans off on *:text:*:#:{ if ($nick !isop #) { return } if (?listbadchans iswm $1 && $left($1,1) isin @!.) { if (!$2) { msg # Bad channel(s): $iif(%bad,%bad,NA) } } if (?addbadchans iswm $1 && $left($1,1) isin @!.) { if (!$2) { msg # No bad chan to add! } else { %bad = %bad $2- | msg # Bad channel(s) are now: %bad } } if (?delbadchans iswm $1 && $left($1,1) isin @!.) { if (!$2) { msg # No bad chan to delete! } else { var %a = 1, %b while ($gettok($2-,%a,32)) { %b = $v1 %bad = $remtok(%bad,%b,1,32) inc %a } msg # Bad channel(s) are now: %bad } } } on @*:join:#:{ $+(.timer,#) -o 1 2 doit $nick # } alias -l doit { %whois = on | whois $1 $1 | %chan = $2 } raw 401:*:{ if (%whois == on) { halt } } raw 318:*:{ if (%whois == on) { %whois = off | halt } } raw 311:*:{ if (%whois == on) { halt } } raw 319:*:{ var %x = 1, %y = $mid($3-,2), %z while ($gettok(%y,%x,32)) { %z = $v1 var %a = 1, %b while ($gettok(%bad,%a,32)) { %b = $v1 if (%b iswm %z) { ban -ku300 %chan $2 2 Bad Channel: $remove(%z,@,+,&,%,~,!) (Banned: 5mins) | break } inc %a } inc %x } unset %chan if (%whois == on) { halt } } raw 320:*:{ if (%whois == on) { halt } } raw 312:*:{ if (%whois == on) { halt } } raw 378:*:{ if (%whois == on) { halt } } raw 671:*:{ if (%whois == on) { halt } } raw 330:*:{ if (%whois == on) { halt } } raw 317:*:{ if (%whois == on) { halt } } raw 313:*:{ if (%whois == on) { halt } } raw 307:*:{ if (%whois == on) { halt } } raw 379:*:{ if (%whois == on) { halt } } raw 301:*:{ if (%whois == on) { halt } } raw 275:*:{ if (%whois == on) { halt } } #badchans end
Changelog:
0
0