mirror of
https://github.com/correl/riichi.git
synced 2024-11-23 19:19:55 +00:00
54 lines
1.6 KiB
Erlang
54 lines
1.6 KiB
Erlang
-define(SIMPLES, [#tile{suit=S, value=V} || S <- [pin, man, sou], V <- lists:seq(2,8)]).
|
|
-define(TERMINALS, [#tile{suit=S, value=V} || S <- [pin, man, sou], V <- [1,9]]).
|
|
-define(DRAGONS, [#tile{suit=dragon, value=V} || V <- [green, red, white]]).
|
|
-define(WINDS, [#tile{suit=wind, value=V} || V <- [east, south, west, north]]).
|
|
-define(HONOURS, ?DRAGONS ++ ?WINDS).
|
|
-define(TILES, ?SIMPLES ++ ?TERMINALS ++ ?HONOURS).
|
|
|
|
-type wind() :: east | south | west | north.
|
|
|
|
-type dragon() :: green | red | white.
|
|
|
|
-record(tile, {
|
|
suit :: pin | man | sou | wind | dragon,
|
|
value :: integer() | wind() | dragon(),
|
|
from=draw :: draw | wind()
|
|
}).
|
|
-type tile() :: #tile{}.
|
|
|
|
-record(meld, {
|
|
type :: pair | chii | pon | kan,
|
|
tiles :: [tile()]
|
|
}).
|
|
-type meld() :: #meld{}.
|
|
|
|
-record(hand, {
|
|
tiles=[] :: [tile()],
|
|
melds=[] :: [meld()]
|
|
}).
|
|
-type hand() :: #hand{}.
|
|
|
|
-record(player, {
|
|
name :: string(),
|
|
seat :: wind(),
|
|
hand :: hand(),
|
|
discards :: [tile()],
|
|
drawn :: none | {tsumo | ron, tile()}
|
|
}).
|
|
-type player() :: #player{}.
|
|
|
|
-type phase() :: draw | discard.
|
|
|
|
-record(game, {
|
|
rounds=2 :: integer(),
|
|
timeout=infinity :: integer() | infinity,
|
|
round=east :: wind(),
|
|
turn=east :: wind(),
|
|
phase=draw :: phase(),
|
|
wall :: [tile()],
|
|
rinshan :: [tile()],
|
|
dora :: [tile()],
|
|
uradora :: [tile()],
|
|
players :: [player()]
|
|
}).
|
|
-type game() :: #game{}.
|