55 lines
1013 B
Perl
55 lines
1013 B
Perl
package LasTres::PJAction::RezarAyazelTribuDeLaLima;
|
|
|
|
use v5.36.0;
|
|
use strict;
|
|
use warnings;
|
|
use utf8;
|
|
|
|
use feature 'signatures';
|
|
|
|
use Moo;
|
|
|
|
with 'LasTres::PJAction';
|
|
|
|
## DO NOT EXTEND NOT SUPPORTED.
|
|
|
|
sub name {
|
|
return 'Rezar a Ayazel en la estatua.';
|
|
}
|
|
|
|
sub identifier {
|
|
return 'rezar_a_ayazel_tribu_de_la_lima';
|
|
}
|
|
|
|
sub is_disabled ( $self, $pj ) {
|
|
return 0;
|
|
}
|
|
|
|
sub disabled_reason ( $self, $pj ) {
|
|
return undef;
|
|
}
|
|
|
|
sub callback ( $self, $pj ) {
|
|
$pj = $pj->get_from_storage;
|
|
my $team = $pj->team;
|
|
$pj->mana($pj->max_mana);
|
|
$pj->update;
|
|
$team->append_log_line(
|
|
[
|
|
{
|
|
text => $pj->nick,
|
|
color => 'green',
|
|
},
|
|
{
|
|
text => ' ha rezado y ya puede hablar con el chamán.'
|
|
}
|
|
]
|
|
);
|
|
$pj->set_location_flag(LasTres::Flags::TEMPORAL_HAS_PRAYED());
|
|
for my $member ($team->members) {
|
|
$member->update_team_sprites;
|
|
$member->update_actions;
|
|
}
|
|
}
|
|
1;
|