feat: piecepack_three_musketeers()

DESCRIPTION

@@ -2,7 +2,7 @@ Encoding: UTF-8
 Package: ppdf
 Type: Package
 Title: Board Game Setups
-Version: 0.3.0-16
+Version: 0.3.0-17
 Authors@R: c(person("Trevor L.", "Davis", role=c("aut", "cre"),
              email="trevor.l.davis@gmail.com",
              comment = c(ORCID = "0000-0001-6341-4639")))

NAMESPACE

@@ -303,6 +303,7 @@ export(piecepack_thai_checkers)
 export(piecepack_the_in_crowd)
 export(piecepack_the_magic_bag)
 export(piecepack_the_penguin_game)
+export(piecepack_three_musketeers)
 export(piecepack_tic_tac_toe)
 export(piecepack_tiles)
 export(piecepack_tornado_vs_trailer_park)

NEWS.md

@@ -31,6 +31,7 @@ New features
   + `piecepack_seega()`
   + `piecepack_tablan()`
   + `piecepack_tariffs()`
+  + `piecepack_three_musketeers()`
   + `piecepack_tic_tac_toe()`
   + `piecepack_tornado_vs_trailer_park()`
   + `piecepack_yote()`

R/piecepack_games_other.R

@@ -83,6 +83,10 @@ piecepack_games_other <- function() {
             , "``piecepack_quatri()``"
             , NA_character_
             , "https://www.ludism.org/ppwiki/Quatri"
+            , "Three Musketeers"
+            , "``piecepack_three_musketeers()``"
+            , NA_character_
+            , "https://boardgamegeek.com/boardgame/21861/three-musketeers"
             )
 }
 
@@ -296,3 +300,23 @@ piecepack_quatri <- function() {
 	)
 	bind_rows(df_tiles, df_coins)
 }
+
+#' @rdname piecepack_games_other
+#' @export
+piecepack_three_musketeers <- function() {
+	df_t <- piecepack_rectangular_board(5L, 5L)
+	df_p <- piecepack_pawns(
+		suit = c(4L, 3L, 1L),
+		x = c(1L, 3L, 5L),
+		y = c(1L, 3L, 5L),
+		angle = 0
+	)
+	df_c <- piecepack_coins(
+		side = "face",
+		x = rep_len(1:5, length.out = 24L)[-c(1L, 13L)],
+		y = rep.int(1:5, times = c(4L, 5L, 4L, 5L, 4L)),
+		suit = rep.int(1:4, c(6L, 6L, 5L, 5L)),
+		rank = c(1:6, 1:6, 1:5, 1:5)
+	)
+	bind_rows(df_t, df_p, df_c)
+}

README.md

@@ -231,7 +231,7 @@ animate_game(game, file = "man/figures/README-relativity.gif",
 
 ### <a name="piecepack">Piecepacks</a>
 
-`{ppdf}` supports the following 113 games playable with a piecepack deck (plus possibly additional components):
+`{ppdf}` supports the following 114 games playable with a piecepack deck (plus possibly additional components):
 
 * [12345ive!](https://boardgamegeek.com/boardgame/154644/12345ive)
 * [Achi](https://en.wikipedia.org/wiki/Achi_(game))
@@ -332,6 +332,7 @@ animate_game(game, file = "man/figures/README-relativity.gif",
 * [The "In" Crowd](https://www.ludism.org/ppwiki/TheInCrowd)
 * [The Magic Bag](https://www.ludism.org/ppwiki/The_Magic_Bag)
 * [The Penguin Game](https://www.ludism.org/ppwiki/PenguinGame)
+* [Three Musketeers](https://boardgamegeek.com/boardgame/21861/three-musketeers)
 * [Tic-tac-toe](https://en.wikipedia.org/wiki/Tic-tac-toe)
 * [Tornado vs. Trailer Park](https://www.ludism.org/ppwiki/Tornado_vs._Trailer_Park)
 * [Tower of Babel AKA (Piecepack) Accordion](https://www.ludism.org/ppwiki/TowerOfBabel)

tests/testthat/_snaps/piecepack_games_other.md

@@ -386,3 +386,21 @@
        └─┸─┴─┸─┘
         a b c d 
 
+---
+
+    Code
+      cat_piece(piecepack_three_musketeers(), annotate = TRUE)
+    Output
+
+      5 a⃝─2⃝─3⃝─4⃝─☀⃟ 
+        │ ┃ │ ┃ │ 
+      4 a⃝━2⃝━3⃝━4⃝━n⃝ 
+        │ ┃ │ ┃ │ 
+      3 3⃝─4⃝─♛⃟─5⃝─n⃝ 
+        │ ┃ │ ┃ │ 
+      2 4⃝━5⃝━n⃝━a⃝━2⃝ 
+        │ ┃ │ ┃ │ 
+      1 ⸸⃟─n⃝─a⃝─2⃝─3⃝ 
+
+        a b c d e 
+

tests/testthat/test-games_info.R

@@ -6,7 +6,7 @@ test_that("*_games() row counts", {
 	expect_equal(nrow(go_games()), 2L)
 	expect_equal(nrow(marble_games()), 0L)
 	expect_equal(nrow(morris_games()), 7L)
-	expect_equal(nrow(piecepack_games()), 113L)
+	expect_equal(nrow(piecepack_games()), 114L)
 	expect_equal(nrow(reversi_games()), 2L)
 	expect_equal(nrow(stackpack_games()), 10L)
 	expect_equal(nrow(tarot_games()), 0L)

tests/testthat/test-piecepack_games_other.R

@@ -25,4 +25,5 @@ test_that("piecepack other games work as expected", {
 	expect_snapshot(cat_piece(piecepack_lines_of_action(), reorient = "all", annotate = TRUE))
 	expect_snapshot(cat_piece(piecepack_lukawan(), annotate = TRUE))
 	expect_snapshot(cat_piece(piecepack_quatri(), annotate = TRUE))
+	expect_snapshot(cat_piece(piecepack_three_musketeers(), annotate = TRUE))
 })