mirror of
https://github.com/correl/riichi.git
synced 2024-11-27 19:19:54 +00:00
92 lines
2.8 KiB
Erlang
92 lines
2.8 KiB
Erlang
-define(DRAGONS, [green, red, white]).
|
|
-define(WINDS, [east, south, west, north]).
|
|
|
|
-define(T_SIMPLES, [#tile{suit=S, value=V} || S <- [pin, man, sou], V <- lists:seq(2,8)]).
|
|
-define(T_TERMINALS, [#tile{suit=S, value=V} || S <- [pin, man, sou], V <- [1,9]]).
|
|
-define(T_DRAGONS, [#tile{suit=dragon, value=V} || V <- ?DRAGONS]).
|
|
-define(T_WINDS, [#tile{suit=wind, value=V} || V <- ?WINDS]).
|
|
-define(T_HONOURS, ?T_DRAGONS ++ ?T_WINDS).
|
|
-define(TILES, ?T_SIMPLES ++ ?T_TERMINALS ++ ?T_HONOURS).
|
|
|
|
%% @type wind() = east | south | west | north
|
|
-type wind() :: east | south | west | north.
|
|
|
|
%% @type dragon() = green | red | white
|
|
-type dragon() :: green | red | white.
|
|
|
|
%% @type suit() = wind | dragon | pin | man | sou
|
|
-type suit() :: wind | dragon | pin | man | sou.
|
|
|
|
%% @type tile() = {tile, Suit, Value, From}
|
|
%% Suit = suit()
|
|
%% Value = integer() | wind() | dragon()
|
|
%% From = draw | wind()
|
|
-record(tile, {
|
|
suit :: suit(),
|
|
value :: integer() | wind() | dragon(),
|
|
from=draw :: draw | wind()
|
|
}).
|
|
-type tile() :: #tile{}.
|
|
|
|
%% @type meld() = {meld, Type, Tiles}
|
|
%% Type = pair | chii | pon | kan
|
|
%% Tiels = [tile()]
|
|
-record(meld, {
|
|
type :: pair | chii | pon | kan,
|
|
tiles :: [tile()]
|
|
}).
|
|
-type meld() :: #meld{}.
|
|
|
|
%% @type hand() = {hand, Tiles, Melds}
|
|
%% Tiles = [tile()]
|
|
%% Melds = [meld()]
|
|
-record(hand, {
|
|
tiles=[] :: [tile()],
|
|
melds=[] :: [meld()]
|
|
}).
|
|
-type hand() :: #hand{}.
|
|
|
|
%% @type player() = {player, Name, Seat, Hand, Discards, Drawn}
|
|
%% Name = string()
|
|
%% Seat = wind()
|
|
%% Hand = hand()
|
|
%% Discards = [tile()]
|
|
%% Drawn = none | {tsumo | ron, tile()}
|
|
-record(player, {
|
|
name :: string(),
|
|
pid :: none | pid(),
|
|
seat :: wind(),
|
|
hand=#hand{} :: hand(),
|
|
discards=[] :: [tile()],
|
|
drawn=none :: none | {tsumo | ron, tile()}
|
|
}).
|
|
-type player() :: #player{}.
|
|
|
|
%% @type phase() = Phase
|
|
%% Phase = draw | discard
|
|
-type phase() :: start | draw | discard.
|
|
|
|
%% @type game() = {game, Rounds, Timeout, Round, Turn, Phase, Wall, Rinshan, Dora, Uradora, Players}
|
|
%% Rounds = integer()
|
|
%% Timeout = integer() | infinity
|
|
%% Round = wind()
|
|
%% Turn = wind()
|
|
%% Phase = phase()
|
|
%% Wall = [tile()]
|
|
%% Rinshan = [tile()]
|
|
%% Dora = [tile()]
|
|
%% Uradora = [tile()]
|
|
%% Players = [player()]
|
|
-record(game, {
|
|
rounds=2 :: integer(),
|
|
timeout=infinity :: integer() | infinity,
|
|
round=east :: wind(),
|
|
turn=east :: wind(),
|
|
phase=start :: phase(),
|
|
wall=[] :: [tile()],
|
|
rinshan=[] :: [tile()],
|
|
dora=[] :: [tile()],
|
|
uradora=[] :: [tile()],
|
|
players=[] :: [player()]
|
|
}).
|
|
-type game() :: #game{}.
|