1025     hh   : THedgehog;

  1025     hh   : THedgehog;

  1026     i, j : LongInt;

  1026     i, j : LongInt;

  1027 begin

  1027 begin

  1028     if CheckLuaParamCount(L, 2, 'SetClanColor', 'clan, color') then

  1028     if CheckLuaParamCount(L, 2, 'SetClanColor', 'clan, color') then

  1029         begin

  1029         begin

  1031         clan^.Color:= lua_tointeger(L, 2) shr 8;

  1033         clan^.Color:= lua_tointeger(L, 2) shr 8;

  1032 

  1034 

  1033         for i:= 0 to Pred(clan^.TeamsNumber) do

  1035         for i:= 0 to Pred(clan^.TeamsNumber) do

  1034             begin

  1036             begin

  1035             team:= clan^.Teams[i];

  1037             team:= clan^.Teams[i];

  1045                 end;

  1047                 end;

  1046             FreeTexture(team^.NameTagTex);

  1048             FreeTexture(team^.NameTagTex);

  1047             team^.NameTagTex:= RenderStringTex(ansistring(clan^.Teams[i]^.TeamName), clan^.Color, fnt16);

  1049             team^.NameTagTex:= RenderStringTex(ansistring(clan^.Teams[i]^.TeamName), clan^.Color, fnt16);

  1048             end;

  1050             end;

  1049 

  1051 

  1050         clan^.HealthTex:= makeHealthBarTexture(cTeamHealthWidth + 5, clan^.Teams[0]^.NameTagTex^.h, clan^.Color);

  1053         clan^.HealthTex:= makeHealthBarTexture(cTeamHealthWidth + 5, clan^.Teams[0]^.NameTagTex^.h, clan^.Color);

  1051         end;

  1054         end;

  1052 

  1055 

  1053     lc_setclancolor:= 0

  1056     lc_setclancolor:= 0

  1054 end;

  1057 end;