christian/skat
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

fix moveToSkat

Browse Source
This commit is contained in:
christian
2020-03-29 16:01:57 +02:00
parent cc9223245b
commit 18aa516905
1 changed files with 10 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Skat/Pile.hs
+10 -5
View File
@@ -110,13 +110,18 @@ playCard :: HasCard c => Hand -> c -> Piles -> Piles
playCard hand card' ps = (removeFromHand hand card ps) { _table = (CardS card (P hand)) : _table ps } playCard hand card' ps = (removeFromHand hand card ps) { _table = (CardS card (P hand)) : _table ps }
where card = toCard card' where card = toCard card'
moveToSkat :: HasCard c => Hand -> [c] -> Piles -> Piles moveToSkat :: HasCard c => Hand -> [c] -> Piles -> Maybe Piles
moveToSkat hand cards' piles = removed { _skat = newSkat } moveToSkat hand cards' piles
| length cards' == 2 && all (`elem` possible) cards =
Just $ updated { _skat = newSkat }
| otherwise = Nothing
where cards = map toCard cards' where cards = map toCard cards'
skat = skatCards piles oldSkat = skatCards piles
notSkatYet = filter (not . (`elem` skat)) cards noLongerSkat = filter (not . (`elem` cards)) oldSkat
newSkat = map (putAt S) $ skat ++ notSkatYet possible = map toCard (handCards hand piles) ++ oldSkat
newSkat = map (putAt S) cards
removed = foldr (\card ps -> removeFromHand hand card ps) piles cards removed = foldr (\card ps -> removeFromHand hand card ps) piles cards
updated = foldr (\card ps -> addToHand hand card ps) removed noLongerSkat
unplayCard :: Hand -> Card -> Team -> Piles -> Piles unplayCard :: Hand -> Card -> Team -> Piles -> Piles
unplayCard hand card winner ps unplayCard hand card winner ps