RCRPG/Raku: Difference between revisions
→{{header|Perl 6}}: Updated to work with the latest versions of Niecza and Rakudo. Various tweaks and enhancements
(→Code: Correction) |
Thundergnat (talk | contribs) (→{{header|Perl 6}}: Updated to work with the latest versions of Niecza and Rakudo. Various tweaks and enhancements) |
||
Line 12:
As with the [[RCRPG/Perl|Perl version]].
==Code==
{{works with|niecza|v24}}
{{works with|
<lang perl6>
my %commands;
my %rooms;
Line 21:
my $stuff = [];
my $equipped = '';
my @cl2 = $l2;▼
map { $fun($_, shift @cl2) }, $l1;▼
}▼
sub serial_and(*@list) {▼
my $WHITE = "\e[0m";
Line 40 ⟶ 27:
my @random_items = < sledge ladder gold >;
my %dir_str =
up => 'in the ceiling',
down => 'in the floor',
map { ($_ => "to the $_") }, <north south east west>;
my %dir_vec =
up => [ 0, 0, 1],
Line 51 ⟶ 40:
east => [ 1, 0, 0],
west => [-1, 0, 0];
my %dir_rev = map { ($^a => $^b), $^b => $^a },
< north south east west up down >;
my class Room {
has $.stuff = (my $roll = 1.rand) > .25 ?? [@random_items.roll] !!
my $next = 0;▼
$roll > .85 ?? [@random_items.roll(2)] !! Nil;
has $.name = "The Unnamed Room";
has $.links = [];
Line 67 ⟶ 57:
say "There is an exit %dir_str{$.links[0]}.";
} else {
say "There are exits: {
.subst(/','(<-[,]>+)$/,->$/{" and$0"})}.";
}
if $.stuff {
say "There is {serial_and(
} else {
say $BLUE, "There is nothing useful here you can take.", $WHITE;
Line 79 ⟶ 70:
}
%rooms{"0 0 0"} = Room.new(name => 'The Start', stuff => [<sledge>]);
%rooms{"1 1 5"} = Room.new(name => 'The Prize Room', stuff => [<gold> xx 9]);
▲sub serial_and(*@list) {
my $items = (map { "{%stuff{$_} > 1 ?? %stuff{$_} !! 'a'} $_" }, %stuff.keys).join: ', ';
$items.subst( /','(<-[,]>+)$ /, -> $/ {" and$0"} );
▲}
sub move($dir) {
Line 87 ⟶ 84:
say "There needs to be a ladder in the room before you can climb.";
} elsif grep $dir, @( %rooms{$room}.links ) {
$room = [
} else {
say "Your way is blocked.";
Line 113 ⟶ 110:
if !(%dir_vec{$dir}:exists) {
say "I don't know that direction. Try: {sort keys %dir_vec}";
}▼
elsif $equipped ne 'sledge' {▼
}
elsif grep $dir, @( %rooms{$room}.links ) {
say "You swing {$equipped ?? "the $equipped" !! 'your
~ 'in the wall. It makes a nice breeze.';
▲ elsif $equipped ne 'sledge' {
say "You swing {$equipped ?? "the $equipped" !! 'your fists'} around purposfully "
~ 'but accomplish nothing. Perhaps you should equip a better tool?';
}
else {
my $r2 = [
my $r2o = %rooms{$r2} //= Room.new;
say
push @( %rooms{$room}.links ), $dir;
push @( $r2o.links ), %dir_rev{$dir};
Line 134 ⟶ 133:
say "You're not carrying anything. Ask again later.";
} else {
say "You have {serial_and(
}
};
Line 200 ⟶ 199:
%commands{$c2} = %commands{$c1};
}
};
command [<exit quit>], "(leave Muddy)", 0,
{
print 'The Muddy walls dim. ';
say "You glance down as {serial_and( @$stuff )} clatter{@$stuff > 1 ?? 's' !! ''} to the floor then fades away." if @$stuff;
say 'It is as if you are awakening from a strange (and extremly low resolution) dream...';
};
Line 205 ⟶ 212:
%rooms{$room}.greet;
if @args && %commands{lc @args[0]} -> $fun {
$fun(|@args);
| |||