# HG changeset patch
# User Wuzzy <Wuzzy2@mail.ru>
# Date 1545247655 -3600
# Node ID 35724823b0d3d4af0c278a934b117995c6226e23
# Parent  4b678aad50e985c9f852804c068e1e860257a1d9
Remove unused vars in uTeams

diff -r 4b678aad50e9 -r 35724823b0d3 hedgewars/uTeams.pas
--- a/hedgewars/uTeams.pas	Wed Dec 19 19:10:42 2018 +0100
+++ b/hedgewars/uTeams.pas	Wed Dec 19 20:27:35 2018 +0100
@@ -29,7 +29,7 @@
 procedure freeModule;
 
 function  AddTeam(TeamColor: Longword): PTeam;
-function  SetMissionTeam(TeamColor: Longword): PTeam;
+function  SetMissionTeam(): PTeam;
 procedure SwitchHedgehog;
 procedure AfterSwitchHedgehog;
 procedure InitTeams;
@@ -477,7 +477,7 @@
     end;
 end;
 
-function SetMissionTeam(TeamColor: Longword): PTeam;
+function SetMissionTeam(): PTeam;
 var team: PTeam;
 begin
 New(team);
@@ -798,8 +798,7 @@
 end;
 
 procedure chSetMissionTeam(var s: shortstring);
-var Color: Longword;
-    ts, cs: shortstring;
+var ts, cs: shortstring;
 begin
 cs:= '';
 ts:= '';
@@ -807,11 +806,8 @@
     begin
     SplitBySpace(s, cs);
     SplitBySpace(cs, ts);
-    Color:= StrToInt(cs);
 
-    // color is always little endian so the mask must be constant also in big endian archs
-    Color:= Color or $FF000000;
-    SetMissionTeam(Color);
+    SetMissionTeam();
 
     if CurrentTeam <> nil then
         begin