/*
   transfer.c

   Bygfoot Football Manager -- a small and simple GTK2-based
   football management game.

   http://bygfoot.sourceforge.net

   Copyright (C) 2005  Gyözö Both (gyboth@bygfoot.com)

   This program is free software; you can redistribute it and/or
   modify it under the terms of the GNU General Public License
   as published by the Free Software Foundation; either version 2
   of the License, or (at your option) any later version.

   This program is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   GNU General Public License for more details.

   You should have received a copy of the GNU General Public License
   along with this program; if not, write to the Free Software
   Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.
*/

#include "callbacks.h"
#include "cup.h"
#include "finance.h"
#include "free.h"
#include "game_gui.h"
#include "league.h"
#include "main.h"
#include "maths.h"
#include "misc.h"
#include "option.h"
#include "player.h"
#include "support.h"
#include "team.h"
#include "transfer.h"
#include "treeview.h"
#include "user.h"

/** Weekly update of the transfer list. */
void
transfer_update(void)
{
#ifdef DEBUG
    printf("transfer_update\n");
#endif

    gint i, j;

    if((week > transfer_get_deadline() ||
       sett_int("int_opt_disable_transfers")) &&
       transfer_list->len == 0)
	return;

    if(week >= transfer_get_deadline())
    {
	for(i=transfer_list->len - 1;i>=0;i--)
	    if(trans(i).offers->len == 0)
		transfer_remove_player(i);

	if(transfer_list->len == 0)
	    return;
    }

    for(i=transfer_list->len - 1;i>=0;i--)
	for(j=trans(i).offers->len - 1;j>=0;j--)
	    if(transoff(i, j).status == TRANSFER_OFFER_REJECTED2 ||
	       team_is_user(transoff(i, j).tm) == -1)
		g_array_remove_index(trans(i).offers, j);
	    else if(transoff(i, j).status == TRANSFER_OFFER_REJECTED)
		transoff(i, j).status = TRANSFER_OFFER_REJECTED2;

    if(week < transfer_get_deadline())
    {
	transfer_add_new_players();
	transfer_add_cpu_offers();
    }

    transfer_evaluate_offers();

    for(i=transfer_list->len - 1;i>=0;i--)
    {
	if(team_is_user(trans(i).tm) == -1 &&
	   trans(i).offers->len == 0)
	{
	    trans(i).time--;
	    if(trans(i).time == 0)
		transfer_remove_player(i);
	}
    }
}

/** Add offers for the users' players on the list.
    We also sort the offers from other users. */
void
transfer_add_cpu_offers(void)
{
#ifdef DEBUG
    printf("transfer_add_cpu_offers\n");
#endif

    gint i;
    gfloat scout_factor_bounds[4][2] =
	{{const_float("float_transfer_offer_fee_best_lower"),
	  const_float("float_transfer_offer_fee_best_upper")},
	 {const_float("float_transfer_offer_fee_good_lower"),
	  const_float("float_transfer_offer_fee_good_upper")},
	 {-const_float("float_transfer_offer_fee_good_upper"),
	  -const_float("float_transfer_offer_fee_good_lower")},
	 {-const_float("float_transfer_offer_fee_best_upper"),
	  -const_float("float_transfer_offer_fee_best_lower")}};

    for(i=0;i<transfer_list->len;i++)
	if(team_is_user(trans(i).tm) != -1 &&
	   trans(i).offers->len == 0 &&
	   math_rnd(0, 1) < const_float("float_transfer_offer_prob_max") -
	   (user_from_team(trans(i).tm)->scout % 10 * 
	    const_float("float_transfer_offer_prob_reduce")))
	    transfer_add_offer(
		i, transfer_team_get_new(),
		math_round_integer(
		    (gint)rint(
			(gfloat)player_of_id_team(trans(i).tm, trans(i).id)->value *
			(1 + math_rnd(
			    scout_factor_bounds[user_from_team(trans(i).tm)->scout % 10][0],
			    scout_factor_bounds[user_from_team(trans(i).tm)->scout % 10][1]))), 2),
		-1);
}


