Help sa Refine script pano mag add para sa middle

[eJay]

pano mag add ng refine sa Middle gear ?

here's my script

// -- Script by Emistry,

// -- 100% Success Per Refine NPC.

// -- Cost 10 Poring Coins [ Default ]

turbo_room,114,98,3 script Poring Coin Refiner 421,{

set @npcname$,"[^FF0000 100% Refiner^000000 ]";

set @items,7539; // Item ID

set @amount,10; // Amount

E_Refiner:

mes @npcname$;

mes "Which Equipments do you want me to refine for you ? ";

mes "10 Poring Coin is equivalent +1 for 100% refine";

mes "^FF0000100 poring coin = +10 Refine Equipment^000000";

mes " ";

mes "Cost : ^FF0000"+@amount+" "+getitemname(@items)+"^000000";

mes "For ^FF0000100% Succeed^000000 per Refine";

dispbottom "Only Refinable and below +10 EQUIPMENTS will be shown.";

next;

switch(select((getequiprefinerycnt(EQI_HEAD_TOP) == 10 || getequipisenableref(EQI_HEAD_TOP) == 0)?"":"Headgear [ ^0000FF"+getequipname(EQI_HEAD_TOP)+"^000000 ]", // Case 1:

(getequiprefinerycnt(EQI_ARMOR) == 10 || getequipisenableref(EQI_ARMOR) == 0)?"":"Armor [ ^0000FF"+getequipname(EQI_ARMOR)+"^000000 ]", // Case 2:

(getequiprefinerycnt(EQI_HAND_L) == 10 || getequipisenableref(EQI_HAND_L) == 0)?"":"Left Hand [ ^0000FF"+getequipname(EQI_HAND_L)+"^000000 ]", // Case 3:

(getequiprefinerycnt(EQI_HAND_R) == 10 || getequipisenableref(EQI_HAND_R) == 0)?"":"Right Hand [ ^0000FF"+getequipname(EQI_HAND_R)+"^000000 ]", // Case 4:

(getequiprefinerycnt(EQI_GARMENT) == 10 || getequipisenableref(EQI_GARMENT) == 0)?"":"Garment [ ^0000FF"+getequipname(EQI_GARMENT)+"^000000 ]", // Case 5:

(getequiprefinerycnt(EQI_SHOES) == 10 || getequipisenableref(EQI_SHOES) == 0)?"":"Footgear [ ^0000FF"+getequipname(EQI_SHOES)+"^000000 ]", // Case 6:

"^RR0000Cancel^000000")) {

Case 1:

mes @npcname$;

if ( countitem(@items) < @amount){

mes @npcname$;

mes "You must have at least ^FF0000"+@amount+" "+getitemname(@items)+"^000000 to use my services..";

close;

}

mes "Clang...Clang...Clang.....";

successrefitem EQI_HEAD_TOP;

delitem @items,@amount;

next;

goto E_Refiner;

Case 2:

mes @npcname$;

if ( countitem(@items) < @amount){

mes @npcname$;

mes "You must have at least ^FF0000"+@amount+" "+getitemname(@items)+"^000000 to use my services..";

close;

}

mes "Clang...Clang...Clang.....";

successrefitem EQI_ARMOR;

delitem @items,@amount;

next;

goto E_Refiner;

Case 3:

mes @npcname$;

if ( countitem(@items) < @amount){

mes @npcname$;

mes "You must have at least ^FF0000"+@amount+" "+getitemname(@items)+"^000000 to use my services..";

close;

}

mes "Clang...Clang...Clang.....";

successrefitem EQI_HAND_L;

delitem @items,@amount;

next;

goto E_Refiner;

Case 4:

mes @npcname$;

if ( countitem(@items) < @amount){

mes @npcname$;

mes "You must have at least ^FF0000"+@amount+" "+getitemname(@items)+"^000000 to use my services..";

close;

}

mes "Clang...Clang...Clang.....";

successrefitem EQI_HAND_R;

delitem @items,@amount;

next;

goto E_Refiner;

Case 5:

mes @npcname$;

if ( countitem(@items) < @amount){

mes @npcname$;

mes "You must have at least ^FF0000"+@amount+" "+getitemname(@items)+"^000000 to use my services..";

close;

}

mes "Clang...Clang...Clang.....";

successrefitem EQI_GARMENT;

delitem @items,@amount;

next;

goto E_Refiner;

Case 6:

mes @npcname$;

if ( countitem(@items) < @amount){

mes @npcname$;

mes "You must have at least ^FF0000"+@amount+" "+getitemname(@items)+"^000000 to use my services..";

close;

}

mes "Clang...Clang...Clang.....";

successrefitem EQI_SHOES;

delitem @items,@amount;

next;

goto E_Refiner;

Case 7:

mes @npcname$;

mes "Come back again when you have changed your mind.";

close;

}

}

[Eroces]

Try this.

http://pastebin.com/u6i1q0CU

Edited July 23, 2012 by Eroces