Permalink
Find file
03c6794 Feb 14, 2017
15 lines (12 sloc) 343 Bytes
package Adventure::Module::ActionCastle::Exit::Blocked;
sub main {
my ($game, $player, $params) = @_;
if ($game->actor($params->{blocker})->property($params->{blocker_property})) {
return $params->{destination};
}
else {
$player->announce($params->{description});
return $player->location;
}
}
1;