lib/src/Hanafuda/KoiKoi/Game.hs

{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE ConstraintKinds #-}
module Hanafuda.KoiKoi.Game (
      Action(..)
    , Game(..)
    , Environment
    , Mode(..)
    , Move(..)
    , Source(..)
    , Step(..)
    , end
    , setPlayer
  ) where

import Control.Monad.Except (MonadError)
import Control.Monad.IO.Class (MonadIO)
import Control.Monad.Writer (MonadWriter)
import Hanafuda (Card, Flower, Pack)
import Hanafuda.Player (Players, Player, Scores, set)
import Hanafuda.KoiKoi.Yaku (Score)

data Mode = FirstAt Int | WholeYear deriving (Show)
data Move = Play Card | Capture (Card, Card) | Choose Card | KoiKoi Bool
data Step = ToPlay | Turned Card | Scored | Over deriving (Show)
data Source = Hand | Deck deriving (Show)
data Action = Action {
      source :: Source
    , played :: Card
    , captures :: Maybe Card
  } deriving (Show)

type Environment m = (MonadIO m, MonadError String m, MonadWriter [Action] m)

data Game player = Game {
      mode :: Mode
    , scores :: Scores player
    , month :: Flower
    , players :: Players player Score
    , playing :: player
    , winning :: player
    , oyake :: player
    , deck :: [Card]
    , river :: Pack
    , step :: Step
    , trick :: [Card]
    , rounds :: [(player, Score)]
  } deriving (Show)

setPlayer :: Ord player => Game player -> Player player Score -> Game player
setPlayer game@(Game {players, playing}) player = game {players = set playing player players}

end :: Monad m => Game player -> m (Game player)
end game = return $ game {step = Over}