//ŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻ\\
//||----------------------------------------------||\\
//|| Card Removal NPC ||\\
//||----------------------------------------------||\\
//|| Written By: Izkuru ||\\
//|| teh_face_x_o@yahoo.com ||\\
//|| Test With: OmniAthena 962 ||\\
//||----------------------------------------------||\\
//|| NPC that will remove all cards in an equiped ||\\
//|| item. Also uses a global var to specify the ||\\
//|| price per card. ||\\
//||----------------------------------------------||\\
//|| To install: Place this TXT file anywhere in ||\\
//|| your Athena scripts folder, and include it ||\\
//|| in scripts.conf. Then add the following to ||\\
//|| save/mapreg.txt. ||\\
//||----------------------------------------------||\\
//|| $cardRemCost 250000 ||\\
//||----------------------------------------------||\\
//|| Then, change the value as you see fit. ||\\
//||----------------------------------------------||\\
//|| Started on: Jun 22 2004 ||\\
//|| Last Modified: Jun 23 2004 ||\\
//||----------------------------------------------||\\
//__________________________________________________\\
prontera.gat,158,193,4 script Card Removal 78,{
mes "[Wise Old Woman]";
mes "I have the power to remove cards compounded into your equipment.";
next;
mes "[Wise Old Woman]";
mes "However, this service comes at a cost. To work my magic, I need:";
mes "5 ^ff0000Red Gemstones^000000";
mes "5 ^0000ffBlue Gemstones^000000";
mes "5 ^ffff00Yellow Gemstones^000000";
mes "5 ^ff8000Star Crubs^000000";
next;
mes "[Wise Old Woman]";
mes "That, and I charge " + $cardRemCost + "z per card.";
mes "What do you say?";
next;
menu "Sure",L_Item_Chk,"No way!",-;
L_No:
mes "[Wise Old Woman]";
mes "Fine, come back if you want your cards removed. I'm the only one here who can.";
close;
L_Item_Chk:
if(countitem(716) < 5 || countitem(717) < 5 || countitem(715) < 5 || countitem(1000) < 5) goto L_Item_Err;
mes "[Wise Old Woman]";
mes "Alright, you have your items. Now what do you want me to remove cards from?";
next;
menu getequipname(1),L_Slot1,
getequipname(2),L_Slot2,
getequipname(3),L_Slot3,
getequipname(4),L_Slot4,
getequipname(5),L_Slot5,
getequipname(6),L_Slot6,
getequipname(7),L_Slot7,
getequipname(8),L_Slot8,
getequipname(9),L_Slot9,
getequipname(10),L_Slot10,
"Cancel",L_No;
L_Slot1:
set @part,1;
goto L_CNum_Chk;
L_Slot2:
set @part,2;
goto L_CNum_Chk;
L_Slot3:
set @part,3;
goto L_CNum_Chk;
L_Slot4:
set @part,4;
goto L_CNum_Chk;
L_Slot5:
set @part,5;
goto L_CNum_Chk;
L_Slot6:
set @part,6;
goto L_CNum_Chk;
L_Slot7:
set @part,7;
goto L_CNum_Chk;
L_Slot8:
set @part,8;
goto L_CNum_Chk;
L_Slot9:
set @part,9;
goto L_CNum_Chk;
L_Slot10:
set @part,10;
goto L_CNum_Chk;
L_CNum_Chk:
set @CNum, getequipcardcnt(@part);
if(@CNum == 0) goto L_No_Card;
if(@CNum == 1) goto L_Sing;
if(@CNum > 1) goto L_Plur;
L_Cont:
mes "[Wise Old Woman]";
mes "This item has " + @CNum + " " + @card$ + " in it. That brings the cost to " + $cardRemCost * @CNum + "z.";
next;
mes "[Wise Old Woman]";
mes "Do you still want to remove your " + @card$ + " from this item?";
next;
menu "Yes",-,"No",L_No;
mes "[Wise Old Woman]";
mes "Ok, let me just make sure you have enough Zeny.";
next;
if(Zeny < $cardRemCost * @CNum) goto L_Z_Err;
mes "[Wise Old Woman]";
mes "Ok, you have your Zeny. Now I will take your payment and work my magic.";
next;
successremovecards @part;
set Zeny,zeny - $cardRemCost * @CNum;
Delitem 716,5;
Delitem 717,5;
Delitem 715,5;
Delitem 1000,5;
mes "[Wise Old Woman]";
mes "There you go. Now come back when you need more cards removed.";
close;
L_Sing:
set @card$,"card";
goto L_Cont;
L_Plur:
set @card$,"cards";
goto L_Cont;
L_Item_Err:
mes "[Wise Old Woman]";
mes "Sorry, but unless you have the items, I can't work my magic.";
close;
L_Z_Err:
mes "[Wise Old Woman]";
mes "Look, I'm not doing this for free. Come back when you have the remaining " + (250000 * @CNum) - zeny + "z.";
close;
L_No_Card:
mes "[Wise Old Woman]";
mes "I can't remove your cards if there aren't any there.";
close;
}