#include <a_samp>
#include <dutils>

#define MAX_FILTERS 500
enum FILTER_MAIN {
	FILTER_ACTIVE,
	FILTER_FILENAME[128],
	FILTER_REPCHAR[3],
	FILTER_COUNT
};
new gFilterProps[FILTER_MAIN];
new gFilter[MAX_FILTERS][MAX_STRING];

public OnFilterScriptInit() {
	print("\n\n==== Filterscript: Simple Language Filter (SLF) by Betamaster ====");
	gFilterProps[FILTER_ACTIVE] = true;
	gFilterProps[FILTER_FILENAME][0]=0; set(gFilterProps[FILTER_FILENAME],"FS_SLFDef.inc");
	gFilterProps[FILTER_REPCHAR][0]=0;  set(gFilterProps[FILTER_REPCHAR],"*");
	print("----------------------------------------------------------------");
	printf("Processing file '%s' (replacement char: '%s')...",gFilterProps[FILTER_FILENAME],gFilterProps[FILTER_REPCHAR]);
	LoadFilters();
	printf("%d filter definitions loaded.",gFilterProps[FILTER_COUNT]-1);
	print("----------------------------------------------------------------\n");
}

public OnFilterScriptExit() {
	print("\n\n==== Filterscript: SLF ... Exited ====");
}

public OnPlayerCommandText(playerid, cmdtext[]) {
	new cmd[MAX_STRING], tmp[MAX_STRING], i;
	cmd = strtok(cmdtext,i);
	if(equal(cmd,"/slf",false)) {
if(!IsPlayerAdmin(playerid)) {
	SendClientMsg(playerid,"You must be an admin to use this feature.");
	return 1;
}
tmp = strtok(cmdtext,i);
if(!tmp[0]) {
	SendClientMessage(playerid,0xFFFFFFAA,"USAGE: /slf [on/off/add [filter]/remove [filter]/reload]");
} else {
	if(equal(tmp,"on",false)) {
gFilterProps[FILTER_ACTIVE] = true;
SendClientMsg(playerid,"Enabled");
	} else if(equal(tmp,"off",false)) {
gFilterProps[FILTER_ACTIVE] = false;
SendClientMsg(playerid,"Disabled");
	} else if(equal(tmp,"add",false)) {
set(tmp,right(cmdtext,strlen(cmdtext)-i));
AddFilter(playerid,tmp);
	} else if(equal(tmp,"remove",false)) {
set(tmp,right(cmdtext,strlen(cmdtext)-i));
RemoveFilter(playerid,tmp);
	} else if(equal(tmp,"reload",false)) {
new string[MAX_STRING];
LoadFilters();
format(string,MAX_STRING,"%d filter definitions loaded.",gFilterProps[FILTER_COUNT]);
SendClientMsg(playerid,string);
	}
}
return 1;
	}
	return 0;
}

public OnPlayerText(playerid, text[]) {
	SendClientMsg(playerid,"giii");
	return 1;
}

public OnPlayerPrivmsg(playerid, senderid, text[]) {
	if(gFilterProps[FILTER_ACTIVE]) format(text,MAX_STRING,"%s",SLF_Parse(text));
	return 1;
}

//------------------------------------------------------------------------------------------------------

LoadFilters() {
	new File:fhnd, tmp[MAX_STRING];
	if(fexist(gFilterProps[FILTER_FILENAME])) {
fhnd = fopen(gFilterProps[FILTER_FILENAME],io_read);
fread(fhnd,tmp);
StripNewLine(tmp);
gFilterProps[FILTER_COUNT]=0;
while(tmp[0]!=0 && gFilterProps[FILTER_COUNT]<MAX_FILTERS) {
	gFilter[gFilterProps[FILTER_COUNT]] = tmp;
	gFilterProps[FILTER_COUNT]++;
	fread(fhnd,tmp);
	StripNewLine(tmp);
}
fclose(fhnd);
	} else {
printf("*** CRITICAL ERROR: File '%s' not found. ***", gFilterProps[FILTER_FILENAME]);
OnFilterScriptExit();
	}
}

