hedgewars/uScript.pas
changeset 7291 ad4b6c2b09e8
parent 7270 93e92e82d5c8
child 7374 514138949c76
equal deleted inserted replaced
7288:5d0704f23a2a 7291:ad4b6c2b09e8
   736             rr:= r;
   736             rr:= r;
   737             inc(rr.x, 2); dec(rr.w, 4); inc(rr.y, 2); dec(rr.h, 4);
   737             inc(rr.x, 2); dec(rr.w, 4); inc(rr.y, 2); dec(rr.h, 4);
   738             DrawRoundRect(@rr, clan^.Color, clan^.Color, texsurf, false);
   738             DrawRoundRect(@rr, clan^.Color, clan^.Color, texsurf, false);
   739 
   739 
   740             FreeTexture(team^.HealthTex);
   740             FreeTexture(team^.HealthTex);
   741             team^.HealthTex:= Surface2Tex(texsurf, false);
   741             team^.HealthTex:= Surface2Atlas(texsurf, false);
   742             SDL_FreeSurface(texsurf);
       
   743             MakeCrossHairs
   742             MakeCrossHairs
   744             end
   743             end
   745         end;
   744         end;
   746     lc_setclancolor:= 0
   745     lc_setclancolor:= 0
   747 end;
   746 end;