hedgewars/uLandTexture.pas
changeset 7151 ec15d9e1a7e3
parent 6700 e04da46ee43c
child 7170 84ac6c6d2d8e
equal deleted inserted replaced
7148:c7ee9592c9a1 7151:ec15d9e1a7e3
   153 begin
   153 begin
   154     ResetLand;
   154     ResetLand;
   155     if LandBackSurface <> nil then
   155     if LandBackSurface <> nil then
   156         SDL_FreeSurface(LandBackSurface);
   156         SDL_FreeSurface(LandBackSurface);
   157     LandBackSurface:= nil;
   157     LandBackSurface:= nil;
   158     LandTextures:= nil;
   158     SetLength(LandTextures, 0, 0);
   159 end;
   159 end;
   160 end.
   160 end.