GitHub/pbot
3
0
Fork 0
mirror of https://github.com/pragma-/pbot.git synced 2024-11-19 10:29:30 +01:00
Code Issues Projects Releases Wiki Activity

More nickometer tweaks

Browse Source
This commit is contained in:
Pragmatic Software 2014-05-02 03:57:19 +00:00
parent 8e07eb300e
commit af447c2614
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
PBot/VERSION.pm
View File

@ -13,7 +13,7 @@ use warnings;
# These are set automatically by the build/commit script # These are set automatically by the build/commit script
use constant { use constant {
BUILD_NAME => "PBot", BUILD_NAME => "PBot",
BUILD_REVISION => 563, BUILD_REVISION => 564,
BUILD_DATE => "2014-05-01", BUILD_DATE => "2014-05-01",
}; };

7
modules/nickometer.pl
View File

@ -25,6 +25,7 @@ sub nickometer ($) {
# Deal with special cases (precede with \ to prevent de-k3wlt0k) # Deal with special cases (precede with \ to prevent de-k3wlt0k)
my %special_cost = ( my %special_cost = (
'__' => 200,
'69' => 500, '69' => 500,
'dea?th' => 500, 'dea?th' => 500,
'dark' => 400, 'dark' => 400,
@ -62,6 +63,10 @@ sub nickometer ($) {
} }
} }
while(m/[A-Z]([^A-Z]+)\b/g) {
&punish(250, "length 1 between capitals") if length $1 == 1;
}
# Allow Perl referencing # Allow Perl referencing
s/^\\([A-Za-z])/$1/; s/^\\([A-Za-z])/$1/;
@ -139,7 +144,7 @@ sub nickometer ($) {
$remains =~ tr/a-zA-Z0-9//d; $remains =~ tr/a-zA-Z0-9//d;
my $remains_length = length($remains); my $remains_length = length($remains);
&punish(50 * $remains_length + &slow_pow(9, $remains_length), &punish(150 * $remains_length + &slow_pow(9, $remains_length),
$remains_length . ' extraneous ' . $remains_length . ' extraneous ' .
(($remains_length == 1) ? 'symbol' : 'symbols')) (($remains_length == 1) ? 'symbol' : 'symbols'))
if $remains; if $remains;