Pasted

// https://rathena.org/board/topic/108418-npc-request/
 prontera,155,181,5	script	4_F_KAFRA1,{
	function func_Cost;
 	.@i = select( 
		"Skill Reset",
		"Stat Reset",
		"Guild Leader Change",
		"Gender Change"
	) - 1;
 	mes "You need "+.gold_coin_cost[.@i]+" x "+getitemname( .gold_coin_itemid )+".";
	if ( countitem( .gold_coin_itemid ) >= .gold_coin_cost[.@i] ) {
		switch (.@i) {
			case 0:
				resetskill;
				break;
			case 1:
				resetstatus;
				break;
			case 2:	
				.@gid = getcharid(2);
				if ( !.@gid ) {
					mes "You didnt have guild.";
					close;
				}
				mes "Enter new master name";
				input .@name$;
				if ( !guildchangegm( .@gid, .@name$ ) ) {
					mes "Failed.";
					close;
				}
				mes "Success.";
				break;
			case 3:
				changecharsex();
				break;
			default: close;
		}
		delitem .gold_coin_itemid, .gold_coin_cost[.@i];
	}
	close;
 	OnInit:
		.gold_coin_itemid = 512;
		setarray .gold_coin_cost,
			1,	// Skill Reset
			2,	// Stat Reset
			3,	// Guild Leader Change
			4;	// Gender Change
		end;
}