// 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; }