about summary refs log tree commit diff stats
path: root/lib/Caelum/CLI.rakumod
blob: ab2b6e9697e1540dfb557569aa933a5637689e04 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
use Caelum::Player;
use Terminal::Table;

multi sub MAIN(
    Int :$players where * >= 2 = 2, #= Number of players (default: 2)
) is export {
    say "Caelum - text based Cee-lo game";
    say "-------------------------------\n";

    my Player @players;

    for ^$players {
        push @players, Player.new(name => prompt("[Player $_] Name: ").trim);
    }

    my Int $round = 1;
    my Int $pot = 0;

    loop {
        print "\n";
        say "[Round $round]";
        say "- " x 40;

        my Int $bet;
        for @players -> $player {
            $bet += prompt "[{$player.name}] Enter bet amount: ";
        }
        $bet = $bet div @players.elems;
        say "\n==> Bet amount: $bet";

        player: for @players -> $player {
            print "\n";
            say "[{$player.name}]";
            say ". " x 20;

            # Reset points.
            $player.points = 0;

            unless $player.wallet >= $bet {
                say "==> Cannot place bet. All amount goes to pot.";
                $pot += $player.wallet;
                $player.wallet = 0;

                next player;
            }

            $player.bet($bet);
            $pot += $bet;

            say "==> Placing bet. Updated wallet: {$player.wallet}.";

            roll: loop {
                print "++> Rolling dices.. ";

                my Int @dices;
                push @dices, (1 .. 6).pick(1)[0] for ^3;

                say @dices;

                given set(@dices).elems {
                    when 3 {
                        given @dices.sort {
                            when * ~~ (4, 5, 6) { $player.points = Inf; }
                            when * ~~ (1, 2, 3) { $player.points = -Inf; }
                        }
                    }
                    when 2 {
                        $player.points = @dices.Bag.list.grep(
                            *.value == 1
                        )>>.key[0];
                    }
                    when 1 { $player.points = @dices[0] * 100; }
                }

                if $player.points == 0 {
                    say "--> Invalid Roll.";
                    next roll;
                } else {
                    last roll;
                }
            }
        }

        with @players.sort(*.wallet).reverse[0] -> $player {
            say "{$player.name} wins $pot!";
            $player.wallet += $pot;
        }
        $pot = 0;

        # Print scorecard.
        my @scorecard = <Player Points Wallet>,;
        for @players -> $player {
            push @scorecard, [$player.name, $player.points.Str, $player.wallet.Str];
        }
        print-table(@scorecard, style => "single");

        $round++;
    }
}

multi sub MAIN(
    Bool :$version #= print version
) is export { say "Caelum v" ~ $?DISTRIBUTION.meta<version>; }