NOTICE: If you are a returning member, please reset your password to be able to log in as your old password can no longer be used. Make sure you check your spam/junk mail folder in case the reset consent mail lands there. Additionally, you may not reply to or start new topics outside of the non-archive zone.

Simple Card Remover NPC

Post Reply
User avatar

Topic author
Yandols
Articles:0
Posts:911
Joined:Fri Jul 24, 2009 8:00 am
Location:Rocknarok Town
Contact:

Badges

Simple Card Remover NPC

Post by Yandols » Wed Sep 09, 2009 4:14 am

This is a simple card remover that should be included in all eAthena SVNs that are above the 8k series. I'm just posting it here just incase someone accidentally deletes theirs or don't have the script at all. And if im not mistaken i may have made a few modifications in it but i don't remember.

Name: Card Removal NPC
Default Placement: prontera,163,175
Original author of script: TyrNemesis^
Script:
card_remover.txt
Show

Code: Select all

// Card removal NPC by TyrNemesis^
// DANGEROUS! TODO: Think.. think 8) [Lupus]


prontera,163,175,3scriptWise Old Woman78,{

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?";
next;
menu "Yes, it does.",REMOVEMENU,
     "What do you charge?",REMOVEPRICE,
     "No thanks.",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.";
next;
menu "Very well. Let's do it.",REMOVEMENU,
     "No thanks.",CLOSEOUT;

REMOVEMENU:
mes "[Wise Old Woman]";
mes "Very well. Which item shall I examine for you?";
next;
menu "I changed my mind.",CLOSEOUT,
     getequipname(1),SLOT1,
     getequipname(2),SLOT2,
     getequipname(3),SLOT3,
     getequipname(4),SLOT4,
     getequipname(5),SLOT5,
     getequipname(6),SLOT6,
     getequipname(7),SLOT7,
     getequipname(8),SLOT8,
     getequipname(9),SLOT9,
     getequipname(10),SLOT10;

SLOT1:
set @part,1;
goto CARDNUMCHECK;

SLOT2:
set @part,2;
goto CARDNUMCHECK;

SLOT3:
set @part,3;
goto CARDNUMCHECK;

SLOT4:
set @part,4;
goto CARDNUMCHECK;

SLOT5:
set @part,5;
goto CARDNUMCHECK;

SLOT6:
set @part,6;
goto CARDNUMCHECK;

SLOT7:
set @part,7;
goto CARDNUMCHECK;

SLOT8:
set @part,8;
goto CARDNUMCHECK;

SLOT9:
set @part,9;
goto CARDNUMCHECK;

SLOT10:
set @part,10;
goto CARDNUMCHECK;

CARDNUMCHECK:
if(getequipcardcnt(@part) == 0) goto DENYCARDCOUNT;
set @cardcount,getequipcardcnt(@part);

// Ensure there is room for the items.
if (!checkweight(1202,(@cardcount+1))) { 
mes "^3355FFJust a minute!";
mes "I can't offer any of my";
mes "services to you because";
mes "you're carrying too much";
mes "stuff. Put your extra items in";
mes "Kafra Storage and come again~";
close;
}

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.";
CARDNUMPOSTMSG:
next;
menu "Very well. Do it.",REMOVECARDWARNING,
     "Never mind.",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?";
next;
menu "I changed my mind about this.",CLOSEOUT,
     "The item.",PRIORITYITEM,
     "The cards.",PRIORITYCARD;

PRIORITYITEM:
set @failtype,1;
goto REMOVECARD;

PRIORITYCARD:
set @failtype,2;
goto REMOVECARD;

REMOVECARD:
mes "[Wise Old Woman]";
mes "Very well. I shall begin.";
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 < 8) && (@failtype == 1)) goto FAILREMOVECARD1;
//if((@failchance < 8) && (@failtype == 2)) goto FAILREMOVECARD2;
if(@failchance < 10) goto FAILREMOVECARD3;
successremovecards @part;
next;
mes "[Wise Old Woman]";
mes "The process was a success. Here are your cards and your item. Farewell.";
close;

FAILREMOVECARD0:
failedremovecards @part,0;
next;
mes "[Wise Old Woman]";
mes "The process was a total failure. I am afraid the item and the cards were destroyed.";
close;

FAILREMOVECARD1:
failedremovecards @part,1;
next;
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.";
close;

FAILREMOVECARD2:
failedremovecards @part,2;
next;
mes "[Wise Old Woman]";
mes "Most unfortunate. I succeeded at removing the cards, but the item itself was destroyed in the process.";
close;

FAILREMOVECARD3:
failedremovecards @part,3;
next;
mes "[Wise Old Woman]";
mes "I have failed to remove the cards. Luckily, however, both the item and the cards are still okay.";
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.";
close;

DENYMATERIAL:
next;
mes "[Wise Old Woman]";
mes "You do not have all the items I require to work my magic, child. Come again when you do.";
close;

CLOSEOUT:
mes "[Wise Old Woman]";
mes "Very well. Return at once if you seek my services.";
close;
}

Latest version available at original eAthena SVN: http://svn.eathena.ws/svn/ea/trunk/npc/custom/card_remover.txt
I'm Yandols. The Founder and Head Admin of this place.
Please contact me immediately if you encounter any problems.

User avatar

nopihina
Articles:0
Posts:221
Joined:Fri Sep 04, 2009 8:00 am
Location:Earth, is it correct?
Contact:

Badges

Post by nopihina » Wed Nov 04, 2009 9:08 pm

*deleted DarkSaber's post for spamming*

Retard #1. If you see this, you are Retard #2! Put this at ur sig XD

Post Reply

Return to “Scripter's Zone”