Sorry for this guys. i just made another request. my request is about Costume Converter NPC.
Scenario: i want to convert my headgear and for that i need to pay the NPC 1 TCG card
Scenario II: i want to revert my costume into normal headgears and for that i need to pay again the NPC 1 TCG card..
All i want is for this scrip is whenever i convert or revert headgears a players must use TCG Card.. thank you in advance for the help guys.. i just need a little help for some proffesionals.
Here's my Script:
// -------------------------------------------------------------------------------
// 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.
// -------------------------------------------------------------------------------
- script Costume Clown -1,{
mes "[Clown]";
mes "Here you can convert your headgears into a Costume Headgear or restore to its Original form.";
switch(select("I want to convert.:I want to restore.:No thanks.")) {
case 1:
next;
mes "Please, select what to convert.";
mes "Remember, cards and refine will be removed.";
next;
setarray .@Position$[1],"Top","Mid","Low","Garment";
setarray .@Position[1], EQI_HEAD_TOP, EQI_HEAD_MID, EQI_HEAD_LOW, EQI_GARMENT;
set .@Menu$,"";
for( set .@i, 1; .@i < 6; set .@i, .@i + 1 )
{
if( getequipisequiped(.@Position[.@i]) )
set .@Menu$, .@Menu$ + .@Position$[.@i] + "-" + "[" + getequipname(.@Position[.@i]) + "]";
set .@Menu$, .@Menu$ + ":";
}
set .@Part, .@Position[ select(.@Menu$) ];
if( !getequipisequiped(.@Part) )
{
mes "[Clown]";
mes "You are not wearing anything there.";
close;
}
mes "[Clown]";
mes "You want to Costume your " + getitemname(getequipid(.@Part)) + "?";
next;
if( select("Yes, proceed:No, I am sorry.") == 2 )
{
mes "[Clown]";
mes "Need some time to think about it, huh?";
mes "Alright, I can understand.";
close;
}
costume .@Part; // Convert the Headgear
mes "[Clown]";
mes "Done, enjoy your costume headgear.";
close;
case 2:
next;
mes "Please, select what to restore.";
mes "Remember, I will only restore it back without refine and cards.";
next;
setarray .@Position$[1],"Top","Mid","Low", "Garment";
setarray .@Position[1], EQI_COSTUME_HEAD_TOP, EQI_COSTUME_HEAD_MID, EQI_COSTUME_HEAD_LOW, EQI_COSTUME_GARMENT;
set .@Menu$,"";
for( set .@i, 1; .@i < 6; set .@i, .@i + 1 )
{
if( getequipisequiped(.@Position[.@i]) )
set .@Menu$, .@Menu$ + .@Position$[.@i] + "-" + "[" + getequipname(.@Position[.@i]) + "]";
set .@Menu$, .@Menu$ + ":";
}
set .@Part, .@Position[ select(.@Menu$) ];
if( !getequipisequiped(.@Part) )
{
mes "[Clown]";
mes "You are not wearing anything there.";
close;
}
mes "[Clown]";
mes "You want to restore your " + getitemname(getequipid(.@Part)) + "?";
next;
if( select("Yes, proceed:No, I am sorry.") == 2 )
{
mes "[Clown]";
mes "Need some time to think about it, huh?";
mes "Alright, I can understand.";
close;
}
.@a = getequipid(.@Part);
delitem .@a,1;
getitem .@a,1;
mes "[Clown]";
mes "Done, enjoy your restored headgear.";
close;
case 3:
mes "[Clown]";
mes "Very well. Return at once if you seek my services.";
close;
}
}
// --------------------------------------------------------------------------
// Use duplicates to put your npc on different cities
// --------------------------------------------------------------------------
prontera,155,181,4 duplicate(Costume Clown) Costume Clown#1 715
