/********************************************************************
         **  Biohazards Last Scout Plugin                    v 3.0  **********
        ***    July 19th 2002         (plugin_logd_lastscout.sma)   *********
       ****  INFO:  Wishs good luck to the last man of a team in    ********
      *****  the current round. It acts on Kills, Teamkills, Dis-   *******
     ******  connection and Suicide. Also works with PodBot 2.5     ******
    *******                                                         *****
   ********  Thanks to f[SAM]t for this fine idea                   ****
  *********  This version plays an additional sound to the looser   ***
 **********  of an '1 vs 1' -  battle (Greetz to Ne0z3d for this)   **
********************************************************************/

#include <core> 
#include <console> 
#include <string> 
#include <admin> 
#include <adminlib> 

#define ACCESS_CONSOLE 131072
#define ACCESS_LS 1024
#define SHOW_TIME 5
#define MAX_WAV_LENGTH 30

#define DEBUG 0

new STRING_VERSION[MAX_DATA_LENGTH] = "3.0";
new bEnabled = 1;			// 1 - Plugin on, 2 - Plugin off 
new bAudio = 1;				// 1 - Sound on, 0 - Sound off
new Style = 1;				// 1 - Centersay, 2 - Typesay, 0 - disabled
new bMode = 0;				// Holds information if last man was already detected
new Anzahl_T;
new Anzahl_CT;
new LastMan_T[MAX_NAME_LENGTH];
new LastMan_CT[MAX_NAME_LENGTH];
new sGoodLuckWav[MAX_WAV_LENGTH + 1];
new sWinnerWav[MAX_WAV_LENGTH + 1];
new sLooserWav[MAX_WAV_LENGTH + 1];

public admin_war(HLCommand,HLData,HLUserName,UserIndex)
{
	new Command[MAX_COMMAND_LENGTH];
	new Data[MAX_DATA_LENGTH];
	new User[MAX_NAME_LENGTH];
	new Value;
	
	convert_string(HLCommand,Command,MAX_COMMAND_LENGTH);
	convert_string(HLData,Data,MAX_DATA_LENGTH);
	convert_string(HLUserName,User,MAX_NAME_LENGTH);
	Value = strtonum(Data);
	
	if (Value == 1) {
		if (bEnabled != 0) {
			bEnabled = 0;
			selfmessage("Last Scout Plugin deactivated. Reactivate with 'admin_war 0'");
		}
		else selfmessage("Last Scout Plugin already deactivated");
	} else if (Value == 0) {
		if (bEnabled != 1) {
			bEnabled = 1;
			selfmessage("Last Scout Plugin reactivated");
		}
		else selfmessage("Last Scout Plugin already reactivated");
	} else {
		selfmessage("Value has to be 0 or 1 !");
	}
	
	return PLUGIN_HANDLED;
}

public admin_ls_off(HLCommand, HLData, HLUserName, UserIndex)
{
	new User[MAX_NAME_LENGTH];
	new Text[MAX_TEXT_LENGTH];
	
	convert_string(HLUserName, User, MAX_NAME_LENGTH);
	
	if (bEnabled != 0) {
		bEnabled = 0;
		say(">>> Last Scout Plugin has been disabled <<<");
		snprintf(Text, MAX_TEXT_LENGTH, "Last Scout Plugin has been disabled by %s", User);
		log(Text);
	}
	else selfmessage("Last Scout Plugin already disabled");
	
	return PLUGIN_HANDLED;
}

public admin_ls_on(HLCommand, HLData, HLUserName, UserIndex)
{
	new User[MAX_NAME_LENGTH];
	new Text[MAX_TEXT_LENGTH];
	
	convert_string(HLUserName, User, MAX_NAME_LENGTH);
	
	if (bEnabled != 1) {
		bEnabled = 1;
		say(">>> Last Scout Plugin has been enabled <<<");
		snprintf(Text, MAX_TEXT_LENGTH, "Last Scout Plugin has been enabled by %s", User);
		log(Text);
	}
	else selfmessage("Last Scout Plugin already enabled");
	
	return PLUGIN_HANDLED;
}

public admin_lsaudio_off(HLCommand, HLData, HLUserName, UserIndex)
{
	new User[MAX_NAME_LENGTH];
	
	convert_string(HLUserName, User, MAX_NAME_LENGTH);
	
	if (bAudio != 0) {
		bAudio = 0;
		selfmessage(">>> Sound has been disabled");
	}
	else selfmessage("Sound is already disabled");
	
	return PLUGIN_HANDLED;
}

public admin_lsaudio_on(HLCommand, HLData, HLUserName, UserIndex)
{
	new User[MAX_NAME_LENGTH];
	
	convert_string(HLUserName, User, MAX_NAME_LENGTH);
	
	if (bAudio != 1) {
		bAudio = 1;
		selfmessage(">>> Sound has been enabled");
	}
	else selfmessage("Sound is already enabled");
	
	return PLUGIN_HANDLED;
}

