REFINER NPC

[Ahmad Rashidi]

//#####################################################################
//#  								      #
//#   #####     #      ########  #    #   #####  ##    #      #       #
//#   #        ###        ##     #    #   #      # #   #     ###      #
//#   ####    #   #       ##     ######   ####   #  #  #    #   #     #
//#   #      #######      ##     #    #   #      #   # #   #######    #
//#   #####  #     #      ##     #    #   #####  #    ##   #     #    #
//#                                                                   #
//#####################################################################
//
//=========== Script for eAthena Users ====================//
//= Refiner and Repairman made by Rikimaru on eathena .net=//
//=========================================================//
//======== Description ====================================//
//== Easy made Refiner with Repairman for new eAthena =====//
//== Users. Please do not remove theese Credits ===========//
//== Refines the complete Equipment to +10 and repairs ====//
//== All broken items in the Players inventory ============//
//================= Version : =============================//
//============= V. 1.0 Bug Fixes by Rikimaru ==============//
//============= V. 1.1 Added a Derefiner !! ===============//
//=========== Credits End =================================//
//
//
//===================== Script of Smith/Repairman =========//
prontera,155,180,5	script	Smith	63,{
mes "[Smith]";
mes "Hi,I can Refine your";
mes "Equipment to +10";
mes "or Repair your";
mes "Equipment.Also I'm able";
mes "to Derefine your Equipment.";
mes "What do you want from me?";
next;
switch(select("I want a Repair:I want a Refine:I want a Derefine:Nothing")) {
	case 1:
	mes "[Smith]";
	mes "Okay I'm going to repair";
	mes "your Equipment.";
	next;
	while (getbrokenid(1)) {
	repair(1);
	set .@i, .@i +1;
	}
	if (.@i) dispbottom .@i + " items repaired.";
	mes "[Smith]";
	mes "Congrats!Enjoy!";
	close;
	end;
	case 2:
	mes "[Smith]";
	mes "Okay I'm going";
	mes "to refine your Equipment";
	mes "to +10,Thx for using my Service!";
	next;
	for(set @part,1;@part<11;set @part,@part+1) 
	if(getequipisequiped(@part)) 
	while(getequiprefinerycnt(@part) < 10) 
	successrefitem @part;
	mes "[Smith]";
	mes "Congrats Enjoy it!";
	close;
	end;
	case 3:
	mes "[ Smith ]";
	mes "Okay I'm going to Derifne your Equipment now. You need 10.000 Zeny for that.";
	next;
	setarray .@a[1],256,16,32,2,4,64,8,128,512,1;
	select(getequipname(1),getequipname(2),getequipname(3),getequipname(4),getequipname(5),getequipname(6),getequipname(7),getequipname(8),getequipname(9),getequipname(10));
		if ( !getequipisequiped(@menu) ) {
			mes "[ Smith ]";
			mes "There's nothing equipped there...";
			close; }
		if ( zeny < 10000 ) {
			mes "[ Smith ]";
			mes "You don't have enough zeny";
			close; }
		if ( getequiprefinerycnt(@menu) > 10 || getequiprefinerycnt(@menu) == 0 ) {
			mes "[ Smith ]";
			mes "This item cannot be de-refine.";
			close; }
	atcommand "@refine "+ .@a[@menu] +" -10";
	set zeny,zeny - 10000;
	mes "[ Smith ]";
	mes "Your item has de-refined successfully";
	close;
	case 4:
	mes "[ Smith ]";
	mes "Okay,come back when you need me.";
	close;
	}
}

Evening , im using a refiner npc script from rikimaru , but its seems the npc even refine accessories , middle head and lower head . 
how can i disable refining that 3 parts middle , lower and acces .
i look for the thread 

[Ninja]

Compiled without errors but not tested. Please try it from your end.

//#####################################################################
//#  								      #
//#   #####     #      ########  #    #   #####  ##    #      #       #
//#   #        ###        ##     #    #   #      # #   #     ###      #
//#   ####    #   #       ##     ######   ####   #  #  #    #   #     #
//#   #      #######      ##     #    #   #      #   # #   #######    #
//#   #####  #     #      ##     #    #   #####  #    ##   #     #    #
//#                                                                   #
//#####################################################################
//
//=========== Script for eAthena Users ====================//
//= Refiner and Repairman made by Rikimaru on eathena .net=//
//=========================================================//
//======== Description ====================================//
//== Easy made Refiner with Repairman for new eAthena =====//
//== Users. Please do not remove theese Credits ===========//
//== Refines the complete Equipment to +10 and repairs ====//
//== All broken items in the Players inventory ============//
//================= Version : =============================//
//============= V. 1.0 Bug Fixes by Rikimaru ==============//
//============= V. 1.1 Added a Derefiner !! ===============//
//=========== Credits End =================================//
//
//
//===================== Script of Smith/Repairman =========//
prontera,155,180,5	script	Smith	63,{
mes "[Smith]";
mes "Hi,I can Refine your";
mes "Equipment to +10";
mes "or Repair your";
mes "Equipment.Also I'm able";
mes "to Derefine your Equipment.";
mes "What do you want from me?";
next;
switch(select("I want a Repair:I want a Refine:I want a Derefine:Nothing")) {
	case 1:
	mes "[Smith]";
	mes "Okay I'm going to repair";
	mes "your Equipment.";
	next;
	while (getbrokenid(1)) {
	repair(1);
	set .@i, .@i +1;
	}
	if (.@i) dispbottom .@i + " items repaired.";
	mes "[Smith]";
	mes "Congrats!Enjoy!";
	close;
	end;
	case 2:
	mes "[Smith]";
	mes "Okay I'm going";
	mes "to refine your Equipment";
	mes "to +10,Thx for using my Service!";
	next;
	for(set @part,1;@part<11;set @part,@part+1) 
	if(getequipisequiped(@part)) 
	while(getequiprefinerycnt(@part) < 10) 
	successrefitem @part;
	mes "[Smith]";
	mes "Congrats Enjoy it!";
	close;
	end;
	case 3:
	mes "[ Smith ]";
	mes "Okay I'm going to Derifne your Equipment now. You need 10.000 Zeny for that.";
	next;
	setarray .@a[1],EQI_HEAD_TOP,EQI_ARMOR,EQI_HAND_L,EQI_HAND_R,EQI_GARMENT,EQI_SHOES;
	select(getequipname(EQI_HEAD_TOP),getequipname(EQI_ARMOR),getequipname(EQI_HAND_L),getequipname(EQI_HAND_R),getequipname(EQI_GARMENT),getequipname(EQI_SHOES));
		if ( !getequipisequiped(@menu) ) {
			mes "[ Smith ]";
			mes "There's nothing equipped there...";
			close; }
		if ( zeny < 10000 ) {
			mes "[ Smith ]";
			mes "You don't have enough zeny";
			close; }
		if ( getequiprefinerycnt(@menu) > 10 || getequiprefinerycnt(@menu) == 0 ) {
			mes "[ Smith ]";
			mes "This item cannot be de-refine.";
			close; }
	atcommand "@refine "+ .@a[@menu] +" -10";
	set zeny,zeny - 10000;
	mes "[ Smith ]";
	mes "Your item has de-refined successfully";
	close;
	case 4:
	mes "[ Smith ]";
	mes "Okay,come back when you need me.";
	close;
	}
}