/** Return a random team as a potential buyer for a user player. */
Team*
transfer_team_get_new(void)
{
#ifdef DEBUG
    printf("transfer_team_get_new\n");
#endif

    gint rndom;
    GPtrArray *league_teams = team_get_sorted(team_compare_func, 
					      TEAM_COMPARE_UNSORTED, FALSE),
	*cup_teams = team_get_sorted(team_compare_func, 
				     TEAM_COMPARE_UNSORTED, TRUE);
    Team *return_value = NULL;

    while(return_value == NULL || team_is_user(return_value) != -1)
    {
	rndom = math_rndi(0, league_teams->len + cup_teams->len - 1);
	if(rndom < league_teams->len)
	    return_value = (Team*)g_ptr_array_index(league_teams, rndom);
	else
	    return_value = (Team*)g_ptr_array_index(cup_teams, rndom - league_teams->len);
    }

    return return_value;
}

/** Compare function for transfer offers. */
gint
transfer_offer_compare_func(gconstpointer a, gconstpointer b)
{
#ifdef DEBUG
    printf("transfer_offer_compare_func\n");
#endif

    const TransferOffer *tr1 = (const TransferOffer*)a,
	*tr2 = (const TransferOffer*)b;    
    gint return_value;

    if(tr1->status >= TRANSFER_OFFER_REJECTED &&
       tr2->status >= TRANSFER_OFFER_REJECTED)
	return_value = 0;
    else if(tr1->status >= TRANSFER_OFFER_REJECTED)
	return_value = 1;
    else if(tr2->status >= TRANSFER_OFFER_REJECTED)
	return_value = -1;
    else
	return_value = (tr1->fee != tr2->fee) ?
	    misc_int_compare(tr1->fee, tr2->fee) :
	    misc_int_compare(tr1->wage, tr2->wage);
    
    return return_value;
}

/** Send notification events about accepted transfer offers for
    user players. */
void
transfer_offers_notify(Transfer *tr, gboolean sort)
{
#ifdef DEBUG
    printf("transfer_offers_notify\n");
#endif

    TransferOffer *off = NULL;

    if(sort)
	g_array_sort(tr->offers, transfer_offer_compare_func);
    off = &g_array_index(tr->offers, TransferOffer, 0);

    off->status = TRANSFER_OFFER_ACCEPTED;

    if(team_is_user(tr->tm) != -1)
	user_event_add(user_from_team(tr->tm), EVENT_TYPE_TRANSFER_OFFER_USER,
		       -1, -1, NULL, player_of_id_team(tr->tm, tr->id)->name, NULL);

    else
	user_event_add(user_from_team(off->tm),
		       EVENT_TYPE_TRANSFER_OFFER_CPU, -1, -1,
		       NULL, player_of_id_team(tr->tm, tr->id)->name, NULL);

    if(!sort)
	user_event_show_next();
}

/** Move players to the users' teams if their offer
    was accepted or remove the players from the list if not. */
