SSGamers - 12 Anos online por você.

#SSGamers - A Comunidade que mais crescer no brasil!

Participe do fórum, é rápido e fácil

SSGamers - 12 Anos online por você.

#SSGamers - A Comunidade que mais crescer no brasil!

SSGamers - 12 Anos online por você.

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
Chegou o novo tema 6.5.5 - SSGamers - Servidores online de qualidade - Aproveite e entre para nossa comunidade, inscreva-se já! - Ouça nossa web radio - Veja nossas novidades - Participe dos nossos setores de jogos online - Parcerias aberta fale já com um administrador.

+2
Rox_Lindo
BяiиquєDσ รcяiρт
6 participantes

    Moedas Verdes v1.0

    BяiиquєDσ รcяiρт
    BяiиquєDσ รcяiρт
    --> Postador Iniciante
    --> Postador Iniciante


    Celular : 2194244332
    Mensagens : 37
    Moedas : 3911
    Data de inscrição : 13/10/2013
    Idade : 28
    Localização : 127.0.0.1

    Moedas Verdes v1.0 Empty Moedas Verdes v1.0

    Mensagem por BяiиquєDσ รcяiρт Ter 15 Out 2013 - 4:43

    Bom, atendendo a pedidos codei esse sistema de moeda secundária bem mais completo... o que nao se acha por ai pra download, pelo menos não de graça rs 

    Vou deixar desde ja explicado que esse codigo, assim como todos de minha autoria não vem mastigadinho pra voce por no seu server. Eu apenas crio tudo que voce precisa para entender como fazer ele funcionar e depois voce adapta ele ao seu servidor. " A mas como assim brinquedo ?" por exemplo as linhas que geram dinheiro no comando /comprardinheiro tem que ser com as infos do seu server para ele salvar o dinheiro comprado na pasta certa e tudo mais... conto com o bom senso de todos.

    Eu particularmente odeio filterscripts, gosto de adptar todos eles ao meu gm para evitar bugs, então fiz esse fs pensando nisso, até pq o gm que eu testei ele é zerado, n tem nada, justamente para testar filterscripts. então sintam-se a vontade e façam o que quiserem.

    Código:
    /* Sistema de Moedas Verdes v1.0 - by BrinqueDo
       Primeira versão do sistema de moeda secundária (Moedas Verdes)
       - Salvamento de moedas para cada usuario em DOF2.
       - Primeiro comando de compra com mv's criados para seguirem o exemplo.
       - Comandos Admin: /darmoedasv - /darmoedasvtodos - /setarmoedasv - /setarmoedasvtodos - /resetarmoedasv logado em rcon
       - Sisteminha simples adicionado na compra para verificar se o usuario tem ou não mv's suficientes para efetuar a compra
       e pode ser usado como exemplo para a criação dos outros comandos.

       Créditos: A idéia de moeda secundária n faço a minima ideia de quem inventou, só atendi a pedidos e criei esse sisteminha mais completo.
       O nome Moedas Verdes foi criado pelo BPF.
       O code aqui contido foi criado do zero inteiramente por mim. Eu autorizo a cópia e alteração dos codes porém com os devidos créditos originais.
       
       Obs. é necessario ter o plugin sscanf.inc dentro da pasta plugins no diretorio do seu servidor, e adicione tambem a linha "plugins sscanf" ao seu server.cfg
       */

    #include <a_samp>
    #include <DOF2>
    #include <zcmd>
    #include <sscanf2>

    //Defines
    #define amarelo 0xFFFF00FF
    #define azul 0x058AFFFF
    #define rosa 0xFF05CDFF
    #define verde 0x33AA33AA
    #define vermelho 0xFFFFFFAA
    #define branco 0xFFFFFFFF
    #define preto 0x000000FF
    #define cinza 0x878787FF
    #define azulclaro 0x03F2FFFF
    #define verdeclaro 0x03FF35FF
    #define roxo 0x7D03FFFF
    #define roxoclaro 0x9A03FFFF
    #define laranja 0xFF7403FF

    //enum's
    enum info
    {
       moedas,
    }
    // News
    new PlayerInfo[MAX_PLAYERS][info];
    new MoedasV[MAX_PLAYERS];
    new ID;
    new PONTOS;
    new Text:Moedas;

    // Forwards
    forward Dinheiro(playerid);

    //Publics
    public OnFilterScriptInit()
    {
       print("\n--------------------------------------");
       print("Sistema de Moedas Verdes - by BrinqueDo");
       print("--------------------------------------\n");
       SetTimer("Dinheiro",1000, 1); // Fica atualizando o numero de moedas
       return 1;
    }

    public OnPlayerConnect(playerid)
    {
       
       new nome[MAX_PLAYER_NAME];
        new arquivo[40];
        GetPlayerName(playerid, nome, 32);
        format(arquivo,sizeof arquivo,"/moedas/%s.txt",GetName(playerid));
        if(DOF2_FileExists(arquivo))
        {
            CarregarConta(playerid);
        }
        else
        {
            CriarConta(playerid);
        }
        return 1;
    }

    public OnPlayerSpawn(playerid)
    {
       TextDrawShowForPlayer(playerid, Moedas);
    }

    public Dinheiro(playerid)
    {
        TextDrawDestroy(Moedas);
        new str[128];
        format(str, 256, "~g~MV~r~:~w~%d", PlayerInfo[playerid][moedas]);
        Moedas = TextDrawCreate(496.000000, 122.000000,str);
        TextDrawBackgroundColor(Moedas, 255);
        TextDrawFont(Moedas, 2);
        TextDrawLetterSize(Moedas, 0.509999, 2.100000);
        TextDrawColor(Moedas, -1);
        TextDrawSetOutline(Moedas, 1);
        TextDrawSetProportional(Moedas, 0);

        for(new i; i < MAX_PLAYERS; i ++)
        {
            if(IsPlayerConnected(i))
            {
                TextDrawHideForPlayer(i, Moedas);
                TextDrawShowForPlayer(i, Moedas);
            }
        }
        return 1;
    }

    public OnPlayerRequestClass(playerid, classid)
    {
       SpawnPlayer(playerid); // E depois disso, ele 'Spawnará'
       return 1;
    }

    public OnPlayerDisconnect(playerid, reason)
    {
        SalvarConta(playerid);
       return 1;
    }

    public OnFilterScriptExit()
    {
        TextDrawHideForAll(Moedas);
        TextDrawDestroy(Moedas);
       DOF2_Exit();
       return 1;
    }


    CMD:moedasv(playerid)
    {
       SendClientMessage(playerid, azul, "Comandos Admin: /darmoedasv - /darmoedasvtodos - /setarmoedasv - /setarmoedasvtodos - /resetarmoedasv");
       SendClientMessage(playerid, azul, "Comandos Player: /comprardinheiro");
       return 1;
    }

    // Comandos Admin

    CMD:darmoedasv(playerid,params[])
    {
        if(!IsPlayerAdmin(playerid)) return SendClientMessage(playerid, cinza, "Você não é administrador !");
        if(sscanf(params, "ud", ID, PONTOS)) return SendClientMessage(playerid, vermelho, "[MOEDAS] Use /darmoedasv [ID][QUANTIDADE]");
        if(!IsPlayerConnected(ID)) return SendClientMessage(playerid, vermelho, "[ERRO] ID invalido");
        PlayerInfo[ID][moedas] = PlayerInfo[ID][moedas] + PONTOS;
       return 1;
    }

    CMD:darmoedasvtodos(playerid,params[])
    {
        if(!IsPlayerAdmin(playerid)) return SendClientMessage(playerid, cinza, "Você não é administrador !");
        if(sscanf(params, "d", PONTOS)) return SendClientMessage(playerid, vermelho, "[MOEDAS] Use /darmoedasvtodos [QUANTIDADE]");
        for(new i = 0; i < MAX_PLAYERS; i++)
       {
          if(IsPlayerConnected(i))
          {
             PlayerInfo[i][moedas] = PlayerInfo[i][moedas] + PONTOS;
          }
       }
       
       return 1;
    }

    CMD:setarmoedasvtodos(playerid,params[])
    {
        if(!IsPlayerAdmin(playerid)) return SendClientMessage(playerid, cinza, "Você não é administrador !");
        if(sscanf(params, "d", PONTOS)) return SendClientMessage(playerid, vermelho, "[MOEDAS] Use /setarmoedasvtodos [QUANTIDADE]");
        for(new i = 0; i < MAX_PLAYERS; i++)
       {
          if(IsPlayerConnected(i))
          {
             PlayerInfo[i][moedas] = PONTOS;
          }
       }

       return 1;
    }

    CMD:setarmoedasv(playerid,params[])
    {
        if(!IsPlayerAdmin(playerid)) return SendClientMessage(playerid, cinza, "Você não é administrador !");
        if(sscanf(params, "ud", ID, PONTOS)) return SendClientMessage(playerid, vermelho, "[MOEDAS] Use /setarmoedasv [ID][QUANTIDADE]");
        if(!IsPlayerConnected(ID)) return SendClientMessage(playerid, vermelho, "[ERRO] ID invalido");
        PlayerInfo[ID][moedas] = PONTOS;
        return 1;
    }

    CMD:resetarmoedasv(playerid,params[])
    {
        if(!IsPlayerAdmin(playerid)) return SendClientMessage(playerid, cinza, "Você não é administrador !");
        if(sscanf(params, "u", ID)) return SendClientMessage(playerid, vermelho, "[MOEDAS] Use /resetarmoedasv [ID]");
        if(!IsPlayerConnected(ID)) return SendClientMessage(playerid, vermelho, "[ERRO] ID invalido");
        PlayerInfo[ID][moedas] = 0;
        return 1;
    }

    // Comandos Player

    CMD:comprardinheiro(playerid,params[])
    {
       new qtd;
        if(sscanf(params, "d", qtd)) return SendClientMessage(playerid, vermelho, "[MOEDAS] Use /comprardinheiro [QUANTIDADE] - 10000 Reais = 10 MV");
        if(qtd < 10000 || qtd > 500000) return SendClientMessage(playerid, vermelho,"Valor mínimo: 10000 Reais - Valor Máximo: 500000 Reais");
        if(qtd/1000 >= PlayerInfo[playerid][moedas]) return SendClientMessage(playerid, vermelho,"Você não tem Moedas Verdes suficientes.");
        PlayerInfo[playerid][moedas] = PlayerInfo[playerid][moedas] - qtd/1000;
        GivePlayerMoney(playerid, qtd);
        return 1;
    }


    // Stocks

    stock GetName(playerid)
    {
       new name[24];
       GetPlayerName(playerid,name,24);
       return name;
    }

    stock CriarConta(playerid)
    {
        new arquivo[36];
       format(arquivo,sizeof arquivo,"/moedas/%s.txt",GetName(playerid));
        DOF2_CreateFile(arquivo);
        DOF2_SetInt(arquivo, "moedas", 0);
        DOF2_SaveFile();
    }

    stock CarregarConta(playerid)
    {
        new arquivo[36];
       format(arquivo,sizeof arquivo,"/moedas/%s.txt",GetName(playerid));
       PlayerInfo[playerid][moedas] = 0;
       PlayerInfo[playerid][moedas] = DOF2_GetInt(arquivo, "moedas");
       

    }

    stock SalvarConta(playerid)
    {
       new arquivo[36];
       format(arquivo,sizeof arquivo,"/moedas/%s.txt",GetName(playerid));
        DOF2_SetInt(arquivo, "moedas", PlayerInfo[playerid][moedas]);
        DOF2_SaveFile();
    }

    stock GetPlayerMoedasV(playerid)
    {
       return MoedasV[playerid];
    }
    pastebin: http://pastebin.com/3QSDP7PC
    Creditos: BrinqueDo



    Servidor de Hard Deathmatch
    IP: px01.carbonhost.com.br:7781
    Venha treinar seu x1 - Sistemas únicos - Vagas abertas



    MINHAS CRIAÇÕES
    Rox_Lindo
    Rox_Lindo
    --> Postador Iniciante
    --> Postador Iniciante


    Celular : 2173701711
    Mensagens : 18
    Moedas : 3867
    Data de inscrição : 02/10/2013

    Moedas Verdes v1.0 Empty Re: Moedas Verdes v1.0

    Mensagem por Rox_Lindo Ter 15 Out 2013 - 5:09

    Muito bom leq, parabéns.



    Moedas Verdes v1.0 Mkdt
    Weslley_Script
    Weslley_Script
    SS - Fundador
    SS - Fundador


    Steam Steam : WeslleySSGames
    Zello : WeslleySSGames
    Mensagens : 11351
    Moedas : 1031858
    Data de inscrição : 06/10/2011
    Idade : 28
    Localização : Brasil

    Moedas Verdes v1.0 Empty Re: Moedas Verdes v1.0

    Mensagem por Weslley_Script Ter 15 Out 2013 - 8:25

    bacana.
    Rox_Lindo
    Rox_Lindo
    --> Postador Iniciante
    --> Postador Iniciante


    Celular : 2173701711
    Mensagens : 18
    Moedas : 3867
    Data de inscrição : 02/10/2013

    Moedas Verdes v1.0 Empty Re: Moedas Verdes v1.0

    Mensagem por Rox_Lindo Ter 15 Out 2013 - 10:16

    Pena que não consegui usar nem como FS.



    Moedas Verdes v1.0 Mkdt
    Lυcas_KinG
    Lυcas_KinG
    --> Postador Iniciante
    --> Postador Iniciante


    Mensagens : 142
    Moedas : 4242
    Data de inscrição : 06/07/2013
    Idade : 43
    Localização : Algum Lugar do Espaço

    Moedas Verdes v1.0 Empty Re: Moedas Verdes v1.0

    Mensagem por Lυcas_KinG Ter 15 Out 2013 - 12:32

    Pow Sistema muito bom e muito Procurado Parabéns Very Happy



    Moedas Verdes v1.0 S06xjSN

    Moedas Verdes v1.0 4nYKfO1

    Moedas Verdes v1.0 AQIAK8y
    Dąяķ รcяiρт
    Dąяķ รcяiρт
    --> Postador Iniciante
    --> Postador Iniciante


    Celular : 2180651173
    Mensagens : 61
    Moedas : 3901
    Data de inscrição : 01/12/2013

    Moedas Verdes v1.0 Empty Re: Moedas Verdes v1.0

    Mensagem por Dąяķ รcяiρт Ter 3 Dez 2013 - 22:29

    Curti muito esse sistemas, poucos tem a capacidade de reproduzi-lo sem bugs.
    Weslley_Script
    Weslley_Script
    SS - Fundador
    SS - Fundador


    Steam Steam : WeslleySSGames
    Zello : WeslleySSGames
    Mensagens : 11351
    Moedas : 1031858
    Data de inscrição : 06/10/2011
    Idade : 28
    Localização : Brasil

    Moedas Verdes v1.0 Empty Re: Moedas Verdes v1.0

    Mensagem por Weslley_Script Qua 4 Dez 2013 - 10:23

    realmente né?
    Dąяķ รcяiρт
    Dąяķ รcяiρт
    --> Postador Iniciante
    --> Postador Iniciante


    Celular : 2180651173
    Mensagens : 61
    Moedas : 3901
    Data de inscrição : 01/12/2013

    Moedas Verdes v1.0 Empty Re: Moedas Verdes v1.0

    Mensagem por Dąяķ รcяiρт Qua 4 Dez 2013 - 10:40

    Pse, sempre sai um bugzinho ou outro, eu mesmo já tentei reproduzi-lo, mas tentei fazer um mais elaborado, de poder comprar alguns dias de VIP com x moedas verdes, mas sla, da um errinho que depois vou pedir ajuda...
    ipsLuan
    ipsLuan
    --> Postador Fanático
    --> Postador Fanático


    Steam Steam : luan_argolo
    Mensagens : 484
    Moedas : 5001
    Data de inscrição : 16/02/2013
    Idade : 25
    Localização : Ilhéus

    Moedas Verdes v1.0 Empty Re: Moedas Verdes v1.0

    Mensagem por ipsLuan Qua 4 Dez 2013 - 11:30

    Essa é a 1.0, ele já fez a 2.1.
    http://pastebin.com/VQpEstj7



    Moedas Verdes v1.0 GitHub-Mark-32pxMoedas Verdes v1.0 Facebook-iconMoedas Verdes v1.0 3076266Moedas Verdes v1.0 InstagramMoedas Verdes v1.0 Skype
    Dąяķ รcяiρт
    Dąяķ รcяiρт
    --> Postador Iniciante
    --> Postador Iniciante


    Celular : 2180651173
    Mensagens : 61
    Moedas : 3901
    Data de inscrição : 01/12/2013

    Moedas Verdes v1.0 Empty Re: Moedas Verdes v1.0

    Mensagem por Dąяķ รcяiρт Qua 4 Dez 2013 - 12:32

    Blz, outra ja está pronta
    @CloseD

    Conteúdo patrocinado


    Moedas Verdes v1.0 Empty Re: Moedas Verdes v1.0

    Mensagem por Conteúdo patrocinado


      Data/hora atual: Sex 29 Mar 2024 - 3:18