hedgewars/uStore.pas
changeset 765 a45111da760e
parent 764 7513452b1d51
child 766 cdc8f75ab7bc
equal deleted inserted replaced
764:7513452b1d51 765:a45111da760e
   208       with TeamsArray[t]^ do
   208       with TeamsArray[t]^ do
   209           begin
   209           begin
   210           if GraveName = '' then GraveName:= 'Simple';
   210           if GraveName = '' then GraveName:= 'Simple';
   211           texsurf:= LoadImage(Pathz[ptGraves] + '/' + GraveName, false, true, true);
   211           texsurf:= LoadImage(Pathz[ptGraves] + '/' + GraveName, false, true, true);
   212           GraveTex:= Surface2Tex(texsurf);
   212           GraveTex:= Surface2Tex(texsurf);
   213           SDL_FreeSurface(tmpsurf)
   213           SDL_FreeSurface(texsurf)
   214           end
   214           end
   215     end;
   215     end;
   216 
   216 
   217     procedure GetSkyColor;
   217     procedure GetSkyColor;
   218 //    var p: PByteArray;
   218 //    var p: PByteArray;