#include <a_http>


#define MAX_COUNTRY_NAME    (40)
#define MAX_ZIP_LENGTH (15) // I don't know how long zip codes are in other countries.

forward HTTP_OnLookupResponse(index, response, data[]);

enum e_LookupData
{
	e_LookupCountry[MAX_COUNTRY_NAME char],
	e_LookupRegion[MAX_COUNTRY_NAME char],
	e_LookupCity[MAX_COUNTRY_NAME char],
	e_LookupISP[MAX_COUNTRY_NAME char],
	e_LookupTimezone[MAX_COUNTRY_NAME char],
	e_LookupZipcode[MAX_ZIP_LENGTH char]
};

new g_asLookupData[MAX_PLAYERS][e_LookupData];

#if defined OnLookupComplete
	forward OnLookupComplete(playerid);
#endif

public HTTP_OnLookupResponse(index, response, data[])
{
	new pos = -1;

	if (!IsPlayerConnected(index)) return 0;
	else if (response == 200)
	{
	    if (strfind(data, "Reserved", true) != -1 || strlen(data) < 15)
		{
	        return 0;
		}
		else
		{
			new country[MAX_COUNTRY_NAME],region[MAX_COUNTRY_NAME],city[MAX_COUNTRY_NAME],isp[MAX_COUNTRY_NAME], timezone[MAX_COUNTRY_NAME], zip[10];

			if ((pos = strfind(data, "\"country\":")) != -1)
			{
			    pos = pos + 11;

				strmid(country, data, pos, strfind(data, "\"", true, pos), MAX_COUNTRY_NAME);
			}
			if ((pos = strfind(data, "\"regionName\":")) != -1)
			{
			    pos = pos + 14;

				strmid(region, data, pos, strfind(data, "\"", true, pos), MAX_COUNTRY_NAME);

			}
			if ((pos = strfind(data, "\"city\":")) != -1)
			{
			    pos = pos + 8;

				strmid(city, data, pos, strfind(data, "\"", true, pos), MAX_COUNTRY_NAME);
			}

			if ((pos = strfind(data, "\"isp\":")) != -1)
			{
			    pos = pos + 7;

				strmid(isp, data, pos, strfind(data, "\"", true, pos), MAX_COUNTRY_NAME);
			}
			
			if ((pos = strfind(data, "\"timezone\":")) != -1)
			{
			    pos = pos + 12;

				strmid(timezone, data, pos, strfind(data, "\"", true, pos), MAX_COUNTRY_NAME);
			}
			
			if ((pos = strfind(data, "\"zip\":")) != -1)
			{
			    pos = pos + 7; 

				strmid(zip, data, pos, strfind(data, "\"", true, pos), 10);
			}

			if (pos != -1)
			{
			    strpack(g_asLookupData[index][e_LookupCountry], country, MAX_COUNTRY_NAME char);
			    strpack(g_asLookupData[index][e_LookupRegion], region, MAX_COUNTRY_NAME char);
			    strpack(g_asLookupData[index][e_LookupCity], city, MAX_COUNTRY_NAME char);
			    strpack(g_asLookupData[index][e_LookupISP], isp, MAX_COUNTRY_NAME char);
				strpack(g_asLookupData[index][e_LookupTimezone], timezone, MAX_COUNTRY_NAME char);
				strpack(g_asLookupData[index][e_LookupZipcode], zip, MAX_ZIP_LENGTH char);
				
				// Saving zip as a packed string because apparently strval wants to act funny.
				// Could be because it's 5am as I'm adding this shit to this include, will check it out later.
				
				#if defined OnLookupComplete
				CallLocalFunction("OnLookupComplete", "d", index);
				#endif
			}
		}
	}
	return 0;
}

public OnPlayerConnect(playerid)
{
	new ipstr[64];
	
	GetPlayerIp(playerid, ipstr, 64);
	
	strpack(g_asLookupData[playerid][e_LookupCountry], "Unknown", MAX_COUNTRY_NAME char);
    strpack(g_asLookupData[playerid][e_LookupRegion], "Unknown", MAX_COUNTRY_NAME char);
    strpack(g_asLookupData[playerid][e_LookupCity], "Unknown", MAX_COUNTRY_NAME char);
    strpack(g_asLookupData[playerid][e_LookupISP], "Unknown", MAX_COUNTRY_NAME char);
	strpack(g_asLookupData[playerid][e_LookupTimezone], "Unknown", MAX_COUNTRY_NAME char);
	strpack(g_asLookupData[playerid][e_LookupZipcode], "Unknown", MAX_COUNTRY_NAME char);
	
	strins(ipstr, "ip-api.com/json/", 0);
	HTTP(playerid, HTTP_GET, ipstr, "", "HTTP_OnLookupResponse");
	
	#if defined IPL_OnPlayerConnect
        IPL_OnPlayerConnect(playerid);
    #endif
    return 1;
}
#if defined _ALS_OnPlayerConnect
    #undef OnPlayerConnect
#else
    #define _ALS_OnPlayerConnect
#endif
#define OnPlayerConnect IPL_OnPlayerConnect
#if defined IPL_OnPlayerConnect
    forward IPL_OnPlayerConnect(playerid);
#endif


stock GetPlayerCountry(playerid, country[], size = sizeof(country))
{
	if (IsPlayerConnected(playerid))
		return strunpack(country, g_asLookupData[playerid][e_LookupCountry], size);

	else
	    strunpack(country, !"Unknown", size);

	return 0;
}

stock GetPlayerRegion(playerid, region[], size = sizeof(region))
{
	if (IsPlayerConnected(playerid))
		return strunpack(region, g_asLookupData[playerid][e_LookupRegion], size);

	else
	    strunpack(region, !"Unknown", size);

	return 0;
}

stock GetPlayerCity(playerid, city[], size = sizeof(city))
{
	if (IsPlayerConnected(playerid))
		return strunpack(city, g_asLookupData[playerid][e_LookupCity], size);

	else
	    strunpack(city, !"Unknown", size);

	return 0;
}

stock GetPlayerISP(playerid, isp[], size = sizeof(isp))
{
	if (IsPlayerConnected(playerid))
		return strunpack(isp, g_asLookupData[playerid][e_LookupISP], size);

	else
	    strunpack(isp, !"Unknown", size);

	return 0;
}

stock GetPlayerTimezone(playerid, timezone[], size = sizeof(timezone))
{
	if (IsPlayerConnected(playerid))
		return strunpack(timezone, g_asLookupData[playerid][e_LookupTimezone], size);

	else
	    strunpack(timezone, !"Unknown", size);

	return 0;
}

stock GetPlayerZipcode(playerid, zipcode[], size = sizeof(zipcode)) // Returns as a string for now, read note in the callback above.
{
	if (IsPlayerConnected(playerid))
		return strunpack(zipcode, g_asLookupData[playerid][e_LookupZipcode], size);

	else
	    strunpack(zipcode, !"Unknown", size);

	return 0;
}