public admin_ls_style(HLCommand,HLData,HLUserName,UserIndex)
{
	new Command[MAX_COMMAND_LENGTH];
	new Data[MAX_DATA_LENGTH];
	new User[MAX_NAME_LENGTH];
	new Value;
	
	convert_string(HLCommand,Command,MAX_COMMAND_LENGTH);
	convert_string(HLData,Data,MAX_DATA_LENGTH);
	convert_string(HLUserName,User,MAX_NAME_LENGTH);
	Value = strtonum(Data);
	
	if (Value == 1) {
		Style = 1;		// Centersy
		selfmessage(">> Style changed to 'Centersay'");
	}
	else if (Value == 2) {
		Style = 2;		// Typesay
		selfmessage(">> Style changed to 'Typesay'");
	}
	else if (Value == 0) {
		Style = 0;		// disabled
		selfmessage(">> Style changed to 'disabled'");
	}
	else {
		selfmessage("Value has to be a number between 0 and 2 !");
	}
	
	return PLUGIN_HANDLED;
}

public ls_HandleWorld(HLCommand,HLData,HLUserName,UserIndex)
{
	if (!bEnabled) {
		return PLUGIN_CONTINUE;
	}
	
	new Params[MAX_DATA_LENGTH];
	
	convert_string(HLData,Params,MAX_DATA_LENGTH);
	switch( Params[6] )
	{
		case 'S':
		{
			bMode = 0;
			return PLUGIN_CONTINUE;
		}
	}
	return PLUGIN_CONTINUE;
}

public ls_HandleKill(HLCommand,HLData,HLUserName,UserIndex)
{
	ls_LastScout();
	
	return PLUGIN_CONTINUE;
}

public ls_HandleDisconnect(dName, dUID, dWonid, sTeam)
{
	ls_LastScout();
	
	return PLUGIN_CONTINUE;
}

public ls_HandleSuicide(sName, sUID, sWonid, sTeam, sWeapon)
{
	ls_LastScout();
	
	return PLUGIN_CONTINUE;
}

ls_LastScout()
{
	if (!bEnabled)
		return PLUGIN_CONTINUE;
	
	Anzahl_T = 0;
	Anzahl_CT = 0;
	
	ls_GetPlayerCount();
	
	if (bMode == 0) {
		if ((Anzahl_T == 1) && (Anzahl_CT > 1)) {
			ls_ShowHim(1, LastMan_T, "");
			bMode = 1;
		}
		else if ((Anzahl_CT == 1) && (Anzahl_T > 1)) {
			ls_ShowHim(2, LastMan_CT, "");
			bMode = 1;
		}
	}
	if (bMode != 2) {
		if ((Anzahl_CT == 1) && (Anzahl_T == 1)) {
			ls_ShowHim(0, LastMan_T, LastMan_CT);
			bMode = 2;
		}
	}
	if (bAudio == 1) {
		if ((Anzahl_CT == 1) && (Anzahl_T == 0)) {
			ls_MakeNoise(LastMan_CT, LastMan_T);
			bMode = 2;			
		}
		else if ((Anzahl_CT == 0) && (Anzahl_T == 1)) {
			ls_MakeNoise(LastMan_T, LastMan_CT);
			bMode = 2;
		}
	}
	return PLUGIN_CONTINUE;
}

ls_GetPlayerCount()
{
	new maxplayers = maxplayercount();
	new i;
	new Target[MAX_NAME_LENGTH];
	new dummy;
	new WONID;
	new Team;
	new Dead;
	
	for(i=1; i<=maxplayers; i++) {
		strinit(Target);	
		if (playerinfo(i, Target, MAX_NAME_LENGTH, dummy, WONID, Team, Dead))
		{
			if ((Dead == 0) && (Team == 1)) {
				Anzahl_T ++;
				strcpy(LastMan_T, Target, MAX_NAME_LENGTH);
			}
			else if ((Dead == 0) && (Team == 2)) {
				Anzahl_CT ++;
				strcpy(LastMan_CT, Target, MAX_NAME_LENGTH);
			}
		}
	}
}

ls_MakeNoise(Winner[]= "", Looser[] = "")
{
	new maxplayers = maxplayercount();
	new i;
	new Target[MAX_NAME_LENGTH];
	new dummy;
	new WONID;
	
	for(i=1; i<=maxplayers; i++) {
		strinit(Target);
		if (playerinfo(i, Target, MAX_NAME_LENGTH, dummy, WONID)) {
			if ((strcmp(Target, Winner) == 0) && (WONID != 0)) {
				playsound(Winner, sWinnerWav);
			}
			else if ((strcmp(Target, Looser) == 0) && (WONID != 0)) {
				playsound(Looser, sLooserWav);
			}
		}
	}
}

