npc_card_remover.txt

传奇3源程序, 用vc开发的

// Card removal NPC by TyrNemesis^ 擔杮岅栿丗層挶棖
prt_in.gat,28,73,4	script	尗偄榁彈	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 "[尗偄榁彈]";
	mes "偄偄揤婥偩偹丄庒偄偺丅";
	mes "偲偙傠偱丄傾僞僔偼晲嬶偵憰拝偟偰偄傞";
	mes "僇乕僪傪庢傝奜偡椡傪帩偭偰偄傞偗偳丄";
	mes "椡傪戄偦偆偐偹丠";
	next;
//	menu "Yes, it does.",REMOVEMENU,
//	     "What do you charge?",REMOVEPRICE,
//	     "No thanks.",CLOSEOUT;
	menu "偍婅偄偟傑偡丅",REMOVEMENU,
	     "偄偔傜偐偐傞傫偱偡偐丠",REMOVEPRICE,
	     "昁梫側偄偱偡丅",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 "[尗偄榁彈]";
	mes "偦偆偩偹丄";
	mes "傑偢婎杮椏嬥偲偟偰^4040FF200000z^000000丅";
	mes "偦偟偰僇乕僪侾枃偵偮偒^4040FF25000z^000000栣偆傛丅";
	mes "偁偲偼丄杺朄傪巊偆偨傔偵^4040FF惎偺偐偗傜^000000偲";
	mes "^4040FF僀僄儘乕僕僃儉僗僩乕儞^000000偑侾偮偢偮昁梫偩傛丅";
	next;
//	menu "Very well. Let's do it.",REMOVEMENU,
//	     "No thanks.",CLOSEOUT;
	menu "偍婅偄偟傑偡丅",REMOVEMENU,
	     "昁梫側偄偱偡丅",CLOSEOUT;

REMOVEMENU:
//	mes "[Wise Old Woman]";
//	mes "Very well. Which item shall I examine for you?";
	mes "[尗偄榁彈]";
	mes "傛偟傛偟丅";
	mes "偳偺晲嬶偺僇乕僪傪庢傝奜偡傫偩偹丠";
	next;
//	menu "I changed my mind.",CLOSEOUT,
	menu "傗偭傁傝傗傔傑偡丅",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 "[尗偄榁彈]";
	mes "偙偺晲嬶偵偼" + @cardcount + "偮僇乕僪偑偮偄偰傞偹丅";
	mes "^0000FF" + (200000+(@cardcount * 25000)) + "z^000000偲^0000FF惎偺偐偗傜^000000偲^0000FF僀僄儘乕僕僃儉僗僩乕儞^000000偑昁梫偩傛丅";
//CARDNUMPOSTMSG:
	next;
//	menu "Very well. Do it.",REMOVECARDWARNING,
//	     "Never mind.",CLOSEOUT;
	menu "傢偐傝傑偟偨丄偍婅偄偟傑偡丅",REMOVECARDWARNING,
	     "傗偭傁傝傗傔傑偡丅",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 "[尗偄榁彈]";
	mes "偍偭偲尵偄朰傟傞偲偙傠偩偭偨偹丅";
	mes "偙偺杺朄偼偲偰傕擄偟偄偐傜丄";
	mes "^FF4040幐攕偡傞偐傕偟傟側偄^000000偺偝丅";
	mes "幐攕偟偨傜僇乕僪偐晲嬶丄偁傞偄偼";
	mes "偦偺椉曽偑^FF4040攋夡偝傟偰偟傑偆^000000偐傕";
	mes "偟傟側偄傫偩傛丅";
	next;
	mes "[尗偄榁彈]";
	mes "幐攕偟偰傕^FF4040曉嬥偼偟側偄^000000偐傜丄";
	mes "堦墳暦偄偰抲偔偗偳丄斾傋傞側傜";
	mes "僇乕僪偲晲嬶偺偳偭偪偑戝愗偩偄丠";
	next;
//	menu "I changed my mind about this.",CLOSEOUT,
//	     "The item.",PRIORITYITEM,
//	     "The cards.",PRIORITYCARD;
	menu "偦傟側傜傗傔傑偡丅",CLOSEOUT,
	     "晲嬶偺曽偑戝愗偱偡丅",PRIORITYITEM,
	     "僇乕僪偺曽偑戝愗偱偡",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 "[尗偄榁彈]";
	mes "傛偟丄巒傔傞傛丅";
	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 "[尗偄榁彈]";
	mes "偆傑偔偄偭偨傛丅";
	mes "偙傟傜偑晲嬶偲傾僀僥儉偝丅偠傖偁偹丅";
	close;

FAILREMOVECARD0:
//	mes "[Wise Old Woman]";
//	mes "The process was a total failure. I am afraid the item and the cards were destroyed.";
	mes "[尗偄榁彈]";
	mes "巆擮偩偗偳姰慡偵幐攕偟偨傛丅";
	mes "晲嬶傕僇乕僪傕夡傟偰偟傑偭偨丅";
	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 "[尗偄榁彈]";
	mes "婃挘偭偨偗偳偹丄";
	mes "僇乕僪偺傎偆偼慡晹夡傟偰偟傑偭偨傛丅";
	mes "偱傕晲嬶偺曽偼柍帠偩偭偨傛丅";
	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 "[尗偄榁彈]";
	mes "晄塣偩偭偨偹丅";
	mes "僇乕僪傪庢傝奜偡偺偼偆傑偔偄偭偨偗偳";
	mes "晲嬶偑夡傟偰偟傑偭偨傛丅";
	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 "[尗偄榁彈]";
	mes "僇乕僪傪庢傝奜偡偺偵幐攕偟偨傛丅";
	mes "偱傕丄晄岾拞偺岾偄偝丅";
	mes "晲嬶傕僇乕僪傕柍帠偩傛丅";
	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 "[尗偄榁彈]";
	mes "庒偄偺丄僇乕僪偑偮偄偰側偄傛丅";
	mes "偦傟偠傖傾僞僔偺弌斣偼側偄偝丅";
	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 "[尗偄榁彈]";
	mes "昁梫側傾僀僥儉偑懌傝側偄傛偆偩偹丅";
	mes "傾僀僥儉傪懙偊偰傕偆堦搙棃側丅";
	close;

CLOSEOUT:
//	mes "[Wise Old Woman]";
//	mes "Very well. Return at once if you seek my services.";
	mes "[尗偄榁彈]";
	mes "傢偐偭偨傛丅";
	mes "傾僞僔偺椡偑昁梫側傜偄偮偱傕棃側丅";
	close;

}