GitHub/pbot
3
0
Fork 0
mirror of https://github.com/pragma-/pbot.git synced 2025-01-11 04:22:35 +01:00
Code Issues Projects Releases Wiki Activity

Minor nick-o-meter tweaks

Browse Source
This commit is contained in:
Pragmatic Software 2019-04-29 12:53:56 -07:00
parent e09751e0d2
commit 9c117509ed
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
modules/nickometer.pl
View File

@ -25,7 +25,7 @@ sub nickometer ($) {
# Deal with special cases (precede with \ to prevent de-k3wlt0k)
my %special_cost = (
'__' => 200,
'_' => 50,
'69' => 500,
'dea?th' => 500,
'dark' => 400,
@ -62,6 +62,10 @@ sub nickometer ($) {
}
}
if ($_ =~ m/^.$/) {
&punish(1000, "single letter nick");
}
while(m/[A-Z]([^A-Z]+)\b/g) {
&punish(250, "length 1 between capitals") if length $1 == 1;
}
@ -211,6 +215,14 @@ sub punish ($$) {
my $nick = $ARGV[0];
if ($nick =~ s/ verbose$//) {
$verbose = 1;
}
if ($ARGV[1] and $ARGV[1] eq 'verbose') {
$verbose = 1;
}
if(not defined $nick) {
print "Usage: nickometer <nick>\n";
exit 1;