|
|||||||||
sub draw_hangman (Str ?$msg) returns Str {
"Hangman (with the Pugs AUTHORS list)
+-----+ The committer's name is:
| | { draw_board }
| { draw_if_greater_than('O', 1) }
| {
draw_if_greater_than('/', 2) ~
draw_if_greater_than('|', 3) ~
draw_if_greater_than('\\', 4)
} You have already guessed:
| { draw_if_greater_than('/', 5) } {
draw_if_greater_than('\\', 6)
} [@guesses[]]
|
|-+--------|
$msg";
}
|
|||||||||
|
|||||||||