Помогите с переводом команд. - Форум - Cheat-Master.Ru | Читерский Форум | Читы для SAMP,CS,Minecraft,CoD,Warface | Продажа аккаунтов SAMP,WoT,Steam,Origin,Warface | Баги,статьи SAMP-RP,Advance-RP,Diamond-RP | Магазин аккаунтов SAMP-RP,Advance-RP,Diamond-RP,Steam,WoT,Warface

Требуется администраторы и помощники в будущий SAMP проект
Страница 1 из 11
Модератор форума: Artem_Buero, PasqualeQQ 
Форум » Pawno программирование » Вопросы | Проблемы » Помогите с переводом команд. (Помогите перевести команды на new.pwn)
Помогите с переводом команд.
Danil_KotДата: Четверг, 20.04.2017, 14:21 | Сообщение # 1
Новичок
Сообщений: 3
Статус: Offline
Войдите на сайт или зарегистрируйтесь для просмотра полного содержимого темы.

Помогите перевести команды на new.pwn
Буду очень благодарен


Код
enum RepGB {
    Reptex[130],// Текст который пишет игрок 130 символов
}
new RepInfo[100][RepGB]; // Максимум 100 репортов.  

Код
ALTX:report("/rep");
CMD:report(playerid, params[])
{
    if(GetPVarInt(playerid,"RepUn") > 0) return SendClientMessage(playerid,0xAA3333AA,"Ошибка: Ваша прошлая жалоба ещё не рассмотрена");
    if(sscanf(params, "s[130]",params[0])) return SendClientMessage(playerid, -1,"Введите: (/rep)ort [текст]");
    SetPVarInt(playerid,"RepUn",1);
    strmid(RepInfo[playerid][Reptex], params[0],0,strlen(params[0]),130);
    SendAdmin("Рассматривайте жалобы игроков. Посмотреть жалобы - /otrep | Ответить - /pm",0x27C400FF);
    return SendClientMessage(playerid, 0x27C400FF, "Ваша жалоба была отправлена на рассмотрение");
}  

Код
CMD:otrep(playerid, params[])
{
    if(User[playerid][Login] == 1001) return true;
    if(GetPVarInt(playerid,"Admins") < 1 || !GetPVarInt(playerid,"AdminLogin")) return true;
    if(GetPVarInt(playerid,"AntiFlood") > gettime()) return SendClientMessage(playerid, 0xAA3333AA,"Ошибка: Подождите немного...");
    SetPVarInt(playerid,"AntiFlood",gettime() + 1);
    new str[200];
    new string[1500];
    new null = 0;
    tforeach(i)
    {
        if(GetPVarInt(i,"RepUn") > 0)
        {
            null++;
            format(str,sizeof(str),"%i. %s[%d] | Жалоба: %s\n\n",null,User[i][Name],i,RepInfo[i][Reptex]);
            strcat(string,str);
        }
    }
    if(null == 0) return SendClientMessage(playerid, 0xAA3333AA,"Ошибка: Список жалоб пуст...");
    return ShowPlayerDialog(playerid, 126, 0, "Репорт",string, "Обновить", "Закрыть");
}  

Код
CMD:pm(playerid, params[])
{
    if(GetPVarInt(playerid,"Admins") < 1 || !GetPVarInt(playerid,"AdminLogin")) return true;
    if(sscanf(params, "us[128]",params[0],params[1])) return SendClientMessage(playerid, -1,"Введите: /pm [playerid] [текст]");
    if(!IsPlayerConnected(params[0])) return true;
    new string[144];
    User[playerid][Astat][0] += 1;// Статистика админа
    format(string, 144, "Администратор {E6E627}%s[%d] {61BF22}отвечает:{E6E627} %s",User[playerid][Name],playerid,params[1]);
    SendClientMessage(params[0], 0x61BF22FF, string);
    format(string, 144, "Ответ от {E6E627}%s[%d] {61BF22}к {E6E627}%s[%d]{61BF22}:{E6E627} %s",User[playerid][Name],playerid,User[params[0]][Name],params[0],params[1]);
    SendAdmin(string,0x61BF22FF);
    DeletePVar(params[0],"RepUn");
    return true;
}  

