//**********************************************************************************
// ____                    _                                            _   _  ____
//|  _ \ ___   ___   ____ | |  ___   ____   ___   ___   __  ___   _  _ | |_| |/ __ |
//| |__// _ \ / _ \ |  _ \| | / _ \ |  _ \ / _ \ /  _| / _)/ _ \ | \| ||___  |\__  |
//| |  |  __/ ||_|| | |__/| ||  __/ | |__/|  __/ | |  _\ \ ||_|| | \\ |    | |   | |
//|_|___\___|_\___/_| |___|_|_\___|_| |____\___|_|_|_(___/ \___/_|_|\_|____|_|___|_|
//------------------|_|-------------|_|---------------------------------------------
//**********************************************************************************
//===== rAthena Script =============================================================
//= Security Manager
//===== By: ========================================================================
//= Peopleperson49 (Eddie)
//===== Start Date: ================================================================
//= 07MAR2010
//===== Current Version: ===========================================================
//= 1.4
//===== Compatible With: ===========================================================
//= rAthena SVN
//===== Description: ===============================================================
//= Allows a player to set up a password to help protect their account. It uses a
//=	simple OnWhisperGlobal function.
//===== Version Control: ===========================================================
//= 1.0 First Version.
//= 1.1 Added option to change the current password.
//= 1.2 Optomized script to remove #PWCheck and just use the #AccountPW$. Thanks to
//=	Joseph on rAthena.org.
//= 1.3 Replaced the last #PWCheck that I missed before.
//= 1.4 Replaced the whisper command with bindatcmd function.
//===== Additional Comments:========================================================
//=
//==================================================================================

-	script	SecurityManager	-1,{

OnInit:
	bindatcmd("security","SecurityManager::OnAtcommand");
	end;

OnAtcommand:
switch(prompt("Change Current Password:Set New Password:Delete Current Password:Why Passwords Are Important?")) {
case 1:
	if(#PWCheck==0) { mes "You do not currently have a password set."; close; }
	mes "Please enter your current personal account password.";
	input .@AccountPW$;
	if(.@AccountPW$!=#AccountPW$) { next; mes "That password does not match your original one."; close; }
	next;
	mes "What would you like to change your current password to?";
	input .@AccountPW$;
	next;
	set .@RandomFinalize,rand(100,999);
	mes "Are you sure you want to change your password to ^FF0000"+.@AccountPW$+"^000000? If your 100% sure type the number ^0000FF"+.@RandomFinalize+"^000000.";
	input .@Finalize;
	if(.@Finalize!=.@RandomFinalize) { next; mes "It is probably for the best that you keep your current password!"; close; }
	set #AccountPW$,.@AccountPW$;
	set #PWCheck,1;
	next;
	mes "You password has been set as ^FF0000"+#AccountPW$+"^000000.";
	close;
case 2:
	if(#PWCheck!=0) { mes "You already have a personal account password."; close; }
	mes "What would you like your new password to be?";
	input .@AccountPW$;
	next;
	set .@RandomFinalize,rand(100,999);
	mes "Are you sure you want to set your password to ^FF0000"+.@AccountPW$+"^000000? If your 100% sure type the number ^0000FF"+.@RandomFinalize+"^000000.";
	input .@Finalize;
	if(.@Finalize!=.@RandomFinalize) { next; mes "You really should set up a personal account password."; close; }
	set #AccountPW$,.@AccountPW$;
	set #PWCheck,1;
	next;
	mes "Your password has been set as ^FF0000"+#AccountPW$+"^000000.";
	close;
case 3:
	if(#PWCheck==0) { mes "You do not currently have a personal account password set."; close; }
	mes "Please enter your current personal account password.";
	input .@AccountPW$;
	if(.@AccountPW$!=#AccountPW$) { next; mes "That password does not match your original one."; close; }
	next;
	set .@RandomFinalize,rand(100,999);
	mes "Are you sure you want to clear your current password? If your 100% sure type the number ^0000FF"+.@RandomFinalize+"^000000.";
	input .@Finalize;
	if(.@Finalize!=.@RandomFinalize) { next; mes "It is probably for the best that you keep your current password!"; close; }
	set #AccountPW$,0;
	set #PWCheck,0;
	mes "Your password has been deleted.";
	close;
case 4:
	mes "- Setting a personal account password adds an additional layer of defense to protecting your account.";
	mes "- It cannot be accessed by GameMaster's or other players without direct access to the RoUG database.";
	mes "- The downside is that if you forget your password it cannot be easily retrieved!";
	mes "- Passwords must be from 4 to 16 characters long and are CASE SENSITIVE!";
	close;
case 255:
	mes "Your security is our business!";
	close;
}
}

OnPCLoginEvent:
if(#AccountPW$!="") { next; mes "[Securty Manager]"; mes "Enter your personal account password."; input .@AccountPW$; if(.@AccountPW$!=#AccountPW$) { mes "[Securty Manager]"; mes "Invalid password entry."; close2; atcommand "@kick "+strcharinfo(0); end; } next; mes "[Securty Manager]"; mes "You password has been accepted."; }
end;
}