cleanup old reveal code

apps/server/src/okey/game_okey_table.erl

@@ -1329,94 +1329,6 @@ round_results(
         results = Results,
         next_action = next_round}.
 
-create_okey_round_ended_reveal(Revealer, RevealerWin, WrongRejects, RoundScore, TotalScore, PlayersAchsPoints,
-                        #okey_state{players = Players}) ->
-    PlResults = [begin
-                     #player{user_id = UserId} = get_player_by_seat_num(SeatNum, Players),
-                     WinnerStatus = if SeatNum == Revealer -> RevealerWin;
-                                       true -> not RevealerWin
-                                    end,
-                     GoodShot = if SeatNum == Revealer -> RevealerWin;
-                                   true -> not lists:member(SeatNum, WrongRejects)
-                                end,
-                     {_, Score} = lists:keyfind(SeatNum, 1, TotalScore),
-                     {_, ScoreDelta} = lists:keyfind(SeatNum, 1, RoundScore),
-                     Breakdown = [], %% XXX
-                     #'OkeyGameR'{player_id = UserId,
-                                  disconnected = false,
-                                  winner = WinnerStatus,
-                                  good_shot = GoodShot,
-                                  skill = 0,
-                                  skill_delta = 0,
-                                  score = Score,
-                                  score_delta = ScoreDelta,
-                                  breakdown = Breakdown}
-                 end || SeatNum <- lists:seq(1, ?SEATS_NUM)],
-    Results = #'OkeyGameResults'{game_id = 0,
-                                 start_datetime = 0,
-                                 end_datetime = 0,
-                                 results = PlResults,
-                                 series_results = []},
-    #okey_round_ended{good_shot = RevealerWin,
-                      reason = <<"reveal">>,
-                      results = Results,
-                      next_action = next_round}. %%XXX
-
-create_okey_round_ended_tashes_out(RoundScore, TotalScore, PlayersAchsPoints,
-                                   #okey_state{players = Players}) ->
-    PlResults = [begin
-                     #player{user_id = UserId} = get_player_by_seat_num(SeatNum, Players),
-                     {_, Score} = lists:keyfind(SeatNum, 1, TotalScore),
-                     {_, ScoreDelta} = lists:keyfind(SeatNum, 1, RoundScore),
-                     Breakdown = [], %% XXX
-                     #'OkeyGameR'{player_id = UserId,
-                                  disconnected = false,
-                                  winner = none,
-                                  good_shot = false,
-                                  skill = 0,
-                                  skill_delta = 0,
-                                  score = Score,
-                                  score_delta = ScoreDelta,
-                                  breakdown = Breakdown}
-                 end || SeatNum <- lists:seq(1, ?SEATS_NUM)],
-    Results = #'OkeyGameResults'{game_id = 0,
-                                 start_datetime = 0,
-                                 end_datetime = 0,
-                                 results = PlResults,
-                                 series_results = []},
-    #okey_round_ended{good_shot = false,
-                      reason = <<"draw">>,
-                      results = Results,
-                      next_action = next_round}. %%XXX
-
-create_okey_round_ended_gosterge_finish(Winner, RoundScore, TotalScore, PlayersAchsPoints,
-                                        #okey_state{players = Players}) ->
-    PlResults = [begin
-                     #player{user_id = UserId} = get_player_by_seat_num(SeatNum, Players),
-                     WinnerStatus = SeatNum == Winner,
-                     {_, Score} = lists:keyfind(SeatNum, 1, TotalScore),
-                     {_, ScoreDelta} = lists:keyfind(SeatNum, 1, RoundScore),
-                     Breakdown = [], %% XXX
-                     #'OkeyGameR'{player_id = UserId,
-                                  disconnected = false,
-                                  winner = WinnerStatus,
-                                  good_shot = WinnerStatus,
-                                  skill = 0,
-                                  skill_delta = 0,
-                                  score = Score,
-                                  score_delta = ScoreDelta,
-                                  breakdown = Breakdown}
-                 end || SeatNum <- lists:seq(1, ?SEATS_NUM)],
-    Results = #'OkeyGameResults'{game_id = 0,
-                                 start_datetime = 0,
-                                 end_datetime = 0,
-                                 results = PlResults,
-                                 series_results = []},
-    #okey_round_ended{good_shot = false,
-                      reason = <<"gosterge_instant">>,
-                      results = Results,
-                      next_action = next_round}. %%XXX
-
 create_okey_series_ended(Results, Players, Confirm) ->
     Standings = [begin
                      #player{user_id = UserId} = fetch_player(PlayerId, Players),