void
transfer_evaluate_offers(void)
{
#ifdef DEBUG
    printf("transfer_evaluate_offers\n");
#endif

    gint i, j;
    gboolean notify;

    for(i=transfer_list->len - 1;i>=0;i--)
	if(trans(i).offers->len > 0)
	{
	    notify = FALSE;

	    if(team_is_user(trans(i).tm) == -1)
	    {
		for(j=trans(i).offers->len - 1; j >= 0; j--)
		{
		    if(transoff(i, j).status != TRANSFER_OFFER_REJECTED2)
		    {
			if(player_of_id_team(trans(i).tm, trans(i).id)->value >
			   transoff(i, j).fee &&
			   player_of_id_team(trans(i).tm, trans(i).id)->wage >
			   transoff(i, j).wage)
			{
			    user_event_add(
				user_from_team(transoff(i, j).tm),
				EVENT_TYPE_TRANSFER_OFFER_REJECTED_FEE_WAGE, 
				transoff(i, j).fee, transoff(i, j).wage,
				trans(i).tm, 
				player_of_id_team(trans(i).tm, trans(i).id)->name, NULL);
			    transoff(i, j).status = TRANSFER_OFFER_REJECTED;
			}
			else if(player_of_id_team(trans(i).tm, trans(i).id)->value > 
				transoff(i, j).fee)
			{
			    user_event_add(
				user_from_team(transoff(i, j).tm),
				EVENT_TYPE_TRANSFER_OFFER_REJECTED_FEE,
				transoff(i, j).fee, transoff(i, j).wage,
				trans(i).tm, 
				player_of_id_team(trans(i).tm, trans(i).id)->name, NULL);
			    transoff(i, j).status = TRANSFER_OFFER_REJECTED;
			}
			else if(player_of_id_team(trans(i).tm, trans(i).id)->wage > 
				transoff(i, j).wage)
			{
			    user_event_add(
				user_from_team(transoff(i, j).tm),
				EVENT_TYPE_TRANSFER_OFFER_REJECTED_WAGE,
				transoff(i, j).fee, transoff(i, j).wage,
				trans(i).tm, 
				player_of_id_team(trans(i).tm, trans(i).id)->name, NULL);
			    transoff(i, j).status = TRANSFER_OFFER_REJECTED;
			}
			else if(transfer_new_star_balks(&trans(i), &transoff(i, j)))
			{
			    user_event_add(
				user_from_team(transoff(i, j).tm),
				EVENT_TYPE_TRANSFER_OFFER_REJECTED_STARS, -1, -1,
				trans(i).tm, 
				player_of_id_team(trans(i).tm, trans(i).id)->name, NULL);
			    transoff(i, j).status = TRANSFER_OFFER_REJECTED;
			}
			else
			    notify = TRUE;
		    }
		}
	    }
	    else
		notify = TRUE;

	    if(notify)
		transfer_offers_notify(&trans(i), TRUE);
	    else if(week >= transfer_get_deadline())
		transfer_remove_player(i);
	}
}

/** Add new players to the transfer list. */
void
transfer_add_new_players(void)
{
#ifdef DEBUG
    printf("transfer_add_new_players\n");
#endif

    gint i;
    gint number_of_new = math_rndi(const_int("int_transfer_new_players_lower"),
				   const_int("int_transfer_new_players_upper"));
    number_of_new = MIN(number_of_new,
			const_int("int_transfer_max_players") - transfer_list->len);
    
    for(i=0;i<number_of_new;i++)
	transfer_add_player(
	    transfer_player_get_new(
		(math_rnd(0, 1) < const_float("float_transfer_cup_percentage") &&
		 query_cup_transfer())),
	    math_rndi(const_int("int_transfer_time_lower"),
		      const_int("int_transfer_time_upper")));
}

/** Select a random player for the transfer list. */
Player*
transfer_player_get_new(gboolean cup)
{
#ifdef DEBUG
    printf("transfer_player_get_new\n");
#endif

    GPtrArray *teams = team_get_sorted(team_compare_func, TEAM_COMPARE_UNSORTED, cup);
    Player *pl = NULL;
    Team *tm = NULL;

    while(pl == NULL || team_is_user(pl->team) != -1 ||
	  query_transfer_player_is_on_list(pl))
    {
	tm = (Team*)g_ptr_array_index(teams, math_rndi(0, teams->len - 1));
	pl = player_of_idx_team(tm, math_rndi(0, tm->players->len - 1));

	if(pl->skill > const_float("float_player_max_skill") *
	   const_float("float_transfer_good_player_skill_bound") &&
	   math_rnd(0, 1) > const_float("float_transfer_good_player_prob"))
	    pl = NULL;
    }
    
    return pl;
}

/** Add the player to the transfer list.
    @param time The number of weeks he'll be on the list. */