Код
case 126:
        {
            if(response)
            {
                return CallLocalFunction("OnPlayerCommandText", "is", playerid, "/otrep");
            }
            else
            {
                return true;
            }
        }  

Добавлено (20.04.2017, 14:21)
---------------------------------------------
UPD!

Последние товары с игрового магазина:
Найти еще что-нибудь в магазине:
[CM]KookiДата: Пятница, 21.04.2017, 17:23 | Сообщение # 2
Новичок
Сообщений: 25
Статус: Offline
Войдите на сайт или зарегистрируйтесь для просмотра полного содержимого темы.

Обратись в ЛС
Последние товары с игрового магазина:
Найти еще что-нибудь в магазине:
Форум » Pawno программирование » Вопросы | Проблемы » Помогите с переводом команд. (Помогите перевести команды на new.pwn)
Страница 1 из 11
Поиск:
Статистика Форума
Последнии темы Читаемые темы Лучшие пользователи Новые пользователи
Как быстро стрелять с TEC... [PasqualeQQ]

ПРОКАЧИВАЮ АККАУНТЫ ДЛЯ Л... [lucky63]

[AHK] Скрипт, берущий Pay... [CMMiki227]

Как упростить чат и др. в... [PasqualeQQ]

ПУСТЫШКИ 4LVL DRP EMERALD... [traccend]

► ► ►► ►[CLEO] MultiBinde... [ХарлиКвинн]

[Гайд] Быстрый заработок ... [waybach]

"[1692333] pirlo1234... [pirlo123456]

[ОБНАРУЖЕН]subVersion Men... [Vincaso1]

►►►►►►CLEO] Вечный прицел... [VADE]

[1]>S0beit - pr9n project for samp 0.3.7 [9466]

[2]>RakBot 0.7.3 - прокачка аккаунтов без GTA [9259]

[3]>Часто задаваемые вопросы... [8161]

[4]>Скуплю Advance по 300р за 1кк и DIamond по 250р [7629]

[5]>Вопросы и ответы [6330]

[6]>[0.3.7][RUS] Sobeit modified by MishaN [6176]

[7]>Продажа вирт 1кк АРП~400р ДРП~400р.СРП~150р. [6094]

[8]>SAMP-Bot 0.5.9.1 by Jamely [4711]

[9]>Бесконечное слово [4594]

[10]>[Samp-Rp.Ru]Обновлен список Админов [4128]

[11]>[CLEO] Вопрос - Ответ [4082]

[12]>Курилка [3165]

[1]>АК_47 [25281]

[2]>GеNius [6550]

[3]>romka619 [5383]

[4]>[CM]AGRESSOR [4649]

[5]>[CM]Russel [4610]

[6]>Сэс [4423]

[7]>Snake_Firm [4173]

[8]>Artem_Buero [4036]

[9]>[CM]Durman [3182]

[10]>sky_Woker [3007]

[11]>iMaddy [2869]

[12]>Sa1nteD [2667]

[13]>Logan™ [2511]

[14]>Ch0c0Cube [2422]

[15]>[CM]Рафаэль [2215]

nikita2281414214164712641 [26.06.2017|13:25]

fire181 [26.06.2017|13:24]

Funner7931 [26.06.2017|13:20]

Palacio [26.06.2017|13:20]

biddick07 [26.06.2017|13:18]

sashok223377 [26.06.2017|13:17]

dovakin2003 [26.06.2017|13:17]

SAKMAKDAK [26.06.2017|13:15]

RusAk86 [26.06.2017|13:14]

Xapibara [26.06.2017|13:13]

Pasha_Technick [26.06.2017|13:11]

artem2103artem [26.06.2017|13:10]

Daniel_199914 [26.06.2017|13:05]

Hertux [26.06.2017|13:00]

bastard322 [26.06.2017|12:59]


CM Team © 2009-2017 Администрация не несёт ответственности за размещённые материалы. Условия пользования
Все материалы предоставлены в ознакомительных целях и администрация предлагает удалить их после ознакомления.

Положение о защите персональных данных на сайте, Пользовательское соглашение, Договор оказания услуг.