///////////////////////////////////////
///////////Made by Joe Staff///////////
///////////////////////////////////////

#include <a_samp>
#define _UPDATERATE 100 //milliseconds
#define _TELEPORTFADECOLORR 0
#define _TELEPORTFADECOLORG 0
#define _TELEPORTFADECOLORB 0
#define _TELEPORTFADECOLORA 255
forward _UpdateFadeTimer();
forward OnFadeComplete(playerid,beforehold);
new _pEndColor[MAX_PLAYERS][4];
new _pCurrentColor[MAX_PLAYERS][4];
new _pRateColor[MAX_PLAYERS][4];
new _pStep[MAX_PLAYERS];
new _pHold[MAX_PLAYERS];
new _OPArray[MAX_PLAYERS];
new _OnlinePlayers;
new _PlayerTeleporting[MAX_PLAYERS];
new _PlayerInterior[MAX_PLAYERS];
new Float:_pTPToPos[MAX_PLAYERS][3];
new _pTPSteps[MAX_PLAYERS];
new Text:_text; //Look, only one!

/*
native ConvertToColor(RR,GG,BB,AA);
native StopPlayerFade(playerid);
native FadeColorForPlayer(playerid,RR1,GG1,BB1,AA1,RR2,GG2,BB2,AA2,steps,hold);
native SetPlayerPosFade(playerid,steps,Float:x,Float:y,Float:z);
*/


stock SetPlayerPosFade(playerid,steps,interior,Float:x,Float:y,Float:z)
{
	_PlayerTeleporting[playerid]=1;
	_pTPToPos[playerid][0]=x;
	_pTPToPos[playerid][1]=y;
	_pTPToPos[playerid][2]=z;
	_pTPSteps[playerid]=steps;
	_PlayerInterior[playerid]=interior;
	FadeColorForPlayer(playerid,0,0,0,0,_TELEPORTFADECOLORR,_TELEPORTFADECOLORG,_TELEPORTFADECOLORB,_TELEPORTFADECOLORA,steps,1);
}
stock ConvertToColor(RR,GG,BB,AA)return (RR*16777216)+(GG*65536)+(BB*256)+AA;
stock _UpdateOPA(playerid=INVALID_PLAYER_ID) //my version of foreach (I made it before Y_Less did! publicly anyway)
{
	_OnlinePlayers=0;
	for(new ply;ply<MAX_PLAYERS;ply++)
	{
		if(IsPlayerConnected(ply)&&(ply!=playerid))
		{
			_OPArray[_OnlinePlayers]=ply;
			_OnlinePlayers++;
		}
	}
}
stock FadeColorForPlayer(playerid,RR1,GG1,BB1,AA1,RR2,GG2,BB2,AA2,steps,hold)
{
	_pStep[playerid]=steps;//countdown, sorta
	new tmpsteps; //This will have to be added to incase the math is messed up (programming annoyance)
	_pHold[playerid]=hold;//How long the last color is held before disappearing (Divide this by UPDATERATE to get the time Ex:hold=10, in milliseconds that's 1000)
	_pEndColor[playerid][0]=RR2;
	_pEndColor[playerid][1]=GG2;
	_pEndColor[playerid][2]=BB2;
	_pEndColor[playerid][3]=AA2;
	_pCurrentColor[playerid][0]=RR1;
	_pCurrentColor[playerid][1]=GG1;
	_pCurrentColor[playerid][2]=BB1;
	_pCurrentColor[playerid][3]=AA1;
	_pRateColor[playerid][0]=(RR1-RR2)/steps;
	_pRateColor[playerid][1]=(GG1-GG2)/steps;
	_pRateColor[playerid][2]=(BB1-BB2)/steps;
	_pRateColor[playerid][3]=(AA1-AA2)/steps;
	//No dividing by 0!
	if(_pRateColor[playerid][0]!=0)if(((RR1-RR2)/_pRateColor[playerid][0])>steps)tmpsteps=((RR1-RR2)/_pRateColor[playerid][0])-steps;
	if(_pRateColor[playerid][1]!=0)if(((GG1-GG2)/_pRateColor[playerid][1])>steps+tmpsteps)tmpsteps=((GG1-GG2)/_pRateColor[playerid][1])-steps;
	if(_pRateColor[playerid][2]!=0)if(((BB1-BB2)/_pRateColor[playerid][2])>steps+tmpsteps)tmpsteps=((BB1-BB2)/_pRateColor[playerid][2])-steps;
	if(_pRateColor[playerid][3]!=0)if(((AA1-AA2)/_pRateColor[playerid][3])>steps+tmpsteps)tmpsteps=((AA1-AA2)/_pRateColor[playerid][3])-steps;
	if(tmpsteps)_pStep[playerid]+=tmpsteps+1;
}


#if defined FILTERSCRIPT
	public OnFilterScriptInit()
	{
        FadeInit();

	if (funcidx("Fader_OnFilterScriptInit") != -1)
  	{
    	return CallLocalFunction("Fader_OnFilterScriptInit", "i", playerid);
  	}
  	return 1;
}

#if defined _ALS_OnFilterScriptInit
	#undef OnFilterScriptInit
#else
	#define _ALS_OnFilterScriptInit
#endif
#define OnFilterScriptInit Fader_OnFilterScriptInit

forward Fader_OnFilterScriptInit(playerid);

#else
	public OnGameModeInit()
	{
        FadeInit();

	if (funcidx("Fader_OnGameModeInit") != -1)
  	{
    	return CallLocalFunction("Fader_OnGameModeInit", "i", playerid);
  	}
  	return 1;
}

