fixed #1

Author: hpyhacking

src/handler/genesis_game_handler.erl

@@ -105,7 +105,7 @@ handle_protocol(R, LoopData) ->
 send(R) -> send(self(), R).
 
 send(PID, R) ->
-  io:format("~n===============================~n~p~n", [R]),
+  %io:format("~n===============================~n~p~n", [R]),
   case catch protocol:write(R) of
     {'EXIT', Raise} ->
       error_logger:error_report({protocol, write, R, Raise});

src/mods/op_mod_betting.erl

@@ -96,12 +96,10 @@ ask([H|_], Ctx = #texas{}) ->
 % small blind fix big blind
 ask_for_bet(H = #seat{inplay = Inplay, sn = SN, bet = B}, Ctx = #texas{sb = SB, stage = S})
 when S =:= ?GS_PREFLOP, SN =:= SB#seat.sn, B =:= Ctx#texas.sb_amt ->
-  io:format("===ASK=== PREFLOP SB~n"),
   ask_for_bet(H, Ctx, {Ctx#texas.max_betting, Inplay});
 
 ask_for_bet(H = #seat{inplay = Inplay, sn = SN, bet = B}, Ctx = #texas{bb = BB, limit = Limit, stage = S})
 when S =:= ?GS_PREFLOP, SN =:= BB#seat.sn, B =:= Ctx#texas.bb_amt ->
-  io:format("===ASK=== PREFLOP BB~n"),
   ask_for_bet(H, Ctx, {Limit#limit.big, Inplay});
 
 ask_for_bet(H = #seat{inplay = Inplay}, Ctx = #texas{}) ->

src/mods/restart.erl

@@ -2,8 +2,25 @@
 -behaviour(op_exch_mod).
 -export([start/2, dispatch/2]).
 
+-include("genesis.hrl").
+
 start([], Ctx) ->
-  {goto, top, Ctx}.
+  ResetCtx= Ctx#texas{
+    exp_seat = ?UNDEF,
+    exp_call = 0,
+    exp_min = 0,
+    exp_max = 0,
+    board = [],
+    pot = pot:new(),
+    deck = deck:new(),
+    seats = reset_seat(seat:get(Ctx#texas.seats), Ctx#texas.seats)
+  },
+
+  {goto, top, ResetCtx}.
 
 dispatch(_R, _Ctx) ->
   ok.
+
+reset_seat([], Seats) -> Seats;
+reset_seat([H|T], Seats) ->
+  reset_seat(T, seat:set(H#seat{hand = hand:new(), bet = 0}, Seats)).

src/mods/showdown.erl

@@ -19,16 +19,9 @@ start([], Ctx = #texas{gid = Id, seats = S, pot = P}) ->
   RewardedSeats = RewardedCtx#texas.seats,
   KickedCtx = kick_poor_players(seat:lookup(?PS_READY, RewardedSeats), RewardedCtx),
 
-  ResetCtx= KickedCtx#texas{
-    board = [],
-    pot = pot:new(),
-    deck = deck:new(),
-    seats = reset_seat(seat:get(KickedCtx#texas.seats), KickedCtx#texas.seats)
-  },
+  game:broadcast(#notify_game_end{ game = Id }, KickedCtx),
 
-  game:broadcast(#notify_game_end{ game = Id }, ResetCtx),
-
-  {stop, ResetCtx}.
+  {stop, KickedCtx}.
 
 dispatch(_R, _Ctx) ->
   ok.
@@ -37,11 +30,6 @@ dispatch(_R, _Ctx) ->
 %%% private
 %%%
 
-reset_seat([], Seats) -> Seats;
-reset_seat([H|T], Seats) ->
-  reset_seat(T, seat:set(H#seat{hand = hand:new()}, Seats)).
-
-
 show_cards([], _Ctx) -> ok;
 show_cards([#seat{pid = PId, identity = Identity, hand = Hand, sn = SN}|T], Ctx = #texas{gid = Id}) ->
   game:broadcast(#notify_cards{ game = Id, player = PId, sn = SN, cards = Hand#hand.cards}, Ctx, [Identity]),

src/mods/wait_players.erl

@@ -8,12 +8,7 @@ start(_Params, Ctx = #texas{start_delay = 0}) ->
   wait_for_players({timeout, ?UNDEF, ?MODULE}, Ctx);
 start(_Params, Ctx = #texas{start_delay = StartDelay}) ->
   Timer = erlang:start_timer(StartDelay, self(), ?MODULE),
-  NewCtx = Ctx#texas{
-    timer = Timer,
-    exp_seat = ?UNDEF,
-    exp_call = 0,
-    exp_min = 0,
-    exp_max = 0 },
+  NewCtx = Ctx#texas{timer = Timer},
   {next, wait_for_players, NewCtx }.
 
 dispatch(#cmd_raise{}, _Ctx) -> 

src/op_exch_event.erl

@@ -27,5 +27,5 @@ init(Mod, Msg) when is_atom(Mod) ->
   notify([{event, init}, {Mod, Msg}]).
 
 notify(Msg) ->
-  io:format('~n~n================================~n~p~n', [Msg]),
+  %io:format('~n~n================================~n~p~n', [Msg]),
   gen_event:notify(?MODULE, {self(), Msg}).