/*trablon's Group System with mySQL R7 versionScript coder: trablon(Onur AKAN)NOTE: Don't forget to check my topic on forum.sa-mp.com---[INFO FOR SCRIPT]---table name: groupscolumns: gID(int),gName(varchar=128),gLeaderName(varchar=32),gchat(int),gTAG(varchar=5) ...---[INFO FOR YOUR DATABASE(players)]---table name: yourplayerstablecolumns: grouppid(int),grouprank(varchar=32) ...*///====================================================================[includes]#include <a_samp>#include <a_mysql>#include <zcmd>#include <sscanf2>//=================================================================[definitions]#define COLOR_GREY 0xAFAFAFAA#define COLOR_RED 0xFF6347AA#define COLOR_GREEN 0x9ACD32AA#define MAX_GROUPS 150//you can change it, if you know what you are doing.enum groupsDATA{ gID, gName[128], gLeaderName[32], gchat, gTAG};new GroupInfo[MAX_GROUPS][groupsDATA];new mysql=1; // remember..Don't forget to delete it when you are copying the codes to your gamemodenew groupid=-1;enum playerDATA{ grouppid, grouprank[32]};new pInfo[MAX_PLAYERS][playerDATA];new groupvariables[MAX_PLAYERS][2];// =============================================================================public OnFilterScriptInit(){ print("_________________________________________________________________________"); print("> trablon's Group System - ALPHA"); print("> Script Name : Group System"); print("> Script Version : ALPHA"); print("> Script Coder : trablon"); print("> Last Update : 22/07/2015"); print("> mySQL Version : R7 - threaded queries"); print("_________________________________________________________________________"); return 1;}public OnFilterScriptExit(){ return 1;}public OnPlayerConnect(playerid){ groupvariables[playerid][0] = -1; groupvariables[playerid][1] = 0; return 1;}public OnPlayerDisconnect(playerid,reason){ groupvariables[playerid][0] = -1; groupvariables[playerid][1] = 0; return 1;}public OnPlayerSpawn(playerid){ SetTagforPlayer(playerid,GroupInfo[pInfo[playerid][grouppid]][gTAG]); return 1;}public OnDialogResponse(playerid, dialogid, response, listitem, inputtext[]){ if(dialogid == 1) { new str[128]; if(!response) { format(str,sizeof(str),"[SYSTEM]: '%s' has declined your invite.",GetPlayerNamee(playerid)); SendClientMessage(groupvariables[playerid][0],COLOR_RED,str); SendClientMessage(playerid,COLOR_RED,"[SYSTEM]: You have declined the invite."); groupvariables[playerid][0] = -1; groupvariables[playerid][1] = 0; } if(response) { format(str,sizeof(str),"[SYSTEM]: '%s' has accepted your invite.",GetPlayerNamee(playerid)); SendClientMessage(groupvariables[playerid][0],COLOR_GREEN,str); SendClientMessage(playerid,COLOR_RED,"[SYSTEM]: You have accepted the invite."); pInfo[playerid][grouppid] = pInfo[groupvariables[playerid][0]][grouppid]; groupvariables[playerid][0] = -1; groupvariables[playerid][1] = 0; } } return 1;}stock LoadGroups(){ return mysql_function_query(mysql, "SELECT * FROM `groups`", true, "GroupsInformation", "");}stock SendGroupMessage(color, groupID, string[]){ for(new i;i<MAX_PLAYERS;i++) { if(pInfo[i][grouppid] == groupID) { SendClientMessage(i, color, string); } } return 1;}forward GroupsInformation();public GroupsInformation(){ new rows,fields,szQueryOutput[128]; cache_get_data(rows, fields); if(rows) { for(new x = 0; x < rows; x++) { cache_get_row(x, 0, szQueryOutput); // gID GroupInfo[x][gID] = strval(szQueryOutput); cache_get_field_content(x, "gName", szQueryOutput); // group name format(GroupInfo[x][gName],sizeof(szQueryOutput),szQueryOutput); cache_get_field_content(x, "gLeaderName", szQueryOutput); format(GroupInfo[x][gLeaderName],sizeof(szQueryOutput),szQueryOutput); } } return 1;}forward MYSQL_SaveGroups(b);public MYSQL_SaveGroups(b){ new query[128]; mysql_format(mysql,query, sizeof(query), "UPDATE `groups` SET `gchat` = %d, `gTAG` = %d,`gName` = '%s', `gLeaderName` = '%s' WHERE `gID` = %d", GroupInfo[b][gchat],GroupInfo[b][gTAG],GroupInfo[b][gName],GroupInfo[b][gLeaderName],GroupInfo[b][gID]); mysql_tquery(mysql, query, "", ""); return 1;}forward GroupCreated(b);public GroupCreated(b){ GroupInfo[b][gID] = cache_insert_id(); groupid++; printf("New Group is created: [%d]", groupid );}stock GetPlayerNamee(playerid){ new name[MAX_PLAYER_NAME]; GetPlayerName(playerid, name, MAX_PLAYER_NAME); return name;}stock SetTagforPlayer(playerid,tag[]){ new name[MAX_PLAYER_NAME]; new newname[30]; GetPlayerName(playerid,name,MAX_PLAYER_NAME); format(newname,sizeof(newname),"[%s]%s",tag,name); SetPlayerName(playerid,newname); return 1;}CMD:creategroup(playerid, params[]){ new grID = groupid+1,query[128],player,str[128]; if(!IsPlayerAdmin(playerid)) return SendClientMessage(playerid,COLOR_RED,"[ERROR]: You have to log in as a rcon admin."); if(sscanf(params, "u", player)) return SendClientMessage(playerid,COLOR_GREY,"[USAGE]: /creategroup [Player ID/Player Name]"); if(!IsPlayerConnected(player)) return SendClientMessage(playerid,COLOR_RED,"[ERROR]: Player hasn't connected to server yet."); if(pInfo[player][grouppid] != 0) return SendClientMessage(playerid,COLOR_RED,"[ERROR]: Player already is in a group."); if(playerid == player) return SendClientMessage(playerid,COLOR_RED,"[ERROR]: You can't give a group to yourself."); GroupInfo[grID][gID] = grID; GroupInfo[grID][gchat] = 0; format(GroupInfo[grID][gTAG],5,"None"); pInfo[player][grouppid] = grID; // change this line with your player variable.DONT FORGET IT! format(GroupInfo[grID][gName],128,"None"); format(GroupInfo[grID][gLeaderName],32,GetPlayerNamee(player)); mysql_format(mysql, query, sizeof(query), "INSERT INTO `groups` (`gID`, `gchat`, `gTAG`, `gName`, `gLeaderName`) VALUES (%d,%d,%d,'%s','%s')", grID+1, GroupInfo[grID][gchat], GroupInfo[grID][gTAG], GroupInfo[grID][gName], GroupInfo[grID][gLeaderName]); mysql_tquery(mysql, query, "GroupCreated", "i",grID); format(str,sizeof(str),"[SUCCESS]: '%s' named group has created for '%s'.",GroupInfo[grID][gName],GroupInfo[grID][gLeaderName]); SendClientMessage(playerid,COLOR_GREEN,str); return 1;}CMD:ginvite(playerid,params[]){ new player,str[128],id=pInfo[playerid][grouppid]; if(strcmp(GroupInfo[id][gLeaderName], GetPlayerNamee(playerid)) != 0) return SendClientMessage(playerid,COLOR_RED,"[ERROR]: You are not a leader of any group."); if(groupvariables[playerid][1] == 1) return SendClientMessage(playerid,COLOR_RED,"[ERROR]: You need to wait for response of your invite."); if(sscanf(params, "u", player)) return SendClientMessage(playerid,COLOR_GREY,"[USAGE]: /creategroup [Player ID/Player Name]"); if(!IsPlayerConnected(player)) return SendClientMessage(playerid,COLOR_RED,"[ERROR]: Player hasn't connected to server yet."); if(playerid == player) return SendClientMessage(playerid,COLOR_RED,"[ERROR]: You can't invite yourself."); if(pInfo[player][grouppid] == pInfo[playerid][grouppid]) return SendClientMessage(playerid,COLOR_RED,"[ERROR]: Player is already in your group."); groupvariables[player][0] = playerid; groupvariables[playerid][1] = 1; format(str,sizeof(str),"'%s' named group leader is inviting you to '%s' named group, what is your answer?",GroupInfo[id][gLeaderName],GroupInfo[id][gName]); ShowPlayerDialog(player, 1, DIALOG_STYLE_MSGBOX, "{808080}trablon's Group System", str, "Accept", "Decline"); return 1;}CMD:g(playerid,params[]){ new str[128],string[128],id=pInfo[playerid][grouppid]; if(pInfo[playerid][grouppid] == 0) return SendClientMessage(playerid,COLOR_RED,"[ERROR]: You are not in any group."); if(GroupInfo[id][gchat] == 1) return SendClientMessage(playerid,COLOR_RED,"[ERROR]: Group chat has closed by leader of the group."); if(sscanf(params, "s[128]", str)) return SendClientMessage(playerid,COLOR_GREY,"[USAGE]: /g [Group Chat]"); format(string,sizeof(string),"[GROUP-CHAT(%s)] %s: %s",GroupInfo[id][gName],GetPlayerNamee(playerid),str); SendGroupMessage(0x8080FFFF, id, string); return 1;}CMD:gkick(playerid,params[]){ new str[128],id=pInfo[playerid][grouppid],player; if(strcmp(GroupInfo[id][gLeaderName], GetPlayerNamee(playerid)) != 0) return SendClientMessage(playerid,COLOR_RED,"[ERROR]: You are not a leader of any group."); if(sscanf(params, "u", player)) return SendClientMessage(playerid,COLOR_GREY,"[USAGE]: /gkick [Player ID/Player Name]"); if(!IsPlayerConnected(player)) return SendClientMessage(playerid,COLOR_RED,"[ERROR]: Player hasn't connected to server yet."); if(playerid == player) return SendClientMessage(playerid,COLOR_RED,"[ERROR]: You can't kick yourself."); if(pInfo[player][grouppid] != pInfo[playerid][grouppid]) return SendClientMessage(playerid,COLOR_RED,"[ERROR]: Player is not in your group."); format(str,sizeof(str),"[GROUP-ATTENTION(%s)]: %s named group leader has kicked '%s' named player from your group.",GroupInfo[id][gName],GetPlayerNamee(playerid),GetPlayerNamee(player)); SendGroupMessage(0x8080FFFF, id, str); return 1;}CMD:gonline(playerid,params[]){ new str[168],string[168 * 4]; if(pInfo[playerid][grouppid] == 0) return SendClientMessage(playerid,COLOR_RED,"[ERROR]: You are not in any group."); for(new i=0; i < MAX_PLAYERS; i++) { if(pInfo[playerid][grouppid] == pInfo[i][grouppid]) { format(str,sizeof(str),"{FFFFFF}Online Member: %s\tID:%d\tRank:%s\n",GetPlayerNamee(i),i,pInfo[i][grouprank]); strcat(string, str); } } ShowPlayerDialog(playerid, 2, DIALOG_STYLE_MSGBOX, "{808080}trablon's Group System", str, "Close", ""); return 1;}CMD:setrank(playerid,params[]){ new str[32],id=pInfo[playerid][grouppid],player,string[128]; if(strcmp(GroupInfo[id][gLeaderName], GetPlayerNamee(playerid)) != 0) return SendClientMessage(playerid,COLOR_RED,"[ERROR]: You are not a leader of any group."); if(sscanf(params, "us[32]", player,str)) return SendClientMessage(playerid,COLOR_GREY,"[USAGE]: /setrank [Player ID/Player Name] [New Rank Name]"); if(!IsPlayerConnected(player)) return SendClientMessage(playerid,COLOR_RED,"[ERROR]: Player hasn't connected to server yet."); if(playerid == player) return SendClientMessage(playerid,COLOR_RED,"[ERROR]: You can't kick yourself."); if(pInfo[player][grouppid] != pInfo[playerid][grouppid]) return SendClientMessage(playerid,COLOR_RED,"[ERROR]: Player is not in your group."); format(pInfo[player][grouprank],32,str); format(string,sizeof(string),"[SYSTEM]: '%s' has changed your rank as '%s' in the group.",GetPlayerNamee(playerid),str); SendClientMessage(player,COLOR_GREEN,string); format(string,sizeof(string),"[SYSTEM]: You have changed '%s' named player's rank as '%s' in the group.",GetPlayerNamee(player),str); SendClientMessage(playerid,COLOR_GREEN,string); return 1;}CMD:gchatlock(playerid,params[]){ new str[128],id=pInfo[playerid][grouppid]; if(strcmp(GroupInfo[id][gLeaderName], GetPlayerNamee(playerid)) != 0) return SendClientMessage(playerid,COLOR_RED,"[ERROR]: You are not a leader of any group."); if(GroupInfo[id][gchat] == 0) { GroupInfo[id][gchat] = 1; format(str,sizeof(str),"[GROUP-ATTENTION(%s)]: %s named group leader has locked the group chat.",GroupInfo[id][gName],GetPlayerNamee(playerid)); SendGroupMessage(0x8080FFFF, id, str); return 1; } if(GroupInfo[id][gchat] == 1) { GroupInfo[id][gchat] = 0; format(str,sizeof(str),"[GROUP-ATTENTION(%s)]: %s named group leader has unlocked the group chat.",GroupInfo[id][gName],GetPlayerNamee(playerid)); SendGroupMessage(0x8080FFFF, id, str); return 1; } return 1;}CMD:gtag(playerid,params[]){ new str[5],id=pInfo[playerid][grouppid],string[128]; if(strcmp(GroupInfo[id][gLeaderName], GetPlayerNamee(playerid)) != 0) return SendClientMessage(playerid,COLOR_RED,"[ERROR]: You are not a leader of any group."); if(sscanf(params, "s[5]",str)) return SendClientMessage(playerid,COLOR_GREY,"[USAGE]: /gtag [New Tag for GROUP]"); if(strlen(str) > 5 || strlen(str) < 5 ) return SendClientMessage(playerid,COLOR_RED,"[ERROR]: Your group tag must be set max. 5 character."); format(GroupInfo[id][gTAG],5,str); format(string,sizeof(string),"[GROUP-ATTENTION(%s)]: %s named group leader has changed group TAG as '%s'.",GroupInfo[id][gName],GetPlayerNamee(playerid),str); SendGroupMessage(0x8080FFFF, id, string); return 1;}//=========================================================================[END]