hedgewars/uScript.pas
changeset 13618 edffc9b7ad58
parent 13617 a6abc2c1fc1a
child 13627 605767bbd022
equal deleted inserted replaced
13617:a6abc2c1fc1a 13618:edffc9b7ad58
  1318         clan^.Color:= Trunc(lua_tonumber(L, 2)) shr 8;
  1318         clan^.Color:= Trunc(lua_tonumber(L, 2)) shr 8;
  1319 
  1319 
  1320         for i:= 0 to Pred(clan^.TeamsNumber) do
  1320         for i:= 0 to Pred(clan^.TeamsNumber) do
  1321             begin
  1321             begin
  1322             team:= clan^.Teams[i];
  1322             team:= clan^.Teams[i];
  1323             for j:= 0 to 7 do
  1323             for j:= 0 to cMaxHHIndex do
  1324                 begin
  1324                 begin
  1325                 hh:= team^.Hedgehogs[j];
  1325                 hh:= team^.Hedgehogs[j];
  1326                 if (hh.Gear <> nil) or (hh.GearHidden <> nil) then
  1326                 if (hh.Gear <> nil) or (hh.GearHidden <> nil) then
  1327                     begin
  1327                     begin
  1328                     FreeAndNilTexture(hh.NameTagTex);
  1328                     FreeAndNilTexture(hh.NameTagTex);