can someone add a blacklist array on this script or make a new one
// -------------------------------------------------------------------------------
// Script Name : Headgear to Costume converter >> Costume to Headgear converter
// -------------------------------------------------------------------------------
// Description :
// - Allows a user to convert the equipped headgear (on Top, Mid or Low) into a
// costume item. It will remove any card and refine of the Item.
// - Allows a user to restore the equipped costume headgear (on Top, Mid or Low)
// into its original form. It will not return any card or refine of the item.
// -------------------------------------------------------------------------------
function script costume {
.@npc_name$ = getarg(0);
// ======================================================================
.@requirement = 7399; // Item ID Requirement
// ======================================================================
disable_items;
mes "["+ .@npc_name$ +"]";
mes "Here you can convert your headgears into a Costume Headgear or restore to its Original form.";
next;
switch(select("I want to convert.:I want to restore.:No thanks.")) {
case 1:
setarray .@indices[1], EQI_HEAD_TOP, EQI_HEAD_MID, EQI_HEAD_LOW;
for (.@i = 1; .@i<=3; ++.@i) {
if (getequipisequiped(.@indices[.@i])) {
.@menu$ = .@menu$ + F_getpositionname(.@indices[.@i]) + "-[" + getequipname(.@indices[.@i]) + "]";
.@equipped = 1;
}
.@menu$ = .@menu$ + ":";
}
getinventorylist;
while( .@i < @inventorylist_count ){
if( @inventorylist_bound[.@i] && @inventorylist_equip[.@i] ){
mes "This item "+getitemname( @inventorylist_id[.@i] )+" is Bounded.";
}
if (@inventorylist_expire[.@i] && @inventorylist_equip[.@i] ) {
mes "This item "+getitemname( @inventorylist_id[.@i] )+" is Rental.";
close;
}
set .@i,.@i + 1;
}
if (.@equipped == 0) {
mes "["+ .@npc_name$ +"]";
mes "You need to wear headgears that I can costume...";
close;
}
mes "["+ .@npc_name$ +"]";
mes "Please select what to convert.";
mes "Remember, cards and refine will be removed.";
next;
.@part = .@indices[ select(.@menu$) ];
if (!getequipisequiped(.@part)) {
mes "["+ .@npc_name$ +"]";
mes "You're not wearing anything there...";
close;
}
mes "["+ .@npc_name$ +"]";
mes "You want to Costume your " + getitemname(getequipid(.@part)) + "?";
next;
if (select("Yes, proceed:No, sorry.") == 2) {
mes "["+ .@npc_name$ + "]";
mes "Need some time to think about it, huh?";
mes "Alright, I can understand.";
close;
}
if ( countitem(.@requirement) < 1 ) {
mes "["+ .@npc_name$ + "]";
mes "You need "+getitemname(.@requirement);
end;
}
delitem .@requirement,1;
costume .@part; // Convert the Headgear
mes "["+ .@npc_name$ +"]";
mes "Done, enjoy your costume headgear.";
close;
case 2:
setarray .@indices[1], EQI_COSTUME_HEAD_TOP, EQI_COSTUME_HEAD_MID, EQI_COSTUME_HEAD_LOW;
for (.@i = 1; .@i<=3; ++.@i) {
if (getequipisequiped(.@indices[.@i])) {
.@menu$ = .@menu$ + F_getpositionname(.@indices[.@i]) + "-[" + getequipname(.@indices[.@i]) + "]";
.@equipped = 1;
}
.@menu$ = .@menu$ + ":";
}
if (.@equipped == 0) {
mes "["+ .@npc_name$ +"]";
mes "You need to wear costumed headgears that I can restore...";
close;
}
mes "["+ .@npc_name$ +"]";
mes "Please select what to restore.";
mes "Remember, I will only restore it back without refine and cards.";
next;
.@part = .@indices[ select(.@menu$) ];
if (!getequipisequiped(.@part)) {
mes "["+ .@npc_name$ +"]";
mes "You're not wearing anything there...";
close;
}
if (isequippedcnt(getequipid(.@part)) > 1) {
mes "["+ .@npc_name$ +"]";
mes "You're wearing too many of the same headgear!";
mes "How am I supposed to know which one to restore?";
mes "See me when you have one equipped.";
close;
}
if (countitem(getequipid(.@part)) > 1) {
mes "["+ .@npc_name$ +"]";
mes "You have another " + getitemname(getequipid(.@part)) + " with you.";
mes "Put it away before restoring.";
close;
}
mes "[" + .@npc_name$ + "]";
mes "You want to restore your " + getitemname(getequipid(.@part)) + "?";
next;
if (select("Yes, proceed:No, sorry.") == 2) {
mes "["+ .@npc_name$ +"]";
mes "Need some time to think about it, huh?";
mes "Alright, I can understand.";
close;
}
if (Zeny < 50000000) {
mes "["+ .@npc_name$ + "]";
mes "I need atleast 50m to restore your costume headgear";
close;
}
Zeny = Zeny - 50000000;
// Restore headgear by recreating
a = getequipid(.@part);
delitem a,1;
getitem a,1;
mes "["+ .@npc_name$ +"]";
mes "Done, enjoy your restored headgear.";
close;
case 3:
mes "["+ .@npc_name$ +"]";
mes "Very well. Return at once if you seek my services.";
close;
}
}
// ---------------------------------------------------------------------------
// Add more lines to put your npc on different cities (adjust name if desired)
// ---------------------------------------------------------------------------
prontera,143,143,6 script Costume Clown#1 715,{ callfunc "costume","Costume Clown",0; end; }
Question
kalabasa
can someone add a blacklist array on this script or make a new one
i've been trying to insert this script
setarray .@nocostume[0],1166,2527; for(set @i,0;@i < getarraysize(.@nocostume);set @i,@i+1){ if(countitem(.@nocostume[@i]) >= 1){close;}
From here
https://rathena.org/board/topic/125062-headgear-to-costume-converter-costume-to-headgear-converter/#comment-382628
i failed and i guess it's not to easy for me. thats why i am asking for your little time.
Link to comment
Share on other sites
0 answers to this question
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.