AddFilter(playerid, filter[]) {
	new string[MAX_STRING];
	if(gFilterProps[FILTER_COUNT]>=MAX_FILTERS) {
format(string,MAX_STRING,"Filter '%s' not added. Maximum filter buffer reached.",filter);
	} else {
for(new i=0; i<gFilterProps[FILTER_COUNT]; i++) {
	if(equal(gFilter[i],filter,false)) {
format(string,MAX_STRING,"Filter '%s' not added. It already exists.",filter);
SendClientMsg(playerid,string);
return;
	}
}
format(gFilter[gFilterProps[FILTER_COUNT]],MAX_STRING,"%s",filter);
gFilterProps[FILTER_COUNT]++;
if(SaveFilters()) {
	format(string,MAX_STRING,"Filter '%s' successfully added.",filter);
} else {
	format(string,MAX_STRING,"Filter '%s' not added (file write error).",filter);
}
	}
	SendClientMsg(playerid,string);
}

RemoveFilter(playerid, filter[]) {
	new string[MAX_STRING];
	for(new i=0; i<gFilterProps[FILTER_COUNT]; i++) {
if(equal(gFilter[i],filter,false)) {
	for(new j=i; j<MAX_FILTERS-1; j++) gFilter[j] = gFilter[j+1];
	gFilter[MAX_FILTERS-1] = "\0";
	gFilterProps[FILTER_COUNT]--;
	if(SaveFilters()) {
format(string,MAX_STRING,"Filter '%s' successfully removed.",filter);
	} else {
format(string,MAX_STRING,"Filter '%s' not removed (file write error).",filter);
	}
	SendClientMsg(playerid,string);
	return;
}
	}
	format(string,MAX_STRING,"Filter '%s' not removed. It was not found.",filter);
	SendClientMsg(playerid,string);
}

SaveFilters() {
	new File:fhnd, tmp[MAX_STRING];
	if(fexist(gFilterProps[FILTER_FILENAME])) {
fhnd = fopen(gFilterProps[FILTER_FILENAME],io_write);
for(new i=0; i<gFilterProps[FILTER_COUNT]; i++) {
	tmp[0]=0;
	strcat(tmp,gFilter[i]);
	if(i<gFilterProps[FILTER_COUNT]-1) strcat(tmp,"\r\n");
	fwrite(fhnd,tmp);
}
fclose(fhnd);
return true;
	}
	return false;
}

SLF_Parse(text[]) {
	new i,j,tmp[MAX_STRING],newtmp[MAX_STRING],repstr[MAX_STRING],replen,pos;
	set(tmp,text);
	for(i=0; i<gFilterProps[FILTER_COUNT]; i++) {
newtmp[0]=0;
repstr[0]=0;
replen = strlen(gFilter[i]);
for(j=0;j<replen;j++) strcat(repstr,gFilterProps[FILTER_REPCHAR]);
pos = strfind(tmp,gFilter[i],true);
while(pos>=0) {
	strcat(newtmp,left(tmp,pos));
	strcat(newtmp,repstr);
	tmp = right(tmp,strlen(tmp)-pos-replen);
	pos = strfind(tmp,gFilter[i],true);
}
strcat(newtmp,tmp);
set(tmp,newtmp);
	}
	return tmp;
}

left(source[], len) {  // By Alex "Y_Less" Cole
	new tmp[MAX_STRING];
	strmid(tmp,source,0,len,MAX_STRING);
	return tmp;
}

right(source[], len) {  // By Alex "Y_Less" Cole
	new tmp[MAX_STRING], srclen=strlen(source);
	strmid(tmp,source,srclen-len,srclen,MAX_STRING);
	return tmp;
}

SendClientMsg(playerid, string[]) {
	new tmp[MAX_STRING];
	format(tmp,MAX_STRING,"[SLF] %s", string);
	SendClientMessage(playerid,0xFFFFFFAA,tmp);
}