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 1097 times, submitted by greenboxal.