Home Explore Help
Sign In
n4u
/
game_svg_erl_demo
2
0
Fork 0
Files Issues 0 Pull Requests 0 Wiki
Tree: 578b0d016b
Branches Tags
game_svg_erl_de...
/
apps
/
face
/
src
/
protocol.erl

protocol.erl 1.5 KB
History Raw

123456789101112131415161718192021 
  1. -module(protocol).
    2. 

  2. -compile({parse_transform, shen}).
    3. 

  3. -compile(export_all).
    4. 

  4. -jsmacro([take/2,attach/1,join/1,discard/3,player_info/2,reveal/4,
    5. 

  5.           piece/2,logout/0,pause/2,i_saw_okey/1,i_have_8_tashes/1]).
    6. 

  6. 

  7. attach(Token) -> ws:send(enc(tuple(atom('client'),tuple(atom("session_attach"), Token)))).
    8. 

  8. join(Game) -> ws:send(enc(tuple(atom('client'),tuple(atom("join_game"), Game)))).
    9. 

  9. logout() -> ws:send(enc(tuple(atom('client'),tuple(atom("logout"))))).
    10. 

  10. pause(GameId, Action) -> ws:send(enc(tuple(atom('client'),tuple(atom("pause_game"),atom('undefined'),GameId,atom(Action))))).
    11. 

  11. player_info(User,GameModule) -> ws:send(enc(tuple(atom('client'),tuple(atom("get_player_stats"),bin(User),atom(GameModule))))).
    12. 

  12. 

  13. take(GameId,Place) -> ws:send(enc(tuple(atom('client'),tuple(atom("game_action"),GameId,atom("okey_take"),[{pile,Place}])))).
    14. 

  14. discard(GameId, Color, Value) -> ws:send(enc(tuple(atom('client'),tuple(atom("game_action"),GameId,atom("okey_discard"),
    15. 

  15.     [{tile,tuple(atom("OkeyPiece"), Color, Value)}])))).
    16. 

  16. piece(Color,Value) -> tuple(atom("OkeyPiece"), Color, Value).
    17. 

  17. reveal(GameId, Color, Value, Hand) ->
    18. 

  18.     ws:send(enc(tuple(atom('client'),tuple(atom("game_action"),GameId,atom("okey_reveal"),
    19. 

  19.         [{discarded, tuple(atom("OkeyPiece"), Color, Value)},{hand, Hand}])))).
    20. 

  20. i_saw_okey(GameId) -> ws:send(enc(tuple(atom('client'),tuple(atom("game_action"),GameId,atom("okey_i_saw_okey"),[])))).
    21. 

  21. i_have_8_tashes(GameId) -> ws:send(enc(tuple(atom('client'),tuple(atom("game_action"),GameId,atom("okey_i_have_8_tashes"),[])))).
    22.