ls_ShowHim(Team, LastMan[MAX_NAME_LENGTH], LastMan2[MAX_NAME_LENGTH])
{
	new TextMessage[MAX_TEXT_LENGTH];
	new Name[MAX_NAME_LENGTH];
	new iUserID;
	new iWONID;
	new maxplayers = maxplayercount();
	new i;
	
	if (Team != 0) {
		new Digit = random(2);
		
		if (Digit == 0)
			snprintf(TextMessage, MAX_TEXT_LENGTH, "%s: I hope you still have a healthpack", LastMan);
		else if (Digit == 1)
			snprintf(TextMessage, MAX_TEXT_LENGTH, "%s: All your teammates were killed. Good luck !", LastMan);
		else if (Digit == 2)
			snprintf(TextMessage, MAX_TEXT_LENGTH, "%s: Now you are alone. Have fun !", LastMan);
	}
	if (Team == 0) {
		snprintf(TextMessage, MAX_TEXT_LENGTH, "%s vs %s", LastMan, LastMan2);
		if (Style == 1) centersay(TextMessage, SHOW_TIME, 0, 255, 0);
		else if (Style == 2) typesay(TextMessage, SHOW_TIME, 0, 255, 0);
	}
	else if (Team == 1) {
		if (Style == 1) centersay(TextMessage, SHOW_TIME, 255, 0, 0);
		else if (Style == 2) typesay(TextMessage, SHOW_TIME, 255, 0, 0);
	}
	else if (Team == 2) {
		if (Style == 1) centersay(TextMessage, SHOW_TIME, 0, 0, 255);
		else if (Style == 2) typesay(TextMessage, SHOW_TIME, 0, 0, 255);
	}
	if (bAudio == 1) {
		for(i=1; i<=maxplayers; i++) {
			strinit(Name);
			if (playerinfo(i, Name, MAX_NAME_LENGTH, iUserID, iWONID)) {
				if ((strcmp(Name, LastMan) == 0) && (iWONID != 0)) {
					playsound(Name, sGoodLuckWav);
				}
				else if ((strcmp(Name, LastMan2) == 0) && (iWONID != 0)) {
					playsound(Name, sGoodLuckWav);
				}
			}
		}
	}
}

