int pc_set_sm(lua_State * L)
    {
        if (!lua_isnumber(L, 1))
        {
            sys_err("invalid argument");
            return 0;
        }

        LPCHARACTER ch = CQuestManager::instance().GetCurrentCharacterPtr();
        long val = (long)lua_tonumber(L, 1);

        SQLMsg *msg;

        if (val >= 0)
        {
            msg = DBManager::instance().DirectQuery("UPDATE account.cash_account SET monety = monety + '%ld' WHERE account_id = '%u'", val, ch->GetAID());
        }
        else
        {
            long znaki = val*(-1);
            msg = DBManager::instance().DirectQuery("UPDATE account.cash_account SET monety = monety + '%ld', znaki = znaki + '%ld' WHERE account_id = '%u'", val, znaki, ch->GetAID());
        }


        if (msg->uiSQLErrno != 0)
        {
            sys_err("pc_update_sm %ld %u query failed",val,ch->GetAID());
            return 0;
        }
        return 1;
    }