viewing paste Unknown #46416 | 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
//==================== [ Máquina GetPrize ChallengeRO (c) ] =====================//
//                            Powered by por Ferraz                              //
//                           Idealizado por Romes Jr.                            //
//===============================================================================//
 
prontera,150,150,5      script  Máquina GetPrize       563,{
 
        set .title$,"[^FF0000Máquina GetPrize^000000]";
 
        mes .title$;
        mes "Olá "+strcharinfo(0)", tudo bem?";
        mes "Gostaria de fazer a troca de suas moedas GetPrize?";
        switch(select("Sim, quero.","O que essa Máquina faz?","Não, obrigado!")) {
 
                case 1:
                        mes .title$;
                        mes "Tudo bem então...";
 
                        next;
 
                        mes .title$;
                        mes "Quantas trocas você deseja realizar?";
 
                        next;
 
                        input .@qnt;
 
                        mes .title$;
                        mes "Certo... serão "+.@qnt+" trocas.";
 
                        next;
 
                        mes .title$;
                        mes "Tem certeza que deseja realizar esta ação?";
                        switch(select("Sim, tenho!","Não, volto depois...")) {
                                case 1:
                                        mes .title$;
 
                                        if(countitem(.@moeda[.@s]) < .@calculo){
                                                mes "Você não tem ^FF0000"+getitemname(.@moeda[.@s])+"^000000 suficientes para a troca.";
                                                close;
                                        }
 
                                        callfunc "getprize";
                                        mes "Certo...";
                                        mes "Até mais então.";
                                        close;
 
                                case 2:
                                        mes .title$;
                                        mes "Tudo bem então, estarei aqui quando precisar.";
                                        close;
                        }
 
                case 2:
                        mes .title$;
                        mes "Na Máquina GetPrize você troca moedas por itens aleatórios,";
                        mes "você pode ganhar moedas votando no servidor e trocando no npc Vote Points";
                        mes .title$;
                        mes "Você pode ganhar:";
                        mes "^000FFF[+]^000000 ^FF00001000^000000 Moedas Poring";
                        mes "^000FFF[+]^000000 ^FF00001^000000 Caixa de Yggdrasil";
                        mes "^000FFF[+]^000000 ^FF000050^000000 Aloe Vera";
                        mes "^000FFF[+]^000000 ^FF000050^000000 Caixa do Trovão";
                        mes "^000FFF[+]^000000 ^FF000050^000000 Caixa da Escuridão";
                        mes "^000FFF[+]^000000 ^FF0000[10]^000000 Pergaminho de Bênção";
                        mes "^000FFF[+]^000000 ^FF0000[10]^000000 Pergaminho de Aumentar Agilidade";
                        mes "^000FFF[+]^000000 ^FF0000[10]^000000 Espelho Convexo";
                        mes "^000FFF[+]^000000 ^FF0000[10]^000000 Língua no Vapor";
                        mes "^000FFF[+]^000000 ^FF0000[10]^000000 Escorpiões do Deserto no Vapor";
                        mes "^000FFF[+]^000000 ^FF0000[10]^000000 Cozido Imortal";
                        mes "^000FFF[+]^000000 ^FF0000[10]^000000 Coquetel Sopro do Dragão";
                        mes "^000FFF[+]^000000 ^FF0000[10]^000000 Tônico de Hwergelmir";
                        mes "^000FFF[+]^000000 ^FF0000[10]^000000 Nove Caudas Cozidas";
                        mes "^000FFF[+]^000000 ^FF000020^000000 Pudim de Guyak";
                        mes "^000FFF[+]^000000 ^FF00001^000000 Goma de Mascar";
                        mes "^000FFF[+]^000000 ^FF00001^000000 Dinheiro 50kk";
                        mes "^000FFF[+]^000000 ^FF00001^000000 Vale VIP [1] DIA"; // faltando
                        mes "^000FFF[+]^000000 ^FF00001^000000 Vale Visual"; // faltando
                        mes "^000FFF[+]^000000 ^FF00001^000000 Vale Cash [1.000]"; // faltando
                        close;
 
                case 3:
                        mes .title$;
                        mes "Tudo bem então, estarei aqui quando precisar.";
                        close;
        }
}
 
function        script  getprize        {
 
        setarray @id[0], 7539, 25002, 606, 12028, 12029, 12913, 12914, 12912, 12903, 12090, 12085, 12905, 12906, 12907, 12710, 12210, 27005;   /* I dos premios que podem ser obtido.*/
        setarray @qn[0], 1000, 1, 50, 50, 50, 1, 1, 1, 1, 10, 10, 1, 1, 1, 20, 1, 1;    /* Quantidade ganha.*/
        setarray @pt[0], 30, 25, 25, 15, 15, 9, 9, 9, 9, 9, 9, 9, 9, 9, 8, 5, 5;   /* Porcentagem de chance para obter o item. (1 = 1% - 10 = 10% - 100 = 100%)*/
        setarray @rops[0], 1000;   /* I dos premios que podem ser obtido.*/
        setarray @ropsc[0], 1;   /* I dos premios que podem ser obtido.*/
 
        if (!checkweight2(@id[0],@qn[0])) {
                mes "Você está muito pesado, não posso fazer a troca pois os itens irão cair no chão!";
                close;
        }
 
        for(set @i,0; @i < getarraysize(@id);set @i,@i+1) {
                if(@pt[@i] >= Rand(100)) {
                        delitem 671,.@qnt;
                        getitem @id[@i],@qn[@i];
                        end;
                }
        }
 
        for(set @i,0; @i < getarraysize(@rops);set @i,@i+1) {
                if(@ropsc[@i] >= Rand(100)) {
                        set #CASHPOINTS,#CASHPOINTS+@rops;
                        end;
                }
        }
 
        if (checkweight(27005,1)) {
                getitem 27005,1;
        } else {
                mes "Você está muito pesado, não posso fazer a troca pois os itens irão cair no chão!";
                close;
        }
}
Viewed 690 times, submitted by unknown.