- 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;
}