In game control panel?

[nuna 2]

ive searched for some ingame control panel but non of them worked. please help me to have it just like change password, change email npc its alll right please help me

[Patskie 88]

prontera,150,150,0	script	Sample	100,{	mes .npc$;	mes "Hello " + strcharinfo( 0 ) + ". What can i do for you?";	next;	switch( select( implode( .menu$, ":" ) ) ) {		case 1: mes .npc$;				mes "Enter your current password";				next;				input .@cp$;				query_sql "SELECT `user_pass` FROM `login` WHERE `account_id` = '" + getcharid( 3 ) + "'", .@up$;				if ( .@up$ != .@cp$ ) {					mes .npc$;					mes "Your current password doesn't match the password you have provided";					break;				}				mes .npc$;				mes "Enter your new password";				next;				input .@np$;				mes .npc$;				mes "Are you sure you want to change your password?";				next;				if ( select( "Yes:No" ) - 1 ) break;				query_sql "UPDATE `login` SET `user_pass` = '" + escape_sql( .@np$ ) + "' WHERE `account_id` = '" + getcharid( 3 ) + "'";				mes .npc$;				mes "Your password has been changed";				break;		case 2: query_sql "SELECT `email` FROM `login` WHERE `account_id` = '" + getcharid( 3 ) + "'", .@email$;				mes .npc$;				mes "Your current email is : ^FF0000" + .@email$ + "^000000";				next;				if ( select( "Change my e-mail:Oh that is the e-mail i want to have" ) - 1 ) break;				mes .npc$;				mes "Enter your new e-mail";				next;				input .@new_email$;				mes .npc$;				mes "Do you really want to change your e-mail from ^FF0000" + .@email$ + "^000000 to ^FF0000" + .@new_email$ + "^000000?";				next;				if ( select( "Yes:No" ) - 1 ) break;				query_sql "UPDATE `login` SET `email` = '" + escape_sql( .@new_email$ ) + "'";				mes .npc$;				mes "Your e-mail has been changed";				break;		case 3: mes .npc$;				mes "Your current gender is ^FF0000" + ( Sex ? "Male" : "Female" ) + "^000000";				next;				if ( select( "I wish to change my gender:Okay" ) - 1 ) break;				mes .npc$;				mes "Are you sure you want to change your sex? By doing this, I will kick you out of the game";				if ( select( "Yes:No" ) - 1 ) break;				changesex;				break;		case 4: mes .npc$;				mes "Thank you for using this useful in-game control panel";				break;		default: break;	}	close;	OnInit:		.npc$ = "[ ^FF0000" + strnpcinfo( 1 ) + "^000000 ]";		setarray .menu$[ 0 ], "Password Change", "E-mail Change", "Sex Change", "Exit";		end;}

Incomplete. 

[Ridley 295]

deleted

Edited July 16, 2014 by Ridley

[nuna 2]

@patskie it got stuck when im clicking it

[evilpuncker 503]

@patskie it got stuck when im clicking it

 

are you using hercules? any error on console?

[nuna 2]

oh im using eathena version /sry