Мониторинг серверов samp

#include <zcmd> // http://forum.sa-mp.com/showthread.php?t=91354 - обновление инклуда смотрите по этой теме
#define MAX_GROUPS 100 // макс.кол-во групп

enum ginfo
{
  grname[75],
  leader,
  active
};

enum pginfo
{
  gid,
  order,
  invited,
  attemptjoin
};

new group[MAX_PLAYERS][pginfo];
new groupinfo[MAX_GROUPS][ginfo];

for(new x; x<MAX_PLAYERS; x++)
  {
   group[x][gid] = -1;
   group[x][order] = -1;
   group[x][invited] = -1;
   group[x][attemptjoin] = -1;
  }

public OnGameModeInit()
{
  for(new x; x<MAX_PLAYERS; x++)
  {
   group[x][gid] = -1;
   group[x][order] = -1;
   group[x][invited] = -1;
   group[x][attemptjoin] = -1;
  }
  return 1;
}

group[playerid][gid] = -1;
  group[playerid][invited] = -1;
  group[playerid][attemptjoin] = -1;

public OnPlayerConnect(playerid)
{
  group[playerid][gid] = -1;
  group[playerid][invited] = -1;
  group[playerid][attemptjoin] = -1;
  return 1;
}

LeaveGroup(playerid, 2);

public OnPlayerDisconnect(playerid, reason)
{
     LeaveGroup(playerid, 2);
  return 1;
}

COMMAND:groupcreate(playerid, params[])
{
    if(group[playerid][gid] != -1) return SendClientMessage(playerid, 0xFF0000, "Оставьте вашу группу с {FFFFFF}/groupleave{FF0000} Перед созданием новой!");
    if(strlen(params) > 49 || strlen(params) < 3) return SendClientMessage(playerid, 0xFF0000, "Использование: {FFFFFF}/groupcreate{FF0000} (Название группы 3-50 символ)!");
  if(IsGroupTaken(params)) return SendClientMessage(playerid, 0xFF0000, "Название группы уже используется!");
  CreateGroup(params, playerid);
    return 1;
}

COMMAND:groupleave(playerid, params[])
{
  if(group[playerid][gid] == -1) return SendClientMessage(playerid, 0xFF0000, "Вы не в группе, чтобы оставить одну!");
   LeaveGroup(playerid, 0);
   return 1;
}

COMMAND:groupinvite(playerid, params[])
{
  if(group[playerid][order] != 1) return SendClientMessage(playerid, 0xFF0000, "Вы не являетесь лидером группы, вы не можете пригласить людей!");
  new cid;
  if(isnull(params)) return SendClientMessage(playerid, 0xFF0000, "Использование: {FFFFFF}/Groupinvite{FF0000} (игрока id)");
  cid = strval(params);
  if(!IsPlayerConnected(cid)) return SendClientMessage(playerid, 0xFF0000, "id игрока не в сети!");
  if(group[cid][gid] == group[playerid][gid]) return SendClientMessage(playerid, 0xFF0000, "Игрок уже в вашей группе!");
   if(group[cid][invited] == group[playerid][gid]) return SendClientMessage(playerid, 0xFF0000, "Игрок уже пригласил в свою группу!");
  if(group[cid][attemptjoin] == group[playerid][gid]) return GroupJoin(cid, group[playerid][gid]);
  group[cid][invited] = group[playerid][gid];
   new string[125], pname[24];
   GetPlayerName(playerid, pname, 24);
   format(string, sizeof(string), "Вы были приглашены в группу , присоединиться к группе {FFFFFF}%s(%d){FFCC66} приглошение от {FFFFFF}%s(%d). /groupjoin %d", groupinfo[group[playerid][gid]][grname], group[playerid][gid], pname, playerid, group[playerid][gid]);
  SendClientMessage(cid, 0xFFCC66, string);
   GetPlayerName(cid, pname, 24);
  format(string, sizeof(string), "Вы пригласили {FFFFFF}%s(%d){FFCC66} вашей группе!", pname, cid);
  SendClientMessage(playerid, 0xFFCC66, string);
   return 1;
}

