/**
* goldbets.sp
* Adds team betting. After dying, a player can bet on which team will win. 
*/
#include <sourcemod>
#include "W3SIncs/War3Source_Interface"

#pragma semicolon 1

#define PLUGIN_VERSION "1.0"

public Plugin:myinfo = 
{
	name = "Team Bets(Gold)",
	author = "GrimReaper - Original by ferret - heavily altered by Necavi",
	description = "Bet on Team to Win",
	version = PLUGIN_VERSION,
	url = "http://forums.alliedmods.net/showthread.php?t=85914"
};

#define BET_AMOUNT 0
#define BET_WIN 1
#define BET_TEAM 2

new g_bEnabled = false;

new g_iPlayerBetData[MAXPLAYERS + 1][3];
new bool:g_bPlayerBet[MAXPLAYERS + 1] = {false, ...};

new g_iTotalPot = 0;
new g_iBetTeam2;
new g_iBetTeam3;

new Handle:g_hSmBet = INVALID_HANDLE;
new Handle:g_hMaximumBet = INVALID_HANDLE;
new Handle:g_hMinimumBet = INVALID_HANDLE;
new Handle:g_hBetRatio = INVALID_HANDLE;

public OnPluginStart()
{
	LoadTranslations("w3s.addon.goldbets.phrases");	
	
	CreateConVar("sm_goldbets_version", PLUGIN_VERSION, "GoldBets Version", FCVAR_PLUGIN|FCVAR_SPONLY|FCVAR_REPLICATED|FCVAR_NOTIFY);
	
	g_hSmBet = CreateConVar("sm_goldbet_enable","1","Enables or disables the goldbet War3Source plugin",_,true,0.0,true,0.0);
	g_hMaximumBet = CreateConVar("sm_goldbets_maximum","40","Maximum bet value");
	g_hMinimumBet = CreateConVar("sm_goldbets_minimum","5","Minimum bet value");
	g_hBetRatio = CreateConVar("sm_goldbets_betratio","5","Defines the amount you can win per gold you bet");
	HookConVarChange(g_hSmBet, ConVarChange_SmBet);
	
	RegConsoleCmd("say", Command_Say);
	RegConsoleCmd("say_team", Command_Say);	
	
	g_bEnabled = true;
	
	CreateTimer(5.0, Timer_DelayedHooks);
	
	AutoExecConfig(true, "teambets");
	
	CreateTimer(60.0,Timer_Advertise,_,TIMER_REPEAT);
}

public ConVarChange_SmBet(Handle:convar, const String:oldValue[], const String:newValue[])
{
	g_bEnabled = StringToInt(newValue);
}

public Action:Timer_DelayedHooks(Handle:timer)
{
	if (g_bEnabled)
	{
		HookEvent("round_end", Event_RoundEnd, EventHookMode_Post);
		
		PrintToServer("[GoldBets] - Loaded");
	}
}



