Timed Blacklisted

Introduction

this is to add a user into blacklisted for n secs ... and auto remove it after n secs. it will also read the address of all users in channel when you 1st join a channnel and you get op then it checks for blacklisted addresses. if existed they will get kicked.

by:aditya

on !*:join:#: {
if ($hfind(blacklist,$address($nick,2),1,w)) {
if ($me isop $chan) { ban -ku300 $chan $nick 2 $gettok($hget(blacklist, $hfind(blacklist, $address($nick,2),1,w)),2-,32) < [IP-matched] }
else { echo $color(info) -ta 4ALERT:12 $nick from $site is blacklisted just joined $chan }
}
}
on !*:op:#: {
if ($opnick == $me) { who $chan }
}
on *:start:{
if (!$hget(blacklist)) hmake blacklist 30
}
raw 352:*: {
var %badadd = $+(*,$3,@,$4), %bn = $6
if ($hfind(blacklist,%badadd,1,w)) { %nickbl = $addtok(%nickbl,$6,44) | echo $color(info) -at found $6 as blaclisted }
halt
}
raw 315:*: {
if (!%nickbl) { halt }
if ($me isop $2) {
var %n = $numtok(%nickbl,44)
while (%n) {
if ($gettok(%nickbl,%n,44) != $me) kick $2 $gettok(%nickbl,%n,44) Blacklisted
dec %n
}
halt
}
}
menu nicklist {
&Blacklisted
.$iif($hfind(blacklist,$address($snick(#,1),2),1,w),Del,Add): {
%reason = $input(type reason,e,Blacklisted)
%timedbl = $input(how long you will be blacklisted $snick(#,1) (in secs),e,Time Blacklisted)
if ($hfind(blacklist,$address($snick(#,1),2))) hdel -w blacklist $+($address($snick(#,1),2),*) | else { hadd -mu [ $+ [ %timedbl ] ] blacklist $address($snick(#,1),5) $snick(#,1) %reason | if ($me isop #) ban -k # $snick(#,1) 2 %reason }
}
.$iif(!$hget(blacklist,0).item,$style(2)) Clear Blacklisted: hdel -w blacklist * | echo $color(info) -a REPORT: removing all Black List done...)
}

Categories