#include <profiler>
#include <sourcemod>
#include "W3SIncs/War3Source_Interface"


new Handle:objarray;
new UserMsg:umHintText

//add arbitrary short charactres to this
#define MAXKEYCOUNT 30
#define MAXKEYLEN 2

new enabled = 1; //cvar value
new String:key[MAXKEYCOUNT][MAXKEYLEN]; // "1\0" = 2 bytes
//need these fake keys for tries
/*
enum W3HintPriority{
	HINT_DMG_DEALT,
	HINT_DMG_RCVD,
	HINT_COOLDOWN,
	HINT_LOWEST,
}
*/
public Plugin:myinfo= 
{
	name="Engine Hint Display",
	author="Ownz",
	description="War3Source Core Plugins",
	version="1.0",
	url="http://war3source.com/"
};

new bool:updatenextframe[MAXPLAYERSCUSTOM];
new String:lastoutput[MAXPLAYERSCUSTOM][128];
public APLRes:AskPluginLoad2Custom(Handle:plugin,bool:late,String:error[],err_max)
{
	for(new i=0;i<MAXKEYCOUNT;i++){
		IntToString(i,key[i],MAXKEYLEN);
	}
	objarray=CreateArray(1,MAXPLAYERSCUSTOM+1);
	for(new i=0;i<GetArraySize(objarray);i++){
		SetArrayCell(objarray,i,INVALID_HANDLE);
	}
	return APLRes_Success;
}
public bool:InitNativesForwards(){
	CreateNative("W3Hint",NW3Hint);
	//W3Hint(client,W3HintPriority:type=HINT_LOWEST,Float:duration=5.0,String:format[],any:...);
	return true;
}
public OnPluginStart()
{
	CreateTimer(0.2,Time,_,TIMER_REPEAT);
	
	umHintText = GetUserMessageId("HintText");
	
	if (umHintText == INVALID_MESSAGE_ID)
		SetFailState("This game doesn't support HintText???");
	
	HookUserMessage(umHintText, MsgHook_HintText,true);
}
public OnWar3EventSpawn(client){
	//delay then refresh their hints
	W3Hint(client,_,0.1,"Www.War3Source.Com"); //this is a hackish way of doing it, since it will not refresh if hint string is equal
}
public OnWar3Event(W3EVENT:event,client){

	switch(event){
		case InitPlayerVariables:{
			 CreateObject(client);
			 for(new i=0;i<_:HINT_SIZE;i++)
			 {
			 	SetCell(Object(client),  i  ,CreateArray(ByteCountToCells(128))); //128 characters
			 	
			 }
			 for(new i=0;i<_:HINT_SIZE;i++)
			 {
			 	//PrintToServer("%d",GetCell(Object(client),i));
			 }
		}
		case ClearPlayerVariables:
		{ 
			//if ur object holds handles, close them!!
			for(new i=0;i<_:HINT_SIZE;i++)
			{
				//PrintToServer("%d",GetCell(Object(client),i));
				CloseHandle(Handle:GetCell(Object(client),i)); //this is the array created above
			}
			DeleteObject(client);
		}
	}
}
public NW3Hint(Handle:plugin,numParams)
{
	if(enabled){
		new client= GetNativeCell(1);
		
		if(!ValidPlayer(client)) return 0;
		
		new priority=GetNativeCell(2);
		new Float:Duration=GetNativeCell(3);
		if(Duration>20.0){ Duration=20.0;}	
		new String:format[128];
		GetNativeString(4,format,sizeof(format));
		new String:output[128];
		FormatNativeString(0, 
	                          4, 
	                          5, 
	                          sizeof(output),
	                          dummy,
	                          output
							  );
		
		//must have \n					  
		new len=strlen(output);		 
		if(len>0&&output[len-1]!='\n'){
		StrCat(output, sizeof(output), "\n");
		}
		
		new Handle:arr=Handle:GetCell(Object(client),priority);
		if(W3GetHintPriorityType(W3HintPriority:priority)==HINT_TYPE_SINGLE){
			ClearArray(Handle:arr);
		}
		//does it already exist? then update time
		new index=FindStringInArray(arr,output);
		if(index>=0){
			SetArrayCell(arr,index+1,Duration); //ODD
		}
		else{
			PushArrayString(arr, output); //EVEN
			PushArrayCell(arr,Duration); //ODD
		}
		
		updatenextframe[client]=true;
	}
	return 1;
}
public Action:Time(Handle:t){
	//PrintHintTextToAll("01234567890123456789012345678901234567890123456789\n01234567890123456789012345678901234567890123456789\n01234567890123456789012345678901234567890123456789\n01234567890123456789012345678901234567890123456789\n01234567890123456789012345678901234567890123456789\n");
	
}