COMMAND:groupleader(playerid, params[])
{
  if(group[playerid][order] != 1) return SendClientMessage(playerid, 0xFF0000, "Вы не являетесь лидером группы, вы не можете изменить лидером!");
  new cid;
  if(isnull(params)) return SendClientMessage(playerid, 0xFF0000, "Использование: {FFFFFF}/Groupleader{FF0000} (игрока id)");
  cid = strval(params);
  if(!IsPlayerConnected(cid)) return SendClientMessage(playerid, 0xFF0000, "id игрока не в сети!");
  if(cid == playerid)  return SendClientMessage(playerid, 0xFF0000, "Вы уже лидер группы.");
  if(group[playerid][gid] != group[cid][gid]) return SendClientMessage(playerid, 0xFF0000, "Игрок не находится в вашей группе!");
  ChangeMemberOrder(group[playerid][gid], 1);
  group[playerid][order] = GroupMembers(group[playerid][gid]);
  return 1;
}

COMMAND:groupjoin(playerid, params[])
{
  if(group[playerid][gid] != -1) return SendClientMessage(playerid, 0xFF0000, "Вы уже находитесь в группе! Оставьте ваш текущий до прихода другого!");
  new grid;
  if( (isnull(params) && group[playerid][invited] != -1 ) || ( strval(params) == group[playerid][invited] && group[playerid][invited] != -1) ) return GroupJoin(playerid, group[playerid][invited]);
  if(isnull(params)) return SendClientMessage(playerid, 0xFF0000, "Использование: {FFFFFF}/groupjoin{FF0000} (id группы)");
  grid = strval(params);
  if(!groupinfo[grid][active]) return SendClientMessage(playerid, 0xFF0000, "В группу в которую вы пытались присоединиться не существует!");
  group[playerid][attemptjoin] = grid;
  new string[125], pname[24];
  GetPlayerName(playerid, pname, 24);
  format(string, sizeof(string), "Вы отправили заявку на приглошение к группе %s(ID:%d)", groupinfo[grid][grname], grid);
  SendClientMessage(playerid, 0xFFCC66, string);
  format(string, sizeof(string), "{FFFFFF}%s(%d) {FFCC66} отправили заявку на приглошение к группе. Введите /groupinvite %d принять", pname, playerid, playerid);
  SendMessageToLeader(grid, string);
  return 1;
}

COMMAND:groupkick(playerid, params[])
{
  if(group[playerid][order] != 1) return SendClientMessage(playerid, 0xFF0000, "Вы не являетесь лидером группы, вы не можете принять заявку!");
  new cid;
  if(isnull(params)) return SendClientMessage(playerid, 0xFF0000, "Использование: {FFFFFF}/Groupkick{FF0000} (id игрока)");
  cid = strval(params);
  if(!IsPlayerConnected(cid)) return SendClientMessage(playerid, 0xFF0000, "id игрока не в сети!");
  if(cid == playerid)  return SendClientMessage(playerid, 0xFF0000, "Вы не можете убрать ,  себя с группы.");
  if(group[playerid][gid] != group[cid][gid]) return SendClientMessage(playerid, 0xFF0000, "Игрок не находится в вашей группе!");
  LeaveGroup(cid, 1);
  return 1;
}

COMMAND:groupmessage(playerid, params[])
{
  if(group[playerid][gid] == -1) return SendClientMessage(playerid, 0xFF0000, "Вы не в группе, вы не можете группировать сообщения!");
  if(isnull(params)) return SendClientMessage(playerid, 0xFF0000, "Использование: {FFFFFF}/gm{FF0000} (сообщения)");
  new pname[24], string[140+24];
  GetPlayerName(playerid, pname, 24);
  format(string, sizeof(string), "%s(%d): %s", pname, playerid, params);
  SendMessageToAllGroupMembers(group[playerid][gid], string);
  return 1;
}

