53 lines
954 B
Perl
53 lines
954 B
Perl
package LasTres::Planet::Bahdder::BosqueDelHeroe::TribuDeLaLima::ArbolCentral;
|
|
|
|
use v5.36.0;
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use feature 'signatures';
|
|
|
|
use utf8;
|
|
|
|
use Moo;
|
|
|
|
use LasTres::Planet::Bahdder::BosqueDelHeroe::TribuDeLaLima;
|
|
use LasTres::PJAction::GolpearArbolCentralTribuDeLaLima;
|
|
use LasTres::TalkingNPC::AncianoTribuLima;
|
|
|
|
use parent 'LasTres::Location';
|
|
|
|
sub identifier {
|
|
return 'arbol_central';
|
|
}
|
|
|
|
sub name {
|
|
return 'Árbol central';
|
|
}
|
|
|
|
sub description {
|
|
return
|
|
'Desde este árbol se puede contemplar toda la Tribu de la Lima, sus casitas de paja y los cultivos de lima.';
|
|
}
|
|
|
|
sub parent {
|
|
return LasTres::Planet::Bahdder::BosqueDelHeroe::TribuDeLaLima->instance;
|
|
}
|
|
|
|
sub actions($self, $pj) {
|
|
return [ LasTres::PJAction::GolpearArbolCentralTribuDeLaLima->new ];
|
|
}
|
|
|
|
sub npcs($self, $pj) {
|
|
return [ LasTres::TalkingNPC::AncianoTribuLima->new ];
|
|
}
|
|
|
|
sub connected_places {
|
|
return [];
|
|
}
|
|
|
|
sub is_spawn {
|
|
return 1;
|
|
}
|
|
1;
|