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.