hedgewars/uVariables.pas
changeset 10361 bc95b7c769a2
parent 10339 a1168c400c90
child 10416 1c301054694d
child 10443 42dadeb6e8ae
--- a/hedgewars/uVariables.pas	Sun Jul 06 19:20:43 2014 +0200
+++ b/hedgewars/uVariables.pas	Mon Jul 07 00:37:10 2014 +0200
@@ -302,16 +302,7 @@
             );
 
 var
-    SpritesData: array[TSprite] of record
-            FileName: string[15];
-            Path, AltPath: TPathType;
-            Texture: PTexture;
-            Surface: PSDL_Surface;
-            Width, Height, imageWidth, imageHeight: LongInt;
-            saveSurf: boolean;
-            priority: GLfloat;
-            getDimensions, getImageDimensions: boolean;
-            end = (
+    SpritesData: array[TSprite] of TSpriteData = (
             (FileName:  'BlueWater'; Path: ptCurrTheme;AltPath: ptGraphics; Texture: nil; Surface: nil;
             Width:   0; Height:  0; imageWidth: 0; imageHeight: 0; saveSurf: false; priority: tpMedium; getDimensions: true; getImageDimensions: true),// sprWater
             (FileName:     'Clouds'; Path: ptCurrTheme;AltPath: ptGraphics; Texture: nil; Surface: nil;