void
transfer_add_player(Player *pl, gint time)
{
#ifdef DEBUG
    printf("transfer_add_player\n");
#endif

    gint i;
    Transfer new;
    gfloat deviance_value, deviance_wage;

    new.tm = pl->team;
    new.id = pl->id;
    new.time = time;
    new.offers = g_array_new(FALSE, FALSE, sizeof(TransferOffer));

    for(i=0;i<4;i++)
    {
	deviance_value = 
	    math_rnd(-(i + 1) * const_float("float_transfer_scout_deviance_value"),
		     (i + 1) * const_float("float_transfer_scout_deviance_value"));
	deviance_wage = 
	    math_rnd(-(i + 1) * const_float("float_transfer_scout_deviance_wage"),
		     (i + 1) * const_float("float_transfer_scout_deviance_wage"));
	new.fee[i] = math_round_integer(
	    (gint)rint((gfloat)pl->value * (1 + deviance_value)), 3);
	new.wage[i] = math_round_integer(
	    (gint)rint((gfloat)pl->wage * (1 + deviance_wage)), 2);
    }

    g_array_append_val(transfer_list, new);
}

/** Return the transfer deadline. */
gint
transfer_get_deadline(void)
{
#ifdef DEBUG
    printf("transfer_get_deadline\n");
#endif

    gint i;
    gint length = 0;

    for(i=0;i<ligs->len;i++)
	if(query_league_active(&lig(i)))
	    length = 
		MAX(length, g_array_index(
			lig(i).fixtures, Fixture, lig(i).fixtures->len - 1).week_number);

    if(length == 0)
	for(i=0;i<cps->len;i++)
	    length = MAX(length, cp(i).last_week);

    return (length > 0) ? 
	(gint)rint((gfloat)length * const_float("float_transfer_deadline_percentage")) :
	35;
}

/** Remove a player from the transfer list. */
void
transfer_remove_player(gint idx)
{
#ifdef DEBUG
    printf("transfer_remove_player\n");
#endif

    free_g_array(&trans(idx).offers);
    g_array_remove_index(transfer_list, idx);
}

/** Remove a player given by a pointer from the list. */
void
transfer_remove_player_ptr(const Player *pl)
{
#ifdef DEBUG
    printf("transfer_remove_player_ptr\n");
#endif

    gint i;

    for(i=0;i<transfer_list->len;i++)
	if(player_of_id_team(trans(i).tm, trans(i).id) == pl)
	{
	    transfer_remove_player(i);
	    break;
	}
}

/** Find out whether a player is on the transfer list. */
gboolean
query_transfer_player_is_on_list(const Player *pl)
{
#ifdef DEBUG
    printf("query_transfer_player_is_on_list\n");
#endif

    gint i;

    for(i=0;i<transfer_list->len;i++)
	if(trans(i).tm == pl->team &&
	   trans(i).id == pl->id)
	    return TRUE;

    return FALSE;
}

/** Check whether there is an offer by the current
    user for the player. */
gboolean
query_transfer_current_team_offer(const Player *pl)
{
#ifdef DEBUG
    printf("query_transfer_current_team_offer\n");
#endif

    gint i, j;

    for(i=0;i<transfer_list->len;i++)
	if(trans(i).tm == pl->team &&
	   trans(i).id == pl->id)
	{
	    for(j=0;j<trans(i).offers->len;j++)
		if(transoff(i, j).tm == current_user.tm)
		    return TRUE;
	}

    return FALSE;
}

/** Find out whether a player is on the list
    and there are offers to buy him. */
const TransferOffer*
transfer_player_has_offer(const Player *pl)
{
    gint i;

    for(i=0;i<transfer_list->len;i++)
	if(trans(i).tm == pl->team &&
	   trans(i).id == pl->id &&
	   trans(i).offers->len > 0 &&
	   transoff(i, 0).status == TRANSFER_OFFER_ACCEPTED)
	    return &transoff(i, 0);

    return NULL;
}

/** Add an offer to the player with specified index on the transfer list.
    @param return TRUE if the offer updated an earlier offer, FALSE, otherwise. */
gboolean
transfer_add_offer(gint idx, Team *tm, gint fee, gint wage)
{
#ifdef DEBUG
    printf("transfer_add_offer\n");
#endif

    gint i;
    TransferOffer new;

    for(i=0;i<trans(idx).offers->len;i++)
	if(transoff(idx, i).tm == tm)
	{
	    transoff(idx, i).fee = fee;
	    transoff(idx, i).wage = wage;
	    transoff(idx, i).status = TRANSFER_OFFER_NOT_CONSIDERED;
	    return TRUE;
	}

    new.tm = tm;
    new.fee = fee;
    new.wage = wage;
    new.status = TRANSFER_OFFER_NOT_CONSIDERED;

    g_array_append_val(trans(idx).offers, new);

    return FALSE;
}

