[dPlaYer_]

pawn Код:

#include <a_samp>
#include <dini>

#define MAX_CLANS 100

#define PASTA_CLANS         "/Clans/%s.ini"

#define Vermelho    0xFF0000AA

#pragma unused strtok

new file[128];

public OnFilterScriptInit()
{
    return 1;
}

public OnPlayerCommandText(playerid, cmdtext[])
{
    new string[256], cmd[256];
    if (strcmp(cmd, "/criarclan", true) == 0)
    {
        new aname[MAX_PLAYER_NAME];
        GetPlayerName(playerid, aname, MAX_PLAYER_NAME);
        format(file, sizeof(file), PASTA_CLANS, aname);
        new tmp[256];
        strmid(tmp, cmdtext, 11, strlen(cmdtext));
        if (!strlen(tmp)) return SendClientMessage(playerid, Vermelho, "|INFO| Use: /criarclan [nome]");
        if (dini_Int(file, "TClan") == 1) return SendClientMessage(playerid, Vermelho, "|ERRO| Vocк ja faz parte de um clan.");
        if (GetPlayerMoney(playerid) <= 100000) return SendClientMessage(playerid, Vermelho, "|ERRO| Vocк nгo tem R$100.000.");
        if (strlen(tmp) < 3 || strlen(tmp) > 10) return SendClientMessage(playerid, Vermelho, "|ERRO| Nome do clan deve ter 3 a 10 letras.");
        for (new a = 0; a < MAX_CLANS; a++)
        {
            format(string, sizeof(string), "/Clans/clan%d.ini", a);
            if (dini_Exists(string))
            {
                if (strcmp(tmp, dini_Get(string, "Nome"), true) == 0 && dini_Int(string, "Existe") == 1)
                {
                    SendClientMessage(playerid, Vermelho, "|ERRO| O nome do clan ja existe.");
                    return 1;
                }
            }
        }
        for (new a = 0; a < MAX_CLANS; a++)
        {
            format(string, sizeof(string), "/Clans/clan%d.ini", a);
            if (!dini_Exists(string) || dini_Int(string, "Existe") == 0)
            {
                if (!dini_Exists(string))
                {
                    dini_Create(string);
                }
                GivePlayerMoney(playerid, -100000);
                dini_IntSet(file, "TClan", 1);
                dini_IntSet(file, "Clan", a);
                dini_IntSet(string, "Existe", 1);
                dini_Set(string, "Nome", tmp);
                dini_IntSet(string, "TMembro1", 1);
                dini_Set(string, "Membro1", aname);
                dini_IntSet(string, "TMembro2", 0);
                dini_Set(string, "Membro2", "Convidar");
                dini_IntSet(string, "TMembro3", 0);
                dini_Set(string, "Membro3", "Convidar");
                dini_IntSet(string, "TMembro4", 0);
                dini_Set(string, "Membro4", "Convidar");
                dini_IntSet(string, "TMembro5", 0);
                dini_Set(string, "Membro5", "Convidar");
                dini_IntSet(string, "TMembro6", 0);
                dini_Set(string, "Membro6", "Convidar");
                dini_IntSet(string, "TMembro7", 0);
                dini_Set(string, "Membro7", "Convidar");
                dini_IntSet(string, "TMembro8", 0);
                dini_Set(string, "Membro8", "Convidar");
                dini_IntSet(string, "TMembro9", 0);
                dini_Set(string, "Membro9", "Convidar");
                dini_IntSet(string, "TMembro10", 0);
                dini_Set(string, "Membro10", "Convidar");
                SendClientMessage(playerid, -1, "|INFO| Vocк criou um clan!");
                return 1;
            }
        }
        return 1;
    }
    if (strcmp(cmdtext, "/meuclan", true) == 0)
    {
        new pname[MAX_PLAYER_NAME];
        GetPlayerName(playerid, pname, MAX_PLAYER_NAME);
        format(file, sizeof(file), PASTA_CLANS, pname);
        format(string, sizeof(string), "/Clans/clan%d.ini", dini_Int(file, "Clan"));
        new string2[256];
        if (dini_Int(file, "TClan") == 1)
        {
            format(string2, sizeof(string2), "Meu Clan");
            if (strcmp(dini_Get(string, "Membro1"), pname, true) == 0)
            {
                ShowPlayerDialog(playerid, 6741, DIALOG_STYLE_LIST, string2, "Convidar ou Expulsar membro\nDesfazer clan", "OK", "Cancelar");
            }
            else
            {
                ShowPlayerDialog(playerid, 6742, DIALOG_STYLE_LIST, string2, "Sair do clan\nVer membros", "OK", "Cancelar");
            }
        }
        else SendClientMessage(playerid, 0xFF0000FF, "** Vocк nгo faz parte de um clan.");
        return 1;
    }
    return 0;
}