COMMAND:grouplist(playerid, params[])
{
     if(isnull(params) && group[playerid][gid] == -1) return SendClientMessage(playerid, 0xFF0000, "Использование: {FFFFFF}/grouplist{FF0000} (группа)");
  if(isnull(params))
  {
    DisplayGroupMembers(group[playerid][gid], playerid);
      return 1;
  }
   new grid = strval(params);
    if(!groupinfo[grid][active]) return SendClientMessage(playerid, 0xFF0000, "id группы вы ввели не активен!");
     DisplayGroupMembers(grid, playerid);
  return 1;
}

COMMAND:groups(playerid, params[])
{
     ListGroups(playerid);
     return 1;
}

COMMAND:grl(playerid, params[])
  return cmd_groupleave(playerid, params);

COMMAND:grc(playerid, params[])
  return cmd_groupcreate(playerid, params);

COMMAND:gri(playerid, params[])
  return cmd_groupinvite(playerid, params);

COMMAND:grlead(playerid, params[])
  return cmd_groupleader(playerid, params);

COMMAND:grj(playerid, params[])
  return cmd_groupjoin(playerid, params);

COMMAND:grk(playerid, params[])
  return cmd_groupkick(playerid, params);

COMMAND:gm(playerid, params[])
  return cmd_groupmessage(playerid, params);

COMMAND:grlist(playerid, params[])
  return cmd_grouplist(playerid, params);

stock DisplayGroupMembers(groupid, playerid)
{
     new amount[2], string[200], shortstr[55], pname[24];
     format(string, sizeof(string), "Группа членов %s(ID:%d)", groupinfo[groupid][grname], groupid);
  SendClientMessage(playerid, 0xFFFFFF, string);
  string = "";
  for(new x; x<MAX_PLAYERS; x++)
  {
      if(group[x][gid] == groupid)
      {
          amount[0] ++;
          amount[1] ++;
          GetPlayerName(x, pname, 24);
          if(groupinfo[groupid][leader] != x) format(shortstr, sizeof(shortstr), "%s(%d),", pname, x);
          if(groupinfo[groupid][leader] == x) format(shortstr, sizeof(shortstr), "[Лидер]%s(%d),", pname, x);
          if(amount[1] == 1) format(string, sizeof(string), "%s", shortstr);
          if(amount[1] != 1) format(string, sizeof(string), "%s %s", string, shortstr);
    if(amount[0] == 6)
          {
              strdel(string, strlen(string)-1, strlen(string));
     SendClientMessage(playerid, 0xFFCC66, string);
        string = "";
        amount[0] = 0;
          }
      }
  }
  strdel(string, strlen(string)-1, strlen(string));
  if(amount[0] != 0) SendClientMessage(playerid, 0xFFCC66, string);
  return 1;
}

stock ListGroups(playerid)
{
  new amount[2], string[200], shortstr[55];
  SendClientMessage(playerid, 0xFFFFFF, "Текущий групп:");
  for(new x=0; x<MAX_GROUPS; x++)
  {
   if(groupinfo[x][active])
   {
     amount[0] ++;
     amount[1] ++;
     format(shortstr, sizeof(shortstr), "%s(ID:%d)", groupinfo[x][grname], x);
    if(amount[1] == 1) format(string, sizeof(string), "%s", shortstr);
          if(amount[1] != 1) format(string, sizeof(string), "%s %s", string, shortstr);
    if(amount[0] == 4)
    {
        SendClientMessage(playerid, 0xFFCC66, string);
        string = "";
        amount[0] = 0;
    }
   }
  }
  if(amount[1] == 0) SendClientMessage(playerid, 0xFFFF00, "Есть в настоящее время нет активных групп!");
  if(amount[1] != 0) SendClientMessage(playerid, 0xFFCC66, string);
  return 1;
}

stock SendMessageToLeader(groupi, message[])
     return SendClientMessage(groupinfo[groupi][leader], 0xFFCC66, message);

