//循環服務器全部玩家
for I := Gamelib.PlayCount - 1 downto 0 do
begin
//按奇偶序號分陣營（取模操作）
if I mod 2 = 0 then
begin
Gamelib.Player[I].Camp := 1; //分到陣營1
Gamelib.Player[I].MapMove('0', 300, 300); //傳送到指定位置
end
else
begin
Gamelib.Player[I].Camp := 2; //分到陣營2
Gamelib.Player[I].MapMove('0', 600, 600); //傳送到指定位置
end;
end;
end;
end.