// .----------------------------------------------------------.
// . SoulBlaker Scripts Apresenta: .
// .	 ___________________ .
// .	 / _____/\______ \ .
// .	 \_____ \ | | _/	 .
// .	 / \ | | \	 .
// .	 /_______ / |______ /	 .
// .	 \/ \/	 .
// . [ eAthena Advanced Scripts ] .
// .	 v1.0 .
// .----------------------------------------------------------.
// ; http://www.eathena.ws/board/SoulBlaker-m271867.html ;
// .----------------------------------------------------------.
// . Script: .
// . Removedora de Cartas .
// .----------------------------------------------------------.
// . Por: SoulBlaker Comp?tivel: eAthena SVN	 vers?o: 1.1 .
// .----------------------------------------------------------.
// . Descri??o: .
// . Remove Cartas do Personagem .
// .----------------------------------------------------------.
// . Changelog da Vers?o: .
// . - 1.0 Iniciado o NPC. [SoulBlaker]	 .
// *----------------------------------------------------------*
prontera,140,164,5	script	Removedora de Cartas#c_1	4_F_KHELLY,{

set .@Price, 320000;
set .@PriceCard, 20000;

mes "^FF0000[Removedora de Cartas]^000000";
mes "Bom dia "+strcharinfo(0)+" ";
mes "tenho o poder de retirar cartas de equipamentos.";
mes "Esta ideia te agrada?";
next;
if( select("- Sim, bastante.","- Não, nenhum pouco.") == 2 )
{
mes "^FF0000[Removedora de Cartas]^000000";
mes "Muito bem, volte quando desejar remover suas cartas.";
close;
}

mes "^FF0000[Removedora de Cartas]^000000";
mes "Muito bem, eu preciso de " + .@Price + " Zenys, mais " + .@PriceCard + " Zenys por carta removida.";
mes "Deseja remover uma carta de algum equipamento?";
next;

for( set .@i,1; .@i <= 10; set .@i,.@i+1 )
{
if( getequipisequiped(.@i) )
set .@Choose$, .@Choose$+"- "+getequipname(.@i);

set .@Choose$, .@Choose$+":";
}

set .@Choose$, .@Choose$+":- Cancelar";

set .@Part, select(.@Choose$);

if( .@Part > 10 )
{
mes "^FF0000[Removedora de Cartas]^000000";
mes "Muito bem, volte quando desejar remover suas cartas.";
close;
}

if( getequipcardcnt(.@Part) == 0 )
{
mes "^FF0000[Removedora de Cartas]^000000";
mes "Sinto muito, mais você não tem cartas para remover!";
close;
}

set .@Amount, getequipcardcnt(.@Part);
set .@ZenyCost, (.@PriceCard * .@Amount) + .@Price;

mes "^FF0000[Removedora de Cartas]^000000";
mes "Muito bem, são " + .@Price + " Zenys,";
mes "mais o custo de " + (.@PriceCard * .@Amount ) + " por carta equipada.";
mes "Totalizamos isto em " + .@ZenyCost + " Zenys para remover suas cartas.";
mes "Deseja remover suas cartas?";
next;
if( select("- Sim.","- N?o.") == 2 )
{
mes "^FF0000[Removedora de Cartas]^000000";
mes "Humm... para mim ? um preço bem justo!";
close;
}

if( Zeny < .@ZenyCost )
{
mes "^FF0000[Removedora de Cartas]^000000";
mes "Me desculpe, mais você não tem " + .@ZenyCost + " Zenys.";
close;
}

set Zeny, Zeny - .@ZenyCost;
successremovecards .@Part;

mes "^FF0000[Removedora de Cartas]^000000";
mes "Muito bem, suas cartas foi removida sem nenhum problema.";
close;
}