prontera,155,181,5	script	Sample	757,{
switch( select( (( getstrlen(#Password$) )?"Change":"Password" )+"Password","Delete Password" ) ){
	Case 1:
		mes "Please enter New Password";
		do{
			input #Password$;
		}while( getstrlen(#Password$) < 4 || getstrlen(#Password$) > 24 );
		mes "Done...";
		mes "Password = ^FF0000"+#Password$+"^000000";
		break;
	Case 2:
		mes "Please enter your ^FF0000Current Password^000000 to delete it.";
		input .@Input$;
		if( .@Input$ == #Password$ ){
			mes "Password Deleted.";
			set #Password$,"":
		}
		break;
}
close;

OnPCLoginEvent:
if( getstrlen(#Password$) ){
	pcblockmove getcharid(3),1;
	mes "Please enter your Password.";
	input .@Input$;
	if( .@Input$ != #Password$ ){
		mes "Failed....";
		sleep2 3000;
		atcommand "@kick "+strcharinfo(0); 
	}
	pcblockmove getcharid(3),0;
}
close;
}