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

Spinach: Minor improvements to text normalization and validation

Browse Source
This commit is contained in:
Pragmatic Software 2018-02-18 16:40:17 -08:00
parent 3626399b85
commit 4770bbe188
1 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
PBot/Plugins/Spinach.pm
View File

@ -366,6 +366,7 @@ sub spinach_cmd {
when ('join') { when ('join') {
if ($self->{current_state} eq 'nogame') { if ($self->{current_state} eq 'nogame') {
$self->{state_data} = { players => [], counter => 0 };
$self->{current_state} = 'getplayers'; $self->{current_state} = 'getplayers';
} }
@ -791,7 +792,7 @@ sub run_one_state {
my $removed = 0; my $removed = 0;
for (my $i = 0; $i < @{$self->{state_data}->{players}}; $i++) { for (my $i = 0; $i < @{$self->{state_data}->{players}}; $i++) {
if ($self->{state_data}->{players}->[$i]->{missedinputs} >= 3) { if ($self->{state_data}->{players}->[$i]->{missedinputs} >= 3) {
$self->send_message($self->{channel}, "$color{red}$self->{state_data}->{players}->[$i]->{name} has missed too many inputs and has been ejected from the game!$color{reset}"); $self->send_message($self->{channel}, "$color{red}$self->{state_data}->{players}->[$i]->{name} has missed too many prompts and has been ejected from the game!$color{reset}");
splice @{$self->{state_data}->{players}}, $i--, 1; splice @{$self->{state_data}->{players}}, $i--, 1;
$removed = 1; $removed = 1;
} }
@ -1171,13 +1172,14 @@ sub commify {
sub normalize_text { sub normalize_text {
my ($self, $text) = @_; my ($self, $text) = @_;
$text=~ s/&/ AND /g;
$text =~ s/^\s+|\s+$//g; $text =~ s/^\s+|\s+$//g;
$text =~ s/\s+/ /g; $text =~ s/\s+/ /g;
$text = lc substr($text, 0, 80); $text = lc substr($text, 0, 80);
$text =~ s/\$\s+(\d)/\$$1/g; $text =~ s/\$\s+(\d)/\$$1/g;
$text =~ s/(\d)\s+%/$1%/g; $text =~ s/\s*%$//;
my @words = split / /, $text; my @words = split / /, $text;
my @result; my @result;
@ -1225,6 +1227,11 @@ sub normalize_text {
} }
$text = uc b2a join ' ', @result; $text = uc b2a join ' ', @result;
$text =~ s/([A-Z])\./$1/g;
$text =~ s/-/ /g;
$text =~ s/["'?!]//g;
return substr $text, 0, 80; return substr $text, 0, 80;
} }
@ -1248,7 +1255,6 @@ sub validate_lie {
return 0; return 0;
} }
=cut
$count = 0; $count = 0;
foreach my $word (keys %lie_words) { foreach my $word (keys %lie_words) {
if (exists $truth_words{$word}) { if (exists $truth_words{$word}) {
@ -1256,10 +1262,9 @@ sub validate_lie {
} }
} }
if ($count == $lie_word_count) { if ($count >= 2 and $count == $lie_word_count) {
return 0; return 0;
} }
=cut
my $stripped_truth = $truth; my $stripped_truth = $truth;
$stripped_truth =~ s/(?:\s|\p{PosixPunct})+//g; $stripped_truth =~ s/(?:\s|\p{PosixPunct})+//g;