Simple CTF Balancer

[deevus]

Script Name: Simple CTF Balancer
Script Version: 1.10
Script Description ctf, balancing, balancer
Author: deevus
Compile Test: Passed
Core Version: 2.6.3
Hosted by: Soldat Central - http://soldatcentral.com/

Balances CTF game mode by moving the last joined player from the opposite team.

Code: [Select]

procedure BalanceTeams(fromTeam, toTeam : byte);
var
i : integer;
Changed : boolean;
CmdStr : String;
begin
i := 1;
Changed := False;
while (i <= LAST_JOINED_LENGTH) and (not Changed) do begin
if arrLastJoined[i].Team = fromTeam then begin
CmdStr := '/setteam' + IntToStr(toTeam) + ' ' + IntToStr(arrLastJoined[i].ID);
Command(CmdStr);
SayToPlayer(arrLastJoined[i].ID, 'You have been moved to team ' + GetTeamName(toTeam));
arrLastJoined[i].ID := GetLastJoinedID(arrLastJoined[i].Team);
Changed := True;
end;
i := i + 1;
end;
end;

1.10

-- Added /balanceteams admin command to check balance
-- Added boolean constant to enable/disable auto checking of balance
-- Fixed bug where PlayerID wasn't defined if the last joined ID = 1

(http://soldatcentral.com/images/download.gif)
(Size 1.86 KB)
- http://soldatcentral.com/index.php?page=script&f=64 -

** Script hosted by Soldat Central! Please visit the author's script page and Rate this script **

[PKS|Shooter]

Thanks Dude thats very usefull

[deevus]

No worries. Good to hear since its my first soldat script.

[PKS|Shooter]

wut? first script ? Nice!

this is what i needed ^^

it suxs, always its 8 vs 6 or 5 vs 3

but this script ownz ^^

[Toumaz]

Great work - a very clean and effective balance script. Many thanks for making it!

[deevus]

Updated to version 1.10
Check first post