github/riichi
1
0
Fork 0
mirror of https://github.com/correl/riichi.git synced 2024-11-23 19:19:55 +00:00
Code Issues Projects Releases Packages Wiki Activity

Show discards

Browse source
This commit is contained in:
Correl Roush 2017-11-21 19:51:54 -05:00
parent d29dc79583
commit 076586eb1b
3 changed files with 10 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
priv/src/Client.elm
View file

@ -55,7 +55,7 @@ socketMsg : String -> Maybe Msg
socketMsg message = socketMsg message =
let let
splitMsg = splitMsg =
case String.split ":" message of case String.split ":" (Debug.log "message" message) of
msgType :: rest -> msgType :: rest ->
Just ( msgType, String.join ":" rest ) Just ( msgType, String.join ":" rest )

3
priv/src/Client/Decode.elm
View file

@ -49,11 +49,12 @@ wind =
player : Decoder Player player : Decoder Player
player = player =
map4 Player map5 Player
(field "name" <| map (\s -> s == "Websocket") string) (field "name" <| map (\s -> s == "Websocket") string)
(field "name" string) (field "name" string)
(field "seat" wind) (field "seat" wind)
(field "hand" hand) (field "hand" hand)
(field "discards" (list tile))
game : Decoder Game game : Decoder Game

7
priv/src/Client/Player.elm
View file

@ -1,6 +1,7 @@
module Client.Player exposing (..) module Client.Player exposing (..)
import Client.Hand exposing (Hand) import Client.Hand exposing (Hand)
import Tile exposing (Tile)
import Html exposing (..) import Html exposing (..)
type Wind = East | South | West | North type Wind = East | South | West | North
@ -10,6 +11,7 @@ type alias Player =
, name : String , name : String
, seat : Wind , seat : Wind
, hand : Hand , hand : Hand
, discards : List Tile
} }
@ -18,4 +20,9 @@ view player =
fieldset [] fieldset []
[ legend [] [ text ("Player: " ++ player.name ++ "(" ++ (toString player.seat) ++ ")") ] [ legend [] [ text ("Player: " ++ player.name ++ "(" ++ (toString player.seat) ++ ")") ]
, Client.Hand.view player.hand player.isMe , Client.Hand.view player.hand player.isMe
, viewDiscards player.discards
] ]
viewDiscards : List Tile -> Html msg
viewDiscards tiles =
div [] <| List.map Tile.view tiles