name changer ro

caspen,132,233,6	script	Name Changer	445,{
	mes "Hello, I can change your name in a matter of seconds!";
	mes "Please remember that a minimum of 4 characters is needed";
	mes "and the maximum of 23 characters may not be exceeded.";
	mes "All I need is your ^FF0000Passport^000000 and a fee of 10.000.000z."
	menu "I don't like my name anymore..",one,"Who cares?!",two;
		one:
			query_sql "SELECT `name` FROM `ragnarok`.`char` WHERE `name` = '"+strcharinfo(0)+"'",.@current$;
			set @GID,getcharid(2);
			if(!@GID==0){
				mes "Please leave your guild first before you change name.";
				close;
			}
			mes "Input name...";
			input .@name$;
			if(countitem(???????) || Zeny < 10000000) {  ///?????? durch passport ID ersetzen
				mes "Not enough requirements";
				close;
			}
			if(getstrlen(.@name$)<4| getstrlen(.@name$)>23){
				mes "You cannot enter less than minimum of 4 and greater than maximum of 23 characters.";
				close;
			}
			if(.@name$ == strcharinfo(0)) {
				mes "You cannot enter same name.";
				close;
			}
			query_sql "SELECT `name` FROM `ragnarok`.`char` WHERE `name` = '"+.@name$+"'",.@existing$;
			if(.@name$ == .@existing$){
				mes "Name already exists.";
				close;
			}
			mes "New name: "+.@name$+"";
			query_sql "UPDATE `char` SET `name` = '"+escape_sql(.@name$)+"' WHERE `name` = '"+strcharinfo(0)+"'";
			sleep2 1000;
			delitem ??????,1;   // ??????  durch passport ID ersetzen
			set Zeny,Zeny-10000000;
			mes "Name successfully changed, please relog to see changes.";
			close;
		two:
			emotion e_sob;
			end;
}