boardgame-0.0.0.1: executable/Main.hs

{-# LANGUAGE CPP #-}

module Main where

import Boardgame (playIO)

import System.IO (hFlush, stdout)

#ifdef WASM
import Data.Maybe (fromJust)
import Boardgame.Web (addWebGame, webReady)
#endif

-- Import all board games
import ArithmeticProgressionGame
import ConnectFour
import Cross
import Gale
import Havannah
import Hex
import MNKGame
import ShannonSwitchingGame
import TicTacToe
import Y
import Yavalath

-------------------------------------------------------------------------------
-- * CLI interactions
-------------------------------------------------------------------------------

#ifdef WASM
main :: IO ()
main = do
  addWebGame "TicTacToe" emptyTicTacToe
  addWebGame "Arithmetic Progression Game" $ fromJust $ createArithmeticProgressionGame 35 5
  addWebGame "Shannon Switching Game" $ createShannonSwitchingGame 5
  addWebGame "Gale" emptyGale
  addWebGame "Hex" $ emptyHex 5
  addWebGame "Havannah" $ emptyHavannah 8
  addWebGame "Yavalath" $ emptyYavalath 8
  addWebGame "Y" $ emptyY 8
  addWebGame "Cross" $ emptyCross 8
  addWebGame "Hex (Alternative Version)" $ emptyHex2 5
  addWebGame "TicTacToe (Alternative Version)" $ emptyMNKGame 3 3 3
  addWebGame "Connect Four" $ emptyConnectFour 6 7 4
  addWebGame "Shannon Switching Game (On a ColoredGraph)" $ wikipediaReplica
  webReady
#else
main :: IO ()
main = do
  putStrLn "1: TicTacToe"
  putStrLn "2: Arithmetic Progression Game"
  putStrLn "3: Shannon Switching Game"
  putStrLn "4: Gale"
  putStrLn "5: Hex"
  putStrLn "6: Havannah"
  putStrLn "7: Yavalath"
  putStrLn "8: Y"
  putStrLn "9: Cross"
  putStrLn "10: Hex (Alternative Version)"
  putStrLn "11: TicTacToe (Alternative Version)"
  putStrLn "12: Connect Four"
  putStrLn "13: Shannon Switching Game (On a ColoredGraph)"
  putStr "What do you want to play? "
  hFlush stdout
  choice <- read <$> getLine
  putStr "\ESC[2J"
  hFlush stdout
  case choice of
    1 -> playIO emptyTicTacToe
    2 -> playAPG
    3 -> playIO $ createShannonSwitchingGame 5
    4 -> playIO emptyGale
    5 -> playIO $ emptyHex 5
    6 -> playIO $ emptyHavannah 8
    7 -> playIO $ emptyYavalath 8
    8 -> playIO $ emptyY 8
    9 -> playIO $ emptyCross 8
    10 -> playIO $ emptyHex2 5
    11 -> playIO $ emptyMNKGame 3 3 3
    12 -> playIO $ emptyConnectFour 6 7 4
    13 -> playIO wikipediaReplica
    _ -> putStrLn "Invalid choice!"

playAPG :: IO ()
playAPG = do
  putStr "n: "
  hFlush stdout
  n <- read <$> getLine
  putStr "k: "
  hFlush stdout
  k <- read <$> getLine
  case createArithmeticProgressionGame n k of
    Just a -> playIO a
    Nothing -> putStrLn "Not valid input (n < k)"
#endif