/** Remove any offers from the team for the given transfer player. */
gboolean
transfer_remove_offer(gint idx, const Team *tm)
{
#ifdef DEBUG
    printf("transfer_remove_offer\n");
#endif

    gint i;

    for(i=0;i<trans(idx).offers->len;i++)
	if(transoff(idx, i).tm == tm)
	{
	    g_array_remove_index(trans(idx).offers, i);
	    return TRUE;
	}    

    return FALSE;
}

/** Add or remove a user player from the transfer list. */
void
transfer_add_remove_user_player(Player *pl)
{
#ifdef DEBUG
    printf("transfer_add_remove_user_player\n");
#endif

    if(!query_transfer_player_is_on_list(pl))
    {
	if(week < transfer_get_deadline())
	{
	    transfer_add_player(
		pl,
		(gint)rint(((gfloat)const_int("int_transfer_time_lower") +
			    (gfloat)const_int("int_transfer_time_upper")) / 2));
	    game_gui_print_message(
		_("%s has been added to the transfer list for %d weeks."),
		pl->name, 
		(gint)rint(((gfloat)const_int("int_transfer_time_lower") +
			    (gfloat)const_int("int_transfer_time_upper")) / 2));
	}
	else
	{
	    game_gui_print_message(_("The transfer deadline is over."));
	    return;
	}
    }
    else
	transfer_remove_player_ptr(pl);

    on_button_transfers_clicked(NULL, NULL);
}

/** Find out whether the current user has to do
    some transfer business before a user change or
    a new week. */
gboolean
transfer_offers_pending(void)
{
#ifdef DEBUG
    printf("transfer_offers_pending\n");
#endif

    gint i;

    for(i=0;i<transfer_list->len;i++)
	if((trans(i).tm == current_user.tm &&
	    trans(i).offers->len > 0 &&
	    transoff(i, 0).status == TRANSFER_OFFER_ACCEPTED) ||
	   (team_is_user(trans(i).tm) == -1 &&
	    trans(i).offers->len > 0 &&
	    transoff(i, 0).tm == current_user.tm &&
	    transoff(i, 0).status == TRANSFER_OFFER_ACCEPTED))
	    return TRUE;

    return FALSE;
}

/** Find out whether the team has already made an offer for the player
    and set the fee and wage accordingly. */
void
transfer_get_previous_offer(const Transfer *tr, const Team *tm, gint *fee, gint *wage)
{
#ifdef DEBUG
    printf("transfer_get_previous_offer\n");
#endif

    gint i;

    for(i=0;i<tr->offers->len;i++)
	if(g_array_index(tr->offers, TransferOffer, i).tm == tm)
	{
	    *fee = g_array_index(tr->offers, TransferOffer, i).fee;
	    *wage = g_array_index(tr->offers, TransferOffer, i).wage;
	}
}

/** Find out if a potential new star balks because there are already 
    enough stars on the user team. */
gboolean
transfer_new_star_balks(const Transfer *tr, const TransferOffer *troff)
{
#ifdef DEBUG
    printf("transfer_new_star_balks\n");
#endif

    gint i;
    gint number_of_stars;

    /* Weak players never balk. */
    if(player_of_id_team(tr->tm, tr->id)->skill < 
       const_float("float_transfer_star_skill_limit"))
	return FALSE;

    /* There is some chance that the new star doesn't balk at all. */
    if(math_rnd(0, 1) < const_float("float_transfer_star_no_balk"))
	return FALSE;

    /* Find out if there are any stars at all on the team. */
    number_of_stars = 0;
    for(i = 0; i < troff->tm->players->len; i++)
    {
	if(g_array_index(troff->tm->players, Player, i).skill > 
	   const_float("float_transfer_star_skill_limit"))
	    number_of_stars++;
    }
    
    if(number_of_stars == 0)
	return FALSE;

    return (math_rnd(0, 1) > 1 - number_of_stars * const_float("float_transfer_star_prob_decrease"));
}