Команда /ban

[hiemz]

Приветствую, обозревая этот портал, меня пару раз откачивал весь экипаж скорой. Особенно после этой темы - клик

#define COLOR_OLDRED         0xBE2D2DFF
stock ASCMALL(color,const text[])
{
    foreach(new i: Player) {
        if(PhoneImprovementsData[i][pdAdminAction]==0) SCM(i,color,text);
    }
}


cmd:ban(playerid, data[])
{
    new id, days, reason[30];

    if(sscanf(data, "uds[30]", id, days, reason))
        return SCM(playerid, COLOR_OLDRED, !"Используй: /ban [id] [days 1-30] [Причина]");

    if(id == INVALID_PLAYER_ID)
        return 0;

    if(strlen(reason) > 30)
        return SCM(playerid, COLOR_RED, !"Не больше 30 символов!");

     if(IsAIP(reason))
         return 1;

    if(!(1 <= days <= 30))
        return SCM(playerid, COLOR_OLDRED, !"Используй: /ban [id] [days 1-30] [Причина]");

    f(global_str, sizeof(global_str), "Администратор %s[%d] забанил игрока %s[%d] на %d дней. Причина: %s", PN(playerid), playerid, PN(id), id, days, reason);
    ASCMALL(COLOR_RED, global_str);
    ANL(PN(id), global_str);
    SPDF(id, 0, DIALOG_STYLE_MSGBOX, !"", "Вы получили бан аккаунта - не согласен, пиздуй на форум\n{2D8E35}%s", !"Закрыть", !"", Setting_Server[4]);
    PI[id][pWarns] = 0;
    BanName(PN(id), PN(playerid), days, reason);
    J_Kick(id);
    Int_SetPlayerData(playerid, "NakazLastTime", Global_Time);
    //
    aml(global_str, 5, "","");
    //
    return 1;
}