hedgewars/uWorld.pas
changeset 15052 1a754860b0e5
parent 15046 0730c68fdf97
child 15070 57f7d89067ef
equal deleted inserted replaced
15051:a9873c81b5e6 15052:1a754860b0e5
   171             cp:= ClansArray[0];
   171             cp:= ClansArray[0];
   172             ClansArray[0]:= ClansArray[t];
   172             ClansArray[0]:= ClansArray[t];
   173             ClansArray[t]:= cp;
   173             ClansArray[t]:= cp;
   174             ClansArray[t]^.ClanIndex:= t;
   174             ClansArray[t]^.ClanIndex:= t;
   175             ClansArray[0]^.ClanIndex:= 0;
   175             ClansArray[0]^.ClanIndex:= 0;
   176             if (LocalClan = t) then
       
   177                 LocalClan:= 0
       
   178             else if (LocalClan = 0) then
       
   179                 LocalClan:= t
       
   180             end;
   176             end;
   181         end;
   177         end;
   182     CurrentTeam:= ClansArray[0]^.Teams[0];
   178     CurrentTeam:= ClansArray[0]^.Teams[0];
   183     end;
   179     end;
   184 
   180