A Simple Blaclister ($nick recognition)

By `Node_ on Mar 06, 2004

The same as the other blacklister, but this one will identify a user by their nickname instead of their $wildsite.

menu nicklist { 
Blacklist 
.Add User { 
set % [ $+ [ $nick ] $+ ] .blacklist on 
set % [ $+ [ $nick ] $+ ] .reason $$?="Enter a reason to blacklist $$1" 
if ($me isop #) { 
mode # -o $$1 
kick # $$1 % [ $+ [ $nick ] $+ ] .reason 
mode # +b $address($$1,1) 
} 
halt 
} 
.Del User { 
if (% [ $+ [ $nick ] $+ ] .blacklist != $null) { unset % [ $+ [ $nick ] $+ ] .blacklist | echo -a $$1 has been removed from the blacklist. } 
else { echo -a $$1 is not on your blacklist | halt } 
} 
} 
on *:JOIN:*:{ 
if (% [ $+ [ $nick ] $+ ] .blacklist != $null) { 
if ($nick isop #) { chanserv deop # $nick | chanserv deprotect # $nick } 
kick # $nick % [ $+ [ $nick ] $+ ] .reason 
mode # +b $address($nick,1) 
} 
else { halt } 
} 
on *:NICK:{ 
if (% [ $+ [ $nick ] $+ ] .blacklist != $null) { 
if ($nick isop #) { chanserv deop # $nick | chanserv deprotect # $nick } 
kick # $nick % [ $+ [ $nick ] $+ ] .reason 
mode # +b $address($nick,1) 
} 
else { halt } 
} 
on *:PART:*:{ 
if (% [ $+ [ $nick ] $+ ] .blacklist != $null) { 
mode # +b $address($nick,1) 
} 
else { halt } 
}

Comments

Sign in to comment.
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.