function<tab>script<tab>Remover<tab>{ set .zenycost,0; // Set base cost in zeny of the card remover services set .percardcost,0; // set cost per card of the card remover services set .faildestroy,0; // Should the card remover have a chance of failure that destroys items? 1 = Yes, 0 = No. set .@iwep,607; // the voucher / scroll item id. 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 "Young one... Your not wearing anything there that I can remove cards from."; getitem .@iwep,1; close; } if(getequipcardcnt(.@part) == 0) { mes "[Wise Old Woman]"; mes "Young one... There are no cards compounded on this item. I can do nothing with it, I'm afraid."; getitem .@iwep,1; close; } set .@cardcount,getequipcardcnt(.@part); if (!checkweight(1202,(.@cardcount+1))) { mes "Check your weight"; mes "Come Back Later"; getitem .@iwep,1; close; } successremovecards .@part; close;}