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

Spinach: Random category and other minor improvements

Browse Source
This commit is contained in:
Pragmatic Software 2018-02-20 00:16:22 -08:00
parent 8b2e61938b
commit e47d704b8d
1 changed files with 77 additions and 58 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
PBot/Plugins/Spinach.pm
View File

@ -596,10 +596,17 @@ sub spinach_cmd {
return "$nick: Choice out of range. Please choose a valid category. $self->{state_data}->{categories_text}";
}
if ($arguments == @{$self->{state_data}->{category_options}} - 1) {
$arguments = (@{$self->{state_data}->{category_options}} - 1) * rand;
$self->{state_data}->{current_category} = $self->{state_data}->{category_options}->[$arguments];
return "/msg $self->{channel} $nick has chosen RANDOM! Randomly choosing category: $self->{state_data}->{current_category}!";
} else {
$self->{state_data}->{current_category} = $self->{state_data}->{category_options}->[$arguments];
return "/msg $self->{channel} $nick has chosen $self->{state_data}->{current_category}!";
}
}
if ($self->{current_state} =~ /getlies$/) {
if (not length $arguments) {
return "Usage: spinach lie <text>";
@ -674,7 +681,7 @@ sub spinach_cmd {
$arguments--;
if ($arguments < 0 or $arguments >= @{$self->{state_data}->{current_choices}}) {
return "$nick: Selection out of range. Please select a valid truth: $self->{state_data}->{current_choices_text}";
return "$nick: Selection out of range. Please select a valid truth. $self->{state_data}->{current_choices_text}";
}
my $changed = exists $player->{truth};
@ -823,6 +830,7 @@ sub run_one_state {
if ($self->{previous_state} ne $self->{current_state}) {
$state_data->{newstate} = 1;
$state_data->{ticks} = 1;
$state_data->{ticks} += $state_data->{tick_drift} if exists $state_data->{tick_drift};
$state_data->{first_tock} = 1;
} else {
$state_data->{newstate} = 0;
@ -1307,10 +1315,12 @@ sub choosecategory {
push @choices, $cat;
}
last if @choices == 8;
last if @choices == 7;
last if ++$no_infinite_loops > 200;
}
push @choices, 'RANDOM';
$state->{categories_text} = '';
my $i = 1;
my $comma = '';
@ -1341,7 +1351,7 @@ sub choosecategory {
if (exists $state->{random_category}) {
delete $state->{random_category};
my $category = $state->{category_options}->[rand @{$state->{category_options}}];
my $category = $state->{category_options}->[rand (@{$state->{category_options}} - 1)];
$self->send_message($self->{channel}, "$color{bold}Category: $category!$color{reset}");
$state->{current_category} = $category;
return 'next';
@ -1349,9 +1359,9 @@ sub choosecategory {
if (++$state->{counter} > $state->{max_count}) {
$state->{players}->[$state->{current_player}]->{missedinputs}++;
# $state->{players}->[$state->{current_player}]->{missedinputs}++;
my $name = $state->{players}->[$state->{current_player}]->{name};
my $category = $state->{category_options}->[rand @{$state->{category_options}}];
my $category = $state->{category_options}->[rand (@{$state->{category_options}} - 1)];
$self->send_message($self->{channel}, "$color{bold}$name took too long to choose. Randomly choosing: $category!$color{reset}");
$state->{current_category} = $category;
return 'next';
@ -1390,6 +1400,7 @@ sub getnewquestion {
delete $player->{deceived};
delete $player->{skip};
}
$state->{current_choices_text} = "";
return 'next';
} else {
return 'wait';
@ -1484,8 +1495,6 @@ sub findtruth {
return 'next' if not @notruth;
if ($state->{ticks} % $tock == 0) {
delete $state->{first_tock};
if ($state->{init}) {
delete $state->{init};
@ -1539,6 +1548,8 @@ sub findtruth {
$state->{current_choices} = \@choices;
}
if ($state->{ticks} % $tock == 0) {
delete $state->{first_tock};
if (++$state->{counter} > $state->{max_count}) {
my @missedinputs;
foreach my $player (@{$state->{players}}) {
@ -1627,9 +1638,17 @@ sub showlies {
$player->{deceived} = $lie;
}
return 'next' if $state->{current_lie_player} >= @{$state->{players}};
if ($state->{current_lie_player} >= @{$state->{players}}) {
if (@liars) {
delete $state->{tick_drift};
} else {
$state->{tick_drift} = $tock - 1;
}
return 'next';
} else {
return 'wait';
}
}
return 'wait';
}