stock GroupJoin(playerid, groupi)
{
  group[playerid][gid] = groupi;
  group[playerid][order] = GroupMembers(groupi);
     group[playerid][attemptjoin] = -1;
     group[playerid][invited] = -1;
     new pname[24], string[130];
  GetPlayerName(playerid, pname, 24);
     format(string, sizeof(string), "%s присоединился к вашей группе!", pname);
     SendMessageToAllGroupMembers(groupi, string);
  format(string, sizeof(string), "Вы присоединились к группе %s(ID:%d)", groupinfo[groupi][grname] ,groupi);
  SendClientMessage(playerid, 0xFFCC66, string);
  return 1;
}

stock FindNextSlot()
{
  new id;
  while(groupinfo[id][active]) id ++;
  return id;
}

stock IsGroupTaken(grpname[])
{
  for(new x; x<MAX_GROUPS; x++) if(!strcmp(grpname, groupinfo[x][grname], true) && strlen(groupinfo[x][grname]) != 0) return 1;
  return 0;
}

stock GroupInvite(playerid, groupid)
     return group[playerid][invited] = groupid;

stock CreateGroup(grpname[], owner)
{
  new slotid = FindNextSlot();
  groupinfo[slotid][leader] = owner;
  format(groupinfo[slotid][grname], 75, "%s", grpname);
  groupinfo[slotid][active] = 1;
  group[owner][gid] = slotid;
  group[owner][order] = 1;
  new string[120];
  format(string, sizeof(string), "Вы создали группу %s(ID:%d)", grpname, slotid);
  SendClientMessage(owner, 0xFFCC66, string);
  return slotid;
}

stock LeaveGroup(playerid, reason)
{
  new groupid = group[playerid][gid], orderid = group[playerid][order], string[100], pname[24];
  group[playerid][gid] = -1;
  group[playerid][order] = -1;
  GroupCheck(groupid, orderid);
  GetPlayerName(playerid, pname, 24);
  if(reason == 0)
  {
    format(string, sizeof(string), "{FFFFFF}%s(%d){FFCC66} оставил свою группу!", pname, playerid);
    SendClientMessage(playerid, 0xFFCC66, "Вы оставили вашу группу");
   }
  if(reason == 1)
  {
   format(string, sizeof(string), "{FFFFFF}%s(%d){FFCC66} оставил свою группу (выгнали лидера)!", pname, playerid);
         SendClientMessage(playerid, 0xFFCC66, "Вы выгнали из группы!");
  }
     if(reason == 2) format(string, sizeof(string), "{FFFFFF}%s(%d){FFCC66} оставил свою группу (отключен)!", pname, playerid);
  SendMessageToAllGroupMembers(groupid, string);
  return 1;
}

stock GroupCheck(groupid, orderid)
{
  new gmems = GroupMembers(groupid);
  if(!gmems) groupinfo[groupid][active] = 0;
  if(gmems != 0) ChangeMemberOrder(groupid, orderid);
  return 1;
}

stock GroupMembers(groupid)
{
     if(!groupinfo[groupid][active]) return 0;
  new groupmembers;
  for(new i; i<MAX_PLAYERS; i++) if(group[i][gid] == groupid) groupmembers++;
  return groupmembers;
}

stock ChangeMemberOrder(groupid, orderid)
{
  for(new x; x<MAX_PLAYERS; x++)
  {
   if(group[x][gid] != groupid || group[x][order] < orderid) continue;
   group[x][order] --;
   if(group[x][order] == 1)
   {
    groupinfo[groupid][leader] = x;
    new string[128], pname[24];
    GetPlayerName(x, pname, 24);
    format(string, sizeof(string), "{FFFFFF}%s(%d){FFCC66} был назначен новый руководитель группы!", pname, x);
    SendMessageToAllGroupMembers(groupid, string);
   }
  }
  return 1;
}

stock SendMessageToAllGroupMembers(groupid, message[])
{
  if(!groupinfo[groupid][active]) return 0;
  for(new x; x<MAX_PLAYERS; x++) if(group[x][gid] == groupid) SendClientMessage(x, 0xFFCC66, message);
  return 1;
}