// --------------------------------------------------------------------------------------------* 
//                                                                                             //
// ______                                           _                                          // 
// | ___ \                                         | |                                         //
// | |_/ /___  ___  ___ _ __ ___   ___  _   _ _ __ | |_                                        //
// |    // _ \/ __|/ _ \ '_ ` _ \ / _ \| | | | '_ \| __|                                       // 
// | |\ \ (_) \__ \  __/ | | | | | (_) | |_| | | | | |_                                        //
// \_| \_\___/|___/\___|_| |_| |_|\___/ \__,_|_| |_|\__|                                       //
//                                                                                             //
//                                         _____           _       _                           //
//                                        /  ___|         (_)     | |                          //
//                                        \ `--.  ___ _ __ _ _ __ | |_                         //
//                                         `--. \/ __| '__| | '_ \| __|                        //
//                                        /\__/ / (__| |  | | |_) | |_                         //
//                                        \____/ \___|_|  |_| .__/ \__|                        //
//                                                          | |                                //
//                                                          |_|                                //
// --------------------------------------------------------------------------------------------*
//					Create By ~ Rosemount				       //
//					Current Version ~ v1.1	                               //
//					Tested ~ Latest Rathena                                //
// --------------------------------------------------------------------------------------------*

prontera,147,173,6	script	Kafra Alice	721,{
cutin "kafra_07",2;
if ( #kpws == 1) goto L_menu;
menu "~ Setup Storage Password",L_setup;

L_setup:
mes "Please Insert Storage Password";
input @storpass$;
next;
mes "Please Insert Secret Password";
input @storsec$;
next;
mes "----------------------------";
mes "Storage Password"; 
mes "^FF0000"+@storpass$+"^000000";
mes "----------------------------";
mes "Storage Secret Password"; 
mes "^FF0000"+@storsec$+"^000000";
mes "----------------------------";
close2;
cutin "",255;
menu "~ Change Password Again",L_setup,"~ Confirm",L_confirm;

L_confirm:
set #storpw$,@storpass$;
set #storsecpw$,@storsec$;
set #kpws,1;
close;

L_stor:
cutin "",255;
openstorage();
close;

L_wpw:
next;
mes "Incorrect Password";
close;

L_NewPW:
next;
mes "Please Insert New Password";
input @storpass$;
next;
mes "----------------------------";
mes "New Storage Password";
mes "^FF0000"+@storpass$+"^000000";
mes "----------------------------";
close2;
menu "~ Change Password Again",L_NewPW,"~ Confirm",L_NewPWC;

L_NewPWC:
cutin "",255;
mes "Password Changed";
set #storpw$,@storpass$;
close;

L_SecPW:
next;
mes "Please Insert New Secret Password";
input @storsec$;
next;
mes "----------------------------";
mes "New Secret Password";
mes "^FF0000"+@storsec$+"^000000";
mes "----------------------------";
close2;
menu "~ Change Password Again",L_SecPW,"~ Confirm",L_NewSEC;

L_NewSEC:
cutin "",255;
mes "Password Changed";
set #storsecpw$,@storsec$;
close;

L_menu:
switch(select("~ Save Point:~ Open Storage:~ Change Storage Password:~ Change Secret Password")) {

case 1:
cutin "",255;
savepoint "prontera",155,179;
close;

OnChecked:
case 2:
mes "Please Insert Storage Password";
input @storpass$;
if ( #storpw$ == @storpass$) goto L_stor;
if ( #storpw$ != @storpass$) goto L_wpw;

case 3:
mes "Please Insert Storage Password";
input @storpass$;
if ( #storpw$ == @storpass$) goto L_NewPW;
if ( #storpw$ != @storpass$) goto L_wpw;

case 4:
mes "Please Insert Secret Password";
input @storsec$;
if (#storsecpw$ == @storsec$) goto L_SecPW;
if (#storsecpw$ != @storsec$) goto L_wpw;

OnInit:
bindatcmd "storage",strnpcinfo(0)+"::OnChecked";
end;
}
}