// Card removal NPC by TyrNemesis^ ���{���F�Ӓ���
prt_in,28,73,4 script �����V�� 78,{
UPGRADEROOT:
// mes "[Wise Old Woman]";
// mes "Good day, young one. I have the power to remove cards that you have compounded onto your equipment. Does this idea please you?";
mes "[�����V��]";
mes "�����V�C���ˁA�Ⴂ�́B";
mes "�Ƃ���ŁA�A�^�V�͕���ɑ������Ă���";
mes "�J�[�h�����O���͂������Ă��邯�ǁA";
mes "�͂�݂������ˁH";
next;
// menu "Yes, it does.",REMOVEMENU,
// "What do you charge?",REMOVEPRICE,
// "No thanks.",CLOSEOUT;
menu "���肢���܂��B",REMOVEMENU,
"�����炩�����ł����H",REMOVEPRICE,
"�K�v�Ȃ��ł��B",CLOSEOUT;
REMOVEPRICE:
// mes "[Wise Old Woman]";
// mes "I charge a flat fee of 200000 zeny, plus 25000 zeny for each card I remove from the item. In addition, I need a star crumb and a yellow gemstone to work my magic.";
mes "[�����V��]";
mes "�������ˁA";
mes "�܂���{�����Ƃ���^4040FF200000z^000000�B";
mes "�����ăJ�[�h�P���ɂ�^4040FF25000z^000000�Ⴄ��B";
mes "���Ƃ́A���@���g�����߂�^4040FF���̂�����^000000��";
mes "^4040FF�C�G���[�W�F���X�g�[��^000000���P���K�v����B";
next;
// menu "Very well. Let's do it.",REMOVEMENU,
// "No thanks.",CLOSEOUT;
menu "���肢���܂��B",REMOVEMENU,
"�K�v�Ȃ��ł��B",CLOSEOUT;
REMOVEMENU:
// mes "[Wise Old Woman]";
// mes "Very well. Which item shall I examine for you?";
mes "[�����V��]";
mes "�悵�悵�B";
mes "�ǂ̕���̃J�[�h�����O���ˁH";
next;
// menu "I changed my mind.",CLOSEOUT,
menu "����ς��߂܂��B",CLOSEOUT,
getequipname(1),-,
getequipname(2),-,
getequipname(3),-,
getequipname(4),-,
getequipname(5),-,
getequipname(6),-,
getequipname(7),-,
getequipname(8),-,
getequipname(9),-,
getequipname(10),-;
set @part,@menu-1;
if(getequipcardcnt(@part) == 0) goto DENYCARDCOUNT;
set @cardcount,getequipcardcnt(@part);
// if(@cardcount > 1) goto CARDNUMMULTIMSG;
// mes "[Wise Old Woman]";
// mes "This item has " + @cardcount + " card compounded on it. To perform my magic, I will need 225000 zeny, a ^0000FFStar Crumb^000000, and a ^0000FFYellow Gemstone^000000.";
// goto CARDNUMPOSTMSG;
//CARDNUMMULTIMSG:
// mes "[Wise Old Woman]";
// mes "This item has " + @cardcount + " cards compounded on it. To perform my magic, I will need " + (200000+(@cardcount * 25000)) + " zeny, a ^0000FFStar Crumb^000000, and a ^0000FFYellow Gemstone^000000.";
mes "[�����V��]";
mes "���̕���ɂ�" + @cardcount + "�J�[�h�����Ă�ˁB";
mes "^0000FF" + (200000+(@cardcount * 25000)) + "z^000000��^0000FF���̂�����^000000��^0000FF�C�G���[�W�F���X�g�[��^000000���K�v����B";
//CARDNUMPOSTMSG:
next;
// menu "Very well. Do it.",REMOVECARDWARNING,
// "Never mind.",CLOSEOUT;
menu "�킩��܂����A���肢���܂��B",REMOVECARDWARNING,
"����ς��߂܂��B",CLOSEOUT;
REMOVECARDWARNING:
// mes "[Wise Old Woman]";
// mes "Before I begin, I must warn you--I may fail. If I do, I may destroy the cards, the item, or both. I do not give refunds. That being said, which is more important to you: The cards, or the item?";
mes "[�����V��]";
mes "�����ƌ����Y���Ƃ��낾�����ˁB";
mes "���̖��@�͂ƂĂ��������A";
mes "^FF4040���s���邩������Ȃ�^000000�̂��B";
mes "���s������J�[�h������A���邢��";
mes "���̗�����^FF4040�j��Ă��܂�^000000����";
mes "����Ȃ���B";
next;
mes "[�����V��]";
mes "���s���Ă�^FF4040�ԋ��͂��Ȃ�^000000����A";
mes "�ꉞ�����Ēu�����ǁA��ׂ�Ȃ�";
mes "�J�[�h�ƕ���̂ǂ�����������H";
next;
// menu "I changed my mind about this.",CLOSEOUT,
// "The item.",PRIORITYITEM,
// "The cards.",PRIORITYCARD;
menu "����Ȃ��߂܂��B",CLOSEOUT,
"����̕�����ł��B",PRIORITYITEM,
"�J�[�h�̕�����ł�",PRIORITYCARD;
PRIORITYITEM:
set @failtype,1;
goto REMOVECARD;
PRIORITYCARD:
set @failtype,2;
goto REMOVECARD;
REMOVECARD:
// mes "[Wise Old Woman]";
// mes "Very well. I shall begin.";
mes "[�����V��]";
mes "�悵�A�n�߂��B";
next;
if((zeny < (200000+(@cardcount * 25000))) || (countitem(1000) < 1) || (countitem(715) < 1)) goto DENYMATERIAL;
set zeny,zeny - (200000+(@cardcount * 25000));
delitem 1000,1;
delitem 715,1;
// Replace the constants in the next 3 lines with failure chance values defined in refine_db.txt
// First value = Total failure chance (item and cards destroyed)
// Second value = Partial failure chance (one or the other is destroyed, player decides which one is safe)
// Third value = Harmless failure chance (all that's lost is your investment)
set @failchance,rand(100);
if(@failchance < 2) goto FAILREMOVECARD0;
if((@failchance < 6) && (@failtype == 1)) goto FAILREMOVECARD1;
if((@failchance < 6) && (@failtype == 2)) goto FAILREMOVECARD2;
if(@failchance < 10) goto FAILREMOVECARD3;
successremovecards @part;
// mes "[Wise Old Woman]";
// mes "The process was a success. Here are your cards and your item. Farewell.";
mes "[�����V��]";
mes "���܂���������B";
mes "����炪����ƃA�C�e�����B���Ⴀ�ˁB";
close;
FAILREMOVECARD0:
// mes "[Wise Old Woman]";
// mes "The process was a total failure. I am afraid the item and the cards were destroyed.";
mes "[�����V��]";
mes "�c�O�����NJ��S�Ɏ��s������B";
mes "������J�[�h�����Ă��܂����B";
failedremovecards @part,0;
close;
FAILREMOVECARD1:
// mes "[Wise Old Woman]";
// mes "While I have managed to remove the cards from the item, they were destroyed in the process. The item, however, is okay.";
mes "[�����V��]";
mes "�撣�������ǂˁA";
mes "�J�[�h�̂ق��͑S�����Ă��܂�����B";
mes "�ł�����̕��͖�����������B";
failedremovecards @part,1;
close;
FAILREMOVECARD2:
// mes "[Wise Old Woman]";
// mes "Most unfortunate. I succeeded at removing the cards, but the item itself was destroyed in the process.";
mes "[�����V��]";
mes "�s�^�������ˁB";
mes "�J�[�h�����O���̂͂��܂�����������";
mes "������Ă��܂�����B";
failedremovecards @part,2;
close;
FAILREMOVECARD3:
// mes "[Wise Old Woman]";
// mes "I have failed to remove the cards. Luckily, however, both the item and the cards are still okay.";
mes "[�����V��]";
mes "�J�[�h�����O���̂Ɏ��s������B";
mes "�ł��A�s�K���̍K�����B";
mes "������J�[�h����������B";
failedremovecards @part,3;
close;
DENYCARDCOUNT:
// mes "[Wise Old Woman]";
// mes "Young one... There are no cards compounded on this item. I can do nothing with it, I'm afraid.";
mes "[�����V��]";
mes "�Ⴂ�́A�J�[�h�����ĂȂ���B";
mes "���ꂶ��A�^�V�̏o�Ԃ͂Ȃ����B";
close;
DENYMATERIAL:
// mes "[Wise Old Woman]";
// mes "You do not have all the items I require to work my magic, child. Come again when you do.";
mes "[�����V��]";
mes "�K�v�ȃA�C�e��������Ȃ��悤���ˁB";
mes "�A�C�e���𑵂��Ă�����x���ȁB";
close;
CLOSEOUT:
// mes "[Wise Old Woman]";
// mes "Very well. Return at once if you seek my services.";
mes "[�����V��]";
mes "�킩������B";
mes "�A�^�V�̗͂��K�v�Ȃ炢�ł����ȁB";
close;
}