hedgewars/uStore.pas
changeset 3689 e2be39ee19f0
parent 3670 4c673e57f0d7
child 3691 34fe2149f75d
equal deleted inserted replaced
3687:f2d5bc20064a 3689:e2be39ee19f0
   354     begin
   354     begin
   355     for t:= 0 to Pred(TeamsCount) do
   355     for t:= 0 to Pred(TeamsCount) do
   356     if TeamsArray[t] <> nil then
   356     if TeamsArray[t] <> nil then
   357         with TeamsArray[t]^ do
   357         with TeamsArray[t]^ do
   358             begin
   358             begin
   359             if GraveName = '' then GraveName:= 'Simple';
   359             if GraveName = '' then GraveName:= 'Statue';
   360             texsurf:= LoadImage(Pathz[ptGraves] + '/' + GraveName, ifCritical or ifTransparent);
   360             texsurf:= LoadImage(Pathz[ptGraves] + '/' + GraveName, ifTransparent);
       
   361             if texsurf = nil then texsurf:= LoadImage(Pathz[ptGraves] + '/Statue', ifCritical or ifTransparent);
   361             GraveTex:= Surface2Tex(texsurf, false);
   362             GraveTex:= Surface2Tex(texsurf, false);
   362             SDL_FreeSurface(texsurf)
   363             SDL_FreeSurface(texsurf)
   363             end
   364             end
   364     end;
   365     end;
   365 
   366