Refiner

[Kuroe]

Hello. i am using a refiner that i found here at rathena and i just wanna ask why are these equipments not in the right options and can someone help me fix it?

Here's the script 
 

//===== rAthena Script ======================================= 
//= Perfect Refiner
//===== By: ================================================== 
//= SoulDestroyer (souldestroyer1030)
//===== Current Version: ===================================== 
//= 1.0
//===== Compatible With: ===================================== 
//= rAthena Project
//===== Description: ========================================= 
//= Refine -refinable- items to whatever level (even downgrade)
//===== Additional Comments: ================================= 
//= N/A
//============================================================ 

prontera,165,189,4	script	Legendary Blacksmith	813,{
	disable_items;
	set [email protected], 0;
	mes "[Legendary Blacksmith]";
	mes "Heya! I'm the best blacksmith in the whole of Midgard!";
	mes "How can I help you?";
	next;
	switch(select("Upgrade Equipment:Downgrade Equipment:Repair Equipment:Maybe next time.")) {
	case 1:
		set [email protected],1;
		break;
	case 2:
		set [email protected],2;
		break;
	case 3:
		set [email protected],3;
		break;
	default:
		mes "[Legendary Blacksmith]";
		mes "Come back if you change your mind!";
		close;
	}
	
	if ([email protected] == 1 || [email protected] == 2) {
		next;
		if ([email protected] == 1) {
			set actionword$,"upgrade";
		} else if ([email protected] == 2) {
			set actionword$,"downgrade";
		}
		mes "[Legendary Blacksmith]";
		mes "Choose any of the equipment you're wearing that you'd like to " + actionword$ + ".";
		next;
		setarray [email protected]$[1], "Head","Body","Left hand","Right hand","Robe","Head","Accessory 1","Accessory 2","Head 2","Head 3";
		set [email protected]$,"";
		for(set [email protected],1; [email protected]<=10; set [email protected],[email protected]+1) {
			if(getequipisequiped([email protected])) {
				set [email protected]$, [email protected]$ + [email protected]$[[email protected]] + "-" + "[" + getequipname([email protected]) + "]";
				set [email protected],1;
			}
			set [email protected]$, [email protected]$ + ":";
		}
		if ([email protected] == 0) {
			mes "[Legendary Blacksmith]";
			mes "What? You're not wearing anything there.";
			close;
		}
		set [email protected], select([email protected]$);
		next;
		
		//Check if the item is refinable...
		if(!getequipisenableref([email protected])) {
			mes "[Legendary Blacksmith]";
			mes "Even with my exceptional skill,";
			mes "there are things that just cannot be touched";
			mes "by a blacksmith's hammer.";
			close;
		}
		
		mes "[Legendary Blacksmith]";
		mes "By how much do you want me to " + actionword$ + " this item?";
		input [email protected];
		next;
		
		if ([email protected] == 0) {
			mes "[Legendary Blacksmith]";
			mes "Oh, did you change your mind?";
			close;
		}
		
		set [email protected], getequipid([email protected]); // save id of the item
		set [email protected],getequiprefinerycnt([email protected]); // save refine level of the item
		setarray [email protected]_card[0], getequipcardid([email protected],0),getequipcardid([email protected],1),getequipcardid([email protected],2),getequipcardid([email protected],3); // get current cards

		if(!getequipisequiped([email protected])) { //custom check
			mes "[Legendary Blacksmith]";
			mes "Please equip the gear that you want me to ";
			mes "work on before coming to me!";
			close;
		}
		//Check to see if the items is already maxed out
		if(([email protected] == 1 && [email protected] >= 20) || ([email protected] == 2 && [email protected] <= 0)) {
			mes "[Legendary Blacksmith]";
			mes "I can no longer work on this.";
			mes "Everything in this world has limits, you know!";
			close;
		}
			
		// anti-hack
		if (callfunc("F_IsEquipIDHack", [email protected], [email protected]) ||
			callfunc("F_IsEquipCardHack", [email protected], [email protected]_card[0], [email protected]_card[1], [email protected]_card[2], [email protected]_card[3])) {
			mes "[Legendary Blacksmith]";
			mes "You switched gears... while I'm working.";
			mes "That disappoints me more than anything. Go away.";
			close;
		}
		
		if ([email protected] == 1) {
			successrefitem [email protected], [email protected];
		} else if ([email protected] == 2) {
			downrefitem [email protected], [email protected];
		}
		mes "[Legendary Blacksmith]";
		mes "Clang! Clang! Clang!";
		next;
		mes "[Legendary Blacksmith]";
		mes "It's things like these that make me really proud";
		mes "of who and what I am. Perfection!";
		close;
	}
	else if ([email protected] == 3) {
		next;
		mes "[Legendary Blacksmith]";
		mes "Okay, let me have a look at your equipment...";
		next;
		repairall getcharid(0);
		mes "[Legendary Blacksmith]";
		mes "There you go, I've repaired everything that needs repairing!";
		close;
	}
	close;
}

and here's the menu ingame

Thanks in advance. 

Edited October 26, 2018 by Kuroe
Forgot to put image

