gangs.sqf

liafu = true;

_this = _this select 3;
_art  = _this select 0;

if(_art == "create") then {
	_text = _this select 1;
	_name = name player;
	_moneh = [player, 'money'] call INV_GetItemAmount;
	_exitvar = false;

	if(_text == "cops") exitWith {
		player groupchat "you cannot use that name"
	};

	if(gangmember) exitWith {
		player groupchat "you are already in a gang!"
	};

	for "_c" from 0 to (count gangsarray - 1) do {
		if (((gangsarray select _c) select 0) == _text) exitWith {_exitvar = true;};
	};

	if(_exitvar) exitWith {
		player groupchat "a gang with the same name already exists!"
	};

	if ((_text call dnicestr_Length) > 30 or (_text call dnicestr_Length) < 3) exitWith {
		player groupChat "the entered text is either too long or too short";
	};

	if(_moneh < gangcreatecost) exitWith {
		player groupchat "not enough money"
	};

	[player, 'money', -gangcreatecost] call INV_AddInventoryItem;

	format['gangsarray = gangsarray + [["%1", ["%2"], true]]', _text, _name] call broadcast;

	player groupchat format["you have created a new gang called %1!", _text];

	gangmember=true;
};

if(_art == "join") then {

	_gang = _this select 1;
	_name = name player;
	_id   = -1;

	if(gangmember) exitWith {
		player groupchat "you are already in a gang!"
	};

	for "_c" from 0 to (count gangsarray - 1) do {
		if (((gangsarray select _c) select 0) == _gang) exitWith {
			_id = _c;
		};
	};

	if(_id == -1) exitWith {
		player groupchat "this gang no longer exists!"
	};

	_gangarray = gangsarray select _id;
	_members   = _gangarray select 1;
	_canjoin   = _gangarray select 2;

	if(!_canjoin) exitWith {
		player groupchat "the leader of this gang is not currently not recruiting"
	};

	_members   = _members + [_name];
	_gangarray set[1, _members];

	format['gangsarray set[%1, %2]', _id, _gangarray] call broadcast;

	player groupchat format["you have joined %1!", _gang];
};

if(_art == "leave") then {

if(!gangmember)exitwith{player groupchat "you are not in a gang!"};
	for "_c" from 0 to (count gangsarray - 1) do {
		_gangarray = gangsarray select _c;
		_gang	   = _gangarray select 0;
		_members   = _gangarray select 1;
		_name	   = name player;

		if(_name in _members)then {
			_members = _members - [_name];
			_gangarray set[1, _members];
			format['gangsarray set[%1, %2]', _c, _gangarray] call broadcast;
			player groupchat "you left your gang!";
			gangmember=false;
		};
	};
};

if(_art == "kick") then {

	if((_this select 1) == "notingame") exitWith {
		player groupchat "you cannot kick members unless they are ingame! Offline members are removed every 2 minutes"
	};
	player groupchat format ["%1", _this];
	_civ = call compile format["%1", _this select 1];

	if(player == _civ) exitWith {
		player groupchat "you cannot kick yourself!"
	};

	for "_c" from 0 to (count gangsarray - 1) do {
		_gangarray = gangsarray select _c;
		_gang	   = _gangarray select 0;
		_members   = _gangarray select 1;
		_name	   = name player;

		if(_name in _members)then {
			_members = _members - [(name _civ)];
			_gangarray set[1, _members];
			format['if(player == %3)then{player groupchat "you have been kicked out of your gang!"; gangmember = false;}; gangsarray set[%1, %2]', _c, _gangarray, _civ] call broadcast;
		};

		player groupchat format["you kicked %1 from your gang!", name _civ];
	};
};

if(_art == "allowjoin") then {

	if(_this select 1 == "") exitWith {
		player groupchat "you must select either yes or no!"
	};

	_bool = call compile format["%1", _this select 1];

	for "_c" from 0 to (count gangsarray - 1) do {
		_gangarray = gangsarray select _c;
		_gang	   = _gangarray select 0;
		_members   = _gangarray select 1;
		_name	   = name player;

		if(_name in _members)then {
			_gangarray set[2, _bool];
			format['gangsarray set[%1, %2]', _c, _gangarray] call broadcast;
			if(_bool)then{player groupchat "civilians can now join your gang"}else{player groupchat "civilians can no longer join your gang"};
		};
	};
};

if(_art == "clientloop") then {
	sleep 10;
	private ["_mygang", "_mymembers", "_enmembers"];
	startgroup = group player;

	for "_c" from 0 to (count gangsarray - 1) do {
		_gangarray = gangsarray select _c;
		_gang	   = _gangarray select 0;
		_members   = _gangarray select 1;
		_name	   = name player;

		if(_name in _members and not([player] call player_civilian))then {
			_members = _members - [_name];
			_gangarray set[1, _members];
			format['gangsarray set[%1, %2]', _c, _gangarray] call broadcast;
		};
	};

	while {isCiv} do {
		for "_c" from 0 to (count gangsarray - 1) do {
			_gangarray = gangsarray select _c;
			_gang	   = _gangarray select 0;
			_members   = _gangarray select 1;

			if(count _members > 0) then {
				_leader = _members select 0;
				_lunit = [_leader] call player_lookup_name;
				
				private["_leader_active"];
				_leader_active = ([_lunit] call player_civilian);
		
				if (not(_leader_active) && not(player in (units startgroup))) then {
					[player] joinsilent startgroup;
				};

				if (not(_leader_active)) exitWith {};
				
				_group	   = group _lunit;
				_name      = name player;

				if(leader _group != _lunit)then{_group selectleader _lunit};
				if(player == _lunit and !gangleader)then{gangleader = true; [player] joinsilent startgroup;};
				if(gangleader and player != _lunit and _name in _members)then{gangleader = false};
				if(_name in _members and !gangmember)then{gangmember = true};
				if(_name in _members and gangmember)then{_mygang = _gang; _mymembers = _members};
				if(_name in _members and player != _lunit and !(player in (units _group))) then {[player] joinsilent _group;};

			};
		};

		if(!gangmember and !(player in (units startgroup)))then{[player] joinsilent startgroup};

		for "_c" from 0 to (count gangareas - 1) do {
			private ["_pos"];
			_gangarea = gangareas select _c;
			_control  = _gangarea getVariable "control";
			
			
			_offset = [_gangarea] call flag_gang_get_offset;
			if ((!isNil "_offset")) then
			{	
				if(!isNil "_control") then {
				if(player distance _gangarea < 10 and (_offset select 2) < 0 and _control == call INV_MyGang)then {
					_new_offset = [_gangarea, [0,0,0.1]] call flag_gang_set_offset;
					if ((_new_offset select 2) > 0) then {
						[_gangarea, [0,0,0]] call flag_gang_reset_offset;
					};
				};};
			};
		};
		sleep 1;
	};
};