prontera,156,150,3	script	Name Changer	66,{
set .@npcname$, "[^ff0000Name Changer^000000]";

firstmenu:
mes .@npcname$;
mes "Would you like to change your name?";
switch(select("Yes:No")){
	case 1:Firstcase:
		mes .@npcname$;
		mes "Very well. Input what you'd like to change it to.";
		input .@newname$;
		next;
		if(getstrlen(.@newname$)>23){
			mes .@npcname$;
			mes "Your name cannot be longer than 23 english characters.";
			select("Back");
			goto Firstcase;end;
		}
		mes .@npcname$;
		mes "Are you sure you want to change your name to "+.@newname$+"?";
		switch(select("Yes:Back:No")){
			case 1:
				mes .@npcname$;
				mes "Okie dokie!";
				mes "You'll have to relog for you name to change.";
				close2;
				query_sql "UPDATE `char` SET `name` = '"+.@newname$+"' WHERE `char_id` = '"+getcharid(0)+"'";
				end;
			case 2:
				goto firstmenu;end;
			case 3:
				mes .@npcname$;
				mes "Okay. Come back if you change your mind.";
				close;
		}
	}
}