[Clark]

*getequipid({<equipment slot>,<char_id>})

This function returns the item ID of the item slot that calls the script
on the invoking character or the specified equipment slot. If nothing is
equipped there, it returns -1.
Valid equipment slots are:

EQI_COMPOUND_ON (-1)      - Item slot that calls this script (In context of item script)
EQI_ACC_L (0)             - Accessory 1
EQI_ACC_R (1)             - Accessory 2
EQI_SHOES (2)             - Footgear (shoes, boots)
EQI_GARMENT (3)           - Garment (mufflers, hoods, manteaux)
EQI_HEAD_LOW (4)          - Lower Headgear (beards, some masks)
EQI_HEAD_MID (5)          - Middle Headgear (masks, glasses)
EQI_HEAD_TOP (6)          - Upper Headgear
EQI_ARMOR (7)             - Armor (jackets, robes)
EQI_HAND_L (8)            - Left hand (weapons, shields)
EQI_HAND_R (9)            - Right hand (weapons)
EQI_COSTUME_HEAD_TOP (10) - Upper Costume Headgear
EQI_COSTUME_HEAD_MID (11) - Middle Costume Headgear
EQI_COSTUME_HEAD_LOW (12) - Lower Costume Headgear
EQI_COSTUME_GARMENT (13)  - Costume Garment
EQI_AMMO (14)    		  - Arrow/Ammunition
EQI_SHADOW_ARMOR (15)     - Shadow Armor
EQI_SHADOW_WEAPON (16)    - Shadow Weapon
EQI_SHADOW_SHIELD (17)    - Shadow Shield
EQI_SHADOW_SHOES (18)     - Shadow Shoes
EQI_SHADOW_ACC_R (19)     - Shadow Accessory 2
EQI_SHADOW_ACC_L (20)     - Shadow Accessory 1

Notice that a few items occupy several equipment slots, and if the character is
wearing such an item, 'getequipid' will return its ID number for either slot.

Can be used to check if you have something equipped, or if you haven't got
something equipped:

	if (getequipid(EQI_HEAD_TOP) == 2234)
		mes "What a lovely Tiara you have on";
	else
		mes "Come back when you have a Tiara on";
	close;

You can also use it to make sure people don't pass a point before removing an
item totally from them. Let's say you don't want people to wear Legion Plate
armor, but also don't want them to equip if after the check, you would do this:

	if (getequipid(EQI_ARMOR) == 2341 || getequipid(EQI_ARMOR) == 2342) {
		mes "You are wearing some Legion Plate Armor, please drop that in your stash before continuing";
		close;
	}
	// the || is used as an or argument, there is 2341 and 2342 cause there are
	// two different legion plate armors, one with a slot one without.

	if (countitem(2341) > 0 || countitem(2432) > 0) {
		mes "You have some Legion Plate Armor in your inventory, please drop that in your stash before continuing";
		close;
	}
	mes "I will lets you pass.";
	close2;
	warp "place",50,50;
	end;

---------------------------------------

*getequipname(<equipment slot>{,<char_id>})

Returns the jname of the item equipped in the specified equipment slot on the
invoking character, or an empty string if nothing is equipped in that position.
Does the same thing as getitemname(getequipid()). Useful for an NPC to state
what your are wearing, or maybe saving as a string variable.
See 'getequipid' for a full list of valid equipment slots.

        if ( getequipname(EQI_HEAD_TOP) != "" )
	        mes "So you are wearing a " + getequipname(EQI_HEAD_TOP) + " on your head";
	else
	        mes "You are not wearing any head gear";

Is because the refiner npc has the old positions of the equipment.

You're getting those values because of this part.

setarray [email protected]$[1], "Head","Body","Left hand","Right hand","Robe","Head","Accessory 1","Accessory 2","Head 2","Head 3";
		set [email protected]$,"";
		for(set [email protected],1; [email protected]<=10; set [email protected],[email protected]+1) {
			if(getequipisequiped([email protected])) {
				set [email protected]$, [email protected]$ + [email protected]$[[email protected]] + "-" + "[" + getequipname([email protected]) + "]";

Change it to this, and it should work "not tested". 

setarray [email protected]$[0], "Accessory L","Accessory R","Shoes","Robe","Head Low","Head Mid","Head Top","Armor","Left hand","Right hand";

 

[Kuroe]

 

8 hours ago, Clark said:

You're getting those values because of this part.

setarray [email protected]$[1], "Head","Body","Left hand","Right hand","Robe","Head","Accessory 1","Accessory 2","Head 2","Head 3";
		set [email protected]$,"";
		for(set [email protected],1; [email protected]<=10; set [email protected],[email protected]+1) {
			if(getequipisequiped([email protected])) {
				set [email protected]$, [email protected]$ + [email protected]$[[email protected]] + "-" + "[" + getequipname([email protected]) + "]";

Change it to this, and it should work "not tested". 

setarray [email protected]$[0], "Accessory L","Accessory R","Shoes","Robe","Head Low","Head Mid","Head Top","Armor","Left hand","Right hand";

 

Thanks.

 

So I just had to re arrange them...