SA-MP Forums

Go Back   SA-MP Forums > Non-English > Languages > Português/Portuguese > Lançamentos/Releases

Reply
 
Thread Tools Display Modes
Old 28/12/2012, 10:16 PM   #1
Don_Speed
High-roller
 
Don_Speed's Avatar
 
Join Date: Sep 2011
Location: Curitiba / PR
Posts: 3,254
Reputation: 256
Default Bank Systen

Ola!
Estou postando um sistema de banco diferente.
Você deve estar se perguntando , difetente
Yeah. Você pode tem quantas contas quizer , fora que podes compartilhar ela com os amigos.

Imagens \/

http://img194.imageshack.us/img194/1908/informaao.png

http://imageshack.us/photo/my-images/37/samp023np.png/

http://imageshack.us/photo/my-images/845/samp021eq.png/

http://imageshack.us/photo/my-images/703/samp022qp.png/

Possui apenas 1 comando , que e o de /abrirbanco.

No dialog menu tem a opção de pedir informaçoes , que ira enviar um email para o email que você colocará.


Ele salvo o arquivo do banco na pasta banco , em formato ini.

Creditos
DonSpeed
E ao criador da include mailer , e ao JonathanFeitosa por upar o arquivo para enviar o email.



CODE:
pawn Code:
#include             a_samp
#include             DOF2
#include             zcmd
#include             sscanf2
#include             a_http
#include             mailer

#define              LocalSalvo                                    "Banco/%i.ini"

#define              DIALOG_ENTRADA                                           10
#define              DIALOG_SEG                                               20
#define              DIALOG_CRIA                                              40
#define              DIALOG_CS                                                50
#define              DIALOG_INFO                                              60
#define              DIALOG_MENU                                              70
#define              DIALOG_TRANSF                                            80
#define              DIALOG_PQ                                                90
#define              DIALOG_INFT                                              100
#define              DIALOG_EMAIL                                             110
#define              DIALOG_SAQUE                                             120
#define              DIALOG_DEPOSITO                                          130

enum pCont
{
     pSenha[50],
     pGrana
}
new ContaInfo[MAX_PLAYERS][pCont];

new conta[MAX_PLAYERS],
    senha[MAX_PLAYERS],
    Arquivos[50],
    Don[100],
    idt[MAX_PLAYERS];

