// Card remover
// Version 1.5
// Translated in russian by Diviatrix
//======================================================================
// Set The third Variable to 0 or 1
// 0 == Perfect Uncard No breaking
// 1 == Failing Allowed
//======================================================================
// Set the Fifth variable to 0 or 1
// 0 == No item cost
// 1 == Item Cost included
//======================================================================
// after Crder the arrangement is
// "Crder",flat fee,Price per card,Failling Allowed,Npc Name,item cost,Item1,Item1 Requirement,Item2,Item2 Requirement;
new_zone02,182,183,3    script    Card Remover::crd001    73,{
  callfunc "Crder",2000,250,0,"Chantal",0,1000,1,715,1;
}
prt_in,28,73,4    script    ������::crd002    73,{
  callfunc "Crder",2000,250,1,"Andrea",1,1000,1,715,1;
}
function    script    Crder    {
  mes "["+getarg(3)+"]";
  mes "������ ����. � ���� ���� ����������� ����������� ����� �� �����. ���� �� ��������� ����� ������?";
  next;
  if(select("��:������� �����?:��� �������")==3)close;
   if(@menu==1){
  Start:
   mes "["+getarg(3)+"]";
   mes "����� ������. �� ����� ���� ����� �����������?";
   next;
   set .@temp$,"";
   for(set .@i,0; .@i<10; set .@i,.@i+1){
   set .@temp$,.@temp$+((getequipisequiped(.@i)&&getequipcardcnt(.@i)>=1)?getequipname(.@i):"")+":";}
    if(.@temp$=="::::::::::"){
     next;
     mes "�� ���� ������ �� �����";
     mes "����������� �����";
     close;
    }
    menu .@temp$,L_remove,"������..",-;
    close;
   }else{
   mes "["+getarg(3)+"]";
   if(getarg(4)==1){ mes "���� ����������� ^FF0000"+getarg(6)+" "+getitemname(getarg(5))+"^000000 � ^FF0000"+getarg(8)+" "+getitemname(getarg(7))+"^000000.";}
   mes "� ���� ^0000FF"+getarg(0)+"^000000 ����, ���� ^0000FF"+getarg(1)+"^000000 �� ������ �����.";
   next;
   if(select("������� ���:���, �������")==2)close;
   goto Start;
   }
L_remove:
  set .@part,@menu-1;
  set .@cardcount,getequipcardcnt(.@part);
  // Ensure there is room for the items.
  if(!checkweight(1202,(.@cardcount+1))){  
   mes "^3355FF������ �������!";
   mes "�� �� ������ ���������������";
   mes "����� �������� ������ ���";
   mes "���� ��������� ����������";
   close;
  }
  mes "["+getarg(3)+"]";
  mes "� ���� ���� ^FF0000"+.@cardcount+" ����"+((.@cardcount>1)?"s":"")+"^000000 ���������. ����� ��� ����� ���������, ��� ����� ^FF0000"+(getarg(0)+(.@cardcount * getarg(1)))+"^000000 ����"+((getarg(4)==1)?",^0000FF"+getarg(6)+" "+getitemname(getarg(5))+"^000000 � ^0000FF"+getarg(8)+" "+getitemname(getarg(7))+"^000000":"")+".";
  next;
  if(select("����:������..")==2)close;
   mes "["+getarg(3)+"]";
   mes "����� ������. ������� �����.";
   if(getarg(2)==1){
    mes "��� ����� �����? ����� ��� ����?";
    if(select("�����:����:������")==3)close;
    set .@failtype,((@menu==1)?1:2);
   }
   if(zeny <getarg(0)+(.@cardcount*getarg(1))||(getarg(4)==1&&(countitem(getarg(5))<1||countitem(getarg(7))<1))){
    next;
    mes "["+getarg(3)+"]";
    mes "� �� ������� �� ���������";
    close;}
   set zeny,zeny - getarg(0)+(.@cardcount*getarg(1));
   if(getarg(4)==1){
    delitem getarg(5),getarg(6);
    delitem getarg(7),getarg(8);}
   if(getarg(2)==1){
    set .@failchance,rand(100);
     if(.@failchance<2){
      failedremovecards .@part,0;
      next;
      mes "["+getarg(3)+"]";
      mes "����.. ������ �� ����������.. �������.";
      close;
     }
     if(.@failchance<8){
      failedremovecards .@part,((.@failtype==1)?1:2);
      next;
      mes "["+getarg(3)+"]";
      mes "��� ��������. ����� ���������� �� "+((.@failtype==1)?"���� �������, Here's your item":"���� ����������.. ������ �����")+".";
      close;
     }
     if(.@failchance<10){
      failedremovecards .@part,3;
      next;
      mes "["+getarg(3)+"]";
      mes "��� �� ������� �������� �����, �� ���� �������, ������ � ����� � �������.";
      close;
     }
   }
   successremovecards .@part;
   next;
   mes "["+getarg(3)+"]";
   mes "�� ����������! ����� ����� � ����.";
   close;
}