// Card removal NPC by TyrNemesis^// DANGEROUS! TODO: Think.. think 8) [Lupus]// Edited by KDSG - tradução, sem chance de erro e de graça.// Tradução by Envolventssec_in02,29,183,4   script  Removedora  69,{    if(getgroupid() < 1) goto naovip;   UPGRADEROOT:    mes "[Removedora de Cartas]";   mes "Olá! Você gostaria de remover alguma carta de algum equipamento?";   next;   menu "Claro.",REMOVEMENU,        "O que você quer em troca?",REMOVEPRICE,       "Não, até mais.",CLOSEOUT;REMOVEPRICE:   mes "[Removedora de Cartas]";   mes "Isso não vai lhe custar absolutamente NADA."; next;   menu "Tudo bem, vamos em frente.",REMOVEMENU,        "Não, obrigado.",CLOSEOUT;REMOVEMENU: mes "[Removedora de Cartas]";   mes "Muito bem, que item você quer que eu olhe?";  next;   menu "Nenhum, mudei de idéia.",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);  if(@cardcount > 1) goto CARDNUMMULTIMSG;    mes "[Removedora de Cartas]";   mes "Este item tem " + @cardcount + " carta(s).";   goto CARDNUMPOSTMSG;CARDNUMMULTIMSG:    mes "[Removedora de Cartas]";   mes "Este item tem " + @cardcount + " carta(s).";CARDNUMPOSTMSG:    next;   menu "Ok, faça-o.",REMOVECARDWARNING,       "Deixa pra lá.",CLOSEOUT;REMOVECARDWARNING:   mes "[Removedora de Cartas]";   mes "Antes de começar, há chance de perder ou o item ou a carta, qual é o mais importante?"; next;   menu "Mudei de idéia...",CLOSEOUT,      "O Item.",PRIORITYITEM,         "As cartas.",PRIORITYCARD;PRIORITYITEM:    set @failtype,1;    goto REMOVECARD;PRIORITYCARD:   set @failtype,2;    goto REMOVECARD;REMOVECARD: mes "[Removedora de Cartas]";   mes "Muito bem, vamos começar.";// 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 < 0) goto FAILREMOVECARD0;// if((@failchance < 0) && (@failtype == 1)) goto FAILREMOVECARD1;//   if((@failchance < 0) && (@failtype == 2)) goto FAILREMOVECARD2; if(@failchance < 0) goto FAILREMOVECARD3;   successremovecards @part;   next;   mes "[Removedora de Cartas]";   mes "A operação foi um sucesso, até mais.";  close;FAILREMOVECARD0:  failedremovecards @part,0;  next;   mes "[Removedora de Cartas]";   mes "The process was a total failure. I am afraid the item and the cards were destroyed.";  close;FAILREMOVECARD1:  failedremovecards @part,1;  next;   mes "[Removedora de Cartas]";   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 "[Removedora de Cartas]";   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 "[Removedora de Cartas]";   mes "I have failed to remove the cards. Luckily, however, both the item and the cards are still okay."; close;DENYCARDCOUNT:    mes "[Removedora de Cartas]";   mes "Não há nenhuma carta para ser retirada!";    close;DENYMATERIAL: next;   mes "[Removedora de Cartas]";   mes "You do not have all the items I require to work my magic, child. Come again when you do."; close;CLOSEOUT: mes "[Removedora de Cartas]";   mes "Tudo bem, volte quando precisar."; close;  naovip: mes "[Removedora de Cartas]";   mes "Sinto muito, mas você não é VIP";   close;}