viewing paste Unknown #44286 | Text

Posted on the
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200
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;
}
Viewed 546 times, submitted by unknown.