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

publish info on game start

Browse Source
This commit is contained in:
christian
2019-08-28 17:24:06 +02:00
parent 7138f74e8e
commit 255971b2f5
2 changed files with 8 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Skat/Matches.hs
+1 -1
View File
@@ -22,4 +22,4 @@ singleVsBots mkPlayer = do
(PL $ Stupid Team Hand2) (PL $ Stupid Team Hand2)
(PL $ mkAIEnv Single Hand3 10) (PL $ mkAIEnv Single Hand3 10)
env = SkatEnv (distribute cards) Nothing Spades ps env = SkatEnv (distribute cards) Nothing Spades ps
liftIO $ evalStateT (turn Hand1 >>= publishGameResults) env liftIO $ evalStateT (publishGameStart Hand3 >> turn Hand1 >>= publishGameResults) env
src/Skat/Operations.hs
+7 -1
View File
@@ -1,5 +1,6 @@
module Skat.Operations ( module Skat.Operations (
turn, turnGeneric, play, playOpen, publishGameResults turn, turnGeneric, play, playOpen, publishGameResults,
publishGameStart
) where ) where
import Control.Monad.State import Control.Monad.State
@@ -93,3 +94,8 @@ publishGameResults :: (Int, Int) -> Skat ()
publishGameResults res = do publishGameResults res = do
pls <- gets players pls <- gets players
mapM_ (\p -> onGameResults p res) (playersToList pls) mapM_ (\p -> onGameResults p res) (playersToList pls)
publishGameStart :: Hand -> Skat ()
publishGameStart sglPlayer = do
pls <- gets players
mapM_ (\p -> onGameStart p sglPlayer) (playersToList pls)