--- a/hedgewars/uCaptions.pas Mon Nov 14 18:28:05 2011 -0500
+++ b/hedgewars/uCaptions.pas Tue Nov 15 02:02:08 2011 +0100
@@ -63,6 +63,7 @@
Captions[Group].EndTime:= RealTicks + 1400 + LongWord(Captions[Group].Tex^.w) * 3;
end;
end;
+
// For uStore texture recreation
procedure ReloadCaptions;
var Group: TCapGroup;
--- a/hedgewars/uLandTexture.pas Mon Nov 14 18:28:05 2011 -0500
+++ b/hedgewars/uLandTexture.pas Tue Nov 15 02:02:08 2011 +0100
@@ -139,7 +139,7 @@
procedure ResetLand;
var x, y: LongInt;
begin
- for x:= 0 to LANDTEXARW -1 do
+ for x:= 0 to LANDTEXARW - 1 do
for y:= 0 to LANDTEXARH - 1 do
with LandTextures[x, y] do
begin
--- a/hedgewars/uStore.pas Mon Nov 14 18:28:05 2011 -0500
+++ b/hedgewars/uStore.pas Tue Nov 15 02:02:08 2011 +0100
@@ -1034,13 +1034,12 @@
else glClearColor(RQSkyColor.r / 255, RQSkyColor.g / 255, RQSkyColor.b / 255, 0.99);
StoreRelease(true);
+ ReloadCaptions;
+ ReloadLines;
StoreLoad(true);
ResetLand;
- ReloadCaptions;
- ReloadLines;
-
- UpdateLandTexture(0, LAND_WIDTH, 0, LAND_HEIGHT)
+ UpdateLandTexture(0, LAND_WIDTH, 0, LAND_HEIGHT);
end;
end;