Advanced Experience System

L 11/07/2017 - 16:46:16: Start of error session.
L 11/07/2017 - 16:46:16: Info (map "de_dust2_2x2") (file "addons/amxmodx/logs/error_20171107.log")
L 11/07/2017 - 16:46:16: String formatted incorrectly - parameter 8 (total 7)
L 11/07/2017 - 16:46:16: [AMXX] Displaying debug trace (plugin "aes_bonus_system.amxx")
L 11/07/2017 - 16:46:16: [AMXX] Run time error 25: parameter error
L 11/07/2017 - 16:46:16: [AMXX]    [0] aes_colorchat.inc::client_print_color (line 46)
L 11/07/2017 - 16:46:16: [AMXX]    [1] aes_bonus_system.sma::aNew_MenuHandler (line 197)

#if defined _colorchat_included
  #endinput
#endif
#define _colorchat_included

/* ColorChat Support */
#define RED Red
#define BLUE Blue
#define GREY Grey
#define ColorChat client_print_color
/* ColorChat Support */

enum {
    Grey = 33,
    Red,
    Blue
};

stock client_print_color(id, sender, const fmt[], any:...)
{
    // check if id is different from 0
    if( id && !is_user_connected(id) )
    {
        return 0;
    }

    static const szTeamName[][] =
    {
        "",
        "TERRORIST",
        "CT"
    };

    new szMessage[192];

    new iParams = numargs();
    // Specific player code
    if( id )
    {
        if( iParams == 3 )
        {
            copy(szMessage, charsmax(szMessage), fmt); // copy so message length doesn't exceed critical 192 value
        }
        else
        {
            vformat(szMessage, charsmax(szMessage), fmt, 4);  <<<-----------------------------|  46 строчка
        }

        if( sender > Grey )
        {
            if( sender > Blue )
            {
                sender = id;
            }
            else
            {
                _CC_TeamInfo(id, sender, szTeamName[sender-Grey]);
            }
        }
        _CC_SayText(id, sender, szMessage);
    }

    // Send message to all players
    else
    {
        // Figure out if at least 1 player is connected
        // so we don't execute useless useless code if not
        new iPlayers[32], iNum;
        get_players(iPlayers, iNum, "ch");
        if( !iNum )
        {
            return 0;
        }

        new iMlNumber, i, j;
        new Array:aStoreML = ArrayCreate();
        if( iParams >= 5 ) // ML can be used
        {
            for(j=3; j<iParams; j++)
            {
                // retrieve original param value and check if it's LANG_PLAYER value
                if( getarg(j) == LANG_PLAYER )
                {
                    i=0;
                    // as LANG_PLAYER == -1, check if next parm string is a registered language translation
                    while( ( szMessage[ i ] = getarg( j + 1, i++ ) ) ) {}
                    if( GetLangTransKey(szMessage) != TransKey_Bad )
                    {
                        // Store that arg as LANG_PLAYER so we can alter it later
                        ArrayPushCell(aStoreML, j++);

                        // Update ML array saire so we'll know 1st if ML is used,
                        // 2nd how many args we have to alterate
                        iMlNumber++;
                    }
                }
            }
        }

        // If arraysize == 0, ML is not used
        // we can only send 1 MSG_ALL message if sender != 0
        if( !iMlNumber )
        {
            if( iParams == 3 )
            {
                copy(szMessage, charsmax(szMessage), fmt);
            }
            else
            {
                vformat(szMessage, charsmax(szMessage), fmt, 4);
            }
            if( 0 < sender < Blue ) // if 0 is passed, need to loop
            {
                if( sender > Grey )
                {
                    _CC_TeamInfo(0, sender, szTeamName[sender-Grey]);
                }
                _CC_SayText(0, sender, szMessage);
                return 1;
            }
        }

        if( sender > Blue )
        {
            sender = 0; // use receiver index
        }

        for(--iNum; iNum>=0; iNum--)
        {
            id = iPlayers[i];

            if( iMlNumber )
            {
                for(j=0; j<iMlNumber; j++)
                {
                    // Set all LANG_PLAYER args to player index ( = id )
                    // so we can format the text for that specific player
                    setarg(ArrayGetCell(aStoreML, j), _, id);
                }
                
                // format string for specific player
                vformat(szMessage, charsmax(szMessage), fmt, 4);
            }

            if( sender > Grey )
            {
                _CC_TeamInfo(id, sender, szTeamName[sender-Grey]);
            }
            _CC_SayText(id, sender, szMessage);
        }

        ArrayDestroy(aStoreML);
    }
    return 1;
}