ls_initialize()
{
	new sEnabled[2];
	new iEnabled;
	new sWar[2];
	new iWar;
	
	if (get_vaultdata("war", sWar, 2) == 1) {
		iWar = strtonum(sWar);
		
		///////////////////////////// DEBUG START //////////////////////////////
		#if DEBUG
			printf("^nDEBUG: -----------------------------^n");
			printf("DEBUG: Vault.ini - war^n");
			printf("DEBUG: (String):^t%s^n", sWar);
			printf("DEBUG: (Integer):^t%d^n", iWar);
			printf("DEBUG: -----------------------------^n");
		#endif
		////////////////////////////// DEBUG END ///////////////////////////////
		
		if (iWar == 1) {
			bEnabled = 0;
			
			return PLUGIN_HANDLED;
		}
	}
	if (get_vaultdata("ls_enabled", sEnabled, 2) == 1) {
		iEnabled = strtonum(sEnabled);
		
		///////////////////////////// DEBUG START //////////////////////////////
		#if DEBUG
			printf("^nDEBUG: -----------------------------^n");
			printf("DEBUG: Vault.ini - ls_enabled^n");
			printf("DEBUG: (String):^t%s^n", sEnabled);
			printf("DEBUG: (Integer):^t%d^n", iEnabled);
			printf("DEBUG: -----------------------------^n");
		#endif
		////////////////////////////// DEBUG END ///////////////////////////////
		
		if (iEnabled == 1) {
			bEnabled = 1;
		} else {
			bEnabled = 0;
		}
	} else {
		bEnabled = 0;
		set_vaultdata("ls_enabled", "0");
	}
	if (get_vaultdata("ls_goodluckwav", sGoodLuckWav, MAX_WAV_LENGTH) == 1) {
		
		///////////////////////////// DEBUG START //////////////////////////////
		#if DEBUG
			printf("^nDEBUG: -----------------------------^n");
			printf("DEBUG: Vault.ini - ls_goodluckwav^n");
			printf("DEBUG: (String):^t%s^n", sGoodLuckWav);
			printf("DEBUG: -----------------------------^n");
		#endif
		////////////////////////////// DEBUG END ///////////////////////////////
		
	} else {
		strcpy(sGoodLuckWav, "misc/force.wav", MAX_WAV_LENGTH);
		set_vaultdata("ls_goodluckwav", "misc/force.wav");
		
		///////////////////////////// DEBUG START //////////////////////////////
		#if DEBUG
			printf("^nDEBUG: -----------------------------^n");
			printf("DEBUG: ls_goodluckwav does not exist^n");
			printf("DEBUG: using default^n");
			printf("DEBUG: (String):^t%s^n", sGoodLuckWav);
			printf("DEBUG: -----------------------------^n");
		#endif
		////////////////////////////// DEBUG END ///////////////////////////////
	}
	if (get_vaultdata("ls_winnerwav", sWinnerWav, MAX_WAV_LENGTH) == 1) {
		
		///////////////////////////// DEBUG START //////////////////////////////
		#if DEBUG
			printf("^nDEBUG: -----------------------------^n");
			printf("DEBUG: Vault.ini - ls_winnerwav^n");
			printf("DEBUG: (String):^t%s^n", sWinnerWav);
			printf("DEBUG: -----------------------------^n");
		#endif
		////////////////////////////// DEBUG END ///////////////////////////////
		
	} else {
		strcpy(sWinnerWav, "misc/theone.wav", MAX_WAV_LENGTH);
		set_vaultdata("ls_winnerwav", "misc/theone.wav");
		
		///////////////////////////// DEBUG START //////////////////////////////
		#if DEBUG
			printf("^nDEBUG: -----------------------------^n");
			printf("DEBUG: ls_winnerwav does not exist^n");
			printf("DEBUG: using default^n");
			printf("DEBUG: (String):^t%s^n", sWinnerWav);
			printf("DEBUG: -----------------------------^n");
		#endif
		////////////////////////////// DEBUG END ///////////////////////////////
	}
	if (get_vaultdata("ls_looserwav", sLooserWav, MAX_WAV_LENGTH) == 1) {
		
		///////////////////////////// DEBUG START //////////////////////////////
		#if DEBUG
			printf("^nDEBUG: -----------------------------^n");
			printf("DEBUG: Vault.ini - ls_looserwav^n");
			printf("DEBUG: (String):^t%s^n", sLooserWav);
			printf("DEBUG: -----------------------------^n");
		#endif
		////////////////////////////// DEBUG END ///////////////////////////////
		
	} else {
		strcpy(sLooserWav, "misc/suck.wav", MAX_WAV_LENGTH);
		set_vaultdata("ls_looserwav", "misc/suck.wav");
		
		///////////////////////////// DEBUG START //////////////////////////////
		#if DEBUG
			printf("^nDEBUG: -----------------------------^n");
			printf("DEBUG: ls_looserwav does not exist^n");
			printf("DEBUG: using default^n");
			printf("DEBUG: (String):^t%s^n", sLooserWav);
			printf("DEBUG: -----------------------------^n");
		#endif
		////////////////////////////// DEBUG END ///////////////////////////////
	}
	
	return PLUGIN_CONTINUE;
}

public plugin_init()
{
	plugin_registerinfo("Biohazards LastScout Plugin ","Wishs good luck to the last man standing.",STRING_VERSION);
	
	plugin_registercmd("ls_HandleKill", "ls_HandleKill", ACCESS_CONSOLE);
	plugin_registercmd("ls_HandleWorld", "ls_HandleWorld", ACCESS_CONSOLE);
	plugin_registercmd("ls_HandleDisconnect", "ls_HandleDisconnect", ACCESS_CONSOLE);
	plugin_registercmd("ls_HandleSuicide", "ls_HandleSuicide", ACCESS_CONSOLE);
	
	plugin_registercmd("admin_ls_off", "admin_ls_off", ACCESS_LS, "admin_ls_off:  Turns off LastScout plugin.");
	plugin_registercmd("admin_ls_on", "admin_ls_on", ACCESS_LS, "admin_ls_on:  Turns on LastScout plugin.");
	plugin_registercmd("admin_lsaudio_off", "admin_lsaudio_off", ACCESS_LS, "admin_lsaudio_off:  No audio in LastScout plugin.");
	plugin_registercmd("admin_lsaudio_on", "admin_lsaudio_on", ACCESS_LS, "admin_lsaudio_on:  Use audio in LastScout plugin.");
	plugin_registercmd("admin_ls_style", "admin_ls_style", ACCESS_LS, "admin_ls_style:  Sets the style of messages for LastScout plugin.");
	plugin_registercmd("admin_war", "admin_war", ACCESS_LS, "admin_war:  Deactivates LastScout plugin for a clanwar.");
	
	exec( "logd_reg 57 admin_command ls_HandleKill" );
	exec( "logd_reg 62 admin_command ls_HandleWorld" );
	exec( "logd_reg 52 admin_command ls_HandleDisconnect" );
	exec( "logd_reg 53 admin_command ls_HandleSuicide" );
	
	ls_initialize();
	
	return PLUGIN_CONTINUE;
}