public Action:Command_Say(client, args)
{
	if (!g_bEnabled)
		return Plugin_Continue;
	
	if(g_bPlayerBet[client])
	{
		PrintToChat(client, "\x04[Goldbets]\x01 %t", "Already Bet");
		return Plugin_Handled;
	}
	new String:szText[192];
	GetCmdArgString(szText, sizeof(szText));
	
	new startarg = 0;
	if (szText[0] == '"')
	{
		startarg = 1;
		/* Strip the ending quote, if there is one */
		new szTextlen = strlen(szText);
		if (szText[szTextlen-1] == '"')
		{
			szText[szTextlen-1] = '\0';
		}
	}
	
	new String:szParts[3][16];
	ExplodeString(szText[startarg], " ", szParts, 3, 16);
	
	if (strcmp(szParts[0],"bet",false) == 0)
	{
		
		if (GetClientTeam(client) <= 1)
		{
			PrintToChat(client, "\x04[GoldBets]\x01 %t", "Must_Be_On_A_Team_To_Vote");
			return Plugin_Handled;
		}
		
		if (ValidPlayer(client,true))
		{
			PrintToChat(client, "\x04[GoldBets]\x01 %t", "Must_Be_Dead_To_Vote");
			return Plugin_Handled;
		}
		
		if (strcmp(szParts[1],"ct",false) != 0 && strcmp(szParts[1],"t", false) != 0 && strcmp(szParts[1],"blu",false) != 0 && strcmp(szParts[1],"red", false))
		{
			if(War3_GetGame()==Game_CS){
				PrintToChat(client, "\x04[GoldBets]\x01 %t", "Invalid_Team_for_Bet_CSS");
			}
			else if(War3_GetGame()==Game_TF){
				PrintToChat(client, "\x04[GoldBets]\x01 %t", "Invalid_Team_for_Bet_TF2");
			}
			return Plugin_Handled;
		}
		
		if (strcmp(szParts[1],"ct",false) == 0 || strcmp(szParts[1],"t", false) == 0 || strcmp(szParts[1],"blu",false) != 0 || strcmp(szParts[1],"red", false))
		{
			
			new iAmount = 0;
			new iBank = GetMoney(client);
			
			if (IsCharNumeric(szParts[2][0]))
			{
				iAmount = StringToInt(szParts[2]);
			}
			else if (strcmp(szParts[2],"all",false) == 0)
			{
				iAmount = iBank;
			}
			else if (strcmp(szParts[2],"half", false) == 0)
			{
				iAmount = (iBank / 2) + 1;
			}
			else if (strcmp(szParts[2],"third", false) == 0)
			{
				iAmount = (iBank / 3) + 1;
			}
			
			new iMaxBet = GetConVarInt(g_hMaximumBet);
			
			if(iAmount > iMaxBet)
			{
				iAmount = iMaxBet;
				PrintToChat(client, "\x04[GoldBets]\x01 %t","Above_Max_Bet",iMaxBet);
			}
			
			new iMinBet = GetConVarInt(g_hMinimumBet);
			
			if(iAmount < iMinBet)
			{
				PrintToChat(client, "\x04[GoldBets]\x01 %t","Below_Min_Bet",iMinBet);
				return Plugin_Handled;
			}
			
			if (iAmount < 1)
			{
				PrintToChat(client, "\x04[GoldBets]\x01 %t", "Invalid_Bet_Amount");
				return Plugin_Handled;
			}		
			
			if (iAmount > iBank || iBank < 1)
			{
				PrintToChat(client, "\x04[GoldBets]\x01 %t", "Not_Enough_Gold");
				return Plugin_Handled;
			}
			
			
			
			
			g_iPlayerBetData[client][BET_AMOUNT] = iAmount;
			g_iTotalPot += iAmount;
			new team;
			if(strcmp(szParts[1],"t",false) == 0 || strcmp(szParts[1],"red",false) == 0){
				team = 2;
			} else {
				team = 3;
			}
			g_iPlayerBetData[client][BET_TEAM] = team;
			
			if (g_iPlayerBetData[client][BET_TEAM] == 2) // 2 = t, 3 = ct
			{
				g_iBetTeam2 += iAmount;
			}
			else
			{
				g_iBetTeam3 += iAmount;
			}
			PrintToChat(client,"\x04[GoldBets]\x01 %t","Bet_Made",g_iTotalPot);
			
			g_bPlayerBet[client] = true;
			
			SetMoney(client, iBank - iAmount);
			
			return Plugin_Handled;
		}
	}
	
	return Plugin_Continue;
}

public OnClientConnected(client)
{
	if (g_bEnabled)
		return true;	
	
	g_iPlayerBetData[client][BET_AMOUNT] = 0;
	g_iPlayerBetData[client][BET_TEAM] = 0;
	g_iPlayerBetData[client][BET_WIN] = 0;
	g_bPlayerBet[client] = false;
	
	return true;	
}

public Event_RoundEnd(Handle:event, const String:name[], bool:dontBroadcast)
{
	if (!g_bEnabled)
		return;		
	
	new iMaxClients = GetMaxClients();
	new iWinner = GetEventInt(event, "winner");
	new WinAmount;
	if(iWinner == 2)
	{
		WinAmount = g_iBetTeam2;
	} else {
		WinAmount = g_iBetTeam3;
	}
	for (new i = 1; i <= iMaxClients; i++)
	{
		if (IsClientInGame(i) && g_bPlayerBet[i])
		{
			if (iWinner == g_iPlayerBetData[i][BET_TEAM])
			{
				//Please ignore.
				new AmountWon = RoundToFloor(float(g_iTotalPot) * (float(g_iPlayerBetData[i][BET_AMOUNT]) / float(WinAmount)));
				new BetRatio = GetConVarInt(g_hBetRatio);
				if(AmountWon > (BetRatio * g_iPlayerBetData[i][BET_AMOUNT]))
				{
					AmountWon = BetRatio * g_iPlayerBetData[i][BET_AMOUNT];
				}
				g_iTotalPot -= AmountWon;
				SetMoney(i,GetMoney(i) + AmountWon);
				PrintToChat(i, "\x04[GoldBets]\x01 %t", "Bet_Won", AmountWon, g_iPlayerBetData[i][BET_AMOUNT],g_iTotalPot);
			}
			else
			{
				PrintToChat(i, "\x04[GoldBets]\x01 %t", "Bet_Lost", g_iPlayerBetData[i][BET_AMOUNT]);
			}
		}
		
		g_bPlayerBet[i] = false;		
	}
	
	g_iBetTeam2 = 0;
	g_iBetTeam3 = 0;
}

public Action:Timer_Advertise(Handle:timer, any:data)
{
	if(!g_bEnabled)
		return;
	for(new i = 1;i <MAXPLAYERS+1;i++)
	{
		if (ValidPlayer(i))
		{
			PrintToChat(i, "\x04[GoldBets]\x01 %t", "Advertise_Bets", g_iTotalPot);
		}
	}
}

public SetMoney(client, amount)
{
	War3_SetGold(client,amount);
}

public GetMoney(client)
{
	return War3_GetGold(client);
}