#if defined _ALS_OnGameModeInit
	#undef OnGameModeInit
#else
	#define _ALS_OnGameModeInit
#endif
#define OnGameModeInit Fader_OnGameModeInit

forward Fader_OnGameModeInit(playerid);

#endif

FadeInit()
{
	_text=TextDrawCreate(0.0,0.0,"~r~");
	TextDrawTextSize(_text,640,480);
	TextDrawLetterSize(_text,0.0,50.0);
	TextDrawUseBox(_text,1);
	SetTimer("_UpdateFadeTimer",_UPDATERATE,1);
	_UpdateOPA();
	return 1;
}

#if defined FILTERSCRIPT
	public OnFilterScriptInit()
	{
        FadeInit();

	if (funcidx("Fader_OnFilterScriptInit") != -1)
  	{
    	return CallLocalFunction("Fader_OnFilterScriptInit", "");
  	}
  	return 1;
}

#if defined _ALS_OnFilterScriptExit
	#undef OnFilterScriptExit
#else
	#define _ALS_OnFilterScriptExit
#endif
#define OnFilterScriptExit Fader_OnFilterScriptExit

forward Fader_OnFilterScriptExit(playerid);

#else
	public OnGameModeExit()
	{
        FadeExit();

	if (funcidx("Fader_OnGameModeExit") != -1)
  	{
    	return CallLocalFunction("Fader_OnGameModeExit", "");
  	}
  	return 1;
}

#if defined _ALS_OnGameModeExit
	#undef OnGameModeExit
#else
	#define _ALS_OnGameModeExit
#endif
#define OnGameModeExit Fader_OnGameModeExit

forward Fader_OnGameModeExit(playerid);

#endif

FadeExit()
{
	TextDrawDestroy(_text);
	return 1;
}

public OnPlayerConnect(playerid)
{
	_UpdateOPA();
	_pHold[playerid]=-1;
	_pStep[playerid]=-1;
	_PlayerTeleporting[playerid]=0;

	if (funcidx("Fader_OnPlayerConnect") != -1)
  	{
    	return CallLocalFunction("Fader_OnPlayerConnect", "i", playerid);
  	}
  	return 1;
}

#if defined _ALS_OnPlayerConnect
	#undef OnPlayerConnect
#else
	#define _ALS_OnPlayerConnect
#endif
#define OnPlayerConnect Fader_OnPlayerConnect

forward Fader_OnPlayerConnect(playerid);


public OnPlayerDisconnect(playerid, reason)
{
	_UpdateOPA(playerid);
	if (funcidx("Fader_OnPlayerDisconnect") != -1)
  	{
    	return CallLocalFunction("Fader_OnPlayerDisconnect", "ii", playerid, reason);
  	}
  	return 1;
}

#if defined _ALS_OnPlayerDisconnect
	#undef OnPlayerDisconnect
#else
	#define _ALS_OnPlayerDisconnect
#endif
#define OnPlayerDisconnect Fader_OnPlayerDisconnect

forward Fader_OnPlayerDisconnect(playerid);


stock StopPlayerFade(playerid)
{
	_pStep[playerid]=0;
	_pHold[playerid]=0;
}
public _UpdateFadeTimer()
{
	new playerid;
	for(new opa;opa<_OnlinePlayers;opa++)
	{
		playerid=_OPArray[opa];
		if(_pStep[playerid])
		{
			_pStep[playerid]--;
			for(new color;color<4;color++)
			{
				_pCurrentColor[playerid][color]-=_pRateColor[playerid][color];
				if(_pRateColor[playerid][color]>0)
				{
					if(_pCurrentColor[playerid][color]<_pEndColor[playerid][color])_pCurrentColor[playerid][color]=_pEndColor[playerid][color];
				}
				if(_pRateColor[playerid][color]<0)
				{
					if(_pCurrentColor[playerid][color]>_pEndColor[playerid][color])_pCurrentColor[playerid][color]=_pEndColor[playerid][color];
				}
				if(_pCurrentColor[playerid][color]<0)_pCurrentColor[playerid][color]=0;
				if(_pCurrentColor[playerid][color]>255)_pCurrentColor[playerid][color]=255;
			}
			TextDrawBoxColor(_text,ConvertToColor(_pCurrentColor[playerid][0],_pCurrentColor[playerid][1],_pCurrentColor[playerid][2],_pCurrentColor[playerid][3]));
			TextDrawShowForPlayer(playerid,_text);
		}
		else if(_pStep[playerid]==0)
		{
			_pStep[playerid]=-1;
			if(_PlayerTeleporting[playerid]==1)
			{
				SetPlayerPos(playerid,_pTPToPos[playerid][0],_pTPToPos[playerid][1],_pTPToPos[playerid][2]);
				SetPlayerInterior(playerid,_PlayerInterior[playerid]);
				FadeColorForPlayer(playerid,_TELEPORTFADECOLORR,_TELEPORTFADECOLORG,_TELEPORTFADECOLORB,_TELEPORTFADECOLORA,0,0,0,0,_pTPSteps[playerid],1);
				_PlayerTeleporting[playerid]=2;
			}else if(_PlayerTeleporting[playerid]==2)
			{
				_PlayerTeleporting[playerid]=0;
			}
			else
			{
				CallLocalFunction("OnFadeComplete","ii",playerid,1);
			}
		}
		else if(_pHold[playerid])
		{
			_pHold[playerid]--;
		}
		else if(_pHold[playerid]==0)
		{
			_pHold[playerid]=-1;
			TextDrawHideForPlayer(playerid,_text);
			CallLocalFunction("OnFadeComplete","ii",playerid,0);
		}
	}
}