public OnFilterScriptInit()return 1;
public OnFilterScriptExit()return 1;
public OnDialogResponse(playerid, dialogid, response, listitem, inputtext[])
{
    switch(dialogid)
    {
         case DIALOG_ENTRADA:
         {
              if(!response)return ShowPlayerDialog(playerid, DIALOG_CRIA, DIALOG_STYLE_INPUT, "Banco", "Digite um numero para sua conta do banco!", "Continuar", "");
              if(!strval(inputtext))return ShowPlayerDialog(playerid, DIALOG_ENTRADA, DIALOG_STYLE_INPUT, "Banco", "Erro!\nSo numeros\nDigite o numero da sua conta:", "Continuar", "Criar conta");
              format(Arquivos, sizeof(Arquivos),LocalSalvo, strval(inputtext));
              if(!DOF2_FileExists(Arquivos))return SendClientMessage(playerid, GetPlayerColor(playerid),"-!- Este numero de conta e inexistente!");
              conta[playerid] = strval(inputtext);
              ShowPlayerDialog(playerid, DIALOG_SEG, DIALOG_STYLE_INPUT, "Banco", "Digite a senha da conta:", "Continuar", "");
         }
         case DIALOG_SEG:
         {
              format(Arquivos, sizeof(Arquivos),LocalSalvo, conta[playerid]);
              if(strcmp(inputtext, DOF2_GetString(Arquivos,"Senha")))
              {
                  ShowPlayerDialog(playerid, DIALOG_MENU, DIALOG_STYLE_LIST, "Banco", "Saque\nDeposito\nTransferencia\nPedir informaçao", "Continuar", "Fechar");
                  ContaInfo[playerid][pGrana] = DOF2_GetInt(Arquivos,"Grana");
                  senha[playerid] = strval(inputtext);
                  SendClientMessage(playerid, -1,"-!- Logado");
              }
              else SendClientMessage(playerid, GetPlayerColor(playerid),"-!- Senha Errada");
         }
         case DIALOG_CRIA:
         {
              if(!response)return true;
              if(!strval(inputtext))return ShowPlayerDialog(playerid, DIALOG_CRIA, DIALOG_STYLE_INPUT, "Banco", "ERRO!\nSo numeros na conta \n\n\nDigite um numero para sua conta do banco!", "Continuar", "");
              format(Arquivos, sizeof(Arquivos),LocalSalvo, strval(inputtext));
              if(DOF2_FileExists(Arquivos)) {
              ShowPlayerDialog(playerid, DIALOG_CRIA, DIALOG_STYLE_INPUT, "Banco", "ERRO!\nConta existente!\n\n\nDigite um numero para sua conta do banco!", "Continuar", "");
              }else{
              ShowPlayerDialog(playerid, DIALOG_CS, DIALOG_STYLE_INPUT, "Banco", "Digite um numero para sua senha do banco!", "Continuar", "");
              conta[playerid] = strval(inputtext);
              }
         }
         case DIALOG_CS:
         {
              if(!response)return true;
              if(!strval(inputtext))return ShowPlayerDialog(playerid, DIALOG_CS, DIALOG_STYLE_INPUT, "Banco", "ERRO!\nSo numeros\n\n\nDigite um numero para sua senha do banco!", "Continuar", "");
              senha[playerid] = strval(inputtext);
              CriarBank(playerid, conta[playerid], senha[playerid]);
              format(Don,sizeof(Don),"Conta criada com sucesso!\nNumero da conta: %i\nSenha da conta: %i\n\n\nAtenciosamente BOT",conta[playerid],senha[playerid]);
              ShowPlayerDialog(playerid, DIALOG_INFO, DIALOG_STYLE_MSGBOX, "Banco", Don, "Close", "");
         }
         case DIALOG_MENU:
         {
              if(!response)return true;
              switch(listitem)
              {
                     case 0:ShowPlayerDialog(playerid,DIALOG_SAQUE, DIALOG_STYLE_INPUT, "Saque", "Entre com a quantidade de dinhairo a sacar!", "Continuar", "Fechar");
                     case 1:ShowPlayerDialog(playerid,DIALOG_DEPOSITO, DIALOG_STYLE_INPUT, "Deposito", "Entre com o valor para deposito!", "Continuar", "Fechar");
                     case 2:ShowPlayerDialog(playerid,DIALOG_TRANSF, DIALOG_STYLE_INPUT, "Transferencia", "Entre com o numero da conta destinada a transferencia!", "Continuar", "Fechar");
                     case 3:ShowPlayerDialog(playerid,DIALOG_EMAIL, DIALOG_STYLE_INPUT, "Pedido", "Informaçoes para email.\nDigite o email abaixo", "Continuar", "Fechar");
              }
         }
         case DIALOG_TRANSF:
         {
              if(!response)return true;
              if(!strval(inputtext))return ShowPlayerDialog(playerid,DIALOG_TRANSF, DIALOG_STYLE_INPUT, "Transferencia", "Entre com o numero da conta destinada a transferencia!", "Continuar", "Fechar");
              format(Arquivos, sizeof(Arquivos),LocalSalvo, strval(inputtext));
              if(DOF2_FileExists(Arquivos))
              {
                   idt[playerid] = strval(inputtext);
                   ShowPlayerDialog(playerid,DIALOG_PQ, DIALOG_STYLE_INPUT, "Transferencia", "Entre com o valor da tranferencia!", "Continuar", "Fechar");

              }else SendClientMessage(playerid,GetPlayerColor(playerid),"-!-Conta inexistente.");
         }
         case DIALOG_PQ:
         {
              if(!response)return true;
              format(Arquivos, sizeof(Arquivos),LocalSalvo, idt[playerid]);
              DOF2_SetInt(Arquivos, "Grana", DOF2_GetInt(Arquivos, "Grana")+strval(inputtext));
              ContaInfo[playerid][pGrana] -= strval(inputtext);
              format(Don,sizeof(Don),"Voce tranferiu %i\nPara a conta %i\nsua conta possui %i.",strval(inputtext),idt[playerid],ContaInfo[playerid][pGrana]);
              ShowPlayerDialog(playerid, DIALOG_INFT, DIALOG_STYLE_MSGBOX, "Transferencia", Don, "Close", "");
         }
         case DIALOG_EMAIL:
         {
              if(!response)return true;
              /*new String[100], SS[100];
              format(Don,sizeof(Don),"%s", inputtext);
              format(String,sizeof(String),"Conta: %i", conta[playerid]);
              format(Arquivos, sizeof(Arquivos),LocalSalvo, idt[playerid]);
              format(SS,sizeof(SS),"Informaçoes conta %i\nCriador da Conta:%s\nSenha: %i\nGrana: %i", conta[playerid], DOF2_GetString(Arquivos,"Criador"), senha[playerid], ContaInfo[playerid][pGrana]);
              EnviarEmail(Don, "maurilio_don@hotmail.com", String, String, SS);
              format(Don,sizeof(Don),"Email enviado com sucesso.");
              SendClientMessage(playerid, -1, Don);*/

              SendClientMessage(playerid, -1, "-!- Temporariamente desabilitado!");// FALTA UPAR O CODE
         }
         case DIALOG_SAQUE:
         {
              if(!strval(inputtext))return SendClientMessage(playerid,GetPlayerColor(playerid),"-!- No numeros");
              if(ContaInfo[playerid][pGrana] < strval(inputtext))
              {
                     SendClientMessage(playerid,GetPlayerColor(playerid),"-!-Voce nao tem toda esta grana no banco.");
                     return true;
              }
              ContaInfo[playerid][pGrana] -= strval(inputtext);
              GivePlayerMoney(playerid, strval(inputtext));    // <<<<<<<<<<< Exemplo
              /*AQUI FICARA O CODE PARA ACRESCENTAR DINHEIRO AO PLAYER.... ex: GivePlayerMoney(playerid, +strval(inputtext));*/
              SalvarBanck(playerid, conta[playerid]);
              format(Don,sizeof(Don),"-!- Você fez um saque de %i$.", strval(inputtext));
              SendClientMessage(playerid, -1, Don);
         }
         case DIALOG_DEPOSITO:
         {
              if(!strval(inputtext))return SendClientMessage(playerid,GetPlayerColor(playerid),"-!- No numeros");
              if(GetPlayerMoney(playerid) < strval(inputtext))
              {
                     SendClientMessage(playerid,GetPlayerColor(playerid),"-!-Voce nao tem toda esta grana na mao.");
                     return true;
              }
              ContaInfo[playerid][pGrana] += strval(inputtext);
              SalvarBanck(playerid, conta[playerid]);
              format(Don,sizeof(Don),"-!- Você fez um deposito de %i$", strval(inputtext));
              SendClientMessage(playerid, -1, Don);
         }
         return 1;
}
stock CriarBank(playerid, acount[], password[])
{
    new DName[MAX_PLAYER_NAME]; GetPlayerName(playerid, DName, sizeof(DName));
    format(Arquivos, sizeof(Arquivos),LocalSalvo, acount); DOF2_CreateFile(Arquivos);
    DOF2_SetString(Arquivos, "Senha", password); DOF2_SetString(Arquivos, "Criador", DName);
    DOF2_SetInt(Arquivos, "Grana", ContaInfo[playerid][pGrana]); DOF2_SaveFile();
    return true;
}
stock SalvarBanck(playerid, accporra[])
{
    format(Arquivos, sizeof(Arquivos),LocalSalvo, accporra);
    DOF2_SetInt(Arquivos, "Grana", ContaInfo[playerid][pGrana]); DOF2_SaveFile();
    return true;
}
/*

              C O M A N D O ( S )

*/

command(abrirbanco, playerid, params[])return ShowPlayerDialog(playerid, DIALOG_ENTRADA, DIALOG_STYLE_INPUT, "Banco", "Digite o numero da sua conta:", "Continuar", "Criar conta");

Last edited by Don_Speed; 25/02/2013 at 10:28 PM. Reason: Remoção de CallBacks inutilizadas.
Don_Speed is offline   Reply With Quote
Old 28/12/2012, 10:19 PM   #2
LeMoi
Gangsta
 
LeMoi's Avatar
 
Join Date: Jul 2011
Location: Portugal
Posts: 974
Reputation: 112
Default Re: Bank Systen

Uma das imagens não está a funcionar, de resto parece-me bem, só acho que o comando apenas poderia ser usado ou no banco, ou num ATM
LeMoi is offline   Reply With Quote
Old 28/12/2012, 10:23 PM   #3
Don_Speed
High-roller
 
Don_Speed's Avatar
 
Join Date: Sep 2011
Location: Curitiba / PR
Posts: 3,254
Reputation: 256
Default Re: Bank Systen

Quote:
Originally Posted by TiTaNic View Post
Uma das imagens não está a funcionar, de resto parece-me bem, só acho que o comando apenas poderia ser usado ou no banco, ou num ATM
Corrigido , e vai da pessoa onde ele vai querer restringir!
Don_Speed is offline   Reply With Quote
Old 28/12/2012, 10:27 PM   #4
LeMoi
Gangsta
 
LeMoi's Avatar
 
Join Date: Jul 2011
Location: Portugal
Posts: 974
Reputation: 112
Default Re: Bank Systen

Quote:
Originally Posted by Don_Speed View Post


Corrigido , e vai da pessoa onde ele vai querer restringir!
Obvio, apenas pensei que seria uma boa ideia
LeMoi is offline   Reply With Quote
Old 28/12/2012, 10:36 PM   #5
Delete_
High-roller
 
Delete_'s Avatar
 
Join Date: Mar 2011
Location: Gurupi - TO
Posts: 1,730
Reputation: 110
Default Re: Bank Systen

Ótimo trabalho. Remova as callbacks inutilizáveis.
__________________
Araguaia Roleplay
Delete_ is offline   Reply With Quote
Old 28/12/2012, 10:41 PM   #6
Jumper.
Gangsta
 
Jumper.'s Avatar
 
Join Date: Dec 2011
Location: Brasil - ES/MG
Posts: 581
Reputation: 63
Default Re: Bank Systen

achei inovador, e é isso que estamos precisando aqui no servidor +rep
__________________
"Atividade, elegância e tato. Um olho no peixe, o outro no gato."
Jumper. is offline   Reply With Quote
Old 28/12/2012, 10:42 PM   #7
[NVC]iTrevaS
High-roller
 
[NVC]iTrevaS's Avatar
 
Join Date: Jan 2012
Location: Paraguay - P.J.C
Posts: 1,038
Reputation: 50
Default Respuesta: Bank Systen

Bem legal, ficou inovador
[NVC]iTrevaS is offline   Reply With Quote
Old 28/12/2012, 10:42 PM   #8
lookz
Big Clucker
 
lookz's Avatar
 
Join Date: Nov 2012
Location: Campinas-SP
Posts: 84
Reputation: 15
Default Re: Bank Systen

+REP
__________________

Projetos Lookz MAP

Club-interior-http://forum.sa-mp.com/showthread.php?t=394746
LookCondominio: http://forum.sa-mp.com/showthread.php?t=401009
lookz is offline   Reply With Quote
Old 28/12/2012, 11:40 PM   #9
jpeg
High-roller
 
jpeg's Avatar
 
Join Date: Jul 2012
Posts: 1,050
Reputation: 34
Default Re: Bank Systen

Nada mal, bom trabalho.
__________________
jpeg is offline   Reply With Quote
Old 29/12/2012, 12:27 AM   #10
VenoN
Gangsta
 
VenoN's Avatar
 
Join Date: Aug 2012
Location: California
Posts: 701
Reputation: 53
Default Re: Bank Systen

Nice
VenoN is offline   Reply With Quote
Reply

Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off


Similar Threads
Thread Thread Starter Forum Replies Last Post
[FilterScript] Systen Hospital mau.tito Lançamentos/Releases 25 28/12/2012 08:42 AM
[FilterScript] Anti-Hacker Systen 1.2 HigorOliverr Lançamentos/Releases 37 21/06/2012 03:59 PM
[FilterScript] Systen Hospital v0.1a By:Don_Speed Don_Speed Lançamentos/Releases 13 24/02/2012 09:46 PM
[AJUDA] Gang Systen com GZ Miqueias Barros Português/Portuguese 8 20/07/2011 03:28 PM


All times are GMT. The time now is 03:01 AM.


Powered by vBulletin® Version 3.8.6
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.