--- oup/current/Global/RawList.pas	2007/03/23 00:58:09	118
+++ oup/current/Global/RawList.pas	2007/03/23 17:14:40	127
@@ -313,6 +313,7 @@ var
   datasize:  Integer;
   mipmap:    Byte;
   bpp:       Byte;
+  minside:   Byte;
 begin
   ConManager.Connection[ConnectionID].LoadDatFilePart(fileid, $88, SizeOf(mipmap), @mipmap);
   ConManager.Connection[ConnectionID].LoadDatFilePart(fileid, $8C, SizeOf(x), @x);
@@ -322,16 +323,17 @@ begin
   ConManager.Connection[ConnectionID].LoadDatFilePart(fileid, $A0, 4, @link_mac);
 
 
+  minside := 1;
   case storetype of
     0, 1, 2:
       bpp := 16;
-//      datasize := x * y * 2;
     8:
       bpp := 32;
-//      datasize := x * y * 4;
     9:
+    begin
       bpp := 4;
-//      datasize := x * y div 2;
+      minside := 4;
+    end;
   end;
 
   datasize := (x * y * bpp) div 8;
@@ -340,8 +342,16 @@ begin
     repeat
       x    := x div 2;
       y    := y div 2;
-      datasize := (datasize + x * y * bpp) div 8;
-    until (x = 1) or (y = 1);
+      datasize := datasize + (x * y * bpp) div 8;
+    until (x = minside) or (y = minside);
+    if storetype = 9 then
+    begin
+      repeat
+        x    := x div 2;
+        y    := y div 2;
+        datasize := datasize + (x * y * 16) div 8;
+      until (x = 1) or (y = 1);
+    end;
   end;
 
   SetLength(Result, 1);