hathora-et-labora-game/src/buildings/sacredSite.ts

Plays Uwe Rosenberg's Ora et Labora for the Hathora engine. It reduces a list of moves into a board game state.

import { always, curry } from 'ramda'
import { P, match } from 'ts-pattern'
import { getCost, withActivePlayer } from '../board/player'
import { parseResourceParam } from '../board/resource'
import { GameStatePlaying, StateReducer } from '../types'

export const sacredSite = (param = ''): StateReducer => {
  const { grain = 0, malt = 0, beer = 0, whiskey = 0 } = parseResourceParam(param)
  return withActivePlayer(
    //
    getCost({
      grain: grain && !malt ? 2 : 0,
      malt: malt && !grain ? 2 : 0,
      beer: beer && !whiskey ? 1 : 0,
      whiskey: whiskey && !beer ? 1 : 0,
      book: 1,
    })
  )
}

export const complete = curry((partial: string[], state: GameStatePlaying): string[] =>
  match(partial)
    .with([], always(['GnGnBe', 'GnGnWh', 'MaMaBe', 'MaMaWh']))
    .with([P._], always(['']))
    .otherwise(always([]))
)