function GetTeamArray(const Team: byte): Array of byte;

[Swompie]

Author: Ofc. me (Swompie)
Server/Core Version: 2.6.5+

Returns the players IDs of a team in an array of byte.

Code: (pascal) [Select]

function GetTeamArray(const Team: byte): Array of byte;
var i, x: integer;
begin
  i := 1;
  x := 0;
  while i < 32 do begin
    if GetPlayerStat(i, 'Active') = true then
      if GetPlayerStat(i, 'Team') = Team then begin
        SetArrayLength(Result, x + 1);
        Result[x] := i;
        x := x + 1;
      end;
    i := i + 1;
  end;
end;

[squiddy]

Lol.. You like.. Totally copied me :O

Code: (pascal) [Select]

//Custom Functions
//By Squiddy ~ And HackTank
//Thanks, Hack! Helped a loooooot! :D

Function IDByTeam(Team: Byte): Array of Byte;
 Var S, Len: Byte;
  Begin
   SetArrayLength(Result,0);
    For S := 1 To 32 Do if GetPlayerStat(S,'Active') = True Then if GetPlayerStat(S,'Team') = Team Then Begin
    Len := GetArrayLength(Result);
   SetArrayLength(Result, Len + 1);
  Result[Len] := S;
 end;
end;


[DorkeyDear]

Hehe such a simple script, it was bound more than one person made it. I think I even made it once time in my history of scripting. Probably long lost now though xD

[Swompie]

Hehe such a simple script, it was bound more than one person made it. I think I even made it once time in my history of scripting. Probably long lost now though xD

Well, I was abit bored so I made this, I was sure such a thing has been done long time ago already, but maybe not as good as this >_>
Maybe someone will need it somwhere sometime (some-words ftw ;P)

Btw. Squiddy, my script looks moar coowl! 


A small update:
Removed the GetArrayLength(Result) and replaced it with the variable x which already holds the array length and changed two other small things.