-	script	AccountLocker	-1,{

OnPCLoginEvent:
	if (#setpw == 1) goto P_insert;
	if (#dontp == 1) end;
	mes "[Account Locker]";
	mes "Do you want to set an Account locker?";
	next;
	menu "Set an Account Locker",P_check,"No",-;
	mes "[Account Locker]";
	mes "Are you sure you don't want to set an Account locker?";
	mes "I will only ask this once !!";
	next;
	menu "Ok I want to set an account locker.",P_check,"Still No",-;
	mes "[Account Locker]";
	mes "Okay !!";
	set #dontp,1;
	close;

P_Check:
	sc_start sc_berserk, 1000000000, 1;
	mes "[Account Locker]";
	mes "Input your password locker whatever you want. Can be letters or numbers. CASE SENSITIVE.";
	next;
	input #lockpw$;
	next;
	mes "[Account Locker]";
	mes "Password Verification.";
	mes "Please input the password you had entered.";
	input #lockvpw$;
	if (#lockvpw$ != #lockpw$) {
	next;
	mes "[Account Locker]";
	mes "The verification password you had entered is incorrect.";
	next;
	goto P_Check;
	} else {
	next;
	mes "[Account Locker]";
	mes "Thank you. Please remember the password you had setted. I will ask for it again everytime you login.";
	set #setpw,1;
	sc_end sc_berserk;
	close;
	}


P_insert:
	sc_start sc_berserk, 1000000000, 1;
	mes "[Account Locker]";
	mes "Please enter your locker password";
	next;
	input #insertlp$;
	if (#insertlp$ == #lockpw$) goto P_pass;
	mes "[Account Locker]";
	mes "Invalid password. Try again.";
	next;
	input #insertlp$;
	if (#insertlp$ == #lockpw$) goto P_pass;
	mes "[Account Locker]";
	mes "Invalid password. Try again.";
	next;
	mes "[Account Locker]";
	mes "Invalid password. Try again.";
	if (#insertlp$ == #lockpw$) goto P_pass;
	atcommand "@kick "+strcharinfo(0);
	end;

P_pass:
	sc_end sc_berserk;
	close;
}