public OnGameFrame(){

	
	
	
	if(enabled){
	//#define PROFILE
	#if defined PROFILE
		new Handle:p=CreateProfiler();
		StartProfiling(p);
	#endif
		for (new client = 1; client <= MaxClients; client++)
		{
			if (ValidPlayer(client,true))
			{
				
				//this 0.3 resolution only affects expiry, does not delay new messages as that is signaled by updatenextframe
				static Float:lastshow[MAXPLAYERSCUSTOM];
				if(lastshow[client]<GetEngineTime()-0.3 || updatenextframe[client]){
					//PrintToServer("%f < %f, bool %d", lastshow[client],GetEngineTime()-0.5,updatenextframe[client]);
					updatenextframe[client]=false;
					lastshow[client]=GetEngineTime();
					new String:output[128];
					for(new priority=0;priority<_:HINT_SIZE;priority++)
					{
						new Handle:arr=Handle:GetCell(Object(client),priority);
						new size=GetArraySize(arr);
						if(size){
							for(new arrindex=0;arrindex<size;arrindex+=2){
								new Float:expiretime=GetArrayCell(arr,arrindex+1);
								if(expiretime<21.0){ //JUST ADDED?
									expiretime=expiretime+GetEngineTime();
									SetArrayCell(arr,arrindex+1,expiretime);
								}
								if(GetEngineTime()>expiretime){
									//expired
									RemoveFromArray(arr, arrindex);
									RemoveFromArray(arr, arrindex); //new array shifted down, delete same position
									size=GetArraySize(arr); //resized
									arrindex-=2;					//rollback
									continue;
									
								}
								//then this did not expire, we can print
								new String:str[128];
								GetArrayString(arr,arrindex   ,str,sizeof(str));	
								StrCat(output,sizeof(output),str);
								//DP("cat %s",str);
								if(W3GetHintPriorityType(W3HintPriority:priority)!=HINT_TYPE_ALL){ //PRINT ONLY 1
									break;
								}
							
							
								
							}
							if(size&&W3HintPriority:priority==HINT_NORMAL){ //size may have changed when somethign expired
								StrCat(output,sizeof(output)," \n");
							}
						}
					}
					if(strlen(output)>1){
						
						StopSound(client, SNDCHAN_STATIC, "UI/hint.wav");
						//if(output[strlen(output)-1]=='\n')
						//{ 
						//PrintToServer("deleted");
						//output[strlen(output)-1]='\0';
					//	}
					/*	PrintToServer("|||%s",output);
						new index=FindCharInString(output, '\n');
						PrintToServer("IDE%d",index);
						if(index>0&&index==strlen(output)-1){
							//StrCat(output,sizeof(output),"\n\n");
							PrintToServer("cat");
						}*/
						new len=strlen(output);
						while(len>0&&(output[len-1]=='\n'   ||  output[len-1]==' ' )){
							output[len-1]='\0';
							len-=1; //keep eating the last returns
						}
						if(!StrEqual(lastoutput[client],output)){
							PrintHintText(client," %s",output); //NEED SPACE
							//if(!IsFakeClient(client)){
							//	DP("%s %d",output,GetGameTime());
							//}
							
							//PrintToChat(client,"%s %f",output,lastshow[client]);
						}
						
					}
					strcopy(lastoutput[client],128,output);
				
				}
			
		
		//Update(i);
			}
		} 
	#if defined PROFILE
		StopProfiling(p);
		PrintToServer("%f",GetProfilerTime(p));
		CloseHandle(p);
		#endif
		
	/*
	profile sample with 40 bots
	.000071
	.000009
	.000009
	.000009
	.000011
	.000009
	.000074
	.000009
	.000009
	.000010
	.000010
	.000009
	.000008
	.000073
	.000009
	.000009
	.000009
	.000009
	.000009
	.000009
	*/
	}
}







CreateObject(client){
	SetArrayCell(objarray,client,CreateTrie());
}
DeleteObject(client){
	//if(Object(client)!=INVALID_HANDLE)
//	{
	CloseHandle(Object(client));
//	}
	SetArrayCell(objarray,client,INVALID_HANDLE);
}
Handle:Object(client){
	return Handle:GetArrayCell(objarray,client);
}
GetCell(Handle:obj,any:index){
	
	//PrintToServer("%s",key[index]);
	new value;
	if(!GetTrieValue(obj, key[index], value)){
		return ThrowError("trie get cell failed");
	}
	return value;
}

SetCell(Handle:obj,any:index,any:value){
	
	if(!SetTrieValue(obj, key[index], value)){
		return ThrowError("trie set cell failed");
	}
	return value;
}
stock GetString(Handle:obj,any:index,String:str[],maxlen){

	if(!GetTrieString(obj, key[index], str,maxlen)){
		return ThrowError("trie get cell failed");
	}
	return 1;
}
stock SetString(Handle:obj,any:index,String:str[]){
	
	if(!SetTrieString(obj, key[index], str)){
		return ThrowError("trie get cell failed");
	}
	return 1;
}

public Action:MsgHook_HintText(UserMsg:msg_id, Handle:bf, const players[], playersNum, bool:reliable, bool:init)
{
	new bool:intercept=false;
	if(enabled){
		new String:str[128];
		BfReadString(Handle:bf, str, sizeof(str), false);
		//PrintToServer("%s",str);
		
		
		if(str[0]!=' '&&str[0]!='#'){
			intercept=true;
		}
		
		for (new i = 0; i < playersNum; i++)
		{
			if (players[i] != 0 && IsClientInGame(players[i]) && !IsFakeClient(players[i]))
			{
				StopSound(players[i], SNDCHAN_STATIC, "UI/hint.wav");
				if(intercept){
				
					W3Hint(players[i],HINT_NORMAL,4.0,str); //causes update
					//urgent update
					updatenextframe[players[i]]=true;
					//Update(players[i]);
					//PrintToServer("captured");
				}
			}
		}
	}
	return intercept?Plugin_Handled:Plugin_Continue;
}