Help po sa enchanter script

[jompon]

Favor po mga boss... pwede po ba pa edit nito para dun s echanting magkaron ng requirement na dpat +10 and above lng ung equip and may fee na 1M. masyado po mahaba un script kaya yan lng nilagay ko. if need nyu po ung script, i can upload it too po.

prontera,134,169,5    script    Master Craftsman    109,{
    disable_items;
    set .@action, 0;
    mes "[Master Craftsman]";
    mes "I have mastered the art of equipment enchantment.";
    mes "Would you like to enchant something or reset enchantment?";
    next;
    switch(select("Enchant Equipment:Reset Enchantment:Maybe next
time.")) {
    case 1:
        set .@action,1;
        break;
    case 2:
        set .@action,2;
        break;
    case 3:
        mes "[Master Craftsman]";
        mes "Okay, come again.";
        close;
    }
    
    if (.@action == 1) {
        next;
        mes "[Master Craftsman]";
        mes "Choose any of the equipment you're wearing that
you'd like to enchant.";
        next;
        setarray .@position$[1], "Head","Body","Left
hand","Right hand","Robe","Shoes","Accessory 1","Accessory 2","Head
2","Head 3";
        set .@menu$,"";
        for(set .@i,1; .@i<=10; set .@i,.@i+1) {
            if(getequipisequiped(.@i)) {
                set .@menu$, .@menu$ + .@position$[.@i]
+ "-" + "[" + getequipname(.@i) + "]";
                set .@equipped,1;
            }
            set .@menu$, .@menu$ + ":";
        }
        if (.@equipped == 0) {
            mes "[Master Craftsman]";
            mes "Despite my exceptional skill,";
            mes "I don't think I can enchant anything you
have.";
            close;
        }
        set .@part, select(.@menu$);
        next;

        if(!getequipisequiped(.@part)) { //custom check
            mes "[Master Craftsman]";
            mes "Sorry, I can only enchant equipment,";
            mes "not body parts. Come back when you're
wearing something";
            mes "on that slot.";
            close;
        }
        
        mes "[Master Craftsman]";
        mes "What kind of enchantment do you desire?";
        switch(select
("Strength:Intelligence:Dexterity:Agility:Vitality:Luck:MATK:Evasion:Cri
tical:ATK:Defense:MDEF:HP/SP:ASPD:Fighting Spirit:Spell:Sharp:Expert
Archer:Fatal:DelayafterAttack:OGH Enchants:Cancel")) {
            case 1:
                switch(select("STR+1:STR+2:STR+3:STR
+4:STR+5:STR+6:STR+7:STR+8:STR+9:STR+10:Cancel")) {
                    case 1: set
.@enchantstoneid,4700; break;
                    case 2: set
.@enchantstoneid,4701; break;
                    case 3: set
.@enchantstoneid,4702; break;
                    case 4: set
.@enchantstoneid,4703; break;
                    case 5: set
.@enchantstoneid,4704; break;
                    case 6: set
.@enchantstoneid,4705; break;
                    case 7: set
.@enchantstoneid,4706; break;
                    case 8: set
.@enchantstoneid,4707; break;
                    case 9: set
.@enchantstoneid,4708; break;
                    case 10: set
.@enchantstoneid,4709; break;
                    default: set .@enchantstoneid,0;
break;
                }
                break;

Edited August 31, 2020 by jompon

[Poring King]

If( Item 1 = refine 10 | item 2 = refine 10 | etc ){
mes "Do this";
if ( Zeny <= 1000000) goto ThisisMe;
close;
}else{
mes "Sorry you dont have item that i need";
}

ThisisMe:
mes " Here you go";
set ItemID,getequipinfo(L_Body);
delitem itemID,1;
getitem2 itemID,1,1,0,0,.@EnchantItemID;
close;

 I hope you get the idea

Edited August 31, 2020 by Poring King

[sotf]

Add mo to after the part where you select an equip to enchant:

if(getequiprefinerycnt(.@part) < 10) { goto refrestrict; }

...tapos gawin mo na lang yung label na 'refrestrict' para may pupuntahan yung goto, something like this:

refrestrict:
mes "I can't enchant gears with refine below 10";
close;

lagay mo na lang sa dulo ng script ng npc mo.