Well not at home right now and I don't have your items so it's a bit hard to test, but this should more or less do the job. You also should be able to factorise it a bit (especially the forge part).
prontera,156,326,4 script Craftsman::alacra 1_M_SMITH,{ set .@npcname$, "[Craftsman]"; mes .@npcname$; mes "What can I do for you, young adventurer?"; if (select("Insert an Power Item","Power items?") == 1) { next; mes .@npcname$; mes "Sure."; mes "Which kind of item do you wanna insert a gim in?"; set .@[member="choice"], select("An armor","A footgear","A shield","A garment") - 1; next; mes .@npcname$; switch(.@[member="choice"]) { case 0: //armor copyarray .@itemId[0], $quintsId[0], getarraysize($quintsId); if(getequipid(EQI_ARMOR) == -1) { mes "Sorry, but you need an equiped armor for me to empower it."; close; } break; case 1: //footgear copyarray .@itemId[0], $glyphsId[0], getarraysize($glyphsId); if(getequipid(EQI_SHOES) == -1) { mes "Sorry, but you need an equiped footgear for me to empower it."; close; } break; case 2: //shield copyarray .@itemId[0], $sealsId[0], getarraysize($sealsId); if(getequipid(EQI_HAND_R) == -1 || getequipweaponlv(EQI_HAND_L) != 0) { mes "Sorry, but you need an equiped armor for me to empower it."; close; } break; case 3: //garment copyarray .@itemId[0], $marksId[0], getarraysize($marksId); if(getequipid(EQI_GARMENT) == -1) { mes "Sorry, but you need an equiped garment for me to empower it."; close; } break; } mes "Allright. So which item do you want to insert?"; set .@menu$, ""; for(set .@i,0; .@i<getarraysize(.@itemId); set .@i,.@i+1) { set .@menu$, .@menu$ + getitemname(.@itemId[.@i]); } set .@itemChoice, select(.@menu$) - 1; next; mes .@npcname$; mes "So, you wanna add a " + getitemname(.@itemId[.@itemChoice]) + ", on your right?"; if(select("Yes","No") == 1) { if(countitem(.@itemId[.@itemChoice]) == 0) { next; mes .@npcname$; mes "Sorry but...You don't have this item. I need at least to be able to work."; close; } } else { next; mes .@npcname$; mes "Oh...Thought so..."; close; } //update switch(.@[member="choice"]) { case 0: //armor //retrieve compounded cards and refine set .@cardId1, getequipcardid(EQI_ARMOR,0); set .@refine, getequiprefinerycnt(EQI_ARMOR); next; mes .@npcname$; mes "Perfect. Wait a second."; getitem2 getequipid(EQI_ARMOR), 1, 1, .@refine, 0, .@cardId1, .@itemId[.@itemChoice], 0, 0; delitem .@itemId[.@itemChoice], 1; break; case 1: //footgear //retrieve compounded cards and refine set .@cardId1, getequipcardid(EQI_SHOES,0); set .@refine, getequiprefinerycnt(EQI_SHOES); next; mes .@npcname$; mes "Perfect. Wait a second."; getitem2 getequipid(EQI_SHOES), 1, 1, .@refine, 0, .@cardId1, .@itemId[.@itemChoice], 0, 0; delitem .@itemId[.@itemChoice], 1; break; case 2: //shield //retrieve compounded cards and refine set .@cardId1, getequipcardid(EQI_HAND_R,0); set .@refine, getequiprefinerycnt(EQI_HAND_R); next; mes .@npcname$; mes "Perfect. Wait a second."; getitem2 getequipid(EQI_HAND_R), 1, 1, .@refine, 0, .@cardId1, .@itemId[.@itemChoice], 0, 0; delitem .@itemId[.@itemChoice], 1; break; case 3: //garment //retrieve compounded cards and refine set .@cardId1, getequipcardid(EQI_GARMENT,0); set .@refine, getequiprefinerycnt(EQI_GARMENT); next; mes .@npcname$; mes "Perfect. Wait a second."; getitem2 getequipid(EQI_GARMENT), 1, 1, .@refine, 0, .@cardId1, .@itemId[.@itemChoice], 0, 0; delitem .@itemId[.@itemChoice], 1; break; } next; mes .@npcname$; mes "Here you go."; mes "Hope to see you soon again."; } else { next; mes .@npcname$; mes "I can carve some items which will grant you new powers directly into your armor pieces."; mes "I can add a Quint into an Armor."; mes "A Glyph into footgears."; mes "A Seal into a shield."; mes "Or a Mark into a garment."; mes "Just talk to me with the correct Power Item in your inventory, and the item you wanna to engrave equiped."; } close; OnInit: setarray $quintsId[0],28060,28061,28062,28063,28064,28065,28066,28067,28068,28069; setarray $glyphsId[0],28050,28051,28052,28053,28054,28055,28056,28057,28058,28059; setarray $sealsId[0],28040,28041,28042,28043,28044,28045,28046,28047,28048,28049; setarray $marksId[0],28030,28031,28032,28033,28034,28035,28036,28037,28038,28039; end;}
Second Edit: I've completed it just before refreshing and see you've changed the request...Thought you can probably update it by yourself now, to fit the new changes. If not, just tell me.
Edited by Alayne, 26 May 2016 - 01:06 PM.
