Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- // http://www.emistry.net/board/index.php?threads/card-remover.553/
- prt_in,31,103,4 script Card Remover#eAcustom 108,{
- set .itemid,7539; // required item
- set .cost,1; // required amount
- mes "[Card Remover]";
- 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;
- switch(select("Yes, it does.:No thanks.")) {
- case 1:
- mes "[Card Remover]";
- mes "Very well. Which item shall I examine for you?";
- next;
- setarray .@position$[1], "Head","Body","Left hand","Right hand","Robe","Shoes","Accessory 1","Accessory 2","Head 2","Head 3";
- set .@menu$,"";
- for( set .@i,1; .@i <= 10; set .@i,.@i+1 )
- {
- if( getequipisequiped(.@i) )
- set .@menu$, .@menu$ + .@position$[.@i] + "-" + "[" + getequipname(.@i) + "]";
- set .@menu$, .@menu$ + ":";
- }
- set .@part,select(.@menu$);
- if(!getequipisequiped(.@part)) {
- mes "[Card Remover]";
- mes "Young one... Your not wearing anything there that I can remove cards from.";
- close;
- }
- if(getequipcardcnt(.@part) == 0) {
- mes "[Card Remover]";
- mes "Young one... There are no cards compounded on this item. I can do nothing with it, I'm afraid.";
- close;
- }
- set .@cardcount,getequipcardcnt(.@part);
- 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;
- }
- mes "[Card Remover]";
- mes "This item has " + .@cardcount + " cards compounded on it. To perform my magic, I will need " + (.zenycost+(.@cardcount * .percardcost)) + " zeny, a ^0000FFStar Crumb^000000, and a ^0000FFYellow Gemstone^000000.";
- next;
- .@option = select("Give it a try ! "+.cost+" x "+getitemname( .itemid )+"^000000 ");
- if( countitem( .itemid ) < .cost ) {
- mes "[Card Remover]";
- mes "You do not have all the items I require to work my magic, child. Come again when you do.";
- close;
- }
- mes "[Card Remover]";
- mes "Very well. I shall begin.";
- delitem .itemid,.cost;
- successremovecards .@part;
- mes "[Card Remover]";
- mes "The process was a success. Here are your cards and your item. Farewell.";
- close;
- default:
- mes "[Card Remover]";
- mes "Very well. Return at once if you seek my services.";
- close;
- }
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement