Help modify

[Newbie Scripter]

function	script	uchallengehg	{

	if(getarg(1) == 9)
	{
		//Requirement Check
		if(countitem2(5012,1,9,0,0,0,0,0) < 3) { mes " Sorry, but you haven't brought the complete set of PH.D Hats"; close;}

		mes "Thank you for your help!!";
		getitem getarg(0), 1;
		delitem2 5012,3,1,9,0,0,0,0,0,getcharid(3);
		getitem 14232,5;	//5x Yggdrasil Berry Box (10)
		getitem 12103,5;	//5x Bloody Branch
		getitem 12106,1;	//1x Jewelry Box
		getitem 12186,1;	//1x Old Red Box
		
		close;
	}

	else if(getarg(1) == 8)
	{
	
		//Requirement Check
		if(countitem2(5012,1,8,0,0,0,0,0) < 4) { mes " Sorry, but you haven't brought the complete set of PH.D Hats"; close;}
		
		mes "Thank you for your help!!";
		getitem getarg(0), 1;
		delitem2 5012,4,1,8,0,0,0,0,0,getcharid(3);
		getitem 14232,2;	//2x Yggdrasil Berry Box (10)
		getitem 12103,2;	//2x Bloody Branch
		
		close;
	}

	else if(getarg(1) == 7)
	{
		//Requirement Check
		if(countitem2(5012,1,7,0,0,0,0,0) < 5) { mes " Sorry, but you haven't brought the complete set of PH.D Hats"; close;}
		
		mes "Thank you for your help!!";
		getitem getarg(0), 1;
		delitem2 5012,5,1,7,0,0,0,0,0,getcharid(3);
		
		close;
	}

}

-	shop	phdhat	86,5012:10000000,13889:10000000

yuno_in02,41,63,6	script	Academy Merchant	813,{

	set .npcname$, "[ ^008800Hubert^000000 ]";
	
	//HEADGEAR REWARD LIST
	setarray @HGLists[0],5464,5654,5565,5495,5529,5420,5786,5395,5667;

	mes .npcname$;
	mes "Hello there!";
	mes "I'm the academy merchant at the Juno Sage Academy.";
	mes "We are currently looking for adventurers who will help the academy...";
	next;
	mes .npcname$;
	mes "...in making superior quality PH.D hats for the upcoming graduation";
	mes "of new sages here.";
	mes "Would you like to help us?";
	next;
	menu "Of course!",-,"I'm busy right now",EXIT;
	mes .npcname$;
	mes "We are currently providing PH.D hats to adventurers who would like to help.";
	next;
	mes .npcname$;
	mes "If you already have the PH.D hats, I would exchange them to great rewards!";
	next;
	menu "Can I have some PH.D hats?",BUY,"I already have superior quality PH.D hats.",EXCHANGE;


		EXCHANGE:
		mes .npcname$;
		mes "You can trade PH.D hats with the following quantity and refinement";
		next;
		
		set .@refine, 6 + select("5x +7 Ph.D Hats","4x +8 Ph.D Hats","3x +9 Ph.D Hats");
		setarray .@amount[7],5,4,3; // Required number of Hats

		if(countitem2(5012,1,.@refine,0,0,0,0,0) >= .@amount[.@refine]){
			mes .npcname$;
			mes "Thank you for bringing them! I have some super cool rewards for you!";
			next;
			mes .npcname$;
			mes "Which of the following headgear would you like to have?";
			next;
			for( set .@i,0; .@i < getarraysize(@HGLists); set .@i,.@i + 1 )
			set .@Menu$,.@Menu$ + getitemname(@HGLists[.@i])+ ":";

			set .@ChosenHG, select( .@Menu$ );
			set .@HG, .@ChosenHG - 1 ;
			callfunc("uchallengehg", @HGLists[.@HG], .@refine); end;
		}
		mes .npcname$;
		mes "Sorry, but you haven't brought the complete set of PH.D Hats";
		close;

		EXIT:
		mes .npcname$;
		mes "I hope you will return to help us.";
		close;

		BUY:
		mes .npcname$;
		mes "Each PH.D hat costs 10,000,000 zeny.";
		callshop "phdhat",0;
}

I'd like it to have these features

 

 

NPC will also have an option to trade +12 of that upgraded item with another item it should provide a list of different items

The script should be easy to manipulate and to change items for rewards and to change the item to sell

The script should also only give a maximum of 5 items it will also indicate how many prizes are still left and this could be adjusted

If the prizes are already taken the npc will display that all prizes has already been taken

it should also have a gm control option which we could change the prizes and choose what item to sell and what refine rate of that item to accept

Should also have an information tab on which it would indicate what item should be upgraded and what refine rate is needed and what are the prizes

Compatible also with Eathena, Hope someone could help.