viewing paste [PTBR] Trade/Drop Securit | Athena

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
-       script  TradeDropSystem -1,{
        mes "[EmpireRO]";
        mes "Bem vindo ao sistema de segurança EmpireRO!";
       
        if (#TDS_Password$ == "") {
                mes "Você não possui nenhuma senha definida em nosso sistema.";
               
retry_setfpass:
                mes "Digite a seguir a senha que deseja ultilizar.";
                next;
               
                input @npassword_1$;
               
                if (@npassword_1$ == "") {
                        mes "[EmpireRO]";
                        mes "Você deve digitar uma senha.";
                        goto retry_setfpass;
                }
               
                mes "[EmpireRO]";
                mes "Confirme a senha que deseja ultilizar.";
                next;
               
                input @npassword_2$;
               
                if (@npassword_1$ == @npassword_2$) {
                        #TDS_Password$ = @npassword_1$;
                        mes "[EmpireRO]";
                        mes "Senha definida com successo!";
                        close2;
                        if (.@unlocktype != -1)
                                empirero_unlocktd(.@unlocktype);
                        end;
                } else {
                        mes "[EmpireRO]";
                        mes "As senhas não coincidem, tente novamente.";
                        next;
                        goto retry_setfpass;
                }
        } else {
                mes "O que deseja?";
                next;
                @what$ = .@unlocktype == 0 ? "trade" : "drop";
                @sel = select("- Liberar " + @what$ + ".:- Alterar senha.:- Cancelar.");
               
                switch (@sel) {
                        case 1:
                                mes "[EmpireRO]";
                                mes "Digite sua senha de trade/drop.";
                                next;
                               
retry_changepwd:
                                input @apassword$;
                               
                                if (@apassword$ != #TDS_Password$) {
                                        mes "[EmpireRO]";
                                        mes "Senha incorreta, tente novamente.";
                                        next;
                                        goto retry_changepwd;
                                }
                       
                                empirero_unlocktd(.@unlocktype);
                                goto thankyou;
                        case 2:
                                mes "[EmpireRO]";
                                mes "Digite sua senha atual.";
                                next;
                               
retry_changepwd2:
                                input @apassword$;
                               
                                if (@apassword$ != #TDS_Password$) {
                                        mes "[EmpireRO]";
                                        mes "Senha incorreta, tente novamente.";
                                        next;
                                        goto retry_changepwd2;
                                }
                               
                                mes "[EmpireRO]";
                                .@unlocktype = -1;
                                goto retry_setfpass;
                        default:
                                goto thankyou;
                }
        }
       
thankyou:
        mes "[EmpireRO]";
        mes "Obrigado por ultilizar nossos serviços!";
        close;
}
Viewed 514 times, submitted by greenboxal.