added pong vm

src/ggs_player.erl

@@ -23,14 +23,14 @@ start_link(Socket) ->
     % us, otherwise these messages end up in our parent.
     erlang:port_connect(Socket, self()),
     {ok, Token} = ggs_coordinator:join_lobby(),
-    TableStatus = ggs_coordinator:join_table(1337),
+    TableStatus = ggs_coordinator:join_table("1337"),
     case TableStatus of
         {ok, Table} ->
             notify(self(), self(), {"hello", Token}),
             loop(#pl_state{socket = Socket, token = Token, table = Table});
         {error, no_such_table} ->
-            ggs_coordinator:create_table({force, 1337}),
-            {ok, Table} = ggs_coordinator:join_table(1337),
+            ggs_coordinator:create_table({force, "1337"}),
+            {ok, Table} = ggs_coordinator:join_table("1337"),
             notify(self(), self(), {"hello", Token}),
             loop(#pl_state{socket = Socket, token = Token, table = Table})
     end.
@@ -42,7 +42,7 @@ start_link(Socket) ->
 notify(Player, From, Message) ->
     erlang:display(Message),
     {Cmd, Data} = Message,
-    Parsed = ggs_protocol:create_message(Cmd, "text","text", Data), 
+    Parsed = ggs_protocol:create_message(Cmd, "text","text", Data),
     Player ! {notify, From, Parsed}.
 
 %% @doc Get the player token uniquely representing the player.
@@ -69,6 +69,7 @@ loop(#pl_state{token = _Token, socket = Socket, table = Table} = State) ->
             self() ! Parsed,
             loop(State);
         {notify, _From, Message} ->
+			erlang:display(Message),
             gen_tcp:send(Socket, Message),
             loop(State);
         % Below are messages generated by the parser