R> Same equipment, different colors...

[KingRamses]

Hey guys, s I have this sets which are the same but in different colors, I'm trying to make a script that lets you change the color (which is a different item) for ex: if I have the black set equipped and i use the command it would let me get this menu and change to other color... 

 

- script Perfect Set -1,{




OnInit:
bindatcmd("pset", strnpcinfo(3) +"::OnPSET");
end;


OnPSET:
if (@pset) {
set @pset, 0;
menuq:
mes "[NightmareRO]";
mes "Welcome I have Special items for those who have donated to the server.";
next;
mes "[NightmareRO]";
mes "What do you want to see??";
next;
menu "Perfect Set",qs,"Exit",exit;


exit:
mes "[NightmareRO]";
mes "Have a great day, Bye";
close;


norew:
mes "[Hombre]";
mes "You dont have enough ^0000FFProof of donation^000000.";
close;


///////////////////COMIENZO JOBS////////////////////////////////////
qs1:
next;
menu "Periwinkle Iris Set +10(Int)",q1,"Azure Iris Set +10(Luk)",q2,"Ebony Iris Set +10(Dex)",q3,"Maize Iris Set +10(Agi)",q4,"Folly Iris Set +10(Str)",q5,"Exit",exit;    




end;
}
}

I made this but is not completed and I dont know how to make the if equipped part....

 

[redwingangel]

Only Hex client of RagexeRe !!

[Elsa Mist]

 

Hey guys, s I have this sets which are the same but in different colors, I'm trying to make a script that lets you change the color (which is a different item) for ex: if I have the black set equipped and i use the command it would let me get this menu and change to other color... 

 

- script Perfect Set -1,{




OnInit:
bindatcmd("pset", strnpcinfo(3) +"::OnPSET");
end;


OnPSET:
if (@pset) {
set @pset, 0;
menuq:
mes "[NightmareRO]";
mes "Welcome I have Special items for those who have donated to the server.";
next;
mes "[NightmareRO]";
mes "What do you want to see??";
next;
menu "Perfect Set",qs,"Exit",exit;


exit:
mes "[NightmareRO]";
mes "Have a great day, Bye";
close;


norew:
mes "[Hombre]";
mes "You dont have enough ^0000FFProof of donation^000000.";
close;


///////////////////COMIENZO JOBS////////////////////////////////////
qs1:
next;
menu "Periwinkle Iris Set +10(Int)",q1,"Azure Iris Set +10(Luk)",q2,"Ebony Iris Set +10(Dex)",q3,"Maize Iris Set +10(Agi)",q4,"Folly Iris Set +10(Str)",q5,"Exit",exit;    




end;
}
}

I made this but is not completed and I dont know how to make the if equipped part....

 

setarray .@card[1], getequipcardid ( .slot, 0 ), getequipcardid ( .slot, 1 ), getequipcardid ( .slot, 2 ), getequipcardid ( .slot, 3 );
set .@refine, getequiprefinerycnt ( .slot );
delitem .@e, 1 ;
getitem2 getd ( ".a1"+ ( .@w + 1 ) +"_"+ ( .@id + 1 ) ) , 1, 1, .@refine, 0, .@card[1], .@card[2], .@card[3], .@card[4] ;
equip getd ( ".a1"+ ( .@w + 1 ) +"_"+ ( .@id + 1 ) ) ;

this is for you to auto equip and replace the old armor. You can try it as base.