Permalink
Browse files

There must not be card rotations during the 7th turn

  • Loading branch information...
1 parent 02326be commit 12b87ba3f11c2e4fe5dd9c6f58d760daa79d772a @bartavelle committed May 13, 2014
Showing with 6 additions and 1 deletion.
  1. +6 −1 Startups/Game.hs
View
@@ -231,7 +231,12 @@ rotateHands age cardmap = itraverse rotatePlayer cardmap
playAge :: GameMonad m => Age -> m ()
playAge age = do
cards <- dealCards age
- remaining <- foldM (\crds turn -> playTurn age turn crds >>= rotateHands age) cards [1 .. 7]
+ let turnPlay crds turn = do
+ ncrds <- playTurn age turn crds
+ if turn == 7 -- The 7th turn is a hack for the efficiency capacity
+ then return ncrds
+ else rotateHands age ncrds
+ remaining <- foldM turnPlay cards [1 .. 7]
discardpile <>= toListOf (traverse . traverse) remaining
-- now for recycling
pm <- itoList <$> use playermap

0 comments on commit 12b87ba

Please sign in to comment.