sec_in01.gat,97,157,3    script    Saida [VIP]    10046,{
mes "Deseja voltar para Prontera?";
next;
menu "Não",Nao, "Sim",-;
mes "Tudo Bem";
warp "prontera.gat", 156, 184; close;
Nao:
close;
}
sec_in01,94,176,4    script    Reparador [VIP]    681,{
set .nome$,"[^ff0000Reparador Vip^000000]";
    mes .nome$;
    mes "Pronto, facil ne... Tudo concertado.";
    mes "Volte quando precisar.";
    if (getgmlevel() < 1) goto naovip;
    atcommand "@repairall";
    close;
    naovip:
    mes .nome$;
    mes "A essa não! Você não é VIP!!!";
    close;
}
sec_in01,76,166,6    script    Up de Homunculos [VIP]    10003,{
set .nome$,"[^ff0000Upador de Homunculos Vip^000000]";
if (getgmlevel() < 1) goto naovip;
mes .nome$;
mes "Deseja evoluir seu homunculo?";
menu "- Sim",Sim,"- Nao",-;
close;
Sim:
next;
mes .nome$;
mes "Prontinho... !";
atcommand "@homevolution";
next;
atcommand "@homlvl 300";
close;
naovip:
mes .nome$;
mes "A essa não, você não é VIP.";
close;
}
sec_in01,97,152,1    script    Segurança [VIP]    10069,{
if (getgmlevel() > 1) {
mes(
"[^cc0000Segurança Vip^000000]",
"Você tem autorização para entrar!" );
close;
}
OnTouch:
if (getgmlevel() == 0) {
mes(
"[^cc0000Segurança Vip^000000]",
"Você entrou em uma àrea proibida, saia imediatamente!" );
close2;
warp "prontera",156,191;
}
end;
}
sec_in01.gat,76,169,6    script    Removedor de Cards [VIP]    10038,{
UPGRADEROOT:
    mes "[Removedor Vip]";
    mes "Bom dia, você é o primeiro. Eu tenho o poder de remover cartas que já foram usados nos seus equipamentos. Essa idéia pode ajudá-lo?";
    next;
    menu "Sim, ajudaria muito.",REMOVEMENU,
         "O que você quer em troca?",REMOVEPRICE,
         "Não obrigado.",CLOSEOUT;
REMOVEPRICE:
    mes "[Removedor Vip]";
    mes "Eu preciso de 200000 zeny, mais 25000 zeny para cada carta removida de seus ítens. E adicionalmente, preciso de um Fragmento Estelar e uma Gema Amarela para trabalhar com a minha mágica.";
    next;
    menu "Tudo bem, vamos começar.",REMOVEMENU,
         "Não obrigado.",CLOSEOUT;
REMOVEMENU:
    mes "[Removedor Vip]";
    mes "Tudo bem. Qual ítem quer que eu examine para você?";
    next;
    menu "Deixe-me pensar.",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 "[Removedor Vip]";
    mes "Esse ítem tem " + @cardcount + " uma carta equipado em sí. Para melhorar minha magia, é necessário 225000 zeny, um ^0000FFFragmento Estelar^000000, e uma ^0000FFGema Amarela^000000.";
    goto CARDNUMPOSTMSG;
CARDNUMMULTIMSG:
    mes "[Removedor Vip]";
    mes "Esse ítem tem " + @cardcount + " cards equipado em sí. Para melhorar minha magia, é necessário " + (200000+(@cardcount * 25000)) + " zeny, um ^0000FFFragmento Estelar^000000, e uma ^0000FFGema Amarela^000000.";
CARDNUMPOSTMSG:
    next;
    menu "Ok, estou pronto.",REMOVECARDWARNING,
         "Não, não faça isso.",CLOSEOUT;
REMOVECARDWARNING:
    mes "[Removedor Vip]";
    mes "Dependendo da sua chance, você pode falhar. Se isso acontecer, as cartas serão destruídas, o ítem, tudo. Eu não aceito devolução do seu dinheiro. Tenho uma pergunta, o que é mais importante para você: As cartas, ou os itens?";
    next;
    menu "Quero pensar mais sobre isso.",CLOSEOUT,
         "O ítem.",PRIORITYITEM,
         "As cartas.",PRIORITYCARD;
PRIORITYITEM:
    set @failtype,1;
    goto REMOVECARD;
PRIORITYCARD:
    set @failtype,2;
    goto REMOVECARD;
REMOVECARD:
    mes "[Removedor Vip]";
    mes "Muito bem. Vamos nessa!";
    if((Zeny < (200000+(@cardcount * 25000))) || (countitem(1000) < 1) || (countitem(715) < 1)) goto DENYMATERIAL;
    set Zeny,Zeny - (200000+(@cardcount * 25000));
    delitem 1000,1;
    delitem 715,1;
    set @failchance,rand(100);
//    if(@failchance < 2) goto FAILREMOVECARD0;
//    if((@failchance < 8) && (@failtype == 1)) goto FAILREMOVECARD1;
//    if((@failchance < 8) && (@failtype == 2)) goto FAILREMOVECARD2;
    if(@failchance < 10) goto FAILREMOVECARD3;
    successremovecards @part;
    next;
    mes "[Removedor Vip]";
    mes "O processo foi um grande sucesso. Tome suas cartas e seus ítens.";
    close;
FAILREMOVECARD0:
    failedremovecards @part,0;
    next;
    mes "[Removedor Vip]";
    mes "O processo foi uma falha total. Estou com muita pena, suas cartas e seus ítens foram destruídos.";
    close;
FAILREMOVECARD1:
    failedremovecards @part,1;
    next;
    mes "[Removedor Vip]";
    mes "Eu falhei tentando remover as cartas do seu ítem, suas cartas foram destruídas durante o processo. O ítem, está em perfeito estado.";
    close;
FAILREMOVECARD2:
    failedremovecards @part,2;
    next;
    mes "[Removedor Vip]";
    mes "Menos mal. Eu tive sucesso em remover as cartas, só que o ítem foi destruído no processo.";
    close;
FAILREMOVECARD3:
    failedremovecards @part,3;
    next;
    mes "[Removedor Vip]";
    mes "Eu falhei tentando remover as cartas. Sorte sua, os ítens e as cartas estão perfeitos.";
    close;
DENYCARDCOUNT:
    mes "[Removedor Vip]";
    mes "Meu jovem não há cartas equipadas neste ítem. Não posso trabalhar assim.";
    close;
DENYMATERIAL:
    next;
    mes "[Removedor Vip]";
    mes "Você não tem todos os ítens necessários para a minha mágica, garoto. Volte quando conseguí-los.";
    close;
CLOSEOUT:
    mes "[Removedor Vip]";
    mes "Tudo bem. Volte quando precisar dos meus serviços.";
    close;
}