stock _CC_TeamInfo(iReceiver, iSender, szTeam[])
{
    static iTeamInfo = 0;
    if( !iTeamInfo )
    {
        iTeamInfo = get_user_msgid("TeamInfo");
    }
    message_begin(iReceiver ? MSG_ONE : MSG_ALL, iTeamInfo, _, iReceiver);
    write_byte(iSender);
    write_string(szTeam);
    message_end();
}

stock _CC_SayText(iReceiver, iSender, szMessage[])
{
    static iSayText = 0;
    if( !iSayText )
    {
        iSayText = get_user_msgid("SayText");
    }
    message_begin(iReceiver ? MSG_ONE : MSG_ALL, iSayText, _, iReceiver);
    write_byte(iSender ? iSender : iReceiver);
    write_string(szMessage);
    message_end();
}

stock register_dictionary_colored(const filename[])
{
    if( !register_dictionary(filename) )
    {
        return 0;
    }

    new szFileName[256];
    get_localinfo("amxx_datadir", szFileName, charsmax(szFileName));
    format(szFileName, charsmax(szFileName), "%s/lang/%s", szFileName, filename);
    new fp = fopen(szFileName, "rt");
    if( !fp )
    {
        log_amx("Failed to open %s", szFileName);
        return 0;
    }

    new szBuffer[512], szLang[3], szKey[64], szTranslation[256], TransKey:iKey;

    while( !feof(fp) )
    {
        fgets(fp, szBuffer, charsmax(szBuffer));
        trim(szBuffer);

        if( szBuffer[0] == '[' )
        {
            strtok(szBuffer[1], szLang, charsmax(szLang), szBuffer, 1, ']');
        }
        else if( szBuffer[0] )
        {
            strbreak(szBuffer, szKey, charsmax(szKey), szTranslation, charsmax(szTranslation));
            iKey = GetLangTransKey(szKey);
            
            if( iKey != TransKey_Bad )
            {
                replace_all(szTranslation, charsmax(szTranslation), "!g", "^4");
                replace_all(szTranslation, charsmax(szTranslation), "!t", "^3");
                replace_all(szTranslation, charsmax(szTranslation), "!n", "^1");
                AddTranslation(szLang, iKey, szTranslation[2]);
            }
        }
    }
    
    fclose(fp);
    return 1;
}

public aNew_MenuHandler(id,m,item){
    if(item == MENU_EXIT)
        return PLUGIN_HANDLED
        
    new rt[AES_ST_END]
    
    if(!aes_get_player_stats(id,rt))
        return PLUGIN_HANDLED
    
    new data[6],name[64]
    new access,callback
    menu_item_getinfo(m,item,access,data,5,name,63,callback)
    
    new key = str_to_num(data)
    
    new itemData[IB_END]
    ArrayGetArray(g_PointsBonusItems,key,itemData)
    
    if(itemData[IB_CNT] > rt[AES_ST_BONUSES]){
        client_print_color(id,0,"%L %L",id,"AES_TAG",id,"AES_ANEW_NOTENG")
        
        return PLUGIN_HANDLED
    }
    
    switch(itemData[IB_TYPE]){
        case ST_TYPE_GIVE:{
            fm_give_item(id,itemData[IB_ITEM])
        }
        case ST_TYPE_CALL:{
            if(itemData[IB_FUNCTION_ID] < 0){
                client_print_color(id,0,"%L %L",id,"AES_TAG",id,"AES_ANEW_CALL_PROBLEM")
                
                return PLUGIN_HANDLED
            }
                
            callfunc_begin_i(itemData[IB_FUNCTION_ID],itemData[IB_PLUGIN_ID])
            callfunc_push_int(id)
            
            if(!callfunc_end()){
                return PLUGIN_HANDLED
            }
        }
    }
    
    aes_add_player_bonus(id,-itemData[IB_CNT])
    client_print_color(id,0,"%L %L",id,"AES_TAG",id,"AES_ANEW_GIVE")      <<<--------------------------------|  197 строчка
    
    return PLUGIN_HANDLED
}