fixed problem with two concurrent players

src/ggs_gamevm_p.erl

@@ -36,7 +36,6 @@ define(GameVM, SourceCode) ->
 %%      Command = a game command to run
 %%      Args    = arguments for the Command parameter
 player_command(GameVM, Player, Command, Args) ->
-    erlang:display(Command),
     gen_server:cast(GameVM, {player_command, Player, Command, Args}).
 
 %% @private
@@ -118,23 +117,28 @@ intern_player_command(Table, Player, Command, _Args) ->
 	
 intern_add_player(Table, Player) ->
 	{ok, PlayerList} = ggs_table:get_player_list(Table),
-	erlang:display(PlayerList),
 	case length(PlayerList) of
 	    1 ->
+	        erlang:display("A player joined");
+		2 ->
+		    [First|_] = PlayerList,
+        	case First == Player of
+        		true ->
         			erlang:display("P1: joining"),
         			ggs_db:setItem(Table, local_storage, Player, player1),
         			erlang:display(ggs_db:getItem(Table, local_storage, Player)),
         			ggs_db:setItem(Table, local_storage, player1_y, 50),
         			ggs_table:send_command(Table, Player, {"welcome", int2str(1)}),
         			ggs_table:notify_all_players(Table, {"player1_y", int2str(50)});
-		2 ->
+        		false ->
         			erlang:display("P2: joining"),
         			ggs_db:setItem(Table, local_storage, Player, player2),
         			erlang:display(ggs_db:getItem(Table, local_storage, Player)),
         			ggs_db:setItem(Table, local_storage, player2_y, 50),
         			ggs_table:send_command(Table, Player, {"welcome", int2str(2)}),
         			ggs_table:send_command(Table, Player, {"player1_y", int2str(50)}),
-			ggs_table:notify_all_players(Table, {"player2_y", int2str(50)});
+        			ggs_table:notify_all_players(Table, {"player2_y", int2str(50)})
+        	end;
 		_Other ->
 			ggs_table:send_command(Table, Player, {"not_welcome", ""})
 	end.

src/ggs_player.erl

@@ -27,13 +27,33 @@
 start(Socket) -> 
     gen_server:start(?MODULE, [Socket], []).
 
+join_table(Num) ->
+    case ggs_coordinator:join_table(integer_to_list(Num)) of
+        {ok, T} ->
+            io:format("Joining existing table: ~p~n", [T]),
+            T;
+        {error, no_such_table} ->
+            case ggs_coordinator:create_table({force, integer_to_list(Num)}) of
+                {ok, TBToken} -> ok
+            end,
+            case ggs_coordinator:join_table(integer_to_list(Num)) of
+                {ok, T} -> io:format("Creating new table: ~p~n", [T]),
+                           T;
+                {error, E} ->   erlang:display(E),
+                                join_table(Num+1)
+            end;
+        {error, table_full} ->
+            erlang:display("Table full!"),
+            join_table(Num+1)
+    end.
+
 init([Socket]) ->
     {ok, Protocol} = ggs_protocol:start_link(),
     {ok, Token} = ggs_coordinator:join_lobby(),
     
     erlang:port_connect(Socket, self()),
 
-    Table = ggs_coordinator:join_table(),
+    Table = join_table(1),
     State = #state{
         token = Token,
         socket = Socket,