on *:nick: { if $level($newnick) == Shitlist-seviyen { allban $newnick } }
alias allban { var %< = 1, %> = $($comchan($1,%<),0) | while $(%>,2) { if $($+(%>,.op),2) { !ban -k $(%>,2) $1 Badnick } | inc %< } }
on *:join:#: { $iif($nick == $me,goto raww,goto s) | :raww | .enable #raw | halt | :s | if $me isop # && $level($nick) == Shitlist-seviyen { ban -k # $nick Badnick | halt } }
#raw off
raw *:*: { if $numeric == 353 { var %/ $ulist(*,Shitlist-seviyen,0) | while (0 < %/) { if $ulist(*,Shitlist-seviyen,%/) isin $1- { !ban -k $3 $v1 Badnick } | dec %/ } } | elseif $numeric == 366 { .disable #raw  } } 
#raw end