//

#include <string.h>
#include <ctype.h>
#include <stdarg.h>


#include "tmw.h"

#include "socket.h"
#include "timer.h"
#include "malloc.h"
#include "version.h"
#include "nullpo.h"

#include "atcommand.h"
#include "battle.h"
#include "chat.h"
#include "chrif.h"
#include "clif.h"
#include "guild.h"
#include "intif.h"
#include "itemdb.h"
#include "magic.h"
#include "map.h"
#include "mob.h"
#include "npc.h"
#include "party.h"
#include "pc.h"
#include "script.h"
#include "skill.h"
#include "storage.h"
#include "trade.h"

int tmw_CheckChatSpam(struct map_session_data *sd, char* message) {
	nullpo_retr(1, sd);
	time_t now = time(NULL);

	if (pc_isGM(sd)) return 0;

	if (now > sd->chat_reset_due) {
		sd->chat_reset_due = now + battle_config.chat_spam_threshold;
		sd->chat_lines_in = 0;
	}

	if (now > sd->chat_repeat_reset_due) {
		sd->chat_repeat_reset_due = now + (battle_config.chat_spam_threshold * 60);
		sd->chat_total_repeats = 0;
	}

	sd->chat_lines_in++;

	// Penalty for repeats.
	if (strncmp(sd->chat_lastmsg, message, tmw_ShorterStrlen(sd->chat_lastmsg, message)) == 0) {
		sd->chat_lines_in += battle_config.chat_lame_penalty;
		sd->chat_total_repeats++;
	}
	else {
		sd->chat_total_repeats=0;
	}

	// Penalty for lame, it can stack on top of the repeat penalty.
	if (tmw_CheckChatLameness(sd, message))
		sd->chat_lines_in += battle_config.chat_lame_penalty;

	strncpy((char*)sd->chat_lastmsg, message, battle_config.chat_maxline);

	if (sd->chat_lines_in >= battle_config.chat_spam_flood || sd->chat_total_repeats >= battle_config.chat_spam_flood) {
		sd->chat_lines_in = sd->chat_total_repeats = 0;

		if (battle_config.chat_spam_ban > 0) {
			tmw_GmHackMsg("%s has been autobanned for chat spam", sd->status.name);
			gm_log("server(0,0) Server : @autoban %s %dh (chat spam)", sd->status.name, battle_config.chat_spam_ban);

			clif_displaymessage(sd->fd, "You have been banned for spamming. Please do not spam.");
			chrif_char_ask_name(-1, sd->status.name, 2, 0, 0, 0, battle_config.chat_spam_ban, 0, 0); // type: 2 - ban (year, month, day, hour, minute, second)
			clif_setwaitclose(sd->fd);
		}

		return 1;
	}

	if (battle_config.chat_spam_ban &&
	    (sd->chat_lines_in >= battle_config.chat_spam_warn || sd->chat_total_repeats >= battle_config.chat_spam_warn)) {
		clif_displaymessage(sd->fd, "WARNING : You are about to be automaticly banned for spam!");
		clif_displaymessage(sd->fd, "WARNING : Please slow down, do not repeat, and do not SHOUT!");
	}

	return 0;
}

// Compares the length of two strings and returns that of the shorter
int tmw_ShorterStrlen(char *s1, char *s2) {
	int s1_len = strlen(s1);
	int s2_len = strlen(s2);
	return(s2_len >= s1_len ? s1_len : s2_len);
}

// Returns true if more than 50% of input message is caps or punctuation
int tmw_CheckChatLameness(struct map_session_data *sd, char *message)
{
	int count, lame;

	// Ignore the name
	message += strlen(sd->status.name);

	for(count = lame = 0; *message; message++,count++)
		if (isupper(*message) || ispunct(*message))
			lame++;

	if (count > 7 && lame > count / 2)
		return(1);

	return(0);
}

// Sends a whisper to all GMs
void tmw_GmHackMsg(const char *fmt, ...) {
	char buf[512];
	va_list ap;

	va_start(ap, fmt);
	vsnprintf(buf, 511, fmt, ap);
	va_end(ap);

	char outbuf[512+5];
	strcat(outbuf, "[GM] ");
	strcat(outbuf, buf);

	intif_wis_message_to_gm(wisp_server_name, battle_config.hack_info_GM_level, outbuf, strlen(outbuf) + 1);
}

int tmw_CheckTradeSpam(struct map_session_data *sd) {
	nullpo_retr(1, sd);
	time_t now = time(NULL);

	if (pc_isGM(sd)) return 0;

	if (now > sd->trade_reset_due) {
		sd->trade_reset_due = now + battle_config.trade_spam_threshold;
		sd->trades_in = 0;
	}

	sd->trades_in++;

	if (sd->trades_in >= battle_config.trade_spam_flood) {
		sd->trades_in = 0;

		if (battle_config.trade_spam_ban > 0) {
			tmw_GmHackMsg("%s has been autobanned for trade spam", sd->status.name);
			gm_log("server(0,0) Server : @autoban %s %dh (trade spam)", sd->status.name, battle_config.trade_spam_ban);

			clif_displaymessage(sd->fd, "You have been banned for trade spamming. Please do not trade spam.");
			chrif_char_ask_name(-1, sd->status.name, 2, 0, 0, 0, battle_config.trade_spam_ban, 0, 0); // type: 2 - ban (year, month, day, hour, minute, second)
			clif_setwaitclose(sd->fd);
		}

		return 1;
	}

	if (battle_config.trade_spam_ban && sd->trades_in >= battle_config.trade_spam_warn) {
		clif_displaymessage(sd->fd, "WARNING : You are about to be automaticly banned for trade spam!");
	}

	return 0;
}

int tmw_CheckSitSpam(struct map_session_data *sd) {
	nullpo_retr(1, sd);
	time_t now = time(NULL);

	if (pc_isGM(sd)) return 0;

	if (now > sd->sit_reset_due) {
		sd->sit_reset_due = now + battle_config.sit_spam_threshold;
		sd->sits_in = 0;
	}

	sd->sits_in++;

	if (sd->sits_in >= battle_config.sit_spam_flood) {
		sd->sits_in = 0;

		if (battle_config.sit_spam_ban > 0) {
			tmw_GmHackMsg("%s has been autobanned for sit spam", sd->status.name);
			gm_log("server(0,0) Server : @autoban %s %dh (sit spam)", sd->status.name, battle_config.sit_spam_ban);

			clif_displaymessage(sd->fd, "You have been banned for sit spamming. Please do not sit spam.");
			chrif_char_ask_name(-1, sd->status.name, 2, 0, 0, 0, battle_config.sit_spam_ban, 0, 0); // type: 2 - ban (year, month, day, hour, minute, second)
			clif_setwaitclose(sd->fd);
		}

		return 1;
	}

	if (battle_config.sit_spam_ban && sd->sits_in >= battle_config.sit_spam_warn) {
		clif_displaymessage(sd->fd, "WARNING : You are about to be automaticly banned for sit